Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.


  • Prev by Date: Re: Q: D[EllipticK[k],k] ?
  • Next by Date: MA to TXT?
  • Previous by thread: Re: ArcSin[Sin[x]]
  • Next by thread: MA to TXT?