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
factorout
Run Example
(%i1)a:matrix([0,-(wz+c),(wy+b)],[(wz+c),0,-(wx+a)],[-(wy+b),(wx+a),0]); [ 0 - wz - c wy + b ] [ ] (%o1) [ wz + c 0 - wx - a ] [ ] [ - wy - b wx + a 0 ] (%i2) b:matrix([p,q,r]); (%o2) [ p q r ] (%i3) E:a.b; [ q (- wz - c) + r (wy + b) ] [ ] (%o3) [ p (wz + c) + r (- wx - a) ] [ ] [ p (- wy - b) + q (wx + a) ] (%i4) F:expand(E); [ - q wz + r wy + b r - c q ] [ ] (%o4) [ p wz - r wx - a r + c p ] [ ] [ - p wy + q wx + a q - b p ] (%i5) factorout(F[1,1],b,c); (%o5) - q wz + r wy + b r - c q (%i6)
Run Example
globalsolve: true; (%o1) true (%i2) realonly: true; (%o2) true (%i3) /* Standard (x,y)-> (r,theta) coordinate translation */x(t) := r(t) * cos(theta(t)); (%o3) x(t) := r(t) cos(theta(t)) (%i4) y(t) := r(t) * sin(theta(t)); (%o4) y(t) := r(t) sin(theta(t)) (%i5) /* Constant course assumption */declare (slope,constant); (%o5) done (%i6) declare (slope,real); (%o6) done (%i7) declare (yintercept,constant); (%o7) done (%i8) declare (yintercept, real); (%o8) done (%i9) y(t)=slope * x(t) + yintercept; (%o9) r(t) sin(theta(t)) = slope r(t) cos(theta(t)) + yintercept (%i10) eq1: y(t)=slope * x(t) + yintercept; (%o10) r(t) sin(theta(t)) = slope r(t) cos(theta(t)) + yintercept (%i11) /* Constant speed assumption */declare (speedx,constant); (%o11) done (%i12) declare (speedx,real); (%o12) done (%i13) declare (speedy,constant); (%o13) done (%i14) declare (speedy,real); (%o14) done (%i15) declare (c1, constant); (%o15) done (%i16) declare (c1, real); (%o16) done (%i17) eq2: x(t) = speedx * (t + c1); (%o17) r(t) cos(theta(t)) = speedx (t + c1) (%i18) declare (c2, constant); (%o18) done (%i19) declare (c2, real); (%o19) done (%i20) eq3: y(t) = speedy * (t + c1) + c2*speedx; (%o20) r(t) sin(theta(t)) = speedy (t + c1) + c2 speedx (%i21) eq4: (rhs(eq3/eq2)); speedy (t + c1) + c2 speedx (%o21) --------------------------- speedx (t + c1) (%i22) eq5: factorout(eq4, speedx*(t+c1)); speedy (t + c1) + c2 speedx (%o22) --------------------------- speedx (t + c1) (%i23)
Run Example
expr: -((1+s*s*l*c)*((u-s*r)*(u+s*(w+p))-u*(u+s*w)))/((u+s*(w+p))*(s*l+(1+s*s*l*c)*s*r)); 2 (c l s + 1) ((u - r s) (s (w + p) + u) - u (s w + u)) (%o1) - ------------------------------------------------------ 2 (r s (c l s + 1) + l s) (s (w + p) + u) (%i2) factorout(expr,s); 2 (c l s + 1) ((u - r s) (s (w + p) + u) - u (s w + u)) (%o2) - ------------------------------------------------------ 2 (r s (c l s + 1) + l s) (s (w + p) + u) (%i3)
[assume,constant,cos,declare,diff,factorout,globalsolve,let,letsimp,lhs,posfun,realonly,sin,subst,trigsimp,true] [at,diff,factorout,sqrt] [constant,cos,declare,factorout,globalsolve,realonly,rhs,sin,true] [cos,eliminate,expand,factorout,sin] [expand,factor,factorout,ratsimp] [expand,factorout,matrix,transpose] [expand,factorout,matrix] [expand,factorout,ratsimp,solve] [factorout,matrix] [factorout,sqrt] [factorout,subst] [factorout]
