Sponsored links: Algebra eBooks
 

Related

freeof-sqrt

ll: [((-(sqrt(3)*%i)/...

Calculate

freeof

freeof(true,[false]);

Calculate

freeof-lambda

f:lambda([aa],freeof(...

f(aa*x^2);

Calculate

freeof

freeof(true,[false]);

Calculate

freeof-sqrt

ll: [((-(sqrt(3)*%i)/...

Calculate

freeof

freeof((a+1)>(a+2));

Calculate

freeof

freeof((a+1)>(a+2)...

Calculate

freeof-lambda

f:lambda([aa],freeof(...

f(aa*x^2);

Calculate

freeof

freeof(true,[true]);

Calculate

freeof

Run Example
(%i1)polyp(expr,var):=polynomialp(expr,[var],buildq([bb:var],lambda([aa],freeof(bb,aa))));
(%o1) polyp(expr, var) := polynomialp(expr, [var], 
                              buildq([bb : var], lambda([aa], freeof(bb, aa))))
(%i2) polyp(a*x+b(x),x);
(%o2)                                false
(%i3) 
Run Example
f:lambda([aa],freeof(aa,bb));
(%o1)                    lambda([aa], freeof(aa, bb))
(%i2) f(aa*x^2);
(%o2)                                true
(%i3) 
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], y), expr);
                                 2             1/2
(%o5)                        (a x  + b x + 3 x)
(%i6) maplist(lambda([y], if(not(freeof(x, y))) then isolate(y, x) else y), expr);
                                 2              1
(%o6)                        [a x  + b x + 3 x, -]
                                                2
(%i7) 

Related Help

Help for Freeof