Sponsored links: Algebra eBooks
 

Related

disolate-listofvars-op

eq: x!*(x-y)!/(y-1)!;

disolate(eq,y,x);

listofvars(eq);

Calculate

disolate-listofvars-op

eq: x!*(x-y)!/(y-1)!;

disolate(eq,x,y);

listofvars(eq);

Calculate

disolate-listofvars-op

eq: x!*(x-y)!/(y-1)!;

disolate(eq,y,x);

listofvars(eq);

Calculate

disolate-listofvars-op

eq: x!*(x-y)!/(y-1)!;

disolate(eq,x,y);

listofvars(eq);

Calculate

disolate

Run Example
(%i1)debugmode(true);
(%o1)                                true
(%i2) display2d:false;

(%o2) false
(%i3) 
equation1x:end1x=m00*origin1x+m01*origin1y+m02*origin1z+m03*origin1w;

(%o3) end1x = m02*origin1z+m01*origin1y+m00*origin1x+m03*origin1w
(%i4) 
equation1y:end1y=m10*origin1x+m11*origin1y+m12*origin1z+m13*origin1w;

(%o4) end1y = m12*origin1z+m11*origin1y+m10*origin1x+m13*origin1w
(%i5) 
equation1z:end1z=m20*origin1x+m21*origin1y+m22*origin1z+m23*origin1w;

(%o5) end1z = m22*origin1z+m21*origin1y+m20*origin1x+m23*origin1w
(%i6) 
equation1w:end1w=m30*origin1x+m31*origin1y+m32*origin1z+m33*origin1w;

(%o6) end1w = m32*origin1z+m31*origin1y+m30*origin1x+m33*origin1w
(%i7) 
equation2x:end2x=m00*origin2x+m01*origin2y+m02*origin2z+m03*origin2w;

(%o7) end2x = m02*origin2z+m01*origin2y+m00*origin2x+m03*origin2w
(%i8) 
equation2y:end2y=m10*origin2x+m11*origin2y+m12*origin2z+m13*origin2w;

(%o8) end2y = m12*origin2z+m11*origin2y+m10*origin2x+m13*origin2w
(%i9) 
equation2z:end2z=m20*origin2x+m21*origin2y+m22*origin2z+m23*origin2w;

(%o9) end2z = m22*origin2z+m21*origin2y+m20*origin2x+m23*origin2w
(%i10) 
equation2w:end2w=m30*origin2x+m31*origin2y+m32*origin2z+m33*origin2w;

(%o10) end2w = m32*origin2z+m31*origin2y+m30*origin2x+m33*origin2w
(%i11) 
equation3x:end3x=m00*origin3x+m01*origin3y+m02*origin3z+m03*origin3w;

(%o11) end3x = m02*origin3z+m01*origin3y+m00*origin3x+m03*origin3w
(%i12) 
equation3y:end3y=m10*origin3x+m11*origin3y+m12*origin3z+m13*origin3w;

(%o12) end3y = m12*origin3z+m11*origin3y+m10*origin3x+m13*origin3w
(%i13) 
equation3z:end3z=m20*origin3x+m21*origin3y+m22*origin3z+m23*origin3w;

(%o13) end3z = m22*origin3z+m21*origin3y+m20*origin3x+m23*origin3w
(%i14) 
equation3w:end3w=m30*origin3x+m31*origin3y+m32*origin3z+m33*origin3w;

(%o14) end3w = m32*origin3z+m31*origin3y+m30*origin3x+m33*origin3w
(%i15) 
equation4x:end4x=m00*origin4x+m01*origin4y+m02*origin4z+m03*origin4w;

(%o15) end4x = m02*origin4z+m01*origin4y+m00*origin4x+m03*origin4w
(%i16) 
equation4y:end4y=m10*origin4x+m11*origin4y+m12*origin4z+m13*origin4w;

(%o16) end4y = m12*origin4z+m11*origin4y+m10*origin4x+m13*origin4w
(%i17) 
equation4z:end4z=m20*origin4x+m21*origin4y+m22*origin4z+m23*origin4w;

(%o17) end4z = m22*origin4z+m21*origin4y+m20*origin4x+m23*origin4w
(%i18) 
equation4w:end4w=m30*origin4x+m31*origin4y+m32*origin4z+m33*origin4w;

