Sponsored links: Algebra eBooks
 

Related

true

t1: a1;

t2: a0;

t3: a2;

Calculate

load-true

load("simplex");

obj : 0.043*x1+0.027*...

cnst : [x1+x2+x3+x4+x...

Calculate

matrix

mry:matrix([ct,0,st,0...

mrz:matrix([cp,-sp,0,...

mt:matrix([1,0,0,tx],...

Calculate

true

tosi: true;

tosi;

Calculate

length

length(primes(1,150));

Calculate

length-load-var

load(descriptive);

load(numericalio);

s:[1,2,3,4,5,6,7,8,9,...

Calculate

load-true
draw_graph(A,show_id=true,label_alignment=left,show_weight=true);

load(graphs);

A:create_graph([0,1,2...

draw_graph(A,show_id=...

Calculate

matrix-sqrt

m: matrix([5/4*k-w*w*...

%, w*w=3;

Calculate

matrix-matrixp

m:matrix([[1,2],[3,4]]);

matrixp(m);

Calculate

load-map

load (descriptive);

A : 1;

B : 2;

Calculate

[ctranspose,length,load,matrix,true]

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: true;
(%o5)                                true
(%i6) [vals, vecs] = uniteigenvectors(A);
(%o6) [vals, vecs] = [[[2, - 1], [1, 2]], 
      1        1        1            1             1
[[[-------, -------, -------]], [[-------, 0, - -------], 
   sqrt(3)  sqrt(3)  sqrt(3)      sqrt(2)       sqrt(2)
          1         sqrt(2)           1
[- ---------------, -------, - ---------------]]]]
   sqrt(2) sqrt(3)  sqrt(3)    sqrt(2) sqrt(3)
(%i7) vals[1];
(%o7)                                vals
                                         1
(%i8) length (vals[1]);
(%o8)                                  1
(%i9) for i:1 thru length(vals[1]) do disp (val[i] = vals[1][i],  mult[i] = vals[2][i], vec[i] = vecs[i]);
                                val  = (vals )
                                   1        1
                                              1

                               mult  = (vals )
                                   1        2
                                              1

                                 vec  = vecs
                                    1       1

(%o9)                                done
(%i10) P2: matrix([0,1,0,0,0,0,0,0,0,0],[0,0,1,0,0,0,0,0,0,0],[0,0,0,1,0,0,0,0,0,0],[0,0,0,0,1,0,0,0,0,0],[0,0,0,0,0,1,0,0,0,0],[0,0,0,0,0,0,1,0,0,0],[0,0,0,0,0,0,0,1,0,0],[0,0,0,0,0,0,0,0,1,0],[0,0,0,0,0,0,0,0,0,1],[1,0,0,0,0,0,0,0,0,0]);
                       [ 0  1  0  0  0  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  1  0  0  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  0  1  0  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  0  0  1  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  0  0  0  1  0  0  0  0 ]
(%o10)                 [                              ]
                       [ 0  0  0  0  0  0  1  0  0  0 ]
                       [                              ]
                       [ 0  0  0  0  0  0  0  1  0  0 ]
                       [                              ]
                       [ 0  0  0  0  0  0  0  0  1  0 ]
                       [                              ]
                       [ 0  0  0  0  0  0  0  0  0  1 ]
                       [                              ]
                       [ 1  0  0  0  0  0  0  0  0  0 ]
(%i11) 
Run Example
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: true;
(%o5)                                true
(%i6) [vals, vecs] = uniteigenvectors(A);
(%o6) [vals, vecs] = [[[2, - 1], [1, 2]], 
      1        1        1            1             1
[[[-------, -------, -------]], [[-------, 0, - -------], 
   sqrt(3)  sqrt(3)  sqrt(3)      sqrt(2)       sqrt(2)
          1         sqrt(2)           1
[- ---------------, -------, - ---------------]]]]
   sqrt(2) sqrt(3)  sqrt(3)    sqrt(2) sqrt(3)
(%i7) length (vals[1]);
(%o7)                                  1
(%i8) for i thru length (vals[1]) do disp (val[i] = vals[1][i],  mult[i] = vals[2][i], vec[i] = vecs[i]);
                                val  = (vals )
                                   1        1
                                              1

                               mult  = (vals )
                                   1        2
                                              1

                                 vec  = vecs
                                    1       1

(%o8)                                done
(%i9) P2: matrix([0,1,0,0,0,0,0,0,0,0],[0,0,1,0,0,0,0,0,0,0],[0,0,0,1,0,0,0,0,0,0],[0,0,0,0,1,0,0,0,0,0],[0,0,0,0,0,1,0,0,0,0],[0,0,0,0,0,0,1,0,0,0],[0,0,0,0,0,0,0,1,0,0],[0,0,0,0,0,0,0,0,1,0],[0,0,0,0,0,0,0,0,0,1],[1,0,0,0,0,0,0,0,0,0]);
                       [ 0  1  0  0  0  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  1  0  0  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  0  1  0  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  0  0  1  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  0  0  0  1  0  0  0  0 ]
(%o9)                  [                              ]
                       [ 0  0  0  0  0  0  1  0  0  0 ]
                       [                              ]
                       [ 0  0  0  0  0  0  0  1  0  0 ]
                       [                              ]
                       [ 0  0  0  0  0  0  0  0  1  0 ]
                       [                              ]
                       [ 0  0  0  0  0  0  0  0  0  1 ]
                       [                              ]
                       [ 1  0  0  0  0  0  0  0  0  0 ]
(%i10) 
Run Example
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: true;
(%o5)                                true
(%i6) [vals, vecs] = uniteigenvectors(A);
(%o6) [vals, vecs] = [[[2, - 1], [1, 2]], 
      1        1        1            1             1
[[[-------, -------, -------]], [[-------, 0, - -------], 
   sqrt(3)  sqrt(3)  sqrt(3)      sqrt(2)       sqrt(2)
          1         sqrt(2)           1
[- ---------------, -------, - ---------------]]]]
   sqrt(2) sqrt(3)  sqrt(3)    sqrt(2) sqrt(3)
(%i7) length (vals[1]);
(%o7)                                  1
(%i8) for i:1 thru length(vals[1]) do disp (val[i] = vals[1][i],  mult[i] = vals[2][i], vec[i] = vecs[i]);
                                val  = (vals )
                                   1        1
                                              1

                               mult  = (vals )
                                   1        2
                                              1

                                 vec  = vecs
                                    1       1

(%o8)                                done
(%i9) P2: matrix([0,1,0,0,0,0,0,0,0,0],[0,0,1,0,0,0,0,0,0,0],[0,0,0,1,0,0,0,0,0,0],[0,0,0,0,1,0,0,0,0,0],[0,0,0,0,0,1,0,0,0,0],[0,0,0,0,0,0,1,0,0,0],[0,0,0,0,0,0,0,1,0,0],[0,0,0,0,0,0,0,0,1,0],[0,0,0,0,0,0,0,0,0,1],[1,0,0,0,0,0,0,0,0,0]);
                       [ 0  1  0  0  0  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  1  0  0  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  0  1  0  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  0  0  1  0  0  0  0  0 ]
                       [                              ]
                       [ 0  0  0  0  0  1  0  0  0  0 ]
(%o9)                  [                              ]
                       [ 0  0  0  0  0  0  1  0  0  0 ]
                       [                              ]
                       [ 0  0  0  0  0  0  0  1  0  0 ]
                       [                              ]
                       [ 0  0  0  0  0  0  0  0  1  0 ]
                       [                              ]
                       [ 0  0  0  0  0  0  0  0  0  1 ]
                       [                              ]
                       [ 1  0  0  0  0  0  0  0  0  0 ]
(%i10) 
[addcol,addrow,diff,do,ev,genmatrix,invert,kill,load,matrix,plot2d,romberg,sqrt,submatrix] [addcol,addrow,diff,ev,genmatrix,invert,kill,length,lmax,lmin,load,matrix,plot2d,romberg,sqrt,submatrix] [append,apply,ctranspose,do,eigenvectors,false,load,matrix] [args,asin,atan2,block,cos,flatten,float,ident,length,make_random_state,makelist,matrix,set_random_state,sin,sqrt,subst,transpose] [args,cos,load,matrix,plot2d,sin,sqrt] [block,genmatrix,lambda,length,lmax,lmin,make_random_state,makelist,matrix,set_random_state,sqrt,sum,transpose,true] [christof,depends,diag_matrix,exp,gcd,load,matrix,ratfac,riemann,scurvature] [christof,depends,diag_matrix,gcd,load,matrix,ratfac,riemann,scurvature,sin] [christof,depends,diag_matrix,gcd,load,matrix,ratfac,riemann,scurvature] [christof,depends,gcd,load,matrix,ratfac,riemann,scurvature] [christof,diag_matrix,gcd,load,matrix,ratfac,riemann,scurvature] [christof,einstein,exp,load,matrix,riemann,scurvature,sin,true] [christof,einstein,load,matrix,riemann,scurvature,sin,true] [christof,exp,load,matrix,riemann,sin,true] [christof,load,matrix,sin] [col,echelon,length,matrix] [cos,determinant,invert,mat_trace,matrix,numer,sin,trace,transpose,true] [cos,eigenvalues,invert,matrix,numer,sin,transpose,true] [cos,gramschmidt,integrate,load,map,matrix,sin] [cos,invert,matrix,numer,sin,transpose,true] [cos,load,matrix,plot2d,sin,sqrt] [cos,load,matrix,sin] [create_list,ev,float,length,load,matrix,plot2d] [ctranspose,length,load,matrix,true] [ctranspose,load,matrix,true] [debugmode,load,true] [debugmode,matrix,true] [define,load,matrix] [determinant,draw,draw3d,expand,load,matrix,transpose,true] [diff,false,kill,load,logabs,ratprint,reset,true] [eigenvalues,load,matrix] [eigenvectors,load,matrix] [einstein,exp,load,matrix,sin,true] [einstein,false,invert,kill,load,ratfac,ratriemann,rinvariant,scurvature,sin,true] [exp,load,matrix,sin,true] [false,invert,load,rateinstein,ratfac,ratriemann,sin,true] [file_search,length,load,matrix,read_matrix,var] [float,kill,length,load,matrix,sqrt,transpose] [floor,length,load,sum] [gramschmidt,load,matrix] [invert,load,matrix] [kill,load,matrix,numer,plot2d,rhs,subst] [length,load,sum] [length,load,var] [load,matrix,sin,true] [load,matrix,transpose] [load,matrix,true] [load,matrix] [load,slength,string,true,union] [load,true]

Related Help

Help for Ctranspose

Help for Length

Help for Load

Help for Matrix

Help for True