Sponsored links: Algebra eBooks
 

Related

matrix_size

? matrix_size;

Calculate

matrix_size

? matrix_size;

Calculate

matrix_size

Run Example
(%i1)nrm1(x) := block([ms],ms : matrix_size(x), lmax(makelist(sum(abs(x[i, j]), i, 1,ms[1]), j, 1,ms[2])));
(%o1) nrm1(x) := block([ms], ms : matrix_size(x), 
                            lmax(makelist(sum(!x    !, i, 1, ms ), j, 1, ms )))
                                              ! i, j!          1           2
(%i2) preob(m) := block([s], n : length(m),(s : 1, for i : 1 while ((i <
 n + 1) and (2*abs(m[i, i])) >
 sum(abs(m[i, j]), j, 1, n)) do s : i),if s = n then "eSTX PREOBLADANIE DIG. \L."else "nET PREOBLADANIQ DIAG. \L.");
(%o2) preob(m) := block([s], n : length(m), 
(s : 1, for i while (i < n + 1) and (2 !m    ! > sum(!m    !, j, 1, n)) 
                                       ! i, i!       ! i, j!
do s : i), if s = n then "eSTX PREOBLADANIE DIG. L."
 else "nET PREOBLADANIQ DIAG. L.")
(%i3) 
Run Example
x: matrix ([17, 3], [-8, 11]);
                                  [ 17   3  ]
(%o1)                             [         ]
                                  [ - 8  11 ]
(%i2)  y: matrix ([%pi, %e], [a, b]);
                                  [ %pi  %e ]
(%o2)                             [         ]
                                  [  a   b  ]
(%i3) matrix_size(x+y);
(%o3)                               [2, 2]
(%i4) 
Run Example
M:matrix([a,b,c,d,e],[f,g,h,i,j],[k,l,m,n,o],[p,q,r,s,t],[u,v,w,x,y]);
                               [ a  b  c  d  e ]
                               [               ]
                               [ f  g  h  i  j ]
                               [               ]
(%o1)                          [ k  l  m  n  o ]
                               [               ]
                               [ p  q  r  s  t ]
                               [               ]
                               [ u  v  w  x  y ]
(%i2) M:addrow(M, [A,B,C,D,E]);
                               [ a  b  c  d  e ]
                               [               ]
                               [ f  g  h  i  j ]
                               [               ]
                               [ k  l  m  n  o ]
(%o2)                          [               ]
                               [ p  q  r  s  t ]
                               [               ]
                               [ u  v  w  x  y ]
                               [               ]
                               [ A  B  C  D  E ]
