Return to Matrix.texi CVS log

Up to [local] / OpenXM / src / asir-contrib / packages / doc

Makefile to generate html help files for asir-contrib.

@c $OpenXM: OpenXM/src/asir-contrib/packages/doc/Matrix.texi,v 1.5 2001/06/24 10:26:43 takayama Exp $
@node Matrix operations (library by Okutani),,, Top
@chapter Matrix operations (library by Okutani)
$B%U%!%$%k(B @file{gr} $B$,I,MW$G$9(B.  

Yukio Okutani $B;a$K$h$k(B Risa/Asir $B8@8l$G=q$+$l$?9TNs7W;;MQ$N%i%$%V%i%j$G$9(B.
$B$9$Y$F$N4X?tL>$O(B omatrix_ $B$G;O$^$j$^$9(B. 

@menu
* omatrix_1::
* omatrix_diag::
* omatrix_trans::
* omatrix_inverse::
* omatrix_solve::
* omatrix_kernel::
@end menu

@node omatrix_1,,, Matrix operations (library by Okutani)
@subsection @code{omatrix_1}
@findex omatrix_1
@table @t
@item omatrix_1(@var{N})
::  @var{N} $B<!C10L9TNs$r@8@.$7$^$9(B.
@end table
@table @var
@item return
$B9TNs(B
@item N
$B@0?t(B
@end table
@itemize @bullet
@item  @code{omatrix_1}$B$NNc(B.
@end itemize
@example
[297] omatrix_1(1);
[ 1 ]

[298] omatrix_1(2);
[ 1 0 ]
[ 0 1 ]

[299] omatrix_1(3);
[ 1 0 0 ]
[ 0 1 0 ]
[ 0 0 1 ]
@end example

@node omatrix_diag,,, Matrix operations (library by Okutani)
@subsection @code{omatrix_diag}
@findex omatrix_diag
@table @t
@item omatrix_diag(@var{L})
::  $B%j%9%H(B @var{L} $B$NMWAG$rBP3Q@.J,$H$9$kBP3Q9TNs$r@8@.$7$^$9(B.
@end table
@table @var
@item return
$B9TNs(B
@item L
$B%j%9%H(B
@end table
@itemize @bullet
@item  @code{omatrix_diag}$B$NNc(B.
@end itemize
@example
[301] omatrix_diag([1,2,3]);
[ 1 0 0 ]
[ 0 2 0 ]
[ 0 0 3 ]

[302] omatrix_diag([a,b,c]);
[ a 0 0 ]
[ 0 b 0 ]
[ 0 0 c ]
@end example

@node omatrix_trans,,, Matrix operations (library by Okutani)
@subsection @code{omatrix_trans}
@findex omatrix_trans
@table @t
@item omatrix_trans(@var{A})
::  $B9TNs(B @var{A} $B$NE>CV9TNs$r5a$a$^$9(B.
@end table
@table @var
@item return
$B9TNs(B
@item A
$B9TNs(B or $B%j%9%H(B
@end table
@itemize @bullet
@item  @code{omatrix_trans}$B$NNc(B.
@end itemize
@example
[303] omatrix_trans([[a,b],[c,d]]);
[ a c ]
[ b d ]

[304] omatrix_trans([[1,2,3],[4,5,6],[7,8,9]]);
[ 1 4 7 ]
[ 2 5 8 ]
[ 3 6 9 ]
@end example

@node omatrix_inverse,,, Matrix operations (library by Okutani)
@subsection @code{omatrix_inverse}
@findex omatrix_inverse
@table @t
@item omatrix_inverse(@var{A})
::  $B9TNs(B @var{A} $B$N5U9TNs$r5a$a$^$9(B.
@end table
@table @var
@item return
$B9TNs(B
@item A
$B9TNs(B or $B%j%9%H(B
@end table
@itemize @bullet
@item $B9TNs(B @var{A} $B$N@.J,$OM-M}?t(B or $BB?9`<0(B.
@item @code{omatrix_inverse}$B$NNc(B.
@end itemize
@example
[309] omatrix_inverse([[1,1],[1,2]]);
[ 2 -1 ]
[ -1 1 ]

[310] omatrix_inverse([[a,b],[c,d]]);
[ (d)/(d*a-c*b) (-b)/(d*a-c*b) ]
[ (-c)/(d*a-c*b) (a)/(d*a-c*b) ]
@end example

@node omatrix_solve,,, Matrix operations (library by Okutani)
@subsection @code{omatrix_solve}
@findex omatrix_solve
@table @t
@item omatrix_solve(@var{A},@var{X},@var{Y})
::  @code{omatrix_solve}$B$OJ}Dx<0(B A*X=Y $B$N2r$r5a$a$^$9(B.
@end table
@table @var
@item return
$B%j%9%H(B
@item A
$B9TNs(B or $B%j%9%H(B
@item X
$B%Y%/%H%k(B or $B%j%9%H(B
@item Y
$B%Y%/%H%k(B or $B%j%9%H(B
@end table
@itemize @bullet
@item $B9TNs(B @var{A} $B$N@.J,$OM-M}?t(B or $BB?9`<0(B.
@item  @code{omatrix_solve}$B$NNc(B.
@end itemize
@example
[376] omatrix_solve([[1,-1],[2,3]],[x,y],[1,1]);
[[x,4/5],[y,-1/5]]

[377] omatrix_solve([[a,b],[c,d]],[x,y],[1,1]);
[[x,(-b+d)/(d*a-c*b)],[y,(a-c)/(d*a-c*b)]]
@end example

@node omatrix_kernel,,, Matrix operations (library by Okutani)
@subsection @code{omatrix_kernel}
@findex omatrix_kernel
@table @t
@item omatrix_kernel(@var{A})
::  @code{omatrix_kernel}$B$O9TNs(B A $B$N(B kernel $B$N4pDl$r5a$a$^$9(B.
@end table
@table @var
@item return
$B%j%9%H(B
@item A
$B9TNs(B or $B%j%9%H(B
@end table
@itemize @bullet
@item $B9TNs(B @var{A} $B$N@.J,$OM-M}?t(B or $BB?9`<0(B.
@item  @code{omatrix_kernel}$B$NNc(B.
@end itemize
@example
[383] omatrix_kernel([[1,2,3,4],[1,0,1,0]]);
[2,[[1,0,-1,1/2],[0,1,0,-1/2]]]

[384] omatrix_kernel([[1,2,3,4],[1,0,1,0],[0,0,0,1]]);
[1,[[1,1,-1,0]]]
@end example