MMA bench result for P5-100mhz (and PBsram cache)
- To: mathgroup at christensen.cybernetics.net
- Subject: [mg2022] MMA bench result for P5-100mhz (and PBsram cache)
- From: roussel at physics.mcgill.ca (Harold Roussel)
- Date: Thu, 14 Sep 1995 23:30:04 -0400
- Organization: McGill University, Montreal, Quebec
Here are my results for Karl Unterkofler MMA benchmark,
Timing[N[Sin[1/2],2500]][[1]]
(*
P100 5.22
Timing[N[Pi,10001]][[1]]
(*
P100 7.59
Timing[10001!][[1]]
(*
P100 5.21
First[Timing[Eigenvalues[Table[Random[],{200},{200}]]]]
(*
P100 7.87
f[x_]:= 4x-4x^2;
Timing[ Nest[f,0.6,5000]][[1]]
(*
P100 2.31
f[x_]:= BesselJ[0,x];
Timing[Nest[f,0.6,2500]][[1]]
(*
P100 4.62
kdv[q_]:= D[q,t] - 1/4 D[q,{x,3}] -3/2 q D[q,x]
q3:= (-5*E^((11*t)/8) - 45*E^(2*x) - 18*E^((11*t)/16 + x) +
162*E^((3*t)/2 + 2*x) - 188*E^((13*t)/16 + 3*x) +
162*E^(t/8 + 4*x) - 45*E^((13*t)/8 + 4*x) -
18*E^((15*t)/16 + 5*x) - 5*E^(t/4 + 6*x))/
(8*(-E^((11*t)/16) + 3*E^x - 3*E^((13*t)/16 + 2*x) +
E^(t/8 + 3*x))^2)
Timing[Simplify[kdv[q3]]]
(*
P100 20.41
*)
My system is a Pentium 100mhz with 256KB of PBsram cache (ASUS
motherboard), running MMA 2.2.4 under OS/2 Warp.
//
// H. Roussel email: roussel at physics.mcgill.ca
// Ph.D. student phone: (514) 398-6506
// High Energy Physics
// McGill University, Montr?al, Qu?bec
//
// Using OS/2 Warp...and soon NT 3.51.
//
// "...puisses t-il me donner la force de te d?sar?onner et
// d'un seul coup d'?p?e te faire ? nouveau traverser la mer."
// Le Roi Arthur, dans Excalibur.