Return to mat.texi CVS log

Up to [local] / OpenXM / src / asir-doc / int-parts / datatype

Annotation of OpenXM/src/asir-doc/int-parts/datatype/mat.texi, Revision 1.1

1.1     ! noro        1: @comment $OpenXM$
        !             2: @section $B9TNs(B
        !             3:
        !             4: @example
        !             5: struct oMAT @{          $B9TNs(B
        !             6:     short id;           $B<1JL;R(B (= O_MAT)
        !             7:     short pad;
        !             8:     pointer **body;      $B9T@.J,%]%$%s%?G[Ns$X$N%]%$%s%?(B
        !             9: @} *VECT;
        !            10: @end example
        !            11:
        !            12: @noindent
        !            13: $B9TNs$O(B, $B?t3XE*$JBP>]$H$7$F$N9TNs$H$7$FMQ$$$i$l$k$[$+(B, $B$5$^$6$^$J(Bobject
        !            14: $B$r@.J,$K;}$DFs<!85G[Ns$H$7$F$bMQ$$$i$l$k(B. $BA0<T$N>l9g(B, $B9TNs$I$&$7$NOB(B, $B:9(B,
        !            15: $B%9%+%i!<G\(B, $B9TNs(B, $B%Y%/%H%k$H$N@Q$,4pK\1i;;$H$7$FDs6!$5$l$k(B. $B%Y%/%H%k$H$N(B
        !            16: $B@Q$r7W;;$9$k>l9g(B, $B9TNs$r:8$+$i$+$1$k>l9g$K$O(B, $B%Y%/%H%k$ONs%Y%/%H%k(B, $B1&$+(B
        !            17: $B$i$+$1$k>l9g$K$O9T%Y%/%H%k$H8+$J$5$l$k(B.
        !            18:
        !            19: @subsection $B9TNs$N@8@.(B
        !            20: @example
        !            21: #include "ca.h"
        !            22:
        !            23: MKMAT(m,row,col)  (macro; MAT m; int row, col)
        !            24: row $B9T(B col $BNs$N9TNs(B m $B$r@8@.$9$k(B.
        !            25: @end example
        !            26:
        !            27: @subsection $B;MB'(B
        !            28: @example
        !            29: #include "ca.h"
        !            30:
        !            31: void addmat(VL vl,MAT a,MAT b,MAT *rp)
        !            32: *rp = a + b
        !            33:
        !            34: void submat(VL vl,MAT a,MAT b,MAT *rp)
        !            35: *rp = a - b
        !            36:
        !            37: void mulmat(VL vl,Obj a,Obj b,Obj *rp)
        !            38: *rp = a * b ($B%9%+%i!<G\(B, $B9TNs(B-$B%Y%/%H%k$N@Q(B, $B9TNs(B-$B9TNs$N@Q(B)
        !            39:
        !            40: void divmat(VL vl,Obj a,Obj b,Obj *rp)
        !            41: *rp = a / b ($B%9%+%i!<(B b $B$K$h$k=|;;(B)
        !            42:
        !            43: void pwrmat(VL vl,MAT a,Obj e,Obj *rp)
        !            44: *rp = a^e ($B@5J}9TNs(B a $B$N(B e $B>h(B)
        !            45:
        !            46: int compmat(VL vl,MAT a,MAT e)
        !            47: $B0J2<$G=R$Y$k=g=x$GHf3S(B.
        !            48: @end example
        !            49: @noindent
        !            50: $B9TNs$I$&$7$N=g=xHf3S$O0J2<$K$h$k(B.
        !            51: @enumerate
        !            52: @item $B9T?t$,Bg$-$$J}$,=g=x$,>e(B.
        !            53: @item $B9T?t$,Ey$7$$>l9g(B, $BNs?t$,Bg$-$$J}$,=g=x$,>e(B.
        !            54: @item $B%5%$%:$,Ey$7$$>l9g(B, $B@.J,$I$&$7$r:G=i$N9T$+$i(B, $B9T$N@hF,$+$iHf3S(B.
        !            55: @end enumerate
        !            56: