Sponsored links: Algebra eBooks
 

Related

eval

z: x*y;

y: (a+b)*x;

eval(z);

Calculate

eval-solve

solve(u*m*v^2/r=m*g,u);

m=0.675;

r=0.013;

Calculate

eval-if-labels-lambda-rest-reverse-sum

:lisp (defun enum-int...

:lisp (defun group (s...

:lisp (defun row-sum ...

Calculate

eval-linsolve

eq1:-Vg+i1*Rg+i1/(j*w...

eq2:-(i2-i1)*j*w*M+i2...

linsolve([eq1,eq2],[i...

Calculate

eval

x: 10000;

len(x):=log10(x);

eval(len(x));

Calculate

eval-sqrt

eval(1/(sqrt(2)));

Calculate

eval-sqrt

f(a,x):=x^3/3-4/a*x^2...

f2(a,x):=2*x-8/a;

xe:(6-2*sqrt(3)/a);

Calculate

eval-matrix

m: matrix([a,b],[b,c]);

eval(inverse(m));

Calculate

eval-tan

eval(tan(%pi/4+%pi/4));

Calculate

eval-log

log(2.),eval;

Calculate

eval

Run Example
(%i1)p:x^2-x+2;
                                   2
(%o1)                             x  - x + 2
(%i2) eval(p, 2);
                                    2
(%o2)                         eval(x  - x + 2, 2)
(%i3) 
Run Example
log10(x):=log(x)/log(10);
                                          log(x)
(%o1)                         log10(x) := -------
                                          log(10)
(%i2) H(f,r,m):=log10(abs(ev((sin(%pi*f)/sin(%pi*f/r))^m, numer, eval)))*20;
                               !    sin(%pi f) m              !
(%o2)      H(f, r, m) := log10(!ev((----------) , numer, eval)!) 20
                               !        %pi f                 !
                               !    sin(-----)                !
                               !          r                   !
(%i3) plot2d(H(f,25,3), [f, 0, 1], [y, -100, 100]);
plotplot2d(H(f,25,3), [f, 0, 1], [y, -100, 100]);ev(H(0.01,25,3),numer);
(%o4)                          83.87212092267326
(%i5) ev(H(0.03,25,3),numer);
(%o5)                          83.83787398212554
(%i6) ev(H(0.04,25,3),numer);
(%o6)                          83.80789307854482
(%i7) ev(H(0.035,25,3),numer);
(%o7)                          83.82395599951573
(%i8) ev(H(0.0375,25,3),numer);
(%o8)                          83.81619275089616
(%i9) ev(H(0.03625,25,3),numer);
(%o9)                          83.82014141582842
(%i10) ev(H(0.001,25,3),numer);
(%o10)                         83.87635772574187
(%i11) ev(H(0.003,25,3),numer);
(%o11)                         83.87601536808367
(%i12) 
Run Example
display2d:false;

(%o1) false
(%i2) 
h:0.9;

(%o2) 0.9
(%i3) 
a:1.2;

(%o3) 1.2
(%i4) 
b:1.1;

(%o4) 1.1
(%i5) 
k:0.8;

(%o5) 0.8
(%i6) 
dw:0.09;

(%o6) 0.09
(%i7) 
Xw:-a;

(%o7) -1.2
(%i8) 
Yw:k/2+dw;

(%o8) 0.49
(%i9) 
Zw:-sqrt(3)*k/2+h-sqrt(3)*dw+b;

(%o9) 2.0-0.49*sqrt(3)
(%i10) 
P: Xw^2+Yw^2+(Zw-h)^2-(a^2+b^2+k^2);

(%o10) (1.1-0.49*sqrt(3))^2-1.609900000000001
(%i11) 
A:ratsimp(4*(a^2-b^2)*k^2);

rat: replaced 0.5888 by 368/625 = 0.5888
(%o11) 368/625
(%i12) 
B:ratsimp(-4*b*k*(2*a^2+P));

rat: replaced -3.52 by -88/25 = -3.52

rat: replaced 1.270099999999999 by 9273/7301 = 1.270099986303246

rat: replaced 1.1 by 11/10 = 1.1

rat: replaced -0.49 by -49/100 = -0.49
(%o12) (865752580*sqrt(3)-2570273233)/228156250
(%i13) 
C:ratsimp(-(P^2+4*a^2*(Zw-h)^2));

rat: replaced -1.6099 by -6277/3899 = -1.6098999743524

rat: replaced 1.1 by 11/10 = 1.1

rat: replaced -0.49 by -49/100 = -0.49

rat: replaced -5.76 by -144/25 = -5.76

rat: replaced 1.1 by 11/10 = 1.1

rat: replaced -0.49 by -49/100 = -0.49
(%o13) (10489613635796680*sqrt(3)-22358540094883609)/1520220100000000
(%i14) 
s3:ratsimp((-B+sqrt(B^2-4*A*C))/(2*A));

(%o14) (-482224187060*sqrt(3)+2*sqrt(826660579576468179140676
                                      -410800161103587325359520*sqrt(3))
                             +1431642190781)
        /149652977600
(%i15) 
eval((-482224187060*sqrt(3)+2*sqrt(826660579576468179140676                                      -410800161103587325359520*sqrt(3))                             +1431642190781)        /149652977600);

(%o15) eval((-482224187060*sqrt(3)+2*sqrt(
                                     826660579576468179140676
                                      -410800161103587325359520*sqrt(3))
                                  +1431642190781)
             /149652977600)
(%i16) 

Related Help

Help for Eval