Comparison of Mathematica 6.x on Various Computers

Version: August 20, 2007

This is the latest version of Mathematica timing tests.
Further results are welcome.

Send mail to: karl.unterkofler(at)fhv.at

Test notebooks are available from Karl's MMA page.
Download the MMA 6.0 test notebook.


New results:
MacBook, 2GHz Intel Core 2 Duo, 2GB, MacOS 10.4.10
MacPro, 3.0GHz Intel Core 2 Duo, 4GB, MacOS 10.4.9
AMD Athlon 64 FX-74, 3.0GHz Socket F (1207 FX) DSDC, Windows
MacBook, 2GHz Intel Core 2 Duo, 2GB, MacOS 10.4.10
Apple PowerBook G4, 867 MHz, 640 MB RAM, Mac OS 10.4.10

Overall performance in 15 test calculations.


The current reference is a machine with a 2.33GHz Intel Core 2 Duo processor

MacPro, 3.0GHz Intel Core 2 Duo, 4GB, MacOS 10.4.9 [4]: 1.25404
AMD Athlon 64 FX-74, 3.0GHz Socket F (1207 FX) DSDC, Windows [5]: 1.14464
iMac, 2.33GHz Intel Core 2 Duo, 3GB, MacOS 10.4.9 [2]: 1.00338
MacBook Pro, 2.33GHz Intel Core 2 Duo, 2 GB RAM, MacOS X 10.4.9 [1]: 1.00105
MacBook, 2GHz Intel Core Duo, 2GB, MacOS 10.4.9 [3]: 0.537151
MacBook, 2GHz Intel Core 2 Duo, 2GB, MacOS 10.4.10 [6]: 0.880472
Apple PowerBook G4, 867 MHz, 640 MB RAM, Mac OS 10.4.10 [7]: 0.127736

Detailed test results



Following calculations are performed

  1. Timing[N[Pi, 5000000]]][[1]]
  2. Timing[N[Sin[1/2], 3000000]][[1]]
  3. Timing[10000000!][[1]]
  4. Timing[FactorInteger[2^256 - 1]][[1]]
  5. Timing[PrimeQ[2^19937 - 1]][[1]]
  6. Timing[Eigenvalues[Table[Random[], {1200}, {1200}]]][[1]]
  7. Timing[Nest[f, 0.6, 6000000]][[1]]
  8. Timing[Nest[g, 2, 16000]][[1]]
  9. Timing[Table[Together[c[k]], {k, 4, 24}]][[1]]
  10. Timing[Integrate[1/(1 + x^1005), x]][[1]]
  11. Timing[Table[N[WeierstrassP[n, {1, 1}]], {n, 40000}]][[1]]
  12. Timing[Table[a[n], {n, 0, 15}]][[1]]/a>
  13. Timing[Table[HermiteH[n, z], {n, 1500}]][[1]]
  14. Timing[ Sum[Binomial[m, k], {k, 0, 10000000}]][[1]]
  15. 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]]     
where
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 - 4*x^2;
g[x_]  := BesselJ[0, x];
a[n_]  := 2/Pi*Integrate[Log[2 Cos[x/2]] * Cos[n x], {x, 0, Pi}];

Back to Karl's MMA page.


Disclaimer

This page is maintained by Karl Unterkofler. Sentiments and opinions expressed here are wholly unrelated to those of Wolfram Research, Inc. and constitute in no way any official company statement or warranty. If you have any comments or questions please feel free to e-mail me.