Sponsored links: Algebra eBooks
 

Related

arrayinfo

? arrayinfo;

Calculate

arrayinfo-charlist-kill-listarray-map-print-rest

kill(i,v,k,a,b,c);

m:charlist("ghthrt yh...

f(c):=if alphacharp(c...

Calculate

arrayinfo-load

load(worldmap) ;

arrayinfo(boundaries_...

Calculate

arrayinfo-christof-load-matrix-sin

load(ctensor);

ct_coords:[t,r,theta,...

lg:matrix([-1,0,0,0],...

Calculate

arrayinfo

? arrayinfo;

Calculate

arrayinfo-charlist-kill-listarray-map-print-rest

kill(i,v,k,a,b,c);

m:charlist("ghthrt yh...

f(c):=if alphacharp(c...

Calculate

arrayinfo-load

load(worldmap) ;

arrayinfo(boundaries_...

Calculate

arrayinfo-christof-load-matrix-sin

load(ctensor);

ct_coords:[t,r,theta,...

lg:matrix([-1,0,0,0],...

Calculate

arrayinfo

Run Example
(%i1)load(ctensor);
(%o1)          /usr/share/maxima/5.21.1/share/tensor/ctensor.mac
(%i2) ct_coords:[t,r,theta,phi];
(%o2)                         [t, r, theta, phi]
(%i3) lg:matrix([-1,0,0,0],[0,1,0,0],[0,0,r^2,0],[0,0,0,r^2*sin(theta)^2]);
                        [ - 1  0  0         0        ]
                        [                            ]
                        [  0   1  0         0        ]
                        [                            ]
(%o3)                   [          2                 ]
                        [  0   0  r         0        ]
                        [                            ]
                        [              2    2        ]
                        [  0   0  0   r  sin (theta) ]
(%i4) christof(lcs);
(%t4)                           lcs        = r
                                   2, 3, 3

                                            2
(%t5)                     lcs        = r sin (theta)
                             2, 4, 4

(%t6)                          lcs        = - r
                                  3, 3, 2

                                   2
(%t7)                lcs        = r  cos(theta) sin(theta)
                        3, 4, 4

                                             2
(%t8)                    lcs        = - r sin (theta)
                            4, 4, 2

                                    2
(%t9)               lcs        = - r  cos(theta) sin(theta)
                       4, 4, 3

(%o9)                                done
(%i10) arrayinfo(lcs);
(%o10) [hashed, 3, [1, 1, 1], [1, 1, 2], [1, 1, 3], [1, 1, 4], [1, 2, 1], 
[1, 2, 2], [1, 2, 3], [1, 2, 4], [1, 3, 1], [1, 3, 2], [1, 3, 3], [1, 3, 4], 
[1, 4, 1], [1, 4, 2], [1, 4, 3], [1, 4, 4], [2, 1, 1], [2, 1, 2], [2, 1, 3], 
[2, 1, 4], [2, 2, 1], [2, 2, 2], [2, 2, 3], [2, 2, 4], [2, 3, 1], [2, 3, 2], 
[2, 3, 3], [2, 3, 4], [2, 4, 1], [2, 4, 2], [2, 4, 3], [2, 4, 4], [3, 1, 1], 
[3, 1, 2], [3, 1, 3], [3, 1, 4], [3, 2, 1], [3, 2, 2], [3, 2, 3], [3, 2, 4], 
[3, 3, 1], [3, 3, 2], [3, 3, 3], [3, 3, 4], [3, 4, 1], [3, 4, 2], [3, 4, 3], 
[3, 4, 4], [4, 1, 1], [4, 1, 2], [4, 1, 3], [4, 1, 4], [4, 2, 1], [4, 2, 2], 
[4, 2, 3], [4, 2, 4], [4, 3, 1], [4, 3, 2], [4, 3, 3], [4, 3, 4], [4, 4, 1], 
[4, 4, 2], [4, 4, 3], [4, 4, 4]]
(%i11) 
Run Example
m : 2;
(%o1)                                  2
(%i2) array(a, m, 1);
(%o2)                                  a
(%i3) a [0,0] : 1;
(%o3)                                  1
(%i4) a [0,1] : 5;
(%o4)                                  5
(%i5) a [1,0] : 1;
(%o5)                                  1
(%i6) a [1,1] : 5;
(%o6)                                  5
(%i7) a [2,0] : 1;
(%o7)                                  1
(%i8) a [2,1] : 3;
(%o8)                                  3
(%i9) b : 1;
(%o9)                                  1
(%i10) for i: 1 unless i >
 m do b : b * (a [i,1] - a [i,0] + 1);
(%o10)                               done
(%i11) j;
(%o11)                                 j
(%i12) arrayinfo(a);
(%o12)                       [declared, 2, [2, 1]]
(%i13) listarray(a);
(%o13)                        [1, 5, 1, 5, 1, 3]
(%i14) 
Run Example
array(P, 4, 3);
(%o1)                                  P
(%i2) fillarray(P,           [0.02, 0.08, 0.03, 0.04,            0.05, 0.10, 0.02, 0.07,            0.20, 0.04, 0.20, 0.15]);
(%o2)                                  P
(%i3) arrayinfo(P);
(%o3)                        [declared, 2, [4, 3]]
(%i4) 

Related Help

Help for Arrayinfo