Mma speed trials (Win'95)
- To: mathgroup at smc.vnet.net
- Subject: [mg2832] Mma speed trials (Win'95)
- From: Richard Morey Porter <rmporter at unixg.ubc.ca>
- Date: Sat, 23 Dec 1995 03:18:34 -0500
Hello all
Happy Yule!
Had a few spare moments, so I thought I'd do the speed trials on my =
machine. It would appear to be underperforming (or at best performing =
inconsistently). Is this my imagination? Am I merely quibbling over =
nanoseconds? I thought 16MB RAM would be enough, but my P-100 seems to =
be outpaced by lower speed 486s running on 16MB. Is Win'95 vs. MMa =
front-end really slowing things down this much, that I am effectivly =
running a 486 between 33 and 75 MHz?
Anyone else experiencing a similar wholesale drop in performance?
Machine Specs:
Pentium, 100 MHz, 16MB RAM, Win'95 (Monitor: 800x600, 256, 1MB; MMa =
2.2.4 student version)
Trials:
Timing[3^10000;]
0.164 seconds
Timing[10000!;]
16.074 seconds
hil =3D Table[1/(i+j-1), {i,30}, {j,30}];
Timing[Det[hil]]
11.144 seconds
Timing[ListPlot[Table[Prime[i],{i,10000}],PlotJoined->True]]
19.674 seconds
Timing[N[Pi,3500]]
2.76 seconds
First[Timing[Eigenvalues[Table[Random[],{200},{200}]]]]
27.463 seconds
Timing[Factor[x^92259-1];]
9.941 seconds
Timing[Integrate[1/(1-x^3),x]]
4.844 seconds
Timing[ParametricPlot3D[{r Cos[Cos[r]]Cos[psi], r Cos[Cos[r]]Sin[psi],r
Sin[Cos[r]]},{r,0.001,9Pi/2+0.001}, {psi,0,3Pi/2},PlotPoints->{72,24}]]
32.676 seconds
bx =3D 6 Cos[u] (1 + Sin[u]);by =3D 16 Sin[u];rad =3D 4 (1 - Cos[u] / =
2);
X =3D If[Pi < u <=3D 2 Pi, bx + rad Cos[v + Pi], bx + rad Cos[u] =
Cos[v]];
Y =3D If[Pi < u <=3D 2 Pi, by,by + rad Sin[u] Cos[v]];
Z =3D rad Sin[v];
Timing[ParametricPlot3D[{X, Y, Z},{u, 0, 2 Pi}, {v, 0, 2 Pi},PlotPoints =
-> {48,12},Axes -> False,Boxed -> False,ViewPoint-> {1.4, -2.6, -1.7}];]
25.217 seconds
Sincerely,
richard morey porter, graduate student, RESECON administrator
forest economics and policy analysis, university of british columbia
LPC Rm.480, 2206 east mall, vancouver, bc canada v6t 1z3
telephone: 604-822-3173 (office) or 604-228-8818 (home)
facsimile: 604-822-6970 (office)
email: <rmporter at unixg.ubc.ca> or <r.morey.porter at fisheries.com>
RESECON Webpage: http://unixg.ubc.ca:780/~rmporter/resecon_home.html
My WWW Homepage: http://unixg.ubc.ca:780/~rmporter/index.html
"Accuse not nature, she hath done her part; do thou thine." - Milton
"Take Chances! Make Mistakes! Get Messy!" - Miss Frizzle
"Va, pensiero, sull'ali dorate!" - Prisoners' Chorus, Nabucco, Act 3
*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+