Sponsored links: Algebra eBooks
 

Related

equal-is

RESPONSE : [20];

LONCAPALIST: ["sin", ...

x1: RESPONSE[1];

Calculate

equal-if-lambda-numberp

list:[1, 2, false, 3,...

n:is(false);

n:2;

Calculate

equal-float-is

a: 1.1+0.1;

is(equal((1.1+0.1),1....

is(equal(float(1.1+0....

Calculate

equal-is-num-radcan-sqrt

is(radcan(sqrt(4.5)-s...

num(sqrt(4.5));

num(sqrt(9/2));

Calculate

equal-exp-false-is-simp

simp:false;

f(x)=x^2;

is(equal(%e^(x),exp(x...

Calculate

equal-grind-or-subst

h:((equal(x , (5**(1/...

g:(((subst([x=-(11/2)...

grind(g);

Calculate

equal-float-is

a: 1.1+0.1;

is(equal((1.1+0.1),1....

is(equal(float(1.1+0....

Calculate

equal-is

is(equal(PI,2));

Calculate

equal-is-log

is(equal(((10*x^4+16*...

Calculate

equal

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) s1:[x+y+z-3,x^2+y^2+z^2-5,x^3+y^3+z^3-7];
                               2    2    2       3    3    3
(%o3)         [z + y + x - 3, z  + y  + x  - 5, z  + y  + x  - 7]
(%i4) s2:[x^4+y^4+z^4-9,x+y+z-3,x^3+y^3+z^3-7];
                4    4    4                      3    3    3
(%o4)         [z  + y  + x  - 9, z + y + x - 3, z  + y  + x  - 7]
(%i5) vars:[x,y,z];
(%o5)                              [x, y, z]
(%i6) z1:poly_reduced_grobner(s1,vars);
                         2                2               3      2
(%o6) [z + y + x - 3, - z  - y z + 3 z - y  + 3 y - 2, 3 z  - 9 z  + 6 z + 2]
(%i7) z2:poly_reduced_grobner(s2,vars);
                           2      2      2                        2
(%o7) [z + y + x - 3, 3 y z  - 9 z  + 3 y  z - 18 y z + 27 z - 9 y  + 27 y
          4        3      3        2       2                      4
 - 20, 3 z  + 3 y z  - 9 z  - 9 y z  + 27 z  + 27 y z - 61 z + 3 y  - 41 y
            5      4       2                       2
 + 48, - 3 z  + 9 z  - 40 z  - 20 y z + 72 z - 20 y  + 60 y - 36]
(%i8) poly_grobner_equal(z1,z2,vars);
(%o8)                                false
(%i9) 
Run Example
ans1=matrix([1,2,3],[4,5,6],[7,8,9]);
                                     [ 1  2  3 ]
                                     [         ]
(%o1)                         ans1 = [ 4  5  6 ]
                                     [         ]
                                     [ 7  8  9 ]
(%i2) sum=frobenius(matrixmap(lambda([x],if not(equal(x,0)) then 1),matrix([1,2,3],[4,5,6],[7,8,9])))^2;
                                          [ 1  1  1 ]
                                        2 [         ]
(%o2)                    sum = frobenius ([ 1  1  1 ])
                                          [         ]
                                          [ 1  1  1 ]
(%i3) 
Run Example
equal(x/x, 1);
(%o1)                             equal(1, 1)
(%i2) 
[and,equal,if,is,not] [append,block,cons,equal,if,not,return] [apply,equal,lambda,notequal,numberp] [apply,equal,lambda] [assume,coeff,equal,expand,is,ratsimp] [at,block,equal,limit,makelist,plot2d] [bfloat,bftorat,block,emptyp,equal,first,fpprec,if,is,mod,not,numer,ratepsilon,ratprint,return,round] [bftorat,block,emptyp,equal,first,float,fpprec,if,is,mod,not,numer,ratepsilon,ratprint,return,round] [block,cot,equal,errormsg,false,if,is,limit,plot2d,ratprint,solvetrigwarn] [block,denom,equal,ev,fullratsimp,lhs,maplist,return,rhs,trigexpand] [block,depends,diff,equal,exp,first,imagpart,length,rhs,solve,subst] [block,equal,if,is,radcan,subst] [block,equal,mod,print,rest] [block,equal,part,reveal,subst] [cos,cosh,equal,ev,exp,is,true] [cos,diff,equal,is,sin] [cos,equal,ev,exp,is,sinh] [cos,equal,function,is,sin] [cos,equal,is,pi,sin,subst] [cos,equal,makelist,sin,subst] [delta,equal,is,part,ratsimp,rhs,solve,sqrt] [do,equal,is] [equal,equiv_classes,is,lambda,remainder] [equal,equiv_classes,is,lambda] [equal,equiv_classes] [equal,ev,is,ssubst] [equal,ev,is] [equal,ev] [equal,exp,false,is,simp] [equal,expand,is] [equal,false,is,simp] [equal,float,is] [equal,if,is] [equal,invert,is,kill,linsolve,matrix,numer,rhs] [equal,is,log,numer] [equal,is,log] [equal,is,primep,product,sum,unknown] [equal,is,primep,sum,unknown] [equal,is,radcan,sqrt] [equal,is,sin] [equal,is,solve] [equal,is] [equal,lambda,matrix,matrixmap] [equal,load] [equal,makelist,primep,sum,unknown] [equal,makelist,primep,sum] [equal,makelist,primep,unknown] [equal,map] [equal,reveal] [equal]

Related Help

Help for Equal