Sponsored links: Algebra eBooks
 

Related

matrix_size

? matrix_size;

Calculate

matrix_size

? matrix_size;

Calculate

matrix_size

Run Example
(%i1)biclase_2D(g,x):=block(etiqueta,size,size:part(matrix_size(x),1),for i:1 thru size do (if g(x[i,1],y) >
 x[i,2] then etiqueta[i]:1 else etiqueta[i]:-1),etiqueta);
(%o1) biclase_2D(g, x) := block(etiqueta, size, 
size : part(matrix_size(x), 1), for i thru size 
do if g(x    , y) > x     then etiqueta  : 1 else etiqueta  : - 1, etiqueta)
         i, 1        i, 2              i                  i
(%i2) etiqueta;
(%o2)                              etiqueta
(%i3) datos:matrix([1,1],[1.5,0],[1,0],[0.5,0],[0.5,0.5]);
                                 [  1    1  ]
                                 [          ]
                                 [ 1.5   0  ]
                                 [          ]
(%o3)                            [  1    0  ]
                                 [          ]
                                 [ 0.5   0  ]
                                 [          ]
                                 [ 0.5  0.5 ]
(%i4) f(x,y):=1-x^2+y=0;
                                           2
(%o4)                      f(x, y) := 1 - x  + y = 0
(%i5) biclase_2D(f,datos);
(%o5)                              etiqueta
(%i6) 
Run Example
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
biclase_2D(g,x):=block(etiqueta,size,y0,size:part(matrix_size(x),1),for i:1 thru size do (solve(g(x[i,1],y),y),if y >
 x[i,2] then etiqueta[i-1]:1 else etiqueta[i-1]:-1),etiqueta);
(%o1) biclase_2D(g, x) := block(etiqueta, size, y0, 
size : part(matrix_size(x), 1), for i thru size 
do (solve(g(x    , y), y), if y > x     then etiqueta      : 1
             i, 1                  i, 2              i - 1
 else etiqueta      : - 1), etiqueta)
              i - 1
(%i2) datos:matrix([1,1],[1.5,0],[1,0],[0.5,0],[0.5,0.5]);
                                 [  1    1  ]
                                 [          ]
                                 [ 1.5   0  ]
                                 [          ]
(%o2)                            [  1    0  ]
                                 [          ]
                                 [ 0.5   0  ]
                                 [          ]
                                 [ 0.5  0.5 ]
(%i3) f(x,y):=1-x-y=0;
(%o3)                      f(x, y) := 1 - x - y = 0
(%i4) a:f(datos[1,1],y);
(%o4)                               - y = 0
(%i5) a;
(%o5)                               - y = 0
(%i6) biclase_2D(f,datos);

rat: replaced -0.5 by -1/2 = -0.5

rat: replaced 0.5 by 1/2 = 0.5

rat: replaced 0.5 by 1/2 = 0.5
(%o6)                              etiqueta
(%i7) for i:0 thru 4 do disp (etiqueta[i]);
                                   etiqueta
                                           0

                                   etiqueta
                                           1

                                   etiqueta
                                           2

                                   etiqueta
                                           3

                                   etiqueta
                                           4

(%o7)                                done
(%i8) 

Related Help

Help for Matrix_size