Sponsored links: Algebra eBooks
 

Related

showtime-solve-true

showtime:true;

solve(x^2+x+4=0,x);

Calculate

showtime-sum-true

showtime:true;

sum(k,k,1,10000);

Calculate

showtime-sqrt-true

showtime:true;

sqrt((x^3+x^(1999/200...

Calculate

showtime-sum-true

showtime:true;

sum(k,k,1,100);

Calculate

showtime

showtime: all;

a[n]:= if n>1 then...

a[103];

Calculate

showtime-sqrt-true

showtime:true;

sqrt(2499999999999949...

Calculate

showtime

showtime: all;

a[n]:= if n>1 then...

a[0];

Calculate

showtime-solve-true

showtime:true;

solve(x^2+x+4=0,x);

Calculate

showtime

showtime:all;

for c thru 10^2 do fa...

Calculate

showtime-sum-true

showtime:true;

sum(k,k,1,10000);

Calculate

showtime

Run Example
(%i1)? showtime;

 -- Option variable: showtime
     Default value: `false'

     When `showtime' is `true', the computation time and elapsed time is
     printed with each output expression.

     The computation time is always recorded, so `time' and `playback'
     can display the computation time even when `showtime' is `false'.

     See also `timer'.


(%o1)                                true
(%i2) 
Run Example
[mev:1];
(%o1)                                 [1]
(%i2) ratprint:off;
(%o2)                                false
(%i3) showtime:on;
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o3)                                true
(%i4) Evaluation took 0.0000 seconds (0.0000 elapsed)
[R1:float(58.2/1000),R2:float(64/1000),R3:float(70/1000),so:float(1.607/1000)];
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o4)                   [0.0582, 0.064, 0.07, 0.001607]
(%i5) Evaluation took 0.0000 seconds (0.0000 elapsed)
[nmax:2*abs(mev)+1,lmax:2*abs(mev)+1];
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o5)                               [3, 3]
(%i6) Evaluation took 0.0000 seconds (0.0000 elapsed)
[p:2,q:3,mp:3,W:6,u0:float(4*%pi*10^(-7)),um:1.02,sigmam:10^6/0.55,omegar:2*800*float(%pi),I1:float(260*sqrt(2)),phi:0,Nslot:36,Length:float(250/1000)];
Evaluation took 0.2200 seconds (1.8900 elapsed)
(%o6) [2, 3, 3, 6, 1.2566370614359173E-6, 1.02, 1818181.818181818, 
                             5026.548245743669, 367.6955262170049, 0, 36, 0.25]
(%i7) Evaluation took 0.0000 seconds (0.0000 elapsed)
[omegas:float(2*800*%pi),sigma:sigmam];
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o7)               [5026.548245743669, 1818181.818181818]
(%i8) Evaluation took 0.0000 seconds (0.0000 elapsed)
[deltalf:R3-R1,h:so/deltalf,tauQ:12.6/1000,alphap:1];
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o8)                [0.0118, 0.13618644067797, 0.0126, 1]
(%i9) Evaluation took 0.0000 seconds (0.0000 elapsed)
[Wtaupver:8/9];
Evaluation took 0.0000 seconds (0.0000 elapsed)
                                       8
(%o9)                                 [-]
                                       9
(%i10) Evaluation took 0.0000 seconds (0.0000 elapsed)
Kpv(m):=float(sin(Wtaupver*(m)*%pi/2));
Evaluation took 0.0000 seconds (0.0000 elapsed)
                                         Wtaupver m %pi
(%o10)               Kpv(m) := float(sin(--------------))
                                               2
(%i11) Evaluation took 0.0000 seconds (0.0000 elapsed)
Kdv(m):=float(sin((m)*%pi/(2*mp))/(q*sin((m)*%pi/(2*mp*q))));
Evaluation took 0.0000 seconds (0.0000 elapsed)
                                             m %pi
                                         sin(-----)
                                             2 mp
(%o11)                  Kdv(m) := float(-------------)
                                              m %pi
                                        q sin(------)
                                              2 mp q
(%i12) Evaluation took 0.0000 seconds (0.0000 elapsed)
Kwv(m):=Kpv(m)*Kdv(m);
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o12)                      Kwv(m) := Kpv(m) Kdv(m)
(%i13) Evaluation took 0.0000 seconds (0.0000 elapsed)
Ksov(m):=float(sin((m)*so/(R3))/((m)*so/(R3)));
Evaluation took 0.0000 seconds (0.0000 elapsed)
                                               m so
                                           sin(----)
                                                R3
(%o13)                    Ksov(m) := float(---------)
                                             m so
                                             ----
                                              R3
(%i14) Evaluation took 0.0000 seconds (0.0000 elapsed)
Jm(m):=float(3*W*I1*Ksov(m)*Kwv(m)/(%pi*R3));
Evaluation took 0.0000 seconds (0.0000 elapsed)
                                    3 W I1 Ksov(m) Kwv(m)
(%o14)               Jm(m) := float(---------------------)
                                           %pi R3
(%i15) Evaluation took 0.0000 seconds (0.0000 elapsed)
Jcs(m,theta):=Jm(m)*float(cos(m*p*theta));
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o15)           Jcs(m, theta) := Jm(m) float(cos(m p theta))
(%i16) Evaluation took 0.0000 seconds (0.0000 elapsed)
Jcs(1,1);
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o16)                        - 11837.26488289275
(%i17) Evaluation took 0.0000 seconds (0.0000 elapsed)
Run Example
(display2d:false,assume(t>
0));

(%o1) [t > 0]
(%i2) 
x (t) := ''(integrate (cos (s^2 * %pi/2), s, 0, t));

(%o2) x(t):=-((%i-1)*erf(sqrt(%pi)*(%i+1)*t/2)
             +(%i+1)*erf(sqrt(%pi)*(%i-1)*t/2))/4
(%i3) 
y (t) := ''(integrate (sin (s^2 * %pi/2), s, 0, t));

(%o3) y(t):=((%i+1)*erf(sqrt(%pi)*(%i+1)*t/2)
             +(%i-1)*erf(sqrt(%pi)*(%i-1)*t/2))/4
(%i4) 
showtime:true;
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o4) true
(%i5) 
Evaluation took 0.0000 seconds (0.0100 elapsed)
load(draw);
Evaluation took 0.0200 seconds (0.0300 elapsed)
(%o5) "/usr/share/maxima/5.21.1/share/draw/draw.lisp"
(%i6) 
Evaluation took 0.0000 seconds (0.0000 elapsed)
draw2d( explicit(x(t),t,0,3) );
plotdraw2d( explicit(x(t),t,0,3) );draw2d( explicit(y(t),t,0,3) );
plotdraw2d( explicit(y(t),t,0,3) );draw2d( parametric(x(t),y(t),t,0,5),nticks=1000);
plotdraw2d( parametric(x(t),y(t),t,0,5),nticks=1000);xfr(t) := realpart(float(x(t)));
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o9) xfr(t):=realpart(float(x(t)))
(%i10) 
Evaluation took 0.0000 seconds (0.0000 elapsed)
map('xfr,[1,2,3,4,5,6,7]);
Evaluation took 0.0100 seconds (0.0100 elapsed)
(%o10) [0.77989340037682,0.48825340607534,0.60572078929769,0.49842603303818,
        0.56363118870401,0.4995314678555,0.54546709254697]
(%i11) 
Evaluation took 0.0000 seconds (0.0000 elapsed)
xfi(t) := imagpart(float(x(t)));
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o11) xfi(t):=imagpart(float(x(t)))
(%i12) 
Evaluation took 0.0000 seconds (0.0000 elapsed)
map('xfi,[1,2,3,4,5,6,7]);
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o12) [-5.5511151231257827E-17,-1.1102230246251565E-16,
        -5.5511151231257827E-17,-2.7755575615628914E-16,
        2.7755575615628914E-17,-3.8857805861880479E-16,
        -2.7755575615628914E-17]
(%i13) 
Evaluation took 0.0000 seconds (0.0000 elapsed)

Related Help

Help for Showtime