Sponsored links: Algebra eBooks
 

Related

listify-permutations

Positionen:[-2,-1,0.5...

Massen:[5,10,15,20];

Reihenfolge:permutati...

Calculate

listify-map-powerset-setify

D1:[[1, 5], [5, 1], [...

S1:setify(D1);

P1:powerset(S1,2);

Calculate

listify-makelist-map-powerset-sort-sqrt

Dreieck:[[[1, 5], [5,...

S1:map(setify,Dreieck);

f(x):=powerset(x,2);

Calculate

listify-maplist-solve

p:2*x^2+11*x-7/4;

p1:x=1;

ta:maplist(rhs, solve...

Calculate

listify

A:{(7.6, -7.9), (9.9,...

A:listify(A);

Calculate

listify-makelist-matrix-powerset-rank-setify

A:matrix([-1, -1,1,0,...

n:rank(A);

init:setify(makelist(...

Calculate

listify-makelist-map-powerset-setify-sort-sqrt

D1:[[1, 5], [5, 1], [...

S1:setify(D1);

P1:powerset(S1,2);

Calculate

listify-makelist-matrix-powerset-rank-setify

A:matrix([-1, -1,1,0,...

n:rank(A);

init:setify(makelist(...

Calculate

listify-makelist-map-powerset-setify-sqrt

D1:[[1, 5], [5, 1], [...

S1:setify(D1);

P1:powerset(S1,2);

Calculate

listify-powerset

"*"/* Einfache Zinse...

"*"/* Beteiligt: K -&...

S:{K,p,t,Z};

Calculate

listify

Run Example
(%i1)load(draw);
(%o1)            /usr/share/maxima/5.21.1/share/draw/draw.lisp
(%i2) coord: setify(makelist(k,k,-4,4));
(%o2)                 {- 4, - 3, - 2, - 1, 0, 1, 2, 3, 4}
(%i3) points2d: listify(cartesian_product (coord ,coord ));
(%o3) [[- 4, - 4], [- 4, - 3], [- 4, - 2], [- 4, - 1], [- 4, 0], [- 4, 1], 
[- 4, 2], [- 4, 3], [- 4, 4], [- 3, - 4], [- 3, - 3], [- 3, - 2], [- 3, - 1], 
[- 3, 0], [- 3, 1], [- 3, 2], [- 3, 3], [- 3, 4], [- 2, - 4], [- 2, - 3], 
[- 2, - 2], [- 2, - 1], [- 2, 0], [- 2, 1], [- 2, 2], [- 2, 3], [- 2, 4], 
[- 1, - 4], [- 1, - 3], [- 1, - 2], [- 1, - 1], [- 1, 0], [- 1, 1], [- 1, 2], 
[- 1, 3], [- 1, 4], [0, - 4], [0, - 3], [0, - 2], [0, - 1], [0, 0], [0, 1], 
[0, 2], [0, 3], [0, 4], [1, - 4], [1, - 3], [1, - 2], [1, - 1], [1, 0], 
[1, 1], [1, 2], [1, 3], [1, 4], [2, - 4], [2, - 3], [2, - 2], [2, - 1], 
[2, 0], [2, 1], [2, 2], [2, 3], [2, 4], [3, - 4], [3, - 3], [3, - 2], 
[3, - 1], [3, 0], [3, 1], [3, 2], [3, 3], [3, 4], [4, - 4], [4, - 3], 
[4, - 2], [4, - 1], [4, 0], [4, 1], [4, 2], [4, 3], [4, 4]]
(%i4) vf2d(x,y):=  vector ([x,y],[cos(y),x]/6);
                                                [cos(y), x]
(%o4)              vf2d(x, y) := vector([x, y], -----------)
                                                     6
(%i5) vect2: makelist(vf2d(k[1],k[2]),k,points2d );
                           cos(4)    2                        cos(3)    2
(%o5) [vector([- 4, - 4], [------, - -]), vector([- 4, - 3], [------, - -]), 
                             6       3                          6       3
                    cos(2)    2                        cos(1)    2
vector([- 4, - 2], [------, - -]), vector([- 4, - 1], [------, - -]), 
                      6       3                          6       3
                  1    2                      cos(1)    2
vector([- 4, 0], [-, - -]), vector([- 4, 1], [------, - -]), 
                  6    3                        6       3
                  cos(2)    2                      cos(3)    2
vector([- 4, 2], [------, - -]), vector([- 4, 3], [------, - -]), 
                    6       3                        6       3
                  cos(4)    2                        cos(4)    1
vector([- 4, 4], [------, - -]), vector([- 3, - 4], [------, - -]), 
                    6       3                          6       2
                    cos(3)    1                        cos(2)    1
vector([- 3, - 3], [------, - -]), vector([- 3, - 2], [------, - -]), 
                      6       2                          6       2
                    cos(1)    1                      1    1
vector([- 3, - 1], [------, - -]), vector([- 3, 0], [-, - -]), 
                      6       2                      6    2
                  cos(1)    1                      cos(2)    1
vector([- 3, 1], [------, - -]), vector([- 3, 2], [------, - -]), 
                    6       2                        6       2
                  cos(3)    1                      cos(4)    1
vector([- 3, 3], [------, - -]), vector([- 3, 4], [------, - -]), 
                    6       2                        6       2
                    cos(4)    1                        cos(3)    1
vector([- 2, - 4], [------, - -]), vector([- 2, - 3], [------, - -]), 
                      6       3                          6       3
                    cos(2)    1                        cos(1)    1
vector([- 2, - 2], [------, - -]), vector([- 2, - 1], [------, - -]), 
                      6       3                          6       3
                  1    1                      cos(1)    1
vector([- 2, 0], [-, - -]), vector([- 2, 1], [------, - -]), 
                  6    3                        6       3
                  cos(2)    1                      cos(3)    1
vector([- 2, 2], [------, - -]), vector([- 2, 3], [------, - -]), 
                    6       3                        6       3
                  cos(4)    1                        cos(4)    1
vector([- 2, 4], [------, - -]), vector([- 1, - 4], [------, - -]), 
                    6       3                          6       6
                    cos(3)    1                        cos(2)    1
vector([- 1, - 3], [------, - -]), vector([- 1, - 2], [------, - -]), 
                      6       6                          6       6
                    cos(1)    1                      1    1
vector([- 1, - 1], [------, - -]), vector([- 1, 0], [-, - -]), 
                      6       6                      6    6
                  cos(1)    1                      cos(2)    1
vector([- 1, 1], [------, - -]), vector([- 1, 2], [------, - -]), 
                    6       6                        6       6
                  cos(3)    1                      cos(4)    1
vector([- 1, 3], [------, - -]), vector([- 1, 4], [------, - -]), 
                    6       6                        6       6
                  cos(4)                         cos(3)
vector([0, - 4], [------, 0]), vector([0, - 3], [------, 0]), 
                    6                              6
                  cos(2)                         cos(1)
vector([0, - 2], [------, 0]), vector([0, - 1], [------, 0]), 
                    6                              6
                1                       cos(1)
vector([0, 0], [-, 0]), vector([0, 1], [------, 0]), 
                6                         6
                cos(2)                       cos(3)
vector([0, 2], [------, 0]), vector([0, 3], [------, 0]), 
                  6                            6
                cos(4)                         cos(4)  1
vector([0, 4], [------, 0]), vector([1, - 4], [------, -]), 
                  6                              6     6
                  cos(3)  1                      cos(2)  1
vector([1, - 3], [------, -]), vector([1, - 2], [------, -]), 
                    6     6                        6     6
                  cos(1)  1                    1  1
vector([1, - 1], [------, -]), vector([1, 0], [-, -]), 
                    6     6                    6  6
                cos(1)  1                    cos(2)  1
vector([1, 1], [------, -]), vector([1, 2], [------, -]), 
                  6     6                      6     6
                cos(3)  1                    cos(4)  1
vector([1, 3], [------, -]), vector([1, 4], [------, -]), 
                  6     6                      6     6
                  cos(4)  1                      cos(3)  1
vector([2, - 4], [------, -]), vector([2, - 3], [------, -]), 
                    6     3                        6     3
                  cos(2)  1                      cos(1)  1
vector([2, - 2], [------, -]), vector([2, - 1], [------, -]), 
                    6     3                        6     3
                1  1                    cos(1)  1
vector([2, 0], [-, -]), vector([2, 1], [------, -]), 
                6  3                      6     3
                cos(2)  1                    cos(3)  1
vector([2, 2], [------, -]), vector([2, 3], [------, -]), 
                  6     3                      6     3
                cos(4)  1                      cos(4)  1
vector([2, 4], [------, -]), vector([3, - 4], [------, -]), 
                  6     3                        6     2
                  cos(3)  1                      cos(2)  1
vector([3, - 3], [------, -]), vector([3, - 2], [------, -]), 
                    6     2                        6     2
                  cos(1)  1                    1  1
vector([3, - 1], [------, -]), vector([3, 0], [-, -]), 
                    6     2                    6  2
                cos(1)  1                    cos(2)  1
vector([3, 1], [------, -]), vector([3, 2], [------, -]), 
                  6     2                      6     2
                cos(3)  1                    cos(4)  1
vector([3, 3], [------, -]), vector([3, 4], [------, -]), 
                  6     2                      6     2
                  cos(4)  2                      cos(3)  2
vector([4, - 4], [------, -]), vector([4, - 3], [------, -]), 
                    6     3                        6     3
                  cos(2)  2                      cos(1)  2
vector([4, - 2], [------, -]), vector([4, - 1], [------, -]), 
                    6     3                        6     3
                1  2                    cos(1)  2
vector([4, 0], [-, -]), vector([4, 1], [------, -]), 
                6  3                      6     3
                cos(2)  2                    cos(3)  2
vector([4, 2], [------, -]), vector([4, 3], [------, -]), 
                  6     3                      6     3
                cos(4)  2
vector([4, 4], [------, -])]
                  6     3
(%i6) apply(draw2d , append ([ color=blue], vect2 ));
(%o6) [gr2d(vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector, vector, vector, vector, vector, vector, vector, vector, vector, 
vector)]
(%i7) 
Run Example
coord: setify(makelist(k,k,-2,2));
(%o1)                         {- 2, - 1, 0, 1, 2}
(%i2) points3d: listify(cartesian_product(coord ,coord ,coord));
(%o2) [[- 2, - 2, - 2], [- 2, - 2, - 1], [- 2, - 2, 0], [- 2, - 2, 1], 
[- 2, - 2, 2], [- 2, - 1, - 2], [- 2, - 1, - 1], [- 2, - 1, 0], [- 2, - 1, 1], 
[- 2, - 1, 2], [- 2, 0, - 2], [- 2, 0, - 1], [- 2, 0, 0], [- 2, 0, 1], 
[- 2, 0, 2], [- 2, 1, - 2], [- 2, 1, - 1], [- 2, 1, 0], [- 2, 1, 1], 
[- 2, 1, 2], [- 2, 2, - 2], [- 2, 2, - 1], [- 2, 2, 0], [- 2, 2, 1], 
[- 2, 2, 2], [- 1, - 2, - 2], [- 1, - 2, - 1], [- 1, - 2, 0], [- 1, - 2, 1], 
[- 1, - 2, 2], [- 1, - 1, - 2], [- 1, - 1, - 1], [- 1, - 1, 0], [- 1, - 1, 1], 
[- 1, - 1, 2], [- 1, 0, - 2], [- 1, 0, - 1], [- 1, 0, 0], [- 1, 0, 1], 
[- 1, 0, 2], [- 1, 1, - 2], [- 1, 1, - 1], [- 1, 1, 0], [- 1, 1, 1], 
[- 1, 1, 2], [- 1, 2, - 2], [- 1, 2, - 1], [- 1, 2, 0], [- 1, 2, 1], 
[- 1, 2, 2], [0, - 2, - 2], [0, - 2, - 1], [0, - 2, 0], [0, - 2, 1], 
[0, - 2, 2], [0, - 1, - 2], [0, - 1, - 1], [0, - 1, 0], [0, - 1, 1], 
[0, - 1, 2], [0, 0, - 2], [0, 0, - 1], [0, 0, 0], [0, 0, 1], [0, 0, 2], 
[0, 1, - 2], [0, 1, - 1], [0, 1, 0], [0, 1, 1], [0, 1, 2], [0, 2, - 2], 
[0, 2, - 1], [0, 2, 0], [0, 2, 1], [0, 2, 2], [1, - 2, - 2], [1, - 2, - 1], 
[1, - 2, 0], [1, - 2, 1], [1, - 2, 2], [1, - 1, - 2], [1, - 1, - 1], 
[1, - 1, 0], [1, - 1, 1], [1, - 1, 2], [1, 0, - 2], [1, 0, - 1], [1, 0, 0], 
[1, 0, 1], [1, 0, 2], [1, 1, - 2], [1, 1, - 1], [1, 1, 0], [1, 1, 1], 
[1, 1, 2], [1, 2, - 2], [1, 2, - 1], [1, 2, 0], [1, 2, 1], [1, 2, 2], 
[2, - 2, - 2], [2, - 2, - 1], [2, - 2, 0], [2, - 2, 1], [2, - 2, 2], 
[2, - 1, - 2], [2, - 1, - 1], [2, - 1, 0], [2, - 1, 1], [2, - 1, 2], 
[2, 0, - 2], [2, 0, - 1], [2, 0, 0], [2, 0, 1], [2, 0, 2], [2, 1, - 2], 
[2, 1, - 1], [2, 1, 0], [2, 1, 1], [2, 1, 2], [2, 2, - 2], [2, 2, - 1], 
[2, 2, 0], [2, 2, 1], [2, 2, 2]]
(%i3) vf3d(x,y,z):=  vector([x,y,z],[z,x,y]/8);
                                                    [z, x, y]
(%o3)            vf3d(x, y, z) := vector([x, y, z], ---------)
                                                        8
(%i4) vect3: makelist(vf3d(k[1],k[2],k[3]),k,points3d);
                                  1    1    1
(%o4) [vector([- 2, - 2, - 2], [- -, - -, - -]), 
                                  4    4    4
                           1    1    1
vector([- 2, - 2, - 1], [- -, - -, - -]), 
                           8    4    4
                            1    1                           1    1    1
vector([- 2, - 2, 0], [0, - -, - -]), vector([- 2, - 2, 1], [-, - -, - -]), 
                            4    4                           8    4    4
                       1    1    1
vector([- 2, - 2, 2], [-, - -, - -]), vector([- 2, - 1, - 2], 
                       4    4    4
   1    1    1                               1    1    1
[- -, - -, - -]), vector([- 2, - 1, - 1], [- -, - -, - -]), 
   4    4    8                               8    4    8
                            1    1                           1    1    1
vector([- 2, - 1, 0], [0, - -, - -]), vector([- 2, - 1, 1], [-, - -, - -]), 
                            4    8                           8    4    8
                       1    1    1                             1    1
vector([- 2, - 1, 2], [-, - -, - -]), vector([- 2, 0, - 2], [- -, - -, 0]), 
                       4    4    8                             4    4
                         1    1                                 1
vector([- 2, 0, - 1], [- -, - -, 0]), vector([- 2, 0, 0], [0, - -, 0]), 
                         8    4                                 4
                     1    1                            1    1
vector([- 2, 0, 1], [-, - -, 0]), vector([- 2, 0, 2], [-, - -, 0]), 
                     8    4                            4    4
                         1    1  1                             1    1  1
vector([- 2, 1, - 2], [- -, - -, -]), vector([- 2, 1, - 1], [- -, - -, -]), 
                         4    4  8                             8    4  8
                          1  1                         1    1  1
vector([- 2, 1, 0], [0, - -, -]), vector([- 2, 1, 1], [-, - -, -]), 
                          4  8                         8    4  8
                     1    1  1                             1    1  1
vector([- 2, 1, 2], [-, - -, -]), vector([- 2, 2, - 2], [- -, - -, -]), 
                     4    4  8                             4    4  4
                         1    1  1                              1  1
vector([- 2, 2, - 1], [- -, - -, -]), vector([- 2, 2, 0], [0, - -, -]), 
                         8    4  4                              4  4
                     1    1  1                         1    1  1
vector([- 2, 2, 1], [-, - -, -]), vector([- 2, 2, 2], [-, - -, -]), 
                     8    4  4                         4    4  4
                           1    1    1
vector([- 1, - 2, - 2], [- -, - -, - -]), 
                           4    8    4
                           1    1    1
vector([- 1, - 2, - 1], [- -, - -, - -]), 
                           8    8    4
                            1    1                           1    1    1
vector([- 1, - 2, 0], [0, - -, - -]), vector([- 1, - 2, 1], [-, - -, - -]), 
                            8    4                           8    8    4
                       1    1    1
vector([- 1, - 2, 2], [-, - -, - -]), vector([- 1, - 1, - 2], 
                       4    8    4
   1    1    1                               1    1    1
[- -, - -, - -]), vector([- 1, - 1, - 1], [- -, - -, - -]), 
   4    8    8                               8    8    8
                            1    1                           1    1    1
vector([- 1, - 1, 0], [0, - -, - -]), vector([- 1, - 1, 1], [-, - -, - -]), 
                            8    8                           8    8    8
                       1    1    1                             1    1
vector([- 1, - 1, 2], [-, - -, - -]), vector([- 1, 0, - 2], [- -, - -, 0]), 
                       4    8    8                             4    8
                         1    1                                 1
vector([- 1, 0, - 1], [- -, - -, 0]), vector([- 1, 0, 0], [0, - -, 0]), 
                         8    8                                 8
                     1    1                            1    1
vector([- 1, 0, 1], [-, - -, 0]), vector([- 1, 0, 2], [-, - -, 0]), 
                     8    8                            4    8
                         1    1  1                             1    1  1
vector([- 1, 1, - 2], [- -, - -, -]), vector([- 1, 1, - 1], [- -, - -, -]), 
                         4    8  8                             8    8  8
                          1  1                         1    1  1
vector([- 1, 1, 0], [0, - -, -]), vector([- 1, 1, 1], [-, - -, -]), 
                          8  8                         8    8  8
                     1    1  1                             1    1  1
vector([- 1, 1, 2], [-, - -, -]), vector([- 1, 2, - 2], [- -, - -, -]), 
                     4    8  8                             4    8  4
                         1    1  1                              1  1
vector([- 1, 2, - 1], [- -, - -, -]), vector([- 1, 2, 0], [0, - -, -]), 
                         8    8  4                              8  4
                     1    1  1                         1    1  1
vector([- 1, 2, 1], [-, - -, -]), vector([- 1, 2, 2], [-, - -, -]), 
                     8    8  4                         4    8  4
                         1       1                             1       1
vector([0, - 2, - 2], [- -, 0, - -]), vector([0, - 2, - 1], [- -, 0, - -]), 
                         4       4                             8       4
                             1                         1       1
vector([0, - 2, 0], [0, 0, - -]), vector([0, - 2, 1], [-, 0, - -]), 
                             4                         8       4
                     1       1                             1       1
vector([0, - 2, 2], [-, 0, - -]), vector([0, - 1, - 2], [- -, 0, - -]), 
                     4       4                             4       8
                         1       1                                 1
vector([0, - 1, - 1], [- -, 0, - -]), vector([0, - 1, 0], [0, 0, - -]), 
                         8       8                                 8
                     1       1                         1       1
vector([0, - 1, 1], [-, 0, - -]), vector([0, - 1, 2], [-, 0, - -]), 
                     8       8                         4       8
                       1                                 1
vector([0, 0, - 2], [- -, 0, 0]), vector([0, 0, - 1], [- -, 0, 0]), 
                       4                                 8
                                                 1
vector([0, 0, 0], [0, 0, 0]), vector([0, 0, 1], [-, 0, 0]), 
                                                 8
                   1                                 1     1
vector([0, 0, 2], [-, 0, 0]), vector([0, 1, - 2], [- -, 0, -]), 
                   4                                 4     8
                       1     1                             1
vector([0, 1, - 1], [- -, 0, -]), vector([0, 1, 0], [0, 0, -]), 
                       8     8                             8
                   1     1                       1     1
vector([0, 1, 1], [-, 0, -]), vector([0, 1, 2], [-, 0, -]), 
                   8     8                       4     8
                       1     1                           1     1
vector([0, 2, - 2], [- -, 0, -]), vector([0, 2, - 1], [- -, 0, -]), 
                       4     4                           8     4
                         1                       1     1
vector([0, 2, 0], [0, 0, -]), vector([0, 2, 1], [-, 0, -]), 
                         4                       8     4
                   1     1                             1  1    1
vector([0, 2, 2], [-, 0, -]), vector([1, - 2, - 2], [- -, -, - -]), 
                   4     4                             4  8    4
                         1  1    1                            1    1
vector([1, - 2, - 1], [- -, -, - -]), vector([1, - 2, 0], [0, -, - -]), 
                         8  8    4                            8    4
                     1  1    1                         1  1    1
vector([1, - 2, 1], [-, -, - -]), vector([1, - 2, 2], [-, -, - -]), 
                     8  8    4                         4  8    4
                         1  1    1                             1  1    1
vector([1, - 1, - 2], [- -, -, - -]), vector([1, - 1, - 1], [- -, -, - -]), 
                         4  8    8                             8  8    8
                        1    1                         1  1    1
vector([1, - 1, 0], [0, -, - -]), vector([1, - 1, 1], [-, -, - -]), 
                        8    8                         8  8    8
                     1  1    1                           1  1
vector([1, - 1, 2], [-, -, - -]), vector([1, 0, - 2], [- -, -, 0]), 
                     4  8    8                           4  8
                       1  1                             1
vector([1, 0, - 1], [- -, -, 0]), vector([1, 0, 0], [0, -, 0]), 
                       8  8                             8
                   1  1                          1  1
vector([1, 0, 1], [-, -, 0]), vector([1, 0, 2], [-, -, 0]), 
                   8  8                          4  8
                       1  1  1                           1  1  1
vector([1, 1, - 2], [- -, -, -]), vector([1, 1, - 1], [- -, -, -]), 
                       4  8  8                           8  8  8
                      1  1                       1  1  1
vector([1, 1, 0], [0, -, -]), vector([1, 1, 1], [-, -, -]), 
                      8  8                       8  8  8
                   1  1  1                           1  1  1
vector([1, 1, 2], [-, -, -]), vector([1, 2, - 2], [- -, -, -]), 
                   4  8  8                           4  8  4
                       1  1  1                          1  1
vector([1, 2, - 1], [- -, -, -]), vector([1, 2, 0], [0, -, -]), 
                       8  8  4                          8  4
                   1  1  1                       1  1  1
vector([1, 2, 1], [-, -, -]), vector([1, 2, 2], [-, -, -]), 
                   8  8  4                       4  8  4
                         1  1    1                             1  1    1
vector([2, - 2, - 2], [- -, -, - -]), vector([2, - 2, - 1], [- -, -, - -]), 
                         4  4    4                             8  4    4
                        1    1                         1  1    1
vector([2, - 2, 0], [0, -, - -]), vector([2, - 2, 1], [-, -, - -]), 
                        4    4                         8  4    4
                     1  1    1                             1  1    1
vector([2, - 2, 2], [-, -, - -]), vector([2, - 1, - 2], [- -, -, - -]), 
                     4  4    4                             4  4    8
                         1  1    1                            1    1
vector([2, - 1, - 1], [- -, -, - -]), vector([2, - 1, 0], [0, -, - -]), 
                         8  4    8                            4    8
                     1  1    1                         1  1    1
vector([2, - 1, 1], [-, -, - -]), vector([2, - 1, 2], [-, -, - -]), 
                     8  4    8                         4  4    8
                       1  1                              1  1
vector([2, 0, - 2], [- -, -, 0]), vector([2, 0, - 1], [- -, -, 0]), 
                       4  4                              8  4
                      1                          1  1
vector([2, 0, 0], [0, -, 0]), vector([2, 0, 1], [-, -, 0]), 
                      4                          8  4
                   1  1                              1  1  1
vector([2, 0, 2], [-, -, 0]), vector([2, 1, - 2], [- -, -, -]), 
                   4  4                              4  4  8
                       1  1  1                          1  1
vector([2, 1, - 1], [- -, -, -]), vector([2, 1, 0], [0, -, -]), 
                       8  4  8                          4  8
                   1  1  1                       1  1  1
vector([2, 1, 1], [-, -, -]), vector([2, 1, 2], [-, -, -]), 
                   8  4  8                       4  4  8
                       1  1  1                           1  1  1
vector([2, 2, - 2], [- -, -, -]), vector([2, 2, - 1], [- -, -, -]), 
                       4  4  4                           8  4  4
                      1  1                       1  1  1
vector([2, 2, 0], [0, -, -]), vector([2, 2, 1], [-, -, -]), 
                      4  4                       8  4  4
                   1  1  1
vector([2, 2, 2], [-, -, -])]
                   4  4  4
(%i5) apply(draw3d , append([color=blue], vect3));
                                                      1    1    1
(%o5) draw3d(color = blue, vector([- 2, - 2, - 2], [- -, - -, - -]), 
                                                      4    4    4
                           1    1    1
vector([- 2, - 2, - 1], [- -, - -, - -]), 
                           8    4    4
                            1    1                           1    1    1
vector([- 2, - 2, 0], [0, - -, - -]), vector([- 2, - 2, 1], [-, - -, - -]), 
                            4    4                           8    4    4
                       1    1    1
vector([- 2, - 2, 2], [-, - -, - -]), vector([- 2, - 1, - 2], 
                       4    4    4
   1    1    1                               1    1    1
[- -, - -, - -]), vector([- 2, - 1, - 1], [- -, - -, - -]), 
   4    4    8                               8    4    8
                            1    1                           1    1    1
vector([- 2, - 1, 0], [0, - -, - -]), vector([- 2, - 1, 1], [-, - -, - -]), 
                            4    8                           8    4    8
                       1    1    1                             1    1
vector([- 2, - 1, 2], [-, - -, - -]), vector([- 2, 0, - 2], [- -, - -, 0]), 
                       4    4    8                             4    4
                         1    1                                 1
vector([- 2, 0, - 1], [- -, - -, 0]), vector([- 2, 0, 0], [0, - -, 0]), 
                         8    4                                 4
                     1    1                            1    1
vector([- 2, 0, 1], [-, - -, 0]), vector([- 2, 0, 2], [-, - -, 0]), 
                     8    4                            4    4
                         1    1  1                             1    1  1
vector([- 2, 1, - 2], [- -, - -, -]), vector([- 2, 1, - 1], [- -, - -, -]), 
                         4    4  8                             8    4  8
                          1  1                         1    1  1
vector([- 2, 1, 0], [0, - -, -]), vector([- 2, 1, 1], [-, - -, -]), 
                          4  8                         8    4  8
                     1    1  1                             1    1  1
vector([- 2, 1, 2], [-, - -, -]), vector([- 2, 2, - 2], [- -, - -, -]), 
                     4    4  8                             4    4  4
                         1    1  1                              1  1
vector([- 2, 2, - 1], [- -, - -, -]), vector([- 2, 2, 0], [0, - -, -]), 
                         8    4  4                              4  4
                     1    1  1                         1    1  1
vector([- 2, 2, 1], [-, - -, -]), vector([- 2, 2, 2], [-, - -, -]), 
                     8    4  4                         4    4  4
                           1    1    1
vector([- 1, - 2, - 2], [- -, - -, - -]), 
                           4    8    4
                           1    1    1
vector([- 1, - 2, - 1], [- -, - -, - -]), 
                           8    8    4
                            1    1                           1    1    1
vector([- 1, - 2, 0], [0, - -, - -]), vector([- 1, - 2, 1], [-, - -, - -]), 
                            8    4                           8    8    4
                       1    1    1
vector([- 1, - 2, 2], [-, - -, - -]), vector([- 1, - 1, - 2], 
                       4    8    4
   1    1    1                               1    1    1
[- -, - -, - -]), vector([- 1, - 1, - 1], [- -, - -, - -]), 
   4    8    8                               8    8    8
                            1    1                           1    1    1
vector([- 1, - 1, 0], [0, - -, - -]), vector([- 1, - 1, 1], [-, - -, - -]), 
                            8    8                           8    8    8
                       1    1    1                             1    1
vector([- 1, - 1, 2], [-, - -, - -]), vector([- 1, 0, - 2], [- -, - -, 0]), 
                       4    8    8                             4    8
                         1    1                                 1
vector([- 1, 0, - 1], [- -, - -, 0]), vector([- 1, 0, 0], [0, - -, 0]), 
                         8    8                                 8
                     1    1                            1    1
vector([- 1, 0, 1], [-, - -, 0]), vector([- 1, 0, 2], [-, - -, 0]), 
                     8    8                            4    8
                         1    1  1                             1    1  1
vector([- 1, 1, - 2], [- -, - -, -]), vector([- 1, 1, - 1], [- -, - -, -]), 
                         4    8  8                             8    8  8
                          1  1                         1    1  1
vector([- 1, 1, 0], [0, - -, -]), vector([- 1, 1, 1], [-, - -, -]), 
                          8  8                         8    8  8
                     1    1  1                             1    1  1
vector([- 1, 1, 2], [-, - -, -]), vector([- 1, 2, - 2], [- -, - -, -]), 
                     4    8  8                             4    8  4
                         1    1  1                              1  1
vector([- 1, 2, - 1], [- -, - -, -]), vector([- 1, 2, 0], [0, - -, -]), 
                         8    8  4                              8  4
                     1    1  1                         1    1  1
vector([- 1, 2, 1], [-, - -, -]), vector([- 1, 2, 2], [-, - -, -]), 
                     8    8  4                         4    8  4
                         1       1                             1       1
vector([0, - 2, - 2], [- -, 0, - -]), vector([0, - 2, - 1], [- -, 0, - -]), 
                         4       4                             8       4
                             1                         1       1
vector([0, - 2, 0], [0, 0, - -]), vector([0, - 2, 1], [-, 0, - -]), 
                             4                         8       4
                     1       1                             1       1
vector([0, - 2, 2], [-, 0, - -]), vector([0, - 1, - 2], [- -, 0, - -]), 
                     4       4                             4       8
                         1       1                                 1
vector([0, - 1, - 1], [- -, 0, - -]), vector([0, - 1, 0], [0, 0, - -]), 
                         8       8                                 8
                     1       1                         1       1
vector([0, - 1, 1], [-, 0, - -]), vector([0, - 1, 2], [-, 0, - -]), 
                     8       8                         4       8
                       1                                 1
vector([0, 0, - 2], [- -, 0, 0]), vector([0, 0, - 1], [- -, 0, 0]), 
                       4                                 8
                                                 1
vector([0, 0, 0], [0, 0, 0]), vector([0, 0, 1], [-, 0, 0]), 
                                                 8
                   1                                 1     1
vector([0, 0, 2], [-, 0, 0]), vector([0, 1, - 2], [- -, 0, -]), 
                   4                                 4     8
                       1     1                             1
vector([0, 1, - 1], [- -, 0, -]), vector([0, 1, 0], [0, 0, -]), 
                       8     8                             8
                   1     1                       1     1
vector([0, 1, 1], [-, 0, -]), vector([0, 1, 2], [-, 0, -]), 
                   8     8                       4     8
                       1     1                           1     1
vector([0, 2, - 2], [- -, 0, -]), vector([0, 2, - 1], [- -, 0, -]), 
                       4     4                           8     4
                         1                       1     1
vector([0, 2, 0], [0, 0, -]), vector([0, 2, 1], [-, 0, -]), 
                         4                       8     4
                   1     1                             1  1    1
vector([0, 2, 2], [-, 0, -]), vector([1, - 2, - 2], [- -, -, - -]), 
                   4     4                             4  8    4
                         1  1    1                            1    1
vector([1, - 2, - 1], [- -, -, - -]), vector([1, - 2, 0], [0, -, - -]), 
                         8  8    4                            8    4
                     1  1    1                         1  1    1
vector([1, - 2, 1], [-, -, - -]), vector([1, - 2, 2], [-, -, - -]), 
                     8  8    4                         4  8    4
                         1  1    1                             1  1    1
vector([1, - 1, - 2], [- -, -, - -]), vector([1, - 1, - 1], [- -, -, - -]), 
                         4  8    8                             8  8    8
                        1    1                         1  1    1
vector([1, - 1, 0], [0, -, - -]), vector([1, - 1, 1], [-, -, - -]), 
                        8    8                         8  8    8
                     1  1    1                           1  1
vector([1, - 1, 2], [-, -, - -]), vector([1, 0, - 2], [- -, -, 0]), 
                     4  8    8                           4  8
                       1  1                             1
vector([1, 0, - 1], [- -, -, 0]), vector([1, 0, 0], [0, -, 0]), 
                       8  8                             8
                   1  1                          1  1
vector([1, 0, 1], [-, -, 0]), vector([1, 0, 2], [-, -, 0]), 
                   8  8                          4  8
                       1  1  1                           1  1  1
vector([1, 1, - 2], [- -, -, -]), vector([1, 1, - 1], [- -, -, -]), 
                       4  8  8                           8  8  8
                      1  1                       1  1  1
vector([1, 1, 0], [0, -, -]), vector([1, 1, 1], [-, -, -]), 
                      8  8                       8  8  8
                   1  1  1                           1  1  1
vector([1, 1, 2], [-, -, -]), vector([1, 2, - 2], [- -, -, -]), 
                   4  8  8                           4  8  4
                       1  1  1                          1  1
vector([1, 2, - 1], [- -, -, -]), vector([1, 2, 0], [0, -, -]), 
                       8  8  4                          8  4
                   1  1  1                       1  1  1
vector([1, 2, 1], [-, -, -]), vector([1, 2, 2], [-, -, -]), 
                   8  8  4                       4  8  4
                         1  1    1                             1  1    1
vector([2, - 2, - 2], [- -, -, - -]), vector([2, - 2, - 1], [- -, -, - -]), 
                         4  4    4                             8  4    4
                        1    1                         1  1    1
vector([2, - 2, 0], [0, -, - -]), vector([2, - 2, 1], [-, -, - -]), 
                        4    4                         8  4    4
                     1  1    1                             1  1    1
vector([2, - 2, 2], [-, -, - -]), vector([2, - 1, - 2], [- -, -, - -]), 
                     4  4    4                             4  4    8
                         1  1    1                            1    1
vector([2, - 1, - 1], [- -, -, - -]), vector([2, - 1, 0], [0, -, - -]), 
                         8  4    8                            4    8
                     1  1    1                         1  1    1
vector([2, - 1, 1], [-, -, - -]), vector([2, - 1, 2], [-, -, - -]), 
                     8  4    8                         4  4    8
                       1  1                              1  1
vector([2, 0, - 2], [- -, -, 0]), vector([2, 0, - 1], [- -, -, 0]), 
                       4  4                              8  4
                      1                          1  1
vector([2, 0, 0], [0, -, 0]), vector([2, 0, 1], [-, -, 0]), 
                      4                          8  4
                   1  1                              1  1  1
vector([2, 0, 2], [-, -, 0]), vector([2, 1, - 2], [- -, -, -]), 
                   4  4                              4  4  8
                       1  1  1                          1  1
vector([2, 1, - 1], [- -, -, -]), vector([2, 1, 0], [0, -, -]), 
                       8  4  8                          4  8
                   1  1  1                       1  1  1
vector([2, 1, 1], [-, -, -]), vector([2, 1, 2], [-, -, -]), 
                   8  4  8                       4  4  8
                       1  1  1                           1  1  1
vector([2, 2, - 2], [- -, -, -]), vector([2, 2, - 1], [- -, -, -]), 
                       4  4  4                           8  4  4
                      1  1                       1  1  1
vector([2, 2, 0], [0, -, -]), vector([2, 2, 1], [-, -, -]), 
                      4  4                       8  4  4
                   1  1  1
vector([2, 2, 2], [-, -, -]))
                   4  4  4
(%i6) 
Run Example
:lisp (lisp-implementation-type);

GNU Common Lisp (GCL)
(%i1) :lisp (lisp-implementation-version);

GCL 2.6.7
(%i1) prime(z):=block([k:z, y:1],(y:append(listify(setify(makelist((if(primep(k)) then k else 1), k, 1, k-1))), [y])), return(y));
(%o1) prime(z) := block([k : z, y : 1], 
y : append(listify(setify(makelist(if primep(k) then k else 1, k, 1, k - 1))), 
[y]), return(y))
(%i2) prime(10);
(%o2)                         [1, 2, 3, 5, 7, 1]
(%i3) 
[abs,listify,map,powerset,setify] [addrow,listify,makelist,matrix,powerset,rank,setify] [append,apply,cartesian_product,cos,diff,draw,imagpart,integrate,listify,load,makelist,plot2d,product,realpart,setify,subst] [append,apply,cartesian_product,cos,draw,listify,load,makelist,product,setify] [append,apply,cartesian_product,cos,listify,makelist,product,setify] [append,apply,cartesian_product,draw,listify,load,makelist,product,setify] [append,apply,cartesian_product,listify,makelist,product,setify] [append,block,lambda,listify,makelist,map,primep,rest,return,setify,true] [append,block,lambda,listify,makelist,map,primep,rest,return,setify] [append,block,listify,makelist,map,primep,rest,return,setify] [append,block,listify,makelist,primep,rest,return,setify] [append,block,listify,makelist,primep,return,setify] [append,disjoin,first,if,lambda,listify,makelist,map,mod,setify,subset] [append,disp,intersect,listify,lmax,setify] [append,disp,intersect,listify,setify] [append,listify,setify,sort,sqrt,transpose] [append,listify,setify] [asksign,cartesian_product,delete,fullratsimp,listify,makelist,product,setify,sqrt,unique] [cartesian_product,cos,draw,linsolve,listify,load,makelist,product,setify] [cartesian_product,expand,listify,map,powerset,product,transpose] [cartesian_product,full_listify,length,listify,product,setify] [cartesian_product,listify,makelist,product,setify] [cartesian_product,listify,map,powerset,product] [cartesian_product,listify,map,product,reverse,transpose] [cartesian_product,listify,map,product,reverse,und] [cartesian_product,listify,map,product,transpose] [cartesian_product,listify,map,product] [cartesian_product,listify,product] [coeff,diff,divisors,factor,false,listify,lreduce,map,rat,ratfac,rest,resultant] [delete,every,full_listify,lambda,listify,makelist,map,mod,primep,set_partitions,sort,sublist] [diff,divisors,factor,listify,lreduce,map,rat,rest,resultant] [disjoin,first,if,lambda,listify,makelist,map,mod,setify,subset] [display,length,listify,makelist,map,powerset,setify,sort,sqrt] [ev,lambda,listify,maplist,setify,solve] [ev,lambda,listify,maplist,setify] [eval_string,flatten,full_listify,lambda,listify,lreduce,maplist,mod,permut,powerset,setify,sort,string] [full_listify,intersection,listify,matrix,powerset,rank,submatrix] [full_listify,listify,matrix,powerset,rank,setdifference,submatrix] [full_listify,listify] [length,listify,makelist,map,powerset,setify,sort,sqrt] [length,listify,makelist,map,powerset,setify] [length,listify,makelist,permutations] [listify,makelist,map,powerset,setify,sqrt] [listify,makelist,matrix,powerset,print,rank,setdifference,setify] [listify,makelist,matrix,powerset,print,rank,setify] [listify,makelist,matrix,powerset,rank,setdifference,setify] [listify,map,powerset,setify] [listify,maplist,setify] [listify,powerset] [listify]

Related Help

Help for Listify