From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Fri, 24 Aug 2007 00:25:56 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: ALT Devel discussion list <devel@lists.altlinux.org>
Message-ID: <20070823202556.GG6155@solemn.turbinal>
Mail-Followup-To: ALT Devel discussion list <devel@lists.altlinux.org>
References: <20070821214321.GB28786@solemn.turbinal>
	<20070823101945.GA6155@solemn.turbinal>
	<20070823111018.GI9721@osdn.org.ua>
	<a4ab440f0708230416n57ab2317hc65d6de14aa0b06c@mail.gmail.com>
	<a4ab440f0708230418p44b813bcp7758903509cbc3b6@mail.gmail.com>
	<20070823115225.GM9721@osdn.org.ua>
	<a4ab440f0708230510p2a642a8na320c3028d8cc262@mail.gmail.com>
	<20070823121122.GS9721@osdn.org.ua>
	<20070823123218.GC6155@solemn.turbinal>
	<20070823190529.GE6155@solemn.turbinal>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="jaoouwwPWoQSJZYp"
Content-Disposition: inline
In-Reply-To: <20070823190529.GE6155@solemn.turbinal>
Subject: Re: [devel] =?koi8-r?b?09TB1MnT1MnLwQ==?=
X-BeenThere: devel@lists.altlinux.org
X-Mailman-Version: 2.1.9rc1
Precedence: list
Reply-To: ALT Devel discussion list <devel@lists.altlinux.org>
List-Id: ALT Devel discussion list <devel.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/listinfo/devel>,
	<mailto:devel-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/devel>
List-Post: <mailto:devel@lists.altlinux.org>
List-Help: <mailto:devel-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/devel>,
	<mailto:devel-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Thu, 23 Aug 2007 20:25:51 -0000
Archived-At: <http://lore.altlinux.org/devel/20070823202556.GG6155@solemn.turbinal/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


--jaoouwwPWoQSJZYp
Content-Type: multipart/mixed; boundary="B8ONY/mu/bqBak9m"
Content-Disposition: inline


--B8ONY/mu/bqBak9m
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

On Thu, Aug 23, 2007 at 11:05:29PM +0400, Alexey Tourbin wrote:
> (=F7=F2=E5=ED=F1 =F3=E2=EF=F2=EB=E9 =F3=EC=F5=FE=E1=EA=EE=EF =F7=F9=E2=F2=
=E1=EE=EE=F9=E8 N src.rpm =F0=E1=EB=E5=F4=EF=F7) <=3D
> 	N * (=D3=D2=C5=C4=CE=C5=C5 + 2*=D3=C9=C7=CD=C1/sqrt(N))
> =C7=C4=C5
> 	=D3=D2=C5=C4=CE=C5=C5 =3D 74 =D3=C5=CB=D5=CE=C4=D9
> 	=D3=C9=C7=CD=C1 =3D 189 =D3=C5=CB=D5=CE=C4=C1
> =CE=C5=D2=C1=D7=C5=CE=D3=D4=D7=CF =D7=D9=D0=CF=CC=CE=D1=C5=D4=D3=D1 =D3 =
=D7=C5=D2=CF=D1=D4=CE=CF=D3=D4=D8=C0 =CF=CB=CF=CC=CF 90%.

=FE=C9=D3=CC=C5=CE=CE=D9=CA =DC=CB=D3=D0=C5=D2=C9=CD=C5=CE=D4 =D0=CF=CB=C1=
=DA=D9=D7=C1=C5=D4, =DE=D4=CF =CE=C1=C4=C5=D6=CE=CF=D3=D4=D8 =C6=CF=D2=CD=
=D5=CC=D9 =CF=CB=CF=CC=CF 95%.

$ perl test-buildtime.pl <buildtime
mean=3D74.3942971025606
devi=3D189.240149227661
   5 packages:  955/1000 =3D 95.5%
  10 packages:  948/1000 =3D 94.8%
  50 packages:  959/1000 =3D 95.9%
 100 packages:  952/1000 =3D 95.2%
 500 packages:  972/1000 =3D 97.2%
1000 packages:  973/1000 =3D 97.3%
5000 packages: 1000/1000 =3D 100.0%
$ perl test-buildtime.pl <buildtime
mean=3D74.3942971025606
devi=3D189.240149227661
   5 packages:  950/1000 =3D 95.0%
  10 packages:  943/1000 =3D 94.3%
  50 packages:  954/1000 =3D 95.4%
 100 packages:  957/1000 =3D 95.7%
 500 packages:  970/1000 =3D 97.0%
1000 packages:  983/1000 =3D 98.3%
5000 packages: 1000/1000 =3D 100.0%
$ wc -l buildtime
6523 buildtime
$

(test-buildtime.pl =D0=D2=C9=CC=CF=D6=C5=CE)

--B8ONY/mu/bqBak9m
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="test-buildtime.pl"

#!/usr/bin/perl
use strict;
use Statistics::Descriptive;
my $stats = Statistics::Descriptive::Full->new();
while (<>) {
	my @v = split;
	$stats->add_data(0+$v[-1]);
}

my $mean = $stats->mean();
my $devi = $stats->standard_deviation();
print "mean=$mean\n";
print "devi=$devi\n";

my @times = $stats->get_data();

sub calc_90_time ($) {
	my $N = shift;
	return $N * ($mean + 2*$devi/sqrt($N));
}

use List::Util qw(shuffle sum);
for my $N (5, 10, 50, 100, 500, 1000, 5000) {
	my $time = calc_90_time($N);
	my $n_ok = 0;
	for (1 .. 1000) {
		@times = shuffle(@times);
		my $sum = sum @times[1 .. $N];
		$n_ok++ if $sum <= $time;
	}
	printf "%4d packages: %4d/1000 = %.1f%\n", $N, $n_ok, 100*$n_ok/1000;
}

--B8ONY/mu/bqBak9m--

--jaoouwwPWoQSJZYp
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.7 (GNU/Linux)

iD8DBQFGze1UfBKgtDjnu0YRAlXbAJoCQYAWiOWkbQJ13LK2ns6zLFi5ygCgnQ+a
VwLTT5fJzUoDkFi7kFDnVfc=
=/9O5
-----END PGP SIGNATURE-----

--jaoouwwPWoQSJZYp--