(%i3) M:addcol(M,'[F,G,H,I,J,K]);
                             [ a  b  c  d  e  F ]
                             [                  ]
                             [ f  g  h  i  j  G ]
                             [                  ]
                             [ k  l  m  n  o  H ]
(%o3)                        [                  ]
                             [ p  q  r  s  t  I ]
                             [                  ]
                             [ u  v  w  x  y  J ]
                             [                  ]
                             [ A  B  C  D  E  K ]
(%i4) det(M):= block(              [D, R],              D:matrix_size(M)[1],              if (D = 1) then R:M[1]              elseif (D = 2) then R:M[1,1]*M[2,2]-M[1,2]*M[2,1]                else block(                        [I],                        R:0,                        for I:1 thru D do                            if oddp(I)                               then R:R+M[1,I]*det(submatrix(1,M,I))                               else R:R-M[1,I]*det(submatrix(1,M,I))                       ),                  return(R));
(%o4) det(M) := block([D, R], D : matrix_size(M) , 
                                                1
if D = 1 then R : M  elseif D = 2 then R : M     M     - M     M
                   1                        1, 1  2, 2    1, 2  2, 1
 else block([I], R : 0, for I thru D do if oddp(I)
 then R : R + M     det(submatrix(1, M, I))
               1, I
 else R : R - M     det(submatrix(1, M, I))), return(R))
               1, I
(%i5) det(M),expand;
(%o5) a g m s y K - b f m s y K - a h l s y K + c f l s y K + b h k s y K
 - c g k s y K - a g n r y K + b f n r y K + a i l r y K - d f l r y K
 - b i k r y K + d g k r y K + a h n q y K - c f n q y K - a i m q y K
 + d f m q y K + c i k q y K - d h k q y K - b h n p y K + c g n p y K
 + b i m p y K - d g m p y K - c i l p y K + d h l p y K - a g m t x K
 + b f m t x K + a h l t x K - c f l t x K - b h k t x K + c g k t x K
 + a g o r x K - b f o r x K - a j l r x K + e f l r x K + b j k r x K
 - e g k r x K - a h o q x K + c f o q x K + a j m q x K - e f m q x K
 - c j k q x K + e h k q x K + b h o p x K - c g o p x K - b j m p x K
 + e g m p x K + c j l p x K - e h l p x K + a g n t w K - b f n t w K
 - a i l t w K + d f l t w K + b i k t w K - d g k t w K - a g o s w K
 + b f o s w K + a j l s w K - e f l s w K - b j k s w K + e g k s w K
 + a i o q w K - d f o q w K - a j n q w K + e f n q w K + d j k q w K
 - e i k q w K - b i o p w K + d g o p w K + b j n p w K - e g n p w K
 - d j l p w K + e i l p w K - a h n t v K + c f n t v K + a i m t v K
 - d f m t v K - c i k t v K + d h k t v K + a h o s v K - c f o s v K
 - a j m s v K + e f m s v K + c j k s v K - e h k s v K - a i o r v K
 + d f o r v K + a j n r v K - e f n r v K - d j k r v K + e i k r v K
 + c i o p v K - d h o p v K - c j n p v K + e h n p v K + d j m p v K
 - e i m p v K + b h n t u K - c g n t u K - b i m t u K + d g m t u K
 + c i l t u K - d h l t u K - b h o s u K + c g o s u K + b j m s u K
 - e g m s u K - c j l s u K + e h l s u K + b i o r u K - d g o r u K
 - b j n r u K + e g n r u K + d j l r u K - e i l r u K - c i o q u K
 + d h o q u K + c j n q u K - e h n q u K - d j m q u K + e i m q u K
 - a g m s E J + b f m s E J + a h l s E J - c f l s E J - b h k s E J
 + c g k s E J + a g n r E J - b f n r E J - a i l r E J + d f l r E J
 + b i k r E J - d g k r E J - a h n q E J + c f n q E J + a i m q E J
 - d f m q E J - c i k q E J + d h k q E J + b h n p E J - c g n p E J
 - b i m p E J + d g m p E J + c i l p E J - d h l p E J + a g m t D J
 - b f m t D J - a h l t D J + c f l t D J + b h k t D J - c g k t D J
 - a g o r D J + b f o r D J + a j l r D J - e f l r D J - b j k r D J
 + e g k r D J + a h o q D J - c f o q D J - a j m q D J + e f m q D J
 + c j k q D J - e h k q D J - b h o p D J + c g o p D J + b j m p D J
 - e g m p D J - c j l p D J + e h l p D J - a g n t C J + b f n t C J
 + a i l t C J - d f l t C J - b i k t C J + d g k t C J + a g o s C J
 - b f o s C J - a j l s C J + e f l s C J + b j k s C J - e g k s C J
 - a i o q C J + d f o q C J + a j n q C J - e f n q C J - d j k q C J
 + e i k q C J + b i o p C J - d g o p C J - b j n p C J + e g n p C J
 + d j l p C J - e i l p C J + a h n t B J - c f n t B J - a i m t B J
 + d f m t B J + c i k t B J - d h k t B J - a h o s B J + c f o s B J
 + a j m s B J - e f m s B J - c j k s B J + e h k s B J + a i o r B J
 - d f o r B J - a j n r B J + e f n r B J + d j k r B J - e i k r B J
 - c i o p B J + d h o p B J + c j n p B J - e h n p B J - d j m p B J
 + e i m p B J - b h n t A J + c g n t A J + b i m t A J - d g m t A J
 - c i l t A J + d h l t A J + b h o s A J - c g o s A J - b j m s A J
 + e g m s A J + c j l s A J - e h l s A J - b i o r A J + d g o r A J
 + b j n r A J - e g n r A J - d j l r A J + e i l r A J + c i o q A J
 - d h o q A J - c j n q A J + e h n q A J + d j m q A J - e i m q A J
 + a g m x E I - b f m x E I - a h l x E I + c f l x E I + b h k x E I
 - c g k x E I - a g n w E I + b f n w E I + a i l w E I - d f l w E I
 - b i k w E I + d g k w E I + a h n v E I - c f n v E I - a i m v E I
 + d f m v E I + c i k v E I - d h k v E I - b h n u E I + c g n u E I
 + b i m u E I - d g m u E I - c i l u E I + d h l u E I - a g m y D I
 + b f m y D I + a h l y D I - c f l y D I - b h k y D I + c g k y D I
 + a g o w D I - b f o w D I - a j l w D I + e f l w D I + b j k w D I
 - e g k w D I - a h o v D I + c f o v D I + a j m v D I - e f m v D I
 - c j k v D I + e h k v D I + b h o u D I - c g o u D I - b j m u D I
 + e g m u D I + c j l u D I - e h l u D I + a g n y C I - b f n y C I
 - a i l y C I + d f l y C I + b i k y C I - d g k y C I - a g o x C I
 + b f o x C I + a j l x C I - e f l x C I - b j k x C I + e g k x C I
 + a i o v C I - d f o v C I - a j n v C I + e f n v C I + d j k v C I
 - e i k v C I - b i o u C I + d g o u C I + b j n u C I - e g n u C I
 - d j l u C I + e i l u C I - a h n y B I + c f n y B I + a i m y B I
 - d f m y B I - c i k y B I + d h k y B I + a h o x B I - c f o x B I
 - a j m x B I + e f m x B I + c j k x B I - e h k x B I - a i o w B I
 + d f o w B I + a j n w B I - e f n w B I - d j k w B I + e i k w B I
 + c i o u B I - d h o u B I - c j n u B I + e h n u B I + d j m u B I
 - e i m u B I + b h n y A I - c g n y A I - b i m y A I + d g m y A I
 + c i l y A I - d h l y A I - b h o x A I + c g o x A I + b j m x A I
 - e g m x A I - c j l x A I + e h l x A I + b i o w A I - d g o w A I
 - b j n w A I + e g n w A I + d j l w A I - e i l w A I - c i o v A I
 + d h o v A I + c j n v A I - e h n v A I - d j m v A I + e i m v A I
 - a g r x E H + b f r x E H + a h q x E H - c f q x E H - b h p x E H
 + c g p x E H + a g s w E H - b f s w E H - a i q w E H + d f q w E H
 + b i p w E H - d g p w E H - a h s v E H + c f s v E H + a i r v E H
 - d f r v E H - c i p v E H + d h p v E H + b h s u E H - c g s u E H
 - b i r u E H + d g r u E H + c i q u E H - d h q u E H + a g r y D H
 - b f r y D H - a h q y D H + c f q y D H + b h p y D H - c g p y D H
 - a g t w D H + b f t w D H + a j q w D H - e f q w D H - b j p w D H
 + e g p w D H + a h t v D H - c f t v D H - a j r v D H + e f r v D H
 + c j p v D H - e h p v D H - b h t u D H + c g t u D H + b j r u D H
 - e g r u D H - c j q u D H + e h q u D H - a g s y C H + b f s y C H
 + a i q y C H - d f q y C H - b i p y C H + d g p y C H + a g t x C H
 - b f t x C H - a j q x C H + e f q x C H + b j p x C H - e g p x C H
 - a i t v C H + d f t v C H + a j s v C H - e f s v C H - d j p v C H
 + e i p v C H + b i t u C H - d g t u C H - b j s u C H + e g s u C H
 + d j q u C H - e i q u C H + a h s y B H - c f s y B H - a i r y B H
 + d f r y B H + c i p y B H - d h p y B H - a h t x B H + c f t x B H
 + a j r x B H - e f r x B H - c j p x B H + e h p x B H + a i t w B H
 - d f t w B H - a j s w B H + e f s w B H + d j p w B H - e i p w B H
 - c i t u B H + d h t u B H + c j s u B H - e h s u B H - d j r u B H
 + e i r u B H - b h s y A H + c g s y A H + b i r y A H - d g r y A H
 - c i q y A H + d h q y A H + b h t x A H - c g t x A H - b j r x A H
 + e g r x A H + c j q x A H - e h q x A H - b i t w A H + d g t w A H
 + b j s w A H - e g s w A H - d j q w A H + e i q w A H + c i t v A H
 - d h t v A H - c j s v A H + e h s v A H + d j r v A H - e i r v A H
 + a l r x E G - b k r x E G - a m q x E G + c k q x E G + b m p x E G
 - c l p x E G - a l s w E G + b k s w E G + a n q w E G - d k q w E G
 - b n p w E G + d l p w E G + a m s v E G - c k s v E G - a n r v E G
 + d k r v E G + c n p v E G - d m p v E G - b m s u E G + c l s u E G
 + b n r u E G - d l r u E G - c n q u E G + d m q u E G - a l r y D G
 + b k r y D G + a m q y D G - c k q y D G - b m p y D G + c l p y D G
 + a l t w D G - b k t w D G - a o q w D G + e k q w D G + b o p w D G
 - e l p w D G - a m t v D G + c k t v D G + a o r v D G - e k r v D G
 - c o p v D G + e m p v D G + b m t u D G - c l t u D G - b o r u D G
 + e l r u D G + c o q u D G - e m q u D G + a l s y C G - b k s y C G
 - a n q y C G + d k q y C G + b n p y C G - d l p y C G - a l t x C G
 + b k t x C G + a o q x C G - e k q x C G - b o p x C G + e l p x C G
 + a n t v C G - d k t v C G - a o s v C G + e k s v C G + d o p v C G
 - e n p v C G - b n t u C G + d l t u C G + b o s u C G - e l s u C G
 - d o q u C G + e n q u C G - a m s y B G + c k s y B G + a n r y B G
 - d k r y B G - c n p y B G + d m p y B G + a m t x B G - c k t x B G
 - a o r x B G + e k r x B G + c o p x B G - e m p x B G - a n t w B G
 + d k t w B G + a o s w B G - e k s w B G - d o p w B G + e n p w B G
 + c n t u B G - d m t u B G - c o s u B G + e m s u B G + d o r u B G
 - e n r u B G + b m s y A G - c l s y A G - b n r y A G + d l r y A G
 + c n q y A G - d m q y A G - b m t x A G + c l t x A G + b o r x A G
 - e l r x A G - c o q x A G + e m q x A G + b n t w A G - d l t w A G
 - b o s w A G + e l s w A G + d o q w A G - e n q w A G - c n t v A G
 + d m t v A G + c o s v A G - e m s v A G - d o r v A G + e n r v A G
 - f l r x E F + g k r x E F + f m q x E F - h k q x E F - g m p x E F
 + h l p x E F + f l s w E F - g k s w E F - f n q w E F + i k q w E F
 + g n p w E F - i l p w E F - f m s v E F + h k s v E F + f n r v E F
 - i k r v E F - h n p v E F + i m p v E F + g m s u E F - h l s u E F
 - g n r u E F + i l r u E F + h n q u E F - i m q u E F + f l r y D F
 - g k r y D F - f m q y D F + h k q y D F + g m p y D F - h l p y D F
 - f l t w D F + g k t w D F + f o q w D F - j k q w D F - g o p w D F
 + j l p w D F + f m t v D F - h k t v D F - f o r v D F + j k r v D F
 + h o p v D F - j m p v D F - g m t u D F + h l t u D F + g o r u D F
 - j l r u D F - h o q u D F + j m q u D F - f l s y C F + g k s y C F
 + f n q y C F - i k q y C F - g n p y C F + i l p y C F + f l t x C F
 - g k t x C F - f o q x C F + j k q x C F + g o p x C F - j l p x C F
 - f n t v C F + i k t v C F + f o s v C F - j k s v C F - i o p v C F
 + j n p v C F + g n t u C F - i l t u C F - g o s u C F + j l s u C F
 + i o q u C F - j n q u C F + f m s y B F - h k s y B F - f n r y B F
 + i k r y B F + h n p y B F - i m p y B F - f m t x B F + h k t x B F
 + f o r x B F - j k r x B F - h o p x B F + j m p x B F + f n t w B F
 - i k t w B F - f o s w B F + j k s w B F + i o p w B F - j n p w B F
 - h n t u B F + i m t u B F + h o s u B F - j m s u B F - i o r u B F
 + j n r u B F - g m s y A F + h l s y A F + g n r y A F - i l r y A F
 - h n q y A F + i m q y A F + g m t x A F - h l t x A F - g o r x A F
 + j l r x A F + h o q x A F - j m q x A F - g n t w A F + i l t w A F
 + g o s w A F - j l s w A F - i o q w A F + j n q w A F + h n t v A F
 - i m t v A F - h o s v A F + j m s v A F + i o r v A F - j n r v A F
(%i6) 

Related Help

Help for Matrix_size