Related

? disolate;

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;

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