(%o18) end4w = m32*origin4z+m31*origin4y+m30*origin4x+m33*origin4w
(%i19) 
disolate([equation1x,equation1y,equation1z,equation1w,equation2x,equation2y,equation2z,equation2w,equation3x,equation3y,equation3z,equation3w,equation4x,equation4y,equation4z,equation4w],[m00,m01,m02,m03,m10,m11,m12,m13,m20,m21,m22,m23,m30,m31,m32,m33]);

(%t19) [end1x = m02*origin1z+m01*origin1y+m00*origin1x+m03*origin1w,
        end1y = m12*origin1z+m11*origin1y+m10*origin1x+m13*origin1w,
        end1z = m22*origin1z+m21*origin1y+m20*origin1x+m23*origin1w,
        end1w = m32*origin1z+m31*origin1y+m30*origin1x+m33*origin1w,
        end2x = m02*origin2z+m01*origin2y+m00*origin2x+m03*origin2w,
        end2y = m12*origin2z+m11*origin2y+m10*origin2x+m13*origin2w,
        end2z = m22*origin2z+m21*origin2y+m20*origin2x+m23*origin2w,
        end2w = m32*origin2z+m31*origin2y+m30*origin2x+m33*origin2w,
        end3x = m02*origin3z+m01*origin3y+m00*origin3x+m03*origin3w,
        end3y = m12*origin3z+m11*origin3y+m10*origin3x+m13*origin3w,
        end3z = m22*origin3z+m21*origin3y+m20*origin3x+m23*origin3w,
        end3w = m32*origin3z+m31*origin3y+m30*origin3x+m33*origin3w,
        end4x = m02*origin4z+m01*origin4y+m00*origin4x+m03*origin4w,
        end4y = m12*origin4z+m11*origin4y+m10*origin4x+m13*origin4w,
        end4z = m22*origin4z+m21*origin4y+m20*origin4x+m23*origin4w,
        end4w = m32*origin4z+m31*origin4y+m30*origin4x+m33*origin4w]

(%o19) %t19
(%i20) 
Run Example
eq: x!*(x-y)!/(y-1)!;
                                  x! (x - y)!
(%o1)                             -----------
                                   (y - 1)!
(%i2) args(eq);
(%o2)                       [x! (x - y)!, (y - 1)!]
(%i3) disolate(eq,y,x);
                                  x! (x - y)!
(%o3)                             -----------
                                   (y - 1)!
(%i4) listofvars(eq);
(%o4)                               [x, y]
(%i5) op(eq);
(%o5)                                  /
(%i6) 
Run Example
isolate_wrt_times:false;
(%o1)                                false
(%i2) A2_0[t]+BP_0[t]+C_0[t]:=12*%pi_0*%gamma;
(%o2)              (C_0  := 12 %pi_0 %gamma) + BP_0  + A2_0
                       t                           t       t
(%i3) eq:%pi_0=%pi_NET_0+(%beta-%delta)/12+((%beta_m-%delta_m)/12)*(m_a_x[0]/a_12xm[0])+%gamma*%pi_0+w*%pi_0+%theta/a_12xm[0]*%pi_0;
                                    %pi_0 %theta
(%o3) %pi_0 = %pi_0 w + %pi_NET_0 + ------------ + %gamma %pi_0
                                      a_12xm
                                            0
                                   m_a_x  (%beta_m - %delta_m)
                                        0                        %beta - %delta
                                 + --------------------------- + --------------
                                           12 a_12xm                   12
                                                    0
(%i4) f:disolate(rhs(eq),%gamma);
                                           m_a_x  (%beta_m - %delta_m)
                            %pi_0 %theta        0
(%t4) %pi_0 w + %pi_NET_0 + ------------ + ---------------------------
                              a_12xm               12 a_12xm
                                    0                       0
                                                                 %beta - %delta
                                                               + --------------
                                                                       12

(%o4)                         %t4 + %gamma %pi_0
(%i5) f2:isolate(rhs(eq),%theta);

                                           m_a_x  (%beta_m - %delta_m)
                                                0
(%t5) %pi_0 w + %pi_NET_0 + %gamma %pi_0 + ---------------------------
                                                   12 a_12xm
                                                            0
                                                                 %beta - %delta
                                                               + --------------
                                                                       12

                              %pi_0 %theta
(%o5)                         ------------ + %t5
                                a_12xm
                                      0
(%i6) 

Related Help

Help for Disolate