Sponsored links: Algebra eBooks
 

Related

matrixmap

? matrixmap;

Calculate

matrixmap

? matrixmap;

Calculate

matrixmap

Run Example
(%i1)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
ans1:matrix([1,2,3],[4,5,6],[7,8,9]);
                                  [ 1  2  3 ]
                                  [         ]
(%o1)                             [ 4  5  6 ]
                                  [         ]
                                  [ 7  8  9 ]
(%i2) sum:(mat_norm(matrixmap(lambda([x],if not(equal(x,0)) then 1 else 0),ans1),frobenius))^2;
(%o2)                                  9
(%i3) 
Run Example
"*"/* Schnittpunkt zweier Geraden bestimmen */;
(%o1)                                  *
(%i2) load(draw);
(%o2)            /usr/share/maxima/5.21.1/share/draw/draw.lisp
(%i3) "*"/* Gleichung Gerade1 */;
(%o3)                                  *
(%i4) p1:7*s+2*r=-3;
(%o4)                           7 s + 2 r = - 3
(%i5) "*"/* Gleichung Gerade2 */;
(%o5)                                  *
(%i6) p2:s-r=1;
(%o6)                              s - r = 1
(%i7) res:solve([p1,p2],[r,s]);
                                     10        1
(%o7)                        [[r = - --, s = - -]]
                                     9         9
(%i8) "*"/* Schnittpunkte festhalten */;
(%o8)                                  *
(%i9) punkte:matrixmap(rhs,res);
                                     10    1
(%o9)                            [[- --, - -]]
                                     9     9
(%i10) "*"/* Die graphische Darstellung der Lösung */;
(%o10)                                 *
(%i11) draw2d(proportional_axes = xy,color=black,implicit(p1,r,-3,3,s,-3,3),color=blue,implicit(p2,r,-3,3,s,-3,3),color=red,point_type=7,point_size=2,points(punkte),grid=true,xrange=[-3,3],yrange=[-3,3]);
plotdraw2d(proportional_axes = xy,color=black,implicit(p1,r,-3,3,s,-3,3),color=blue,implicit(p2,r,-3,3,s,-3,3),color=red,point_type=7,point_size=2,points(punkte),grid=true,xrange=[-3,3],yrange=[-3,3]);

Related Help

Help for Matrixmap