Sponsored links: Algebra eBooks
 

Related

isolate_wrt_times

? isolate_wrt_times;

Calculate

isolate_wrt_times

? isolate_wrt_times;

Calculate

isolate_wrt_times

Run Example
(%i1)load(functs);
(%o1)      /usr/share/maxima/5.21.1/share/simplification/functs.mac
(%i2) sqrtdispflag:false;
(%o2)                                false
(%i3) isolate_wrt_times:true;
(%o3)                                true
(%i4) expr:sqrt(a*x^2 + b*x + 3*x), factor, expand;
                                              1/2
(%o4)                        (x (a x + b + 3))
(%i5) maplist(lambda([y], y), expr);
                                               1
(%o5)                        [x (a x + b + 3), -]
                                               2
(%i6) maplist(lambda([y], if(not(freeof(x, y))) then isolate(y, x) else y), expr);

(%t6)                                b + 3

                                              1
(%o6)                         [x (a x + %t6), -]
                                              2
(%i7) 
Run Example
load(functs);
(%o1)      /usr/share/maxima/5.21.1/share/simplification/functs.mac
(%i2) sqrtdispflag:false;
(%o2)                                false
(%i3) isolate_wrt_times:true;
(%o3)                                true
(%i4) expr:sqrt(a*x^2 + b*x + 3*x), expand;
                                 2             1/2
(%o4)                        (a x  + b x + 3 x)
(%i5) map(lambda([y], isolate(y, x)), expr);
                                 2             1/2
(%o5)                        (a x  + b x + 3 x)
(%i6) scanmap(lambda([y], isolate(y, x)), expr);
                                 2             1/2
(%o6)                        (a x  + b x + 3 x)
(%i7) 
Run Example
isolate_wrt_times:false;
(%o1)                                false
(%i2) f:12*%pi_0*%theta/a_12xm[0];
                                12 %pi_0 %theta
(%o2)                           ---------------
                                    a_12xm
                                          0
(%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) Result:f-12*coeff(rhs(eq),%theta)*%theta;
(%o4)                                  0
(%i5) 

Related Help

Help for Isolate_wrt_times