Mathematica Benchmark Test
by Karl Unterkofler,    ( karl.unterkofler(at)fhv.at )

This notebook contains 15 short calculations for use with MMA 6.0.
Run the notebook without modifications in a new kernel session.
At 2 Ghz (Intel Core 2 Duo) the benchmark will approximately take 200 seconds.
Note: Due to caching in Mathematica you need to perform this timing test on fresh kernels only or you may get skewed timing results.

1+1;

Block[{},ref={11.36,10.41,15,9.43,18.40,11.49,12,10.92,32.88,7.59,10.15,10.84  ,10.73,15.084,25.64};
c[2]:=c2;c[3]:=c3;c[k_]:= 3/((2 k+1)(k-3)) Sum[c[m] c[k-m],{m,2,k-2}];
f[x_]:=4 x(1-x);  g[x_]:=BesselJ[0,x];
a[n_] := 2/π  Integrate[Log[2 Cos[x/2]] * Cos[n x],{x,0,π}];
	start = AbsoluteTime[];
	time={Timing[N[π,5000000]][[1]],
			Timing[N[Sin[1/2],3000000]][[1]],
			Timing[10000000!][[1]],
			Timing[FactorInteger[(2^256)-1]][[1]],
			Timing[PrimeQ[(2^19937)-1]][[1]],
			Timing[Eigenvalues[Table[Random[],{1200},{1200}]]][[1]],
			Timing[Nest[f,0.6,6000000]][[1]],
			Timing[Nest[g,2,16000]][[1]],
		         Timing[Table[Together[c[k]],{k,4,24}]][[1]],
			Timing[∫(1/(1+(x^1005)))\[DifferentialD]x][[1]],
			Timing[Table[N[WeierstrassP[n,{1,1}]],{n,40000}]][[1]],
		Timing[Table[a[n],{n,0,15}]][[1]],
		Timing[Table[HermiteH[n,z],{n,1500}]][[1]],
		Timing[ Sum[Binomial[m,k],{k,0,10000000}]][[1]],Timing[Eliminate[{a0 b0==g0,a1 b0+a0 b1==g1,
a2 b0+2 a1 b1+a0 b2==g2,3 a2 b1+3 a1 b2-q1 g1-g0 q11==g3,-3 z (a1 b0-a0 b1)-q1 g2-7/2 q11 g1-g0 q12+6 a2 b2-6 a1 b1 q1==g4,g2-3 a1 b1+q1 g0==-1},{a0,a1,a2,b0,b1,b2}]][[1]]  };
	clocktime=N[AbsoluteTime[]-start,4];
	reltime=(time/ref);
	timeN3=N[time,3];
	
	totalkernel =N[ Apply[Plus,time],4];
	benchmark=N[(15/((∑_(j=1)^15)reltime[[j]])),3];Print["Version   = ",$Version];Print["Times     = ",timeN3];
	Print["Total Kernel Time = ",totalkernel,
		",  Total Time = ",clocktime];Print["Benchmark = ",benchmark];]