### Related

##### expand-float-linsolve-matrix-rhs-time

S1: matrix([(-0.32493...

S2: matrix([0.5662643...

S3: matrix([(-1.98059...

Calculate

##### expand

expand((6*x^2-7*x+12)...

Calculate

##### length-makelist-plot2d-rk

g:10;

r1:rk([v,-g],[y,v],[0...

e2c(L,i,j):=makelist(...

Calculate

##### expand

expand((a+b+c)^2/3);

expand((a+b)^2/3);

Calculate

init_atensor(clifford...

a: sqrt(2)/sqrt(3) + ...

Calculate

##### expand-matrix-transpose

p1n: transpose(matrix...

p2n: transpose(matrix...

e: matrix([e11, e12, ...

Calculate

s:[4,17,22,95,47,32,1...

Calculate

##### makelist-random_permutation-rest-sort

n:26;

c:makelist(i,i,1,n);

l:random_permutation(c);

Calculate

##### expand

expand((z^2*E1*E2*E3^...

Calculate

##### expand

expand (2450/(x+7));

Calculate

### [ascii,expand,length,makelist,reverse]

Run Example
```(%i1)"*"/* Eine Polynomfunktion aus Punkten */;
(%o1)                                  *
(%i2) "*"/* Eingabe der Punkte */;
(%o2)                                  *
(%i3) Punkt:[[-4,0],[-1,-3],[3,0],[6,5]];
(%o3)               [[- 4, 0], [- 1, - 3], [3, 0], [6, 5]]
(%i4) "*"/* Zerlegung in Koordinaten */;
(%o4)                                  *
(%i5) n:length(Punkt) /* Zahl der Punkte */;
(%o5)                                  4
(%i6) X:makelist(Punkt[i][1],i,1,n);
(%o6)                          [- 4, - 1, 3, 6]
(%i7) Y:makelist(Punkt[i][2],i,1,n);
(%o7)                           [0, - 3, 0, 5]
(%i8) faktor1:reverse(makelist(x^(i-1),i,1,n));
3   2
(%o8)                           [x , x , x, 1]
(%i9) faktor2:makelist(ascii(i),i,97,n+97);
(%o9)                           [a, b, c, d, e]
(%i10) g(x,y):=y=faktor1.faktor2,expand;
(%o10)                 g(x, y) := y = faktor1 . faktor2
(%i11) ```
Run Example
```"*"/* Eine Polynomfunktion aus Punkten */;
(%o1)                                  *
(%i2) "*"/* Eingabe der Punkte */;
(%o2)                                  *
(%i3) Punkt:[[-4,0],[-1,-3],[3,0],[6,5]];
(%o3)               [[- 4, 0], [- 1, - 3], [3, 0], [6, 5]]
(%i4) "*"/* Zerlegung in Koordinaten */;
(%o4)                                  *
(%i5) n:length(Punkt) /* Zahl der Punkte */;
(%o5)                                  4
(%i6) X:makelist(Punkt[i][1],i,1,n);
(%o6)                          [- 4, - 1, 3, 6]
(%i7) Y:makelist(Punkt[i][2],i,1,n);
(%o7)                           [0, - 3, 0, 5]
(%i8) faktor1:reverse(makelist(x^(i-1),i,1,n));
3   2
(%o8)                           [x , x , x, 1]
(%i9) faktor2:makelist(ascii(i),i,97,n+97);
(%o9)                           [a, b, c, d, e]
(%i10) 2*faktor1;
3     2
(%o10)                       [2 x , 2 x , 2 x, 2]
(%i11) 3*faktor2;
(%o11)                     [3 a, 3 b, 3 c, 3 d, 3 e]
(%i12) g(x,y):=y=faktor1.faktor2,expand;
(%o12)                 g(x, y) := y = faktor1 . faktor2
(%i13) ```
Run Example
```"*"/* Eine Polynomfunktion aus Punkten */;
(%o1)                                  *
(%i2) "*"/* Eingabe der Punkte */;
(%o2)                                  *
(%i3) Punkt:[[-4,0],[-1,-3],[3,0],[6,5]];
(%o3)               [[- 4, 0], [- 1, - 3], [3, 0], [6, 5]]
(%i4) "*"/* Zerlegung in Koordinaten */;
(%o4)                                  *
(%i5) n:length(Punkt) /* Zahl der Punkte */;
(%o5)                                  4
(%i6) X:makelist(Punkt[i][1],i,1,n);
(%o6)                          [- 4, - 1, 3, 6]
(%i7) Y:makelist(Punkt[i][2],i,1,n);
(%o7)                           [0, - 3, 0, 5]
(%i8) faktor1:reverse(makelist(x^(i-1),i,1,n));
3   2
(%o8)                           [x , x , x, 1]
(%i9) faktor2:makelist(ascii(i),i,97,n+97);
(%o9)                           [a, b, c, d, e]
(%i10) g(x,y):=y=faktor1*faktor2,expand;
(%o10)                  g(x, y) := y = faktor1 faktor2
(%i11) [1,2,3,4].[a,b,c,d];
(%o11)                        4 d + 3 c + 2 b + a
(%i12) ```

### Related Help

Help for Ascii

Help for Expand

Help for Length

Help for Makelist

Help for Reverse