Sponsored links: Algebra eBooks
 

Related

facsum-matrix

M:matrix([0,-(wz+c),(...

N:matrix([p,q,r]);

E:M.N;

Calculate

facsum-first-kill-solve

kill(all);

nodev1: 0 = g*(v0 - k...

nodev2: 0 = g*(v1 - 0...

Calculate

facsum

A: c*x+b*x+b*p;

D: facsum(A,b);

Calculate

facsum-matrix-true

simplified_output : t...

q1d : 0.5*(q2*wz -q3*...

q2d : 0.5*(-q1*wz +q3...

Calculate

facsum-matrix-true

simplified_output : t...

q1d : 0.5*(q2*wz -q3*...

q2d : 0.5*(-q1*wz +q3...

Calculate

facsum-first-kill-solve

kill(all);

nodev1: 0 = g*(v0 - k...

nodev2: 0 = g*(v1 - 0...

Calculate

facsum-solve

X1: (a1-ep*phi1);

Y1: b1+ga*phi1;

X2: a2-ga*phi1^2-ep*p...

Calculate

facsum-matrix-true

simplified_output : t...

q1d : 0.5*(q2*wz -q3*...

q2d : 0.5*(-q1*wz +q3...

Calculate

facsum-matrix

M:matrix([0,-(wz+c),(...

N:matrix([p,q,r]);

E:M.N;

Calculate

facsum-matrix

q1d : 0.5*(q2*wz -q3*...

q2d : 0.5*(-q1*wz +q3...

q3d : 0.5*(q1*wy -q2*...

Calculate

facsum

Run Example
(%i1)display2d:false;

(%o1) false
(%i2) 
e1:-(2*t*yw+(1-t^2)*xw) +(1+t^2)*( -k*cos(q2)*sin(q3)+b*cos(q2)+aaa);

(%o2) -2*t*yw-(1-t^2)*xw+(-k*cos(q2)*sin(q3)+b*cos(q2)+aaa)*(t^2+1)
(%i3) 
e2:-(-(1-t^2)*yw+2*t*xw)+(1+t^2)*(k*cos(q3));

(%o3) -(t^2-1)*yw-2*t*xw+k*cos(q3)*(t^2+1)
(%i4) 
facsum(e1,t^2)-facsum(e2,t^2);

(%o4) t^2*yw-2*t*yw-yw+t^2*xw+2*t*xw-xw-(k*cos(q2)*sin(q3)-b*cos(q2)-aaa)*t^2
            -k*cos(q3)*t^2-k*cos(q2)*sin(q3)-k*cos(q3)+b*cos(q2)+aaa
(%i5) 
Run Example
display2d:false;

(%o1) false
(%i2) 
Nst:(He^2+Cs^2)*(a3*Cs+b3*He)+3*Cs*b2*(Cs^2+He^2-He*b2);

(%o2) 3*b2*Cs*(He^2-b2*He+Cs^2)+(b3*He+a3*Cs)*(He^2+Cs^2)
(%i3) 
Ncs:diff(Nst,Cs);

(%o3) 3*b2*(He^2-b2*He+Cs^2)+a3*(He^2+Cs^2)+2*Cs*(b3*He+a3*Cs)+6*b2*Cs^2
(%i4) 
Nhe:diff(Nst,He);

(%o4) b3*(He^2+Cs^2)+2*He*(b3*He+a3*Cs)+3*b2*Cs*(2*He-b2)
(%i5) 
Cdc: -Ncs*He+Nhe*Cs;

(%o5) He*(-3*b2*(He^2-b2*He+Cs^2)-a3*(He^2+Cs^2)-2*Cs*(b3*He+a3*Cs)-6*b2*Cs^2)
       +Cs*(b3*(He^2+Cs^2)+2*He*(b3*He+a3*Cs)+3*b2*Cs*(2*He-b2))
(%i6) 
ee1:facsum(subst(T*Cs,He,Nst),Cs);

(%o6) Cs^3*(b3*T+3*b2+a3)*(T^2+1)-3*b2^2*Cs^2*T
(%i7) 
ee2:facsum(subst(T*Cs,He,Cdc),Cs);

(%o7) 3*b2^2*Cs^2*(T-1)*(T+1)-Cs^3*(3*b2*T+a3*T-b3)*(T^2+1)
(%i8) 
ee1:facsum(ratsimp(ee1/Cs^2),Cs);

(%o8) Cs*(b3*T+3*b2+a3)*(T^2+1)-3*b2^2*T
(%i9) 
ee2:facsum(ratsimp(ee2/Cs^2),Cs);

(%o9) 3*b2^2*(T-1)*(T+1)-Cs*(3*b2*T+a3*T-b3)*(T^2+1)
(%i10) 
Run Example
M:matrix([0,-(z+c),(y+b)],[(z+c),0,-(x+a)],[-(y+b),(x+a),0]);
                         [    0     - z - c   y + b  ]
                         [                           ]
(%o1)                    [  z + c      0     - x - a ]
                         [                           ]
                         [ - y - b   x + a      0    ]
(%i2) N:matrix([p,q,r]);
(%o2)                             [ p  q  r ]
(%i3) E:M.N;
                          [ q (- z - c) + r (y + b) ]
                          [                         ]
(%o3)                     [ p (z + c) + r (- x - a) ]
                          [                         ]
                          [ p (- y - b) + q (x + a) ]
(%i4) F: collectterms(E[1,1],a,b,c);
(%o4)                       q (- z - c) + r (y + b)
(%i5) facsum(F,a,b,c);
(%o5)                       - q z + r y + b r - c q
(%i6) 

Related Help

Help for Facsum