Sponsored links: Algebra eBooks
 

Related

member

x:[a,b];

member(a,x);

Calculate

member-setify

member (8, setify([8,...

Calculate

member

member([true,true],[[...

Calculate

member

member(1, [1,2,3]);

Calculate

member

member(a,[b,c,d,a]);

Calculate

member

member(4, [1,2,3]);

Calculate

member

member(4, [1,2,3]);

Calculate

member

member(a,[b,c,d,a1]);

Calculate

member

member([true,true],[[...

Calculate

member

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:'grlex;
(%o2)                                grlex
(%i3) f: -x^4*z^3 - 4*y^4*z^3 + x^5*y + 2*y^4*z;
                            4  3    4  3      4      5
(%o3)                  - 4 y  z  - x  z  + 2 y  z + x  y
(%i4) f1: x^5 + 2*y^3*z;
                                     3      5
(%o4)                             2 y  z + x
(%i5) f2: -2*y*x*z + z^2;
                                  2
(%o5)                            z  - 2 x y z
(%i6) varlist: [x,y,z];
(%o6)                              [x, y, z]
(%i7) polylist: [f1,f2];
                              3      5   2
(%o7)                     [2 y  z + x , z  - 2 x y z]
(%i8) gr: poly_reduced_grobner(polylist,varlist);
           3      5   2                 4  2    4  2     3  3      5  2
(%o8)  [2 y  z + x , z  - 2 x y z, - 4 y  z  - x  z , - x  z  - 8 y  z ]
(%i9) poly_grobner_member (f,gr,varlist);
(%o9)                                true
(%i10) 
Run Example
L:makelist(k^2,k,0,9);
(%o1)                [0, 1, 4, 9, 16, 25, 36, 49, 64, 81]
(%i2) member(81,L);
(%o2)                                true
(%i3) create_list(random(10),m,0,5);
(%o3)                         [2, 2, 4, 5, 4, 1]
(%i4) part(L,[6,5,1]);
(%o4)                             [25, 16, 0]
(%i5) 'A=A:matrix([1,2,3,4],[5,6,7,8],[9,10,11,12]);
                                 [ 1  2   3   4  ]
                                 [               ]
(%o5)                        A = [ 5  6   7   8  ]
                                 [               ]
                                 [ 9  10  11  12 ]
(%i6) a1=row(A,1);
(%o6)                         a1 = [ 1  2  3  4 ]
(%i7) a[1]=col(A,2);
                                       [ 2  ]
                                       [    ]
(%o7)                             a  = [ 6  ]
                                   1   [    ]
                                       [ 10 ]
(%i8) 'A=submatrix(1,A);
                                 [ 5  6   7   8  ]
(%o8)                        A = [               ]
                                 [ 9  10  11  12 ]
(%i9) 'A2=submatrix(A,2);
                                   [ 1  3   4  ]
                                   [           ]
(%o9)                         A2 = [ 5  7   8  ]
                                   [           ]
                                   [ 9  11  12 ]
(%i10) 'A12=submatrix(1,A,2);
                                    [ 5  7   8  ]
(%o10)                        A12 = [           ]
                                    [ 9  11  12 ]
(%i11) f[i,j]:=2*i+3*j;
(%o11)                        f     := 2 i + 3 j
                               i, j
(%i12) B1=B1:genmatrix(f,4,3);
                                   [ 5   8   11 ]
                                   [            ]
                                   [ 7   10  13 ]
(%o12)                        B1 = [            ]
                                   [ 9   12  15 ]
                                   [            ]
                                   [ 11  14  17 ]
(%i13) 
Run Example
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:'grlex;
(%o2)                                grlex
(%i3) G:poly_grobner([x*y^3+x*x*y, y^3+z*z],[x, y, z]);
          3    2     2    3   2        2     2  2    2  2         4    3  2
(%o3) [x y  + x  y, z  + y , x  y - x z , x y  z  + x  z , - x y z  - x  z , 
                                                                     6    4  2
                                                                  x z  + x  z ]
(%i4) poly_grobner_member(y^5+y*y*z*z+x*x*y-x*z*z+z, G, [x, y,z]);
(%o4)                                false
(%i5) 

Related Help

Help for Member