Sponsored links: Algebra eBooks
 

Related

do-length-map-print-realroots-solve-sqrt-subst

solve(-1*x^2+-5*x+-8=0);

subst([x=(sqrt(7)* %i...

for i:1 while i<=(...

Calculate

invert-matrix

R:matrix([1,1,1,1,0],...

V:[0,0,0,0,1];

invert(R);

Calculate

and

t1:(not n3) and (not ...

...

Calculate

invert-matrix

R:matrix([1,0,0,0,0],...

E:[1,1,1,1,1];

invert(R).E;

Calculate

matrix

a:matrix([2,3,3,6],[2...

b:matrix([1,4,9,16],[...

c:matrix([1,2,2,3],[2...

Calculate

do-if-integerp

a:0.12345*10*10*10*10...

integerp(a);

truncate(a);

Calculate

do

w:[0,0,0,0,0,0,0,0,0,...

n:5;

for i:1 thru 4 step 1...

Calculate

invert-matrix

A:matrix([1,1,1],[1,2...

invert(A);

Calculate

[and,do,invert,matrix]

Run Example
(%i1)x:[1,2,3,4,5];
(%o1)                           [1, 2, 3, 4, 5]
(%i2) y:[4.3,5.1,3.9,2.2,2.7];
(%o2)                      [4.3, 5.1, 3.9, 2.2, 2.7]
(%i3) for i:1 thru 5 step 1 do (a11:a11+x[i]^2)    and (a12:a12+x[i])      and(b11:b11+x[i]*y[i]) and(b21:b21+y[i]);
(%o3)                                done
(%i4) a21:a12;
(%o4)                              a12 + 15
(%i5)  a22:5;
(%o5)                                  5
(%i6) A: matrix([a11,a12],[a21,a22]);
                            [ a11 + 55  a12 + 15 ]
(%o6)                       [                    ]
                            [ a12 + 15     5     ]
(%i7) B: matrix([b11],[b21]);
                                [ b11 + 48.5 ]
(%o7)                           [            ]
                                [ b21 + 18.2 ]
(%i8) invert(A);
               [                   5                    ]
               [ -------------------------------------- ]
               [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
(%o8)  Col 1 = [                                        ]
               [               - a12 - 15               ]
               [ -------------------------------------- ]
               [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
                                     [               - a12 - 15               ]
                                     [ -------------------------------------- ]
                                     [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
                             Col 2 = [                                        ]
                                     [                a11 + 55                ]
                                     [ -------------------------------------- ]
                                     [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
(%i9) a: A1[1,1]*B[1]+A1[1,2]*B[2];
(%o9)             [A1     (b21 + 18.2) + A1     (b11 + 48.5)]
                     1, 2                  1, 1
(%i10) b: A1[2,1]*B[1]+A1[2,2]*B[2];
(%o10)            [A1     (b21 + 18.2) + A1     (b11 + 48.5)]
                     2, 2                  2, 1
(%i11) 
Run Example
x:[1,2,3,4,5];
(%o1)                           [1, 2, 3, 4, 5]
(%i2) y:[4.3,5.1,3.9,2.2,2.7];
(%o2)                      [4.3, 5.1, 3.9, 2.2, 2.7]
(%i3) for i:1 thru 5 step 1 do (a11:a11+x[i]^2) and (a12:a12+x[i]) and (b11:b11+x[i]*y[i]) and (b21:b21+y[i]);
(%o3)                                done
(%i4) a21:a12;
(%o4)                              a12 + 15
(%i5)  a22:5;
(%o5)                                  5
(%i6) A: matrix([a11,a12],[a21,a22]);
                            [ a11 + 55  a12 + 15 ]
(%o6)                       [                    ]
                            [ a12 + 15     5     ]
(%i7) B: matrix([b11],[b21]);
                                [ b11 + 48.5 ]
(%o7)                           [            ]
                                [ b21 + 18.2 ]
(%i8) A1: invert(A);
               [                   5                    ]
               [ -------------------------------------- ]
               [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
(%o8)  Col 1 = [                                        ]
               [               - a12 - 15               ]
               [ -------------------------------------- ]
               [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
                                     [               - a12 - 15               ]
                                     [ -------------------------------------- ]
                                     [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
                             Col 2 = [                                        ]
                                     [                a11 + 55                ]
                                     [ -------------------------------------- ]
                                     [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
(%i9) a: A1[1,1]*B[1]+A1[1,2]*B[2];
             (- a12 - 15) (b21 + 18.2)
(%o9) [--------------------------------------
       (- a12 - 15) (a12 + 15) + 5 (a11 + 55)
                                                    5 (b11 + 48.5)
                                      + --------------------------------------]
                                        (- a12 - 15) (a12 + 15) + 5 (a11 + 55)
(%i10) b: A1[2,1]*B[1]+A1[2,2]*B[2];
               (a11 + 55) (b21 + 18.2)
(%o10) [--------------------------------------
        (- a12 - 15) (a12 + 15) + 5 (a11 + 55)
                                              (- a12 - 15) (b11 + 48.5)
                                      + --------------------------------------]
                                        (- a12 - 15) (a12 + 15) + 5 (a11 + 55)
(%i11) 
Run Example
x:[1,2,3,4,5];
(%o1)                           [1, 2, 3, 4, 5]
(%i2) y:[4.3,5.1,3.9,2.2,2.7];
(%o2)                      [4.3, 5.1, 3.9, 2.2, 2.7]
(%i3) for i:1 thru 5 step 1 do ((a11:a11+x[i]^2) and (a12:a12+x[i]) and (b11:b11+x[i]*y[i]) and (b21:b21+y[i]));
(%o3)                                done
(%i4) a21:a12;
(%o4)                              a12 + 15
(%i5)  a22:5;
(%o5)                                  5
(%i6) A: matrix([a11,a12],[a21,a22]);
                            [ a11 + 55  a12 + 15 ]
(%o6)                       [                    ]
                            [ a12 + 15     5     ]
(%i7) B: matrix([b11],[b21]);
                                [ b11 + 48.5 ]
(%o7)                           [            ]
                                [ b21 + 18.2 ]
(%i8) A1: invert(A);
               [                   5                    ]
               [ -------------------------------------- ]
               [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
(%o8)  Col 1 = [                                        ]
               [               - a12 - 15               ]
               [ -------------------------------------- ]
               [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
                                     [               - a12 - 15               ]
                                     [ -------------------------------------- ]
                                     [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
                             Col 2 = [                                        ]
                                     [                a11 + 55                ]
                                     [ -------------------------------------- ]
                                     [ (- a12 - 15) (a12 + 15) + 5 (a11 + 55) ]
(%i9) a: A1[1,1]*B[1]+A1[1,2]*B[2];
             (- a12 - 15) (b21 + 18.2)
(%o9) [--------------------------------------
       (- a12 - 15) (a12 + 15) + 5 (a11 + 55)
                                                    5 (b11 + 48.5)
                                      + --------------------------------------]
                                        (- a12 - 15) (a12 + 15) + 5 (a11 + 55)
(%i10) b: A1[2,1]*B[1]+A1[2,2]*B[2];
               (a11 + 55) (b21 + 18.2)
(%o10) [--------------------------------------
        (- a12 - 15) (a12 + 15) + 5 (a11 + 55)
                                              (- a12 - 15) (b11 + 48.5)
                                      + --------------------------------------]
                                        (- a12 - 15) (a12 + 15) + 5 (a11 + 55)
(%i11) 
[abs,addrow,cos,diff,do,ev,matrix,numer] [abs,carg,float,invert,matrix,polarform,ratsimp,rectform] [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] [addrow,invert,matrix,transpose] [adjoint,determinant,invert,matrix] [and,debugmode,disp,do,if,matrix,true] [args,determinant,expand,factor,ident,invert,matrix,solve,transpose] [array,determinant,exp,invert,matrix,sin] [cabs,carg,invert,matrix,plot2d] [cos,determinant,invert,mat_trace,matrix,numer,sin,trace,transpose,true] [cos,eigenvalues,invert,matrix,numer,sin,transpose,true] [cos,invert,matrix,numer,sin,transpose,true] [cos,invert,matrix,sin] [determinant,diagmatrix,eigenvectors,invert,matrix,modulus,solve,transpose,triangularize] [determinant,eigenvalues,eigenvectors,ident,invert,matrix,rank,submatrix,transpose] [determinant,float,invert,matrix,transpose] [determinant,ident,invert,matrix,submatrix,transpose] [determinant,invert,matrix,permanent] [determinant,invert,matrix,solve] [determinant,invert,matrix,submatrix,transpose] [determinant,invert,matrix,transpose] [determinant,invert,matrix] [detout,doallmxops,doscmxops,exp,false,invert,matrix,sqrt,true] [detout,factor,invert,matrix] [do,invert,matrix,rowop] [do,invert,matrix] [do,matrix] [eigenvalues,eigenvectors,invert,matrix] [eigenvalues,invert,matrix] [eigenvectors,invert,matrix] [expand,invert,matrix] [factor,ident,invert,matrix] [factor,invert,matrix] [float,invert,matrix,transpose] [float,invert,matrix] [hessian,invert,log,matrix] [invert,kill,matrix,transpose] [invert,kronecker_product,matrix,product] [invert,load,matrix] [invert,matrix,mod] [invert,matrix,numer] [invert,matrix,phi,transpose] [invert,matrix,rank,transpose] [invert,matrix,rank] [invert,matrix,ratsimp] [invert,matrix,solve] [invert,matrix,sqrt] [invert,matrix,transpose] [invert,matrix]

Related Help

Help for And

Help for Do

Help for Invert

Help for Matrix