### 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

##### and-cardinality-every-integer_partitions-integerp-lambda-primep-subset

xprimep(x) := integer...

cardinality (subset (...

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-cardinality-every-integer_partitions-integerp-lambda-primep-subset

xprimep(x) := integer...

cardinality (subset (...

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) ```

Help for And

Help for Do

Help for Invert

Help for Matrix