maxima-online.org
Online Algebra Calculator
Many of users do not use powerful Maxima computer algebra system for systematic work, but for ad hoc algebraic calculations – equations, functions, matrixes, etc. only. To do this job, it is not useful to download the whole application from a web site.
Sponsored links:
Algebra eBooks 
Related
eval-if-labels-lambda-rest-reverse-sum
:lisp (defun enum-int...
:lisp (defun group (s...
:lisp (defun row-sum ...
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]); plotev(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)
[abs,depends,diff,eval,pi,sqrt,subst] [abs,ev,eval,plot2d,sin] [abs,eval,imagpart,realpart] [acos,eval,load] [append,eval,false,if,labels,lambda,quotient,rest,reverse,sum,true] [atan,diff,ev,eval,float,grind,numer,solve] [atan,diff,ev,eval,float,numer,solve] [atan2,eval,plot3d,sqrt] [atan2,eval,plot3d] [beta,eval,grind,integrate] [binomial,eval,sum] [cfdisrep,cflength,ev,eval,numer,ratepsilon] [cfdisrep,cflength,ev,eval,numer,sqrt] [cfdisrep,cflength,ev,eval,numer] [cfdisrep,ev,eval,numer] [col,error,eval,load,matrix] [conjugate,eval,invert,load,matrix,sqrt] [cos,eval,expandwrt,integrate,sqrt] [cos,eval,pi] [cos,eval,sin,sqrt] [cos,eval,sin] [cos,eval] [depends,diff,ev,eval,exp,first,makelist,rhs,solve,subst] [diff,eval,integrate] [diff,eval,kill,plot2d,sin] [diff,eval,load,pi,sin,sqrt,subst] [diff,eval,solve] [diff,eval] [ev,eval,is,subst] [ev,eval] [eval,exp,integrate] [eval,exp] [eval,false,if,labels,lambda,quotient,rest,reverse,sum,true] [eval,gamma] [eval,if,labels,lambda,rest,reverse,sum] [eval,is,subst] [eval,is] [eval,linsolve] [eval,log,num,plot2d] [eval,log] [eval,matrix] [eval,pi] [eval,ratsimp,solve] [eval,sin,sqrt] [eval,sin] [eval,solve] [eval,sqrt,sum] [eval,sqrt] [eval,sum] [eval]
