Annotation of OpenXM/src/asir-doc/parts/builtin/array.texi, Revision 1.1
1.1 ! noro 1: @node $BG[Ns(B,,, $BAH$_9~$_H!?t(B
! 2: @section $BG[Ns(B
! 3:
! 4: @menu
! 5: * newvect::
! 6: * vtol::
! 7: * newmat::
! 8: * size::
! 9: * det::
! 10: * qsort::
! 11: @end menu
! 12:
! 13: @node newvect,,, $BG[Ns(B
! 14: @subsection @code{newvect}
! 15: @findex newvect
! 16:
! 17: @table @t
! 18: @item newvect(@var{len}[,@var{list}])
! 19: :: $BD9$5(B @var{len} $B$N%Y%/%H%k$r@8@.$9$k(B.
! 20: @end table
! 21:
! 22: @table @var
! 23: @item return
! 24: $B%Y%/%H%k(B
! 25: @item len
! 26: $B<+A3?t(B
! 27: @item list
! 28: $B%j%9%H(B
! 29: @end table
! 30:
! 31: @itemize @bullet
! 32: @item
! 33: $BD9$5(B @var{len} $B$N%Y%/%H%k$r@8@.$9$k(B. $BBh(B 2 $B0z?t$,$J$$>l9g(B,
! 34: $B3F@.J,$O(B 0 $B$K=i4|2=$5$l$k(B. $BBh(B 2 $B0z?t$,$"$k>l9g(B,
! 35: $B%$%s%G%C%/%9$N>.$5$$@.J,$+$i(B, $B%j%9%H$N(B
! 36: $B3FMWAG$K$h$j=i4|2=$5$l$k(B. $B3FMWAG$O(B, $B@hF,$+$i=g$K(B
! 37: $B;H$o$l(B, $BB-$j$J$$J,$O(B 0 $B$,Kd$a$i$l$k(B.
! 38: @item
! 39: $B%Y%/%H%k$N@.J,$O(B, $BBh(B 0 $B@.J,$+$iBh(B @var{len}-1 $B@.J,$H$J$k(B.
! 40: ($BBh(B 1 $B@.J,$+$i$G$O$J$$;v$KCm0U(B. )
! 41: @item
! 42: $B%j%9%H$O3F@.J,$,(B, $B%]%$%s%?$rC)$k;v$K$h$C$F%7!<%1%s%7%c%k$K(B
! 43: $B8F$S=P$5$l$k$N$KBP$7(B, $B%Y%/%H%k$O3F@.J,$,(B
! 44: $BBh0l@.J,$+$i$N%a%b%j>e$N(B displacement ($BJQ0L(B)$B$K$h$C$F%i%s%@%`%"%/%;%9$G(B
! 45: $B8F$S=P$5$l(B, $B$=$N7k2L(B, $B@.J,$N%"%/%;%9;~4V$KBg$-$J:9$,=P$F$/$k(B.
! 46: $B@.J,%"%/%;%9$O(B, $B%j%9%H$G$O(B, $B@.J,$NNL$,A}$($k$K=>$C$F(B
! 47: $B;~4V$,$+$+$k$h$&$K$J$k$,(B, $B%Y%/%H%k$G$O(B, $B@.J,$NNL$K0MB8$;$:$[$\0lDj$G$"$k(B.
! 48: @item
! 49: @b{Asir} $B$G$O(B, $B=D%Y%/%H%k(B, $B2#%Y%/%H%k$N6hJL$O$J$$(B.
! 50: $B9TNs$r:8$+$i3]$1$l$P=D%Y%/%H%k$H$_$J$5$l$k$7(B, $B1&$+$i3]$1$l$P2#%Y%/%H%k$H(B
! 51: $B$_$J$5$l$k(B.
! 52: @item
! 53: $B%Y%/%H%k$ND9$5$O(B @code{size()} $B$K$h$C$FF@$i$l$k(B.
! 54: @item
! 55: $BH!?t$N0z?t$H$7$F%Y%/%H%k$rEO$7$?>l9g(B, $BEO$5$l$?H!?t$O(B, $B$=$N%Y%/%H%k$N@.J,(B
! 56: $B$r=q$-49$($k$3$H$,$G$-$k(B.
! 57: @end itemize
! 58:
! 59: @example
! 60: [0] A=newvect(5);
! 61: [ 0 0 0 0 0 ]
! 62: [1] A=newvect(5,[1,2,3,4,[5,6]]);
! 63: [ 1 2 3 4 [5,6] ]
! 64: [2] A[0];
! 65: 1
! 66: [3] A[4];
! 67: [5,6]
! 68: [4] size(A);
! 69: [5]
! 70: [5] def afo(V) @{ V[0] = x; @}
! 71: [6] afo(A)$
! 72: [7] A;
! 73: [ x 2 3 4 [5,6] ]
! 74: @end example
! 75:
! 76: @table @t
! 77: @item $B;2>H(B
! 78: @fref{newmat}, @fref{size}.
! 79: @end table
! 80:
! 81: @node vtol,,, $BG[Ns(B
! 82: @subsection @code{vtol}
! 83: @findex vtol
! 84:
! 85: @table @t
! 86: @item vtol(@var{vect})
! 87: :: $B%Y%/%H%k$r%j%9%H$KJQ49$9$k(B.
! 88: @end table
! 89:
! 90: @table @var
! 91: @item return
! 92: $B%j%9%H(B
! 93: @item vect
! 94: $B%Y%/%H%k(B
! 95: @end table
! 96:
! 97: @itemize @bullet
! 98: @item
! 99: $BD9$5(B @var{n} $B$N%Y%/%H%k(B @var{vect} $B$r(B
! 100: @code{[@var{vect}[0],...,@var{vect}[@var{n}-1]]} $B$J$k%j%9%H$KJQ49$9$k(B.
! 101: @item
! 102: $B%j%9%H$+$i%Y%/%H%k$X$NJQ49$O(B @code{newvect()} $B$G9T$&(B.
! 103: @end itemize
! 104:
! 105: @example
! 106: [3] A=newvect(3,[1,2,3]);
! 107: [ 1 2 3 ]
! 108: [4] vtol(A);
! 109: [1,2,3]
! 110: @end example
! 111:
! 112: @table @t
! 113: @item $B;2>H(B
! 114: @fref{newvect}.
! 115: @end table
! 116:
! 117: @node newmat,,, $BG[Ns(B
! 118: @subsection @code{newmat}
! 119: @findex newmat
! 120:
! 121: @table @t
! 122: @item newmat(@var{row},@var{col} [,@var{[[a,b,}...@var{],[c,d,}...@var{],}...@var{]}])
! 123: :: @var{row} $B9T(B @var{col} $BNs$N9TNs$r@8@.$9$k(B.
! 124: @end table
! 125:
! 126: @table @var
! 127: @item return
! 128: $B9TNs(B
! 129: @item row,col
! 130: $B<+A3?t(B
! 131: @item a,b,c,d
! 132: $BG$0U(B
! 133: @end table
! 134:
! 135: @itemize @bullet
! 136: @item
! 137: @var{row} $B9T(B @var{col} $BNs$N9TNs$r@8@.$9$k(B. $BBh(B 3 $B0z?t$,$J$$>l9g(B,
! 138: $B3F@.J,$O(B 0 $B$K=i4|2=$5$l$k(B. $BBh(B 3 $B0z?t$,$"$k>l9g(B,
! 139: $B%$%s%G%C%/%9$N>.$5$$@.J,$+$i(B, $B3F9T$,(B, $B%j%9%H$N(B
! 140: $B3FMWAG(B ($B$3$l$O$^$?%j%9%H$G$"$k(B) $B$K$h$j=i4|2=$5$l$k(B. $B3FMWAG$O(B, $B@hF,$+$i=g$K(B
! 141: $B;H$o$l(B, $BB-$j$J$$J,$O(B 0 $B$,Kd$a$i$l$k(B.
! 142: @item
! 143: $B9TNs$N%5%$%:$O(B @code{size()} $B$GF@$i$l$k(B.
! 144: @item
! 145: @code{M} $B$,9TNs$N$H$-(B, @code{M[I]} $B$K$h$jBh(B @code{I} $B9T$r%Y%/%H%k$H$7$F(B
! 146: $B<h$j=P$9$3$H$,$G$-$k(B. $B$3$N%Y%/%H%k$O(B, $B$b$H$N9TNs$H@.J,$r6&M-$7$F$*$j(B,
! 147: $B$$$:$l$+$N@.J,$r=q$-49$($l$P(B, $BB>$NBP1~$9$k@.J,$b=q$-49$o$k$3$H$K$J$k(B.
! 148: @item
! 149: $BH!?t$N0z?t$H$7$F9TNs$rEO$7$?>l9g(B, $BEO$5$l$?H!?t$O(B, $B$=$N9TNs$N@.J,(B
! 150: $B$r=q$-49$($k$3$H$,$G$-$k(B.
! 151: @end itemize
! 152:
! 153: @example
! 154: [0] A = newmat(3,3,[[1,1,1],[x,y],[x^2]]);
! 155: [ 1 1 1 ]
! 156: [ x y 0 ]
! 157: [ x^2 0 0 ]
! 158: [1] det(A);
! 159: -y*x^2
! 160: [2] size(A);
! 161: [3,3]
! 162: [3] A[1];
! 163: [ x y 0 ]
! 164: [4] A[1][3];
! 165: getarray : Out of range
! 166: return to toplevel
! 167: @end example
! 168:
! 169: @table @t
! 170: @item $B;2>H(B
! 171: @fref{newvect}, @fref{size}, @fref{det}.
! 172: @end table
! 173:
! 174: @node size,,, $BG[Ns(B
! 175: @subsection @code{size}
! 176: @findex size
! 177:
! 178: @table @t
! 179: @item size(@var{vect|mat})
! 180: :: @code{[@var{vect} $B$ND9$5(B]} $B$^$?$O(B @code{[@var{mat} $B$N9T?t(B,@var{mat} $B$NNs?t(B]}.
! 181: @end table
! 182:
! 183: @table @var
! 184: @item return
! 185: $B%j%9%H(B
! 186: @item vect
! 187: $B%Y%/%H%k(B
! 188: @item mat
! 189: $B9TNs(B
! 190: @end table
! 191:
! 192: @itemize @bullet
! 193: @item
! 194: @var{vect} $BKt$O(B, @var{mat} $B$N%5%$%:$r%j%9%H$G=PNO$9$k(B.
! 195: @item
! 196: @var{list} $B$N%5%$%:$O(B @code{length()}$B$r(B, $BM-M}<0$K8=$l$kC19`<0$N?t$O(B @code{nmono()} $B$rMQ$$$k(B.
! 197: @end itemize
! 198:
! 199: @example
! 200: [0] A = newvect(4);
! 201: [ 0 0 0 0 ]
! 202: [1] size(A);
! 203: [4]
! 204: [2] B = newmat(2,3,[[1,2,3],[4,5,6]]);
! 205: [ 1 2 3 ]
! 206: [ 4 5 6 ]
! 207: [3] size(B);
! 208: [2,3]
! 209: @end example
! 210:
! 211: @table @t
! 212: @item $B;2>H(B
! 213: @fref{car cdr cons append reverse length}, @fref{nmono}.
! 214: @end table
! 215:
! 216: @node det,,, $BG[Ns(B
! 217: @subsection @code{det}
! 218: @findex det
! 219:
! 220: @table @t
! 221: @item det(@var{mat}[,@var{mod}])
! 222: :: @var{mat} $B$N9TNs<0$r5a$a$k(B.
! 223: @end table
! 224:
! 225: @table @var
! 226: @item return
! 227: $B<0(B
! 228: @item mat
! 229: $B9TNs(B
! 230: @item mod
! 231: $BAG?t(B
! 232: @end table
! 233:
! 234: @itemize @bullet
! 235: @item
! 236: $B9TNs(B @var{mat} $B$N9TNs<0$r5a$a$k(B.
! 237: @item
! 238: $B0z?t(B @var{mod} $B$,$"$k;~(B, GF(@var{mod}) $B>e$G$N9TNs<0$r5a$a$k(B.
! 239: @item
! 240: $BJ,?t$J$7$N%,%&%9>C5nK!$K$h$C$F$$$k$?$a(B, $BB?JQ?tB?9`<0$r@.J,$H$9$k(B
! 241: $B9TNs$KBP$7$F$O>.9TNs<0E83+$K$h$kJ}K!$N$[$&$,8zN($,$h$$>l9g$b$"$k(B.
! 242: @end itemize
! 243:
! 244: @example
! 245: [91] A=newmat(5,5)$
! 246: [92] V=[x,y,z,u,v];
! 247: [x,y,z,u,v]
! 248: [93] for(I=0;I<5;I++)for(J=0,B=A[I],W=V[I];J<5;J++)B[J]=W^J;
! 249: [94] A;
! 250: [ 1 x x^2 x^3 x^4 ]
! 251: [ 1 y y^2 y^3 y^4 ]
! 252: [ 1 z z^2 z^3 z^4 ]
! 253: [ 1 u u^2 u^3 u^4 ]
! 254: [ 1 v v^2 v^3 v^4 ]
! 255: [95] fctr(det(A));
! 256: [[1,1],[u-v,1],[-z+v,1],[-z+u,1],[-y+u,1],[y-v,1],[-y+z,1],[-x+u,1],[-x+z,1],
! 257: [-x+v,1],[-x+y,1]]
! 258: @end example
! 259:
! 260: @table @t
! 261: @item $B;2>H(B
! 262: @fref{newmat}.
! 263: @end table
! 264:
! 265: @node qsort,,, $BG[Ns(B
! 266: @subsection @code{qsort}
! 267: @findex qsort
! 268:
! 269: @table @t
! 270: @item qsort(@var{array}[,@var{func}])
! 271: :: $B0l<!85G[Ns(B @var{array} $B$r%=!<%H$9$k(B.
! 272: @end table
! 273:
! 274: @table @var
! 275: @item return
! 276: @var{array} ($BF~NO$HF1$8(B; $BMWAG$N$_F~$lBX$o$k(B)
! 277: @item array
! 278: $B0l<!85G[Ns(B
! 279: @item func
! 280: $BHf3SMQ4X?t(B
! 281: @end table
! 282:
! 283: @itemize @bullet
! 284: @item
! 285: $B0l<!85G[Ns$r(B quick sort $B$G%=!<%H$9$k(B.
! 286: @item
! 287: $BHf3SMQ4X?t$,;XDj$5$l$F$$$J$$>l9g(B, $B%*%V%8%'%/%H$I$&$7$NHf3S7k2L$G(B
! 288: $B=g=x$,2<$N$b$N$+$i=g$KJB$Y49$($i$l$k(B.
! 289: @item
! 290: 0, 1, -1 $B$rJV$9(B 2 $B0z?t4X?t$,(B @var{func} $B$H$7$FM?$($i$l$?>l9g(B,
! 291: @code{@var{func}(A,B)=1} $B$N>l9g$K(B @code{A<B} $B$H$7$F(B, $B=g=x$,2<$N(B
! 292: $B$b$N$+$i=g$KJB$Y49$($i$l$k(B.
! 293: @item
! 294: $BG[Ns$O?7$?$K@8@.$5$l$:(B, $B0z?t$NG[Ns$NMWAG$N$_F~$lBX$o$k(B.
! 295: @end itemize
! 296:
! 297: @example
! 298: [0] qsort(newvect(10,[1,4,6,7,3,2,9,6,0,-1]));
! 299: [ -1 0 1 2 3 4 6 6 7 9 ]
! 300: [1] def rev(A,B) @{ return A>B?-1:(A<B?1:0); @}
! 301: [2] qsort(newvect(10,[1,4,6,7,3,2,9,6,0,-1]),rev);
! 302: [ 9 7 6 6 4 3 2 1 0 -1 ]
! 303: @end example
! 304:
! 305: @table @t
! 306: @item $B;2>H(B
! 307: @fref{ord}, @fref{vars}.
! 308: @end table
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to array.texi CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / asir-doc / parts / builtin