? matrixmap;

Calculate

? 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)                                  *
(%o2)            /usr/share/maxima/5.21.1/share/draw/draw.lisp
(%o3)                                  *
(%i4) p1:7*s+2*r=-3;
(%o4)                           7 s + 2 r = - 3
(%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]);
plot```

### Related Help

Help for Matrixmap