Sponsored links: Algebra eBooks
 

Related

apply-diff-domain-rk-var

V : x^2+x-7;

paso : 0.2;

masa : 20;

Calculate

apply-rank

m: [[1,0,3,5],[1,25,8...

apply (matrix, m);

rank(m);

Calculate

apply-block

f[x] := block([], if...

M : [0,1,0.1];

apply(f,M);

Calculate

apply-cons-lambda-let-values

:lisp (defun swap (a ...

:lisp (defun pairs (i...

:lisp (pairs '(1 2 3 ...

Calculate

apply-lambda

f : lambda ([aa, bb, ...

f (1, 2, 5);

g : lambda ([[aa]], ...

Calculate

apply-float-lambda-log-makelist-string

solve_poly(f, n) := s...

string(float(solve_po...

Calculate

apply

Run Example
(%i1)load(eigen);
(%o1)           /usr/share/maxima/5.21.1/share/matrix/eigen.mac
(%i2) P: matrix([0,1,0],[0,0,1],[1,0,0]);
                                  [ 0  1  0 ]
                                  [         ]
(%o2)                             [ 0  0  1 ]
                                  [         ]
                                  [ 1  0  0 ]
(%i3) Pdag: ctranspose(P);
                                  [ 0  0  1 ]
                                  [         ]
(%o3)                             [ 1  0  0 ]
                                  [         ]
                                  [ 0  1  0 ]
(%i4) A: P+Pdag;
                                  [ 0  1  1 ]
                                  [         ]
(%o4)                             [ 1  0  1 ]
                                  [         ]
                                  [ 1  1  0 ]
(%i5) hermitianmatrix: false;
(%o5)                                false
(%i6) [L, V]: eigenvectors(A);
(%o6)   [[[2, - 1], [1, 2]], [[[1, 1, 1]], [[1, 0, - 1], [0, 1, - 1]]]]
(%i7) Ltmp: [];
(%o7)                                 []
(%i8) Vtmp: [];
(%o8)                                 []
(%i9) for i:1 thru length(L[1]) do    for j:1 thru L[2][i] do      (        Ltmp: append(Ltmp, [L[1][i]]),     Vtmp: append(Vtmp, V[i][j])  );
(%o9)                                done
(%i10) Ltmp;
(%o10)                           [2, - 1, - 1]
(%i11) Vtmp;
(%o11)                  [1, 1, 1, 1, 0, - 1, 0, 1, - 1]
(%i12) U: tranpose(matrix(Vtmp));
(%o12)            tranpose([ 1  1  1  1  0  - 1  0  1  - 1 ])
(%i13) D: apply(diag_matrix, Ltmp);
                                [ 2   0    0  ]
                                [             ]
(%o13)                          [ 0  - 1   0  ]
                                [             ]
                                [ 0   0   - 1 ]
(%i14) 
Run Example
load(draw);
(%o1)            /usr/share/maxima/5.21.1/share/draw/draw.lisp
(%i2) coord: setify(makelist(k,k,-4,4));
(%o2)                 {- 4, - 3, - 2, - 1, 0, 1, 2, 3, 4}
(%i3) points2d: listify(cartesian_product (coord ,coord ));
(%o3) [[- 4, - 4], [- 4, - 3], [- 4, - 2], [- 4, - 1], [- 4, 0], [- 4, 1], 
[- 4, 2], [- 4, 3], [- 4, 4], [- 3, - 4], [- 3, - 3], [- 3, - 2], [- 3, - 1], 
[- 3, 0], [- 3, 1], [- 3, 2], [- 3, 3], [- 3, 4], [- 2, - 4], [- 2, - 3], 
[- 2, - 2], [- 2, - 1], [- 2, 0], [- 2, 1], [- 2, 2], [- 2, 3], [- 2, 4], 
[- 1, - 4], [- 1, - 3], [- 1, - 2], [- 1, - 1], [- 1, 0], [- 1, 1], [- 1, 2], 
[- 1, 3], [- 1, 4], [0, - 4], [0, - 3], [0, - 2], [0, - 1], [0, 0], [0, 1], 
[0, 2], [0, 3], [0, 4], [1, - 4], [1, - 3], [1, - 2], [1, - 1], [1, 0], 
[1, 1], [1, 2], [1, 3], [1, 4], [2, - 4], [2, - 3], [2, - 2], [2, - 1], 
[2, 0], [2, 1], [2, 2], [2, 3], [2, 4], [3, - 4], [3, - 3], [3, - 2], 
[3, - 1], [3, 0], [3, 1], [3, 2], [3, 3], [3, 4], [4, - 4], [4, - 3], 
[4, - 2], [4, - 1], [4, 0], [4, 1], [4, 2], [4, 3], [4, 4]]
(%i4) vf2d(x,y):=  vector ([x,y],[cos(y),x]/6);
                                                [cos(y), x]
(%o4)              vf2d(x, y) := vector([x, y], -----------)
                                                     6
(%i5) vect2: makelist(vf2d(k[1],k[2]),k,points2d );
                           cos(4)    2                        cos(3)    2
(%o5) [vector([- 4, - 4], [------, - -]), vector([- 4, - 3], [------, - -]), 
                             6       3                          6       3
                    cos(2)    2                        cos(1)    2
vector([- 4, - 2], [------, - -]), vector([- 4, - 1], [------, - -]), 
                      6       3                          6       3
                  1    2                      cos(1)    2
vector([- 4, 0], [-, - -]), vector([- 4, 1], [------, - -]), 
                  6    3                        6       3
                  cos(2)    2                      cos(3)    2
vector([- 4, 2], [------, - -]), vector([- 4, 3], [------, - -]), 
                    6       3                        6       3
                  cos(4)    2                        cos(4)    1
vector([- 4, 4], [------, - -]), vector([- 3, - 4], [------, - -]), 
                    6       3                          6       2
                    cos(3)    1                        cos(2)    1
vector([- 3, - 3], [------, - -]), vector([- 3, - 2], [------, - -]), 
                      6       2                          6       2
                    cos(1)    1                      1    1
vector([- 3, - 1], [------, - -]), vector([- 3, 0], [-, - -]), 
                      6       2                      6    2
                  cos(1)    1                      cos(2)    1
vector([- 3, 1], [------, - -]), vector([- 3, 2], [------, - -]), 
                    6       2                        6       2
                  cos(3)    1                      cos(4)    1
vector([- 3, 3], [------, - -]), vector([- 3, 4], [------, - -]), 
                    6       2                        6       2
                    cos(4)    1                        cos(3)    1
vector([- 2, - 4], [------, - -]), vector([- 2, - 3], [------, - -]), 
                      6       3                          6       3
                    cos(2)    1                        cos(1)    1
vector([- 2, - 2], [------, - -]), vector([- 2, - 1], [------, - -]), 
                      6       3                          6       3
                  1    1                      cos(1)    1
vector([- 2, 0], [-, - -]), vector([- 2, 1], [------, - -]), 
                  6    3                        6       3
                  cos(2)    1                      cos(3)    1
vector([- 2, 2], [------, - -]), vector([- 2, 3], [------, - -]), 
                    6       3                        6       3
                  cos(4)    1                        cos(4)    1
vector([- 2, 4], [------, - -]), vector([- 1, - 4], [------, - -]), 
                    6       3                          6       6
                    cos(3)    1                        cos(2)    1
vector([- 1, - 3], [------, - -]), vector([- 1, - 2], [------, - -]), 
                      6       6                          6       6
                    cos(1)    1                      1    1
vector([- 1, - 1], [------, - -]), vector([- 1, 0], [-, - -]), 
                      6       6                      6    6
                  cos(1)    1                      cos(2)    1
vector([- 1, 1], [------, - -]), vector([- 1, 2], [------, - -]), 
                    6       6                        6       6
                  cos(3)    1                      cos(4)    1
vector([- 1, 3], [------, - -]), vector([- 1, 4], [------, - -]), 
                    6       6                        6       6
                  cos(4)                         cos(3)
vector([0, - 4], [------, 0]), vector([0, - 3], [------, 0]), 
                    6                              6
                  cos(2)                         cos(1)
vector([0, - 2], [------, 0]), vector([0, - 1], [------, 0]), 
                    6                              6
                1                       cos(1)
vector([0, 0], [-, 0]), vector([0, 1], [------, 0]), 
                6                         6
                cos(2)                       cos(3)
vector([0, 2], [------, 0]), vector([0, 3], [------, 0]), 
                  6                            6
                cos(4)                         cos(4)  1
vector([0, 4], [------, 0]), vector([1, - 4], [------, -]), 
                  6                              6     6
                  cos(3)  1                      cos(2)  1
vector([1, - 3], [------, -]), vector([1, - 2], [------, -]), 
                    6     6                        6     6
                  cos(1)  1                    1  1
vector([1, - 1], [------, -]), vector([1, 0], [-, -]), 
                    6     6                    6  6
                cos(1)  1                    cos(2)  1
vector([1, 1], [------, -]), vector([1, 2], [------, -]), 
                  6     6                      6     6
                cos(3)  1                    cos(4)  1
vector([1, 3], [------, -]), vector([1, 4], [------, -]), 
                  6     6                      6     6
                  cos(4)  1                      cos(3)  1
vector([2, - 4], [------, -]), vector([2, - 3], [------, -]), 
                    6     3                        6     3
                  cos(2)  1                      cos(1)  1
vector([2, - 2], [------, -]), vector([2, - 1], [------, -]), 
                    6     3                        6     3
                1  1                    cos(1)  1
vector([2, 0], [-, -]), vector([2, 1], [------, -]), 
                6  3                      6     3
                cos(2)  1                    cos(3)  1
vector([2, 2], [------, -]), vector([2, 3], [------, -]), 
                  6     3                      6     3
                cos(4)  1                      cos(4)  1
vector([2, 4], [------, -]), vector([3, - 4], [------, -]), 
                  6     3                        6     2
                  cos(3)  1                      cos(2)  1
vector([3, - 3], [------, -]), vector([3, - 2], [------, -]), 
                    6     2                        6     2
                  cos(1)  1                    1  1
vector([3, - 1], [------, -]), vector([3, 0], [-, -]), 
                    6     2                    6  2
                cos(1)  1                    cos(2)  1
vector([3, 1], [------, -]), vector([3, 2], [------, -]), 
                  6     2                      6     2
                cos(3)  1                    cos(4)  1
vector([3, 3], [------, -]), vector([3, 4], [------, -]), 
                  6     2                      6     2
                  cos(4)  2                      cos(3)  2
vector([4, - 4], [------, -]), vector([4, - 3], [------, -]), 
                    6     3                        6     3
                  cos(2)  2                      cos(1)  2
vector([4, - 2], [------, -]), vector([4, - 1], [------, -]), 
                    6     3                        6     3
                1  2                    cos(1)  2
vector([4, 0], [-, -]), vector([4, 1], [------, -]), 
                6  3                      6     3
                cos(2)  2                    cos(3)  2
vector([4, 2], [------, -]), vector([4, 3], [------, -]), 
                  6     3                      6     3
                cos(4)  2
vector([4, 4], [------, -])]
                  6     3
(%i6) apply(draw2d , append ([ color=blue], vect2 ));
(%o6) [gr2d(vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector)]
(%i7) 
Run Example
apply("*",[2,3,5,7,11,13,17,19,23])*10**5;
(%o1)                           22309287000000
(%i2) 
[acos,apply,numer,pi,sqrt] [acosh,apply,load,sqrt] [and,apply,cardinality,every,integer_partitions,integerp,lambda,map,subset] [append,apply,block,emptyp,first,flatten,floor,lambda,makelist,map,not] [append,apply,cartesian_product,cos,draw,listify,load,makelist,product,setify] [append,apply,ctranspose,do,eigenvectors,false,load,matrix] [append,apply,ctranspose,do,load,matrix,true] [append,apply,ctranspose,eigenvectors,false,load,matrix] [append,apply,draw,draw2d,explicit,load,makelist] [append,apply,makelist] [apply,args,block,col,copymatrix,do,genmatrix,map,mod,quotient,return,transpose] [apply,args,block,copymatrix,do,genmatrix,map,mod,quotient,return,transpose] [apply,args,ceiling,col,do,length,mod,nullspace,print,row] [apply,args,ceiling,col,do,length,mod,nullspace,printf,row] [apply,args,matrix,nullspace] [apply,block,coeff,copylist,do,expand,length,makelist,print,rat,return,subst,sum] [apply,block,coeff,copylist,do,makelist,print,rat,return,sum] [apply,block,coeff,copylist,do,makelist,print,return,sum] [apply,block,coeff,copylist,expand,length,makelist,print,rat,return,subst,sum] [apply,block,coeff,expand,length,makelist,print,rat,return,subst,sum] [apply,cardinality,integer_partitions,lambda,map] [apply,charfun,diff,ev,gradef,newline,plot2d,print] [apply,coeff,determinant,dim,expand,ident,makelist,sum] [apply,cons,lambda,last,let,sum] [apply,cons,lambda,last,let] [apply,cons,lambda,let,values] [apply,cons,lambda,let] [apply,cos,fpprec,li,load,makelist,outermap,plot2d,round,sin,sort,string] [apply,declare,dotconstrules,evfun,load,true] [apply,diff,domain,rk,transpose,var] [apply,diff,op,part] [apply,draw,draw2d,ematrix,genmatrix,load,makelist] [apply,draw,load] [apply,equal,lambda,notequal,numberp] [apply,equal,lambda] [apply,factor] [apply,lambda] [apply,load,sqrt] [apply,makelist,ratdisrep,taylor] [apply,makelist] [apply,nary,numer,xthru] [apply,nary,xthru] [apply,plot2d,print,transpose] [apply,plot2d,transpose] [apply,print,transpose] [apply,rank] [apply,solve,sqrt] [apply,sqrt] [apply,transpose] [apply]

Related Help

Help for Apply