Mathematica 2.2.3 under Win95
- Subject: [mg2260] Mathematica 2.2.3 under Win95
- From: bueno at ifi.unicamp.br (Marcelo de Almeida Bueno - pos)
- Date: Thu, 19 Oct 1995 05:32:47 GMT
- Approved: usenet@wri.com
- Distribution: local
- Newsgroups: wri.mathgroup
- Organization: Wolfram Research, Inc.
- Sender: daemon at wri.com ( )
Dear MathGroupers, I have recently sent to Karl the results of my benchmarks running Mathematica 2.2.3 under Windows for Workgroups (WFW) 3.11. Now, I run the same benchtests with Mathematica 2.2.3 under Windows 95 (W95). I report bellow the two results, and ask someone to explain me how can WFW 3.11 be faster than W95? ************************************* Math 2.2.3 under WFW 3.11: ************************************* Timing[N[Sin[1/2],2500]][[1]] 7.25 Second Timing[N[Pi,10001]][[1]] 10.82 Second Timing[10001!][[1]] 7.58 Second First[Timing[Eigenvalues[Table[Random[],{200},{200}]]]] 22.3 Second f[x_]:= 4x-4x^2; Timing[ Nest[f,0.6,5000]][[1]] 6.538 Second f[x_]:= BesselJ[0,x]; Timing[Nest[f,0.6,2500]][[1]] 13.786 Second 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]]] {52.508 Second, 0} ********************************* Math 2.2.3 under W95: ********************************* Timing[N[Sin[1/2],2500]][[1]] 15.029 Second Timing[N[Pi,10001]][[1]] 27.115 Second Timing[10001!][[1]] 21.048 Second First[Timing[Eigenvalues[Table[Random[],{200},{200}]]]] 47.212 Second f[x_]:= 4x-4x^2; Timing[ Nest[f,0.6,5000]][[1]] 13.108 Second f[x_]:= BesselJ[0,x]; Timing[Nest[f,0.6,2500]][[1]] 29.512 Second 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]]] {110.971 Second, 0} The two benchtests run on a motherboard SOYO with 256k cache, Intel's DX4 100 MHz and 40 M RAM. A big hug, _/_/ _/_/_/_/_/_/_/_/_/ | Department of Cosmic Rays and Chronology _/ _/_/ _/ _/ _/ | Institute of Physics "Gleb Wataghin" _/ _/ _/_/_/_/_/_/_/_/ | State University of Campinas, UNICAMP _/ _/ _/ _/ | 13083-970 Campinas, Sao Paulo, Brazil _/ _/ _/ _/ | e-mail: bueno at ifi.unicamp.br _/ _/ _/_/_/_/ | home page: http://www.ifi.unicamp.br/~bueno | Tel.: (+55) (192) 398112 or 300646 Marcelo de Almeida Bueno | FAX: (+55) (192) 393127 or 300646