~ubuntu-branches/ubuntu/precise/openssl098/precise

« back to all changes in this revision

Viewing changes to times/091/mips-rel.pl

  • Committer: Bazaar Package Importer
  • Author(s): Kurt Roeckx
  • Date: 2011-03-23 19:50:31 UTC
  • Revision ID: james.westby@ubuntu.com-20110323195031-6h9crj4bymhhr8b8
Tags: upstream-0.9.8o
ImportĀ upstreamĀ versionĀ 0.9.8o

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
#!/usr/local/bin/perl
 
2
 
 
3
&doit(100,"Pentium   100 32",0.0195,0.1000,0.6406,4.6100);      # pentium-100
 
4
&doit(200,"PPro      200 32",0.0070,0.0340,0.2087,1.4700);      # pentium-100
 
5
&doit( 25,"R3000      25 32",0.0860,0.4825,3.2417,23.8833);     # R3000-25
 
6
&doit(200,"R4400     200 32",0.0137,0.0717,0.4730,3.4367);      # R4400 32bit
 
7
&doit(180,"R10000    180 32",0.0061,0.0311,0.1955,1.3871);      # R10000 32bit
 
8
&doit(180,"R10000    180 64",0.0034,0.0149,0.0880,0.5933);      # R10000 64bit
 
9
&doit(400,"DEC 21164 400 64",0.0022,0.0105,0.0637,0.4457);      # R10000 64bit
 
10
 
 
11
sub doit
 
12
        {
 
13
        local($mhz,$label,@data)=@_;
 
14
 
 
15
        for ($i=0; $i <= $#data; $i++)
 
16
                {
 
17
                $data[$i]=1/$data[$i]*200/$mhz;
 
18
                }
 
19
        printf("%s %6.1f %6.1f %6.1f %6.1f\n",$label,@data);
 
20
        }
 
21