Comparison of Maple on Various Machines
From: karl@faepds01.tu-graz.ac.at (karl unterkofler)
readlib(history):
history():
timing(evalf(Pi,10001)):
# HP 9000/735: 62.90 seconds
# HP 9000/730: 94.00 seconds
# Decstation 3100: 122.81 seconds
# HP 9000/715/50: 127.48 seconds
# Quadra 700/20MB: 147.63 seconds
timing(5000!):
# HP 9000/735: 20.56 seconds
# HP 9000/730: 30.38 seconds
# Decstation 3100: 37.26 seconds
# HP 9000/715/50: 38.43 seconds
# Quadra 700/20MB: 42.95 seconds
with(linalg,eigenvals,randmatrix):
timing(eigenvals(randmatrix(15,15))):
# HP 9000/735: 11.91 seconds
# HP 9000/730: 18.81 seconds
# HP 9000/715/50: 28.23 seconds
# Decstation 3100: 42.06 seconds
# Quadra 700/20MB: 61.30 seconds
f:=x-> 4*x- 4* x^2:
timing((f@@5000)(0.6)):
# HP 9000/735: 3.18 seconds
# HP 9000/730: 5.03 seconds
# HP 9000/715/50: 7.91 seconds
# Decstation 3100: 11.30 seconds
# Quadra 700/20MB: 18.03 seconds
g:=x->BesselJ(0,x):
timing((g@@2500)(0.6)):
# HP 9000/735: 2.03 seconds
# HP 9000/730: 3.35 seconds
# HP 9000/715/50: 4.73 seconds
# Decstation 3100: 8.46 seconds
# Quadra 700/20MB: 14.50 seconds
kdv:= q-> diff(q,t) - 1/4 * diff(q,x$3) -3/2 *q* diff(q,x):
q3:= ( -5*exp( 11* t/8) -45 * exp( 2*x) - 18 * exp( 11 *t/16 +x) +
162* exp( 3 *t/2 + 2 * x) - 188*exp( 13 *t/16 + 3 *x)+
162* exp( t/8 + 4 *x)- 45* exp( 13* t/8 + 4 * x)-
18* exp( 15*t/16 + 5 * x) - 5*exp(t/4 + 6 *x) )/
( 8* (- exp( 11*t/16) + 3*exp(x)- 3* exp(13 *t/16+ 2* x)+
exp( t/8+ 3*x))^2):
kdv(q3):
timing(simplify("));
# HP 9000/735: 2.58 seconds
# HP 9000/730: 4.30 seconds
# HP 9000/715/50: 6.48 seconds
# Decstation 3100: 9.63 seconds
# Quadra 700/20MB: 17.93 seconds
timing(seq(nextprime(i),i=1..3000)):
# HP 9000/735: 1.90 seconds
# HP 9000/730: 3.25 seconds
# HP 9000/715/50: 4.70 seconds
# Decstation 3100: 6.70 seconds
# Quadra700/20MB: 15.23 seconds
timing(integrate(1/( 1+x ^15),x)):
# HP 9000/735: 3.28 seconds
# HP 9000/730: 5.00 seconds
# HP 9000/715/50: 6.46 seconds
# Decstation 3100: 10.68 seconds
# Quadra 700/20MB: 22.61 seconds