Sponsored links: Algebra eBooks
 

Related

subsetp

subsetp ({1, 2, 3}, {...

subsetp ({a, 1, b, 2...

Calculate

subsetp

subsetp({}, {{}});

Calculate

subsetp

subsetp({},{a});

Calculate

subsetp

subsetp ({1, 2, 3}, {...

subsetp ({a, 1, b, 2...

Calculate

subsetp

subsetp({}, {{}});

Calculate

subsetp

subsetp({},{a});

Calculate

subsetp

Run Example
(%i1)load(grobner);

Loading maxima-grobner $Revision: 1.6 $ $Date: 2009/06/02 07:49:49 $
(%o1)     /usr/share/maxima/5.21.1/share/contrib/Grobner/grobner.lisp
(%i2) poly_monomial_order:'lex;
(%o2)                                 lex
(%i3) a1:x+y+z-3;
(%o3)                            z + y + x - 3
(%i4) a2:x^2+y^2+z^2-5;
                                2    2    2
(%o4)                          z  + y  + x  - 5
(%i5) a3:x^3+y^3+z^3-7;
                                3    3    3
(%o5)                          z  + y  + x  - 7
(%i6) a4:x+y+z-3;
(%o6)                            z + y + x - 3
(%i7) a5:y^2+yz+z^2-3*y-3*z+2;
                          2               2
(%o7)                    z  - 3 z + yz + y  - 3 y + 2
(%i8) a6:z^3-3*z^2-x/3-y/3+5*z/3+5/3;
                           3      2   5 z   y   x   5
(%o8)                     z  - 3 z  + --- - - - - + -
                                       3    3   3   3
(%i9) poly_grobner_subsetp([a1,a2,a3],[a4,a5,a6],[x,y,z]);
(%o9)                                false
(%i10) 
Run Example
eq1:y+x=54;
(%o1)                             y + x = 54
(%i2) eq2:y=3*x+8;
(%o2)                             y = 3 x + 8
(%i3) linsolve([eq1,eq2],[x,y]);
                                    23      85
(%o3)                          [x = --, y = --]
                                    2       2
(%i4) subsetp({1,2,3},{3,2,1});
(%o4)                                true
(%i5) 
Run Example
every(lambda ([i], subsetp(i,{1,2})),{{1},{2}});
(%o1)                                true
(%i2) 

Related Help

Help for Subsetp