Sponsored links: Algebra eBooks
 

Related

lfreeof

f1: 9/x;

f2: 4*%e^(3*x);

f3: 4*x^6;

Calculate

lfreeof

f1: 9/x;

f2: 4*%e^(3*x);

f3: 4*x^6;

Calculate

lfreeof

f1: 9/x;

f2: 4*%e^(3*x);

f3: 4*x^6;

Calculate

lfreeof

f1: 9/x;

f2: 4*%e^(3*x);

f3: 4*x^6;

Calculate

lfreeof

f1: 9/x;

f2: 4*%e^(3*x);

f3: 4*x^6;

Calculate

lfreeof

f1: 9/x;

f2: 4*%e^(3*x);

f3: 4*x^6;

Calculate

lfreeof

f1: 9/x;

f2: 4*%e^(3*x);

f3: 4*x^6;

Calculate

lfreeof

f1: 9/x;

f2: 4*%e^(3*x);

f3: 4*x^6;

Calculate

lfreeof

Run Example
(%i1)lfreeof([a*y,b*x],b*x);
(%o1)                                false
(%i2) eqlist: [wu-wt,2*wu-wx,wu-3*wx];
(%o2)                   [wu - wt, 2 wu - wx, wu - 3 wx]
(%i3) eqlist: [wu-wt,4*wu-3*wx];
(%o3)                       [wu - wt, 4 wu - 3 wx]
(%i4) neqlist: unique(eqlist);
(%o4)                       [wu - wt, 4 wu - 3 wx]
(%i5) neqlist: makelist(neqlist[ii]-tau,ii,1,length(neqlist));
(%o5)                [wu - wt - tau, - 3 wx + 4 wu - tau]
(%i6) neqlist: append(neqlist,[0]);
(%o6)               [wu - wt - tau, - 3 wx + 4 wu - tau, 0]
(%i7) neqlistuv: unique(eliminate(neqlist,[wu,wv]));
(%o7)                     [0, - 3 wx + 4 wt + 3 tau]
(%i8) neqlistuv: delete(0,neqlistuv);
(%o8)                       [- 3 wx + 4 wt + 3 tau]
(%i9) res: append([wx=alpha*tau],solve(subst([wx=alpha*tau],neqlistuv),[wt]));
                                         (3 alpha - 3) tau
(%o9)              [wx = alpha tau, wt = -----------------]
                                                 4
(%i10) neqlist: unique(subst(res,delete(0,neqlist)));
                 (3 alpha - 3) tau
(%o10)     [wu - ----------------- - tau, 4 wu - 3 alpha tau - tau]
                         4
(%i11) solve(neqlist,[wu,wv]);

solve: dependent equations eliminated: (2)
                            (3 alpha + 1) tau
(%o11)               [[wu = -----------------, wv = %r1]]
                                    4
(%i12) 
Run Example
expr: ratexpand(a*x^2*y^2*u[1,0]*P+b*u[0,1]^2*P*Q);
                          2                     2  2
(%o1)                    u     b P Q + u     a x  y  P
                          0, 1          1, 0
(%i2) alist: args(expr);
                          2                    2  2
(%o2)                   [u     b P Q, u     a x  y  P]
                          0, 1         1, 0
(%i3) alistlen: length(alist);
(%o3)                                  2
(%i4) lfreeof(args(alist[1]),u);
(%o4)                                true
(%i5) 
Run Example
expr: ratexpand(a*x^2*y^2*u[1,0]*P+b*u[0,1]^2*P*Q);
                          2                     2  2
(%o1)                    u     b P Q + u     a x  y  P
                          0, 1          1, 0
(%i2) alist: args(expr);
                          2                    2  2
(%o2)                   [u     b P Q, u     a x  y  P]
                          0, 1         1, 0
(%i3) alistlen: length(alist);
(%o3)                                  2
(%i4) lfreeof(args(alist[1]),P);
(%o4)                                false
(%i5) 

Related Help

Help for Lfreeof