[BACK]Return to appendix.texi CVS log [TXT][DIR] Up to [local] / OpenXM / src / asir-doc / parts

Annotation of OpenXM/src/asir-doc/parts/appendix.texi, Revision 1.7

1.7     ! noro        1: @comment $OpenXM: OpenXM/src/asir-doc/parts/appendix.texi,v 1.6 2000/03/17 08:27:28 noro Exp $
1.3       noro        2: \BJP
1.1       noro        3: @node $BIUO?(B,,, Top
                      4: @appendix $BIUO?(B
1.3       noro        5: \E
                      6: \BEG
                      7: @node Appendix,,, Top
                      8: @appendix Appendix
                      9: \E
1.1       noro       10:
                     11: @menu
1.3       noro       12: \BJP
1.1       noro       13: * $BJ8K!$N>\:Y(B::
                     14: * $BE:IU$N%f!<%6Dj5AH!?t%U%!%$%k(B::
                     15: * $BF~NO%$%s%?%U%'!<%9(B::
1.6       noro       16: * $B%i%$%V%i%j%$%s%?%U%'!<%9(B::
1.1       noro       17: * $BJQ99E@(B::
                     18: * $BJ88%(B::
1.3       noro       19: \E
                     20: \BEG
                     21: * Details of syntax::
                     22: * Files of user defined functions::
                     23: * Input interfaces::
1.6       noro       24: * Library interfaces::
1.3       noro       25: * Changes::
                     26: * References::
                     27: \E
1.1       noro       28: @end menu
                     29:
1.3       noro       30: \BJP
1.1       noro       31: @node $BJ8K!$N>\:Y(B,,, $BIUO?(B
                     32: @section $BJ8K!$N>\:Y(B
1.3       noro       33: \E
                     34: \BEG
                     35: @node Details of syntax,,, Appendix
                     36: @section Details of syntax
                     37: \E
1.1       noro       38:
                     39: @example
1.3       noro       40: \BJP
                     41: <$B<0(B>:
1.1       noro       42:     @samp{(}<$B<0(B>@samp{)}
                     43:     <$B<0(B> <$BFs9`1i;;;R(B> <$B<0(B>
                     44:     @samp{+} <$B<0(B>
                     45:     @samp{-} <$B<0(B>
                     46:     <$B:8JUCM(B>
                     47:     <$B:8JUCM(B> <$BBeF~1i;;;R(B> <$B<0(B>
                     48:     <$B:8JUCM(B> @samp{++}
                     49:     <$B:8JUCM(B> @samp{--}
                     50:     @samp{++} <$B:8JUCM(B>
                     51:     @samp{--} <$B:8JUCM(B>
                     52:     @samp{!} <$B<0(B>
                     53:     <$B<0(B> @samp{?} <$B<0(B> @samp{:} <$B<0(B>
                     54:     <$BH!?t(B> @samp{(} <$B<0JB$S(B> @samp{)}
1.2       noro       55:     <$BH!?t(B> @samp{(} <$B<0JB$S(B> @samp{|} <$B%*%W%7%g%sJB$S(B> @samp{)}
1.1       noro       56:     <$BJ8;zNs(B>
                     57:     <$B;X?t%Y%/%H%k(B>
                     58:     <$B%"%H%`(B>
                     59:     <$B%j%9%H(B>
1.3       noro       60: \E
                     61: \BEG
                     62: <expression>:
                     63:     @samp{(}<expression>@samp{)}
                     64:     <expression> <binary operator> <expression>
                     65:     @samp{+} <expression>
                     66:     @samp{-} <expression>
                     67:     <left value>
                     68:     <left value> <assignment operator> <expression>
                     69:     <left value> @samp{++}
                     70:     <left value> @samp{--}
                     71:     @samp{++} <left value>
                     72:     @samp{--} <left value>
                     73:     @samp{!} <expression>
                     74:     <expression> @samp{?} <expression> @samp{:} <expression>
                     75:     <function> @samp{(} <expr list> @samp{)}
                     76:     <function> @samp{(} <expr list> @samp{|} <option list> @samp{)}
                     77:     <string>
                     78:     <exponent vector>
                     79:     <atom>
                     80:     <list>
                     81: \E
1.1       noro       82: @end example
1.3       noro       83: \JP (@xref{$B$5$^$6$^$J<0(B})
                     84: \EG (@xref{various expressions})
1.1       noro       85:
                     86: @example
1.3       noro       87: \BJP
1.1       noro       88: <$B:8JUCM(B>:
                     89:     <$BJQ?t(B> [@samp{[}<$B<0(B>@samp{]}]*
1.3       noro       90: \E
                     91: \BEG
                     92: <left value>:
                     93:     <program variable> [@samp{[}<expression>@samp{]}]*
                     94: \E
1.1       noro       95: @end example
                     96:
                     97: @example
1.3       noro       98: \BJP
1.1       noro       99: <$BFs9`1i;;;R(B>:
                    100:     @samp{+} @samp{-} @samp{*} @samp{/} @samp{%} @samp{^}($BQQ(B)
1.3       noro      101: \E
                    102: \BEG
                    103: <binary operator>:
                    104:     @samp{+} @samp{-} @samp{*} @samp{/} @samp{%} @samp{^}(exponentiation)
                    105:     @samp{==} @samp{!=} @samp{<} @samp{>} @samp{<=} @samp{>=} @samp{&&} @samp{||}
                    106: \E
1.1       noro      107:     @samp{==} @samp{!=} @samp{<} @samp{>} @samp{<=} @samp{>=} @samp{&&} @samp{||}
                    108: @end example
                    109:
                    110: @example
1.3       noro      111: \JP <$BBeF~1i;;;R(B>:
                    112: \EG <assignment operator>:
1.1       noro      113:     @samp{=} @samp{+=} @samp{-=} @samp{*=} @samp{/=} @samp{%=} @samp{^=}
                    114: @end example
                    115:
                    116: @example
1.3       noro      117: \BJP
1.1       noro      118: <$B<0JB$S(B>:
                    119:     <$B6u(B>
                    120:     <$B<0(B> [@samp{,} <$B<0(B>]*
1.3       noro      121: \E
                    122: \BEG
                    123: <expr list>:
                    124:     <empty>
                    125:     <expression> [@samp{,} <expression>]*
                    126: \E
1.1       noro      127: @end example
1.2       noro      128:
                    129: @example
1.3       noro      130: \BJP
1.2       noro      131: <$B%*%W%7%g%s(B>:
1.3       noro      132:     alphabet $B$G;O$^$kJ8;zNs(B @samp{=} <$B<0(B>
                    133: \E
                    134: \BEG
                    135: <option>:
                    136:     Character sequence beginning with an alphabetical letter @samp{=} <expression>
                    137: \E
1.2       noro      138: @end example
                    139:
                    140: @example
1.3       noro      141: \BJP
1.2       noro      142: <$B%*%W%7%g%sJB$S(B>:
                    143:     <$B%*%W%7%g%s(B>
                    144:     <$B%*%W%7%g%s(B> [@samp{,} <$B%*%W%7%g%s(B>]*
1.3       noro      145: \E
                    146: \BEG
                    147: <option list>:
                    148:     <option>
                    149:     <option> [@samp{,} <option>]*
                    150: \E
1.2       noro      151: @end example
                    152:
1.1       noro      153:
                    154: @example
1.3       noro      155: \BJP
1.1       noro      156: <$B%j%9%H(B>:
                    157:     @samp{[} <$B<0JB$S(B> @samp{]}
1.3       noro      158: \E
                    159: \BEG
                    160: <list>:
                    161:     @samp{[} <expr list> @samp{]}
                    162: \E
1.1       noro      163: @end example
                    164:
                    165: @example
1.3       noro      166: \BJP
                    167: <$BJQ?t(B>:
1.1       noro      168:     $BBgJ8;z$G;O$^$kJ8;zNs(B (X,Y,Japan $B$J$I(B)
1.3       noro      169: \E
                    170: \BEG
                    171: <program variable>:
                    172:    Sequence of alphabetical letters or numeric digits or @code{_}
                    173:    that begins with a capital alphabetical letter
                    174:    (X,Y,Japan etc.)
                    175: \E
1.1       noro      176: @end example
1.3       noro      177: \JP (@xref{$BJQ?t$*$h$SITDj85(B})
                    178: \EG (@xref{variables and indeterminates})
1.1       noro      179:
                    180: @example
1.3       noro      181: \BJP
1.1       noro      182: <$BH!?t(B>:
                    183:    $B>.J8;z$G;O$^$kJ8;zNs(B (fctr,gcd $B$J$I(B)
1.3       noro      184: \E
                    185: \BEG
                    186: <function>:
                    187:    Sequence of alphabetical letters or numeric digits or @code{_}
                    188:    that begins with a small alphabetical letter
                    189:    (fctr,gcd etc.)
                    190: \E
1.1       noro      191: @end example
                    192:
                    193: @example
1.3       noro      194: \BJP
1.1       noro      195: <$B%"%H%`(B>:
                    196:    <$BITDj85(B>
                    197:    <$B?t(B>
1.3       noro      198: \E
                    199: \BEG
                    200: <atom>:
                    201:    <indeterminate>
                    202:    <number>
                    203: \E
1.1       noro      204: @end example
                    205:
                    206: @example
1.3       noro      207: \BJP
                    208: <$BITDj85(B>:
1.1       noro      209:    $B>.J8;z$G;O$^$kJ8;zNs(B (a,bCD,c1_2 $B$J$I(B)
1.3       noro      210: \E
                    211: \BEG
                    212: <indeterminate>:
                    213:    Sequence of alphabetical letters or numeric digits or @code{_}
                    214:    that begin with a small alphabetical letter
                    215:    (a,bCD,c1_2 etc.)
                    216: \E
1.1       noro      217: @end example
1.3       noro      218: \JP (@xref{$BJQ?t$*$h$SITDj85(B})
                    219: \EG (@xref{variables and indeterminates})
1.1       noro      220:
                    221: @example
1.3       noro      222: \BJP
                    223: <$B?t(B>:
1.1       noro      224:    <$BM-M}?t(B>
                    225:    <$BIbF0>.?t(B>
                    226:    <$BBe?tE*?t(B>
                    227:    <$BJ#AG?t(B>
1.3       noro      228: \E
                    229: \BEG
                    230: <number>:
                    231:    <rational number>
                    232:    <floating point number>
                    233:    <algebraic number>
                    234:    <complex number>
                    235: \E
1.1       noro      236: @end example
1.3       noro      237: \JP (@xref{$B?t$N7?(B})
                    238: \EG (@xref{Types of numbers})
1.1       noro      239:
                    240: @example
1.3       noro      241: \JP <$BM-M}?t(B>:
                    242: \EG <rational number>:
1.1       noro      243:    0, 1, -2, 3/4
                    244: @end example
                    245:
                    246: @example
1.3       noro      247: \JP <$BIbF0>.?t(B>:
                    248: \EG <floating point number>:
1.1       noro      249:    0.0, 1.2e10
                    250: @end example
                    251:
                    252: @example
1.3       noro      253: \JP <$BBe?tE*?t(B>:
                    254: \EG <algebraic number>:
1.1       noro      255:    newalg(x^2+1), alg(0)^2+1
                    256: @end example
1.3       noro      257: \JP (@xref{$BBe?tE*?t$K4X$9$k1i;;(B})
                    258: \EG (@xref{Algebraic numbers})
1.1       noro      259:
                    260: @example
1.3       noro      261: \JP <$BJ#AG?t(B>:
                    262: \EG <complex number>:
1.1       noro      263:    1+@code{@@i}, 2.3*@code{@@i}
                    264: @end example
                    265:
                    266: @example
1.3       noro      267: \BJP
1.1       noro      268: <$BJ8;zNs(B>:
                    269:    @samp{"} $B$G0O$^$l$?J8;zNs(B
1.3       noro      270: \E
                    271: \BEG
                    272: <string>:
                    273:    character sequence enclosed by two @samp{"}'s.
                    274: \E
1.1       noro      275: @end example
                    276:
                    277: @example
1.3       noro      278: \BJP
                    279: <$B;X?t%Y%/%H%k(B>:
1.1       noro      280:    @samp{<<} <$B<0JB$S(B> @samp{>>}
1.3       noro      281: \E
                    282: \BEG
                    283: <exponent vector>:
                    284:    @samp{<<} <expr list> @samp{>>}
                    285: \E
1.1       noro      286: @end example
1.3       noro      287: \JP (@xref{$B%0%l%V%J4pDl$N7W;;(B})
                    288: \EG (@xref{Groebner basis computation})
1.1       noro      289:
                    290: @example
1.3       noro      291: \BJP
                    292: <$BJ8(B>:
1.1       noro      293:     <$B<0(B> <$B=*C<(B>
                    294:     <$BJ#J8(B>
                    295:     @samp{break} <$B=*C<(B>
                    296:     @samp{continue} <$B=*C<(B>
                    297:     @samp{return} <$B=*C<(B>
                    298:     @samp{return} <$B<0(B> <$B=*C<(B>
                    299:     @samp{if} @samp{(} <$B<0JB$S(B> @samp{)} <$BJ8(B>
                    300:     @samp{if} @samp{(} <$B<0JB$S(B> @samp{)} <$BJ8(B> @samp{else} <$BJ8(B>
                    301:     @samp{for} @samp{(} <$B<0JB$S(B> @samp{;} <$B<0JB$S(B> @samp{;} <$B<0JB$S(B> @samp{)} <$BJ8(B>
                    302:     @samp{do} <$BJ8(B> @samp{while} @samp{(} <$B<0JB$S(B> @samp{)} <$B=*C<(B>
                    303:     @samp{while} @samp{(} <$B<0JB$S(B> @samp{)} <$BJ8(B>
                    304:     @samp{def} <$BH!?t(B> @samp{(} <$B<0JB$S(B> @samp{)} @samp{@{} <$BJQ?t@k8@(B> <$BJ8JB$S(B> @samp{@}}
                    305:     @samp{end(quit)} <$B=*C<(B>
1.3       noro      306: \E
                    307: \BEG
                    308: <statement>:
                    309:     <expression> <terminator>
                    310:     <compound statement>
                    311:     @samp{break} <terminator>
                    312:     @samp{continue} <terminator>
                    313:     @samp{return} <terminator>
                    314:     @samp{return} <expression> <terminator>
                    315:     @samp{if} @samp{(} <expr list> @samp{)} <statement>
                    316:     @samp{if} @samp{(} <expr list> @samp{)} <statement> @samp{else} <statement>
                    317:     @samp{for} @samp{(} <expr list> @samp{;} <expr list> @samp{;} <expr list> @samp{)} <statement>
                    318:     @samp{do} <statement> @samp{while} @samp{(} <expr list> @samp{)} <terminator>
                    319:     @samp{while} @samp{(} <expr list> @samp{)} <statement>
                    320:     @samp{def} <function> @samp{(} <expr list> @samp{)} @samp{@{} <variable declaration> <stat list> @samp{@}}
                    321:     @samp{end(quit)} <terminator>
                    322: \E
1.1       noro      323: @end example
1.3       noro      324: \JP (@xref{$BJ8(B})
                    325: \EG (@xref{statements})
1.1       noro      326:
                    327: @example
1.3       noro      328: \JP <$B=*C<(B>:
                    329: \EG <terminator>:
1.1       noro      330:     @samp{;} @samp{$}
                    331: @end example
                    332:
                    333: @example
1.3       noro      334: \BJP
1.1       noro      335: <$BJQ?t@k8@(B>:
                    336:     [@samp{extern} <$BJQ?t(B> [@samp{,} <$BJQ?t(B>]* <$B=*C<(B>]*
1.3       noro      337: \E
                    338: \BEG
                    339: <variable declaration>:
                    340:     [@samp{extern} <program variable> [@samp{,} <program variable>]* <terminator>]*
                    341: \E
1.1       noro      342: @end example
                    343:
                    344: @example
1.3       noro      345: \BJP
1.1       noro      346: <$BJ#J8(B>:
                    347:     @samp{@{} <$BJ8JB$S(B> @samp{@}}
1.3       noro      348: \E
                    349: \BEG
                    350: <compound statement>:
                    351:     @samp{@{} <stat list> @samp{@}}
                    352: \E
1.1       noro      353: @end example
                    354:
                    355: @example
1.3       noro      356: \BJP
1.1       noro      357: <$BJ8JB$S(B>:
                    358:     [<$BJ8(B>]*
1.3       noro      359: \E
                    360: \BEG
                    361: <stat list>:
                    362:     [<statement>]*
                    363: \E
1.1       noro      364: @end example
                    365:
1.3       noro      366: \BJP
1.1       noro      367: @node $BE:IU$N%f!<%6Dj5AH!?t%U%!%$%k(B,,, $BIUO?(B
                    368: @section $BE:IU$N%f!<%6Dj5AH!?t%U%!%$%k(B
1.3       noro      369: \E
                    370: \BEG
                    371: @node Files of user defined functions,,, Appendix
                    372: @section Files of user defined functions
                    373: \E
1.1       noro      374:
                    375: @noindent
1.3       noro      376: \BJP
1.1       noro      377: $BI8=`%i%$%V%i%j%G%#%l%/%H%j(B ($B%G%U%)%k%H$G$O(B @samp{/usr/local/lib/asir}) $B$K$O(B
                    378: $B$$$/$D$+$N%f!<%6Dj5AH!?t%U%!%$%k$,$*$+$l$F$$$k(B. $B$3$l$i$N$&$A$N<g$J$b$N$K$D$$$F(B
                    379: $B@bL@$9$k(B.
1.3       noro      380: \E
                    381: \BEG
                    382: There are several files of user defined functions under the standard
                    383: library directory. (@samp{/usr/local/lib/asir} by default.)
                    384: Here, we explain some of them.
                    385: \E
1.1       noro      386:
                    387: @table @samp
                    388: @item fff
1.3       noro      389: \JP $BBgI8?tAGBN$*$h$SI8?t(B 2 $B$NM-8BBN>e$N0lJQ?tB?9`<00x?tJ,2r(B (@xref{$BM-8BBN$K4X$9$k1i;;(B})
                    390: \EG Univariate factorizer over large finite fields (@xref{Finite fields})
1.1       noro      391: @item gr
1.3       noro      392: \JP $B%0%l%V%J4pDl7W;;%Q%C%1!<%8(B.  (@xref{$B%0%l%V%J4pDl$N7W;;(B})
                    393: \EG Groebner basis package.  (@xref{Groebner basis computation})
1.1       noro      394: @item sp
1.3       noro      395: \JP $BBe?tE*?t$N1i;;$*$h$S0x?tJ,2r(B, $B:G>.J,2rBN(B. (@xref{$BBe?tE*?t$K4X$9$k1i;;(B})
                    396: \EG Operations over algebraic numbers and factorization, Splitting fields. (@xref{Algebraic numbers})
1.1       noro      397: @item alpi
                    398: @itemx bgk
                    399: @itemx cyclic
                    400: @itemx katsura
                    401: @itemx kimura
1.3       noro      402: \JP $B%0%l%V%J4pDl7W;;$K$*$$$F(B, $B%Y%s%A%^!<%/$=$NB>$GMQ$$$i$l$kNc(B.
                    403: \EG Example polynomial sets for benchmarks of Groebner basis computation.
1.1       noro      404: (@xref{katsura hkatsura cyclic hcyclic})
                    405: @item defs.h
1.3       noro      406: \JP $B$$$/$D$+$N%^%/%mDj5A(B. (@xref{$B%W%j%W%m%;%C%5(B})
                    407: \EG Macro definitions. (@xref{preprocessor})
1.1       noro      408: @item fctrtest
1.3       noro      409: \BJP
1.1       noro      410: $B@0?t>e$NB?9`<0$N0x?tJ,2r$N%F%9%H(B. REDUCE $B$N(B @samp{factor.tst} $B$*$h$S(B
                    411: $B=EJ#EY$NBg$-$$$$$/$D$+$NNc$r4^$`(B. $B$3$l$O(B, @code{load()} $B$9$k$H(B
                    412: $BD>$A$K7W;;$,;O$^$k(B. $BF~<j$7$?(B @b{Asir} $B$,@5$7$/F0:n$7$F$$$k$+$N(B
                    413: $B%F%9%H$K$b;H$&$3$H$,$G$-$k(B.
1.3       noro      414: \E
                    415: \BEG
                    416: Test program of factorization of integral polynomials.
                    417: It includes  @samp{factor.tst} of REDUCE and several examples
                    418: for large multiplicity factors.  If this file is @code{load()}'ed,
                    419: computation will begin immediately.
                    420: You may use it as a first test whether @b{Asir} at you hand runs
                    421: correctly.
                    422: \E
1.1       noro      423: @item fctrdata
1.3       noro      424: \BJP
1.1       noro      425: @samp{fctrtest} $B$G;H$o$l$F$$$kNc$r4^$`(B, $B0x?tJ,2r%F%9%HMQ$NNc(B.
1.5       noro      426: @code{Alg[]} $B$K<}$a$i$l$F$$$kNc$O(B, @code{af()} (@xref{asq af af_noalg}) $BMQ$NNc$G$"$k(B.
1.3       noro      427: \E
                    428: \BEG
                    429: This contains example polynomials for factorization.  It includes
                    430: polynomials used in @samp{fctrtest}.
                    431: Polynomials contained in vector @code{Alg[]} is for the algebraic
1.5       noro      432: factorization @code{af()} (@xref{asq af af_noalg}).
1.3       noro      433: \E
1.1       noro      434: @example
                    435: [45] load("sp")$
                    436: [84] load("fctrdata")$
                    437: [175] cputime(1)$
                    438: 0msec
                    439: [176] Alg[5];
                    440: x^9-15*x^6-87*x^3-125
                    441: 0msec
                    442: [177] af(Alg[5],[newalg(Alg[5])]);
                    443: [[1,1],[75*x^2+(10*#0^7-175*#0^4-470*#0)*x+(3*#0^8-45*#0^5-261*#0^2),1],
                    444: [75*x^2+(-10*#0^7+175*#0^4+395*#0)*x+(3*#0^8-45*#0^5-261*#0^2),1],
                    445: [25*x^2+(25*#0)*x+(#0^8-15*#0^5-87*#0^2),1],[x^2+(#0)*x+(#0^2),1],
                    446: [x+(-#0),1]]
                    447: 3.600sec + gc : 1.040sec
                    448: @end example
                    449: @item ifplot
1.3       noro      450: \BJP
1.1       noro      451: $BIA2h(B (@xref{ifplot conplot plot plotover}) $B$N$?$a$NNc(B. @code{IS[]} $B$K$OM-L>$J(B
                    452: $B6J@~$NNc(B, $BJQ?t(B @code{H, D, C, S} $B$K$O%H%i%s%W$N%O!<%H(B, $B%@%$%d(B, $B%/%i%V(B,
                    453: $B%9%Z!<%I(B ($B$i$7$-(B) $B6J@~$NNc$,F~$C$F$$$k(B.
1.3       noro      454: \E
                    455: \BEG
                    456: Examples for plotting (@xref{ifplot conplot plot plotover}).
                    457: Vector @code{IS[]} contains several famous algebraic curves.
                    458: Variables @code{H, D, C, S} contains something like the suits
                    459: (Heart, Diamond, Club, and Spade) of cards.
                    460: \E
1.1       noro      461: @item num
1.3       noro      462: \JP $B?t$K4X$9$k4JC1$J1i;;H!?t$NNc(B.
                    463: \EG Examples of simple operations on numbers.
1.1       noro      464: @item mat
1.3       noro      465: \JP $B9TNs$K4X$9$k4JC1$J1i;;H!?t$NNc(B.
                    466: \EG Examples of simple operations on matrices.
1.1       noro      467: @item ratint
1.3       noro      468: \BJP
1.1       noro      469: $BM-M}H!?t$NITDj@QJ,(B. @samp{sp}, @samp{gr} $B$,I,MW(B. @code{ratint()} $B$H$$$&(B
                    470: $BH!?t$,Dj5A$5$l$F$$$k$,(B, $B$=$NJV$97k2L$O$d$dJ#;($G$"$k(B. $BNc$G@bL@$9$k(B.
1.3       noro      471: \E
                    472: \BEG
                    473: Indefinite integration of rational functions.  For this,
                    474: files @samp{sp} and @samp{gr} is necessary.  A function @code{ratint()}
                    475: is defined.  Its returns a rather complex result.
                    476: \E
1.1       noro      477: @example
                    478: [0] load("gr")$
                    479: [45] load("sp")$
                    480: [84] load("ratint")$
                    481: [102] ratint(x^6/(x^5+x+1),x);
                    482: [1/2*x^2,
                    483: [[(#2)*log(-140*x+(-2737*#2^2+552*#2-131)),161*t#2^3-23*t#2^2+15*t#2-1],
                    484: [(#1)*log(-5*x+(-21*#1-4)),21*t#1^2+3*t#1+1]]]
                    485: @end example
1.3       noro      486: \BJP
1.1       noro      487: $B$3$NNc$G$O(B, @code{x^6/(x^5+x+1)} $B$NITDj@QJ,$N7W;;$r9T$C$F$$$k(B.
                    488: $B7k2L$O(B 2 $B$D$NMWAG$+$i$J$k%j%9%H$G(B, $BBh(B 1 $BMWAG$OITDj@QJ,$NM-M}ItJ,(B,
                    489: $BBh(B 2 $BMWAG$OBP?tItJ,$rI=$9(B. $BBP?tItJ,$O99$K%j%9%H$H$J$C$F$$$F(B, $B3FMWAG$O(B,
                    490: @code{[root*log(poly),defpoly]} $B$H$$$&7A$r$7$F$$$k(B. $B$3$l$O(B, $BITDj@QJ,$K(B
                    491: $B$*$$$F$O(B, @code{defpoly} $B$NA4$F$N:,(B @code{root} $B$KBP$7$F(B @code{root*log(poly)}
                    492: $B$r:n$j$=$l$i$rB-$79g$o$;$k$H$$$&0UL#$G$"$k(B. $B$3$3$G(B @code{poly} $B$O(B
                    493: @code{root} $B$r4^$s$G$$$F(B, @code{root} $B$rF~$lBX$($k>l9g$K$O(B @code{poly}
                    494: $B$KBP$7$F$bF1$8A`:n$r9T$&$b$N$H$9$k(B. $B$3$NA`:n$r(B, $B7k2L$NBh(B 2 $BMWAG$N(B
                    495: $B3F@.J,$KBP$7$F9T$C$F(B, $BA4$F$rB-$79g$o$;$?$b$N$,BP?tItJ,$H$J$k(B.
1.3       noro      496: \E
                    497: \BEG
                    498: In this example, indefinite integral of the rational function
                    499:  @code{x^6/(x^5+x+1)} is computed.
                    500: The result is a list which comprises two elements:
                    501: The first element is the rational part of the integral;
                    502: The second part is the logarithmic part of the integral.
                    503: The logarithmic part is again a list which comprises finite number of
                    504: elements, each of which is of form @code{[root*log(poly),defpoly]}.
                    505: This pair should be interpreted to sum up
                    506: the expression @code{root*log(poly)}
                    507: through all @b{root}'s @code{root}'s of the @code{defpoly}.
                    508: Here, @code{poly} contains @code{root}, and substitution for @code{root}
                    509: is equally applied to @code{poly}.
                    510: The logarithmic part in total is obtained by applying such
                    511: interpretation to all element pairs in the second element of the
                    512: result and then summing them up all.
                    513: \E
1.1       noro      514: @item primdec
1.3       noro      515: \BJP
1.1       noro      516: $BB?9`<0%$%G%"%k$N=`AG%$%G%"%kJ,2r$H$=$N:,4p$NAG%$%G%"%kJ,2r(B
1.4       noro      517: (@pxref{primadec primedec}).
1.3       noro      518: \E
                    519: \BEG
                    520: Primary ideal decomposition of polynomial ideals and prime compotision
1.4       noro      521: of radicals (@pxref{primadec primedec}).
                    522: \E
1.1       noro      523: @end table
                    524:
1.3       noro      525: \BJP
1.1       noro      526: @node $BF~NO%$%s%?%U%'!<%9(B,,, $BIUO?(B
                    527: @section $BF~NO%$%s%?%U%'!<%9(B
1.3       noro      528: \E
                    529: \BEG
                    530: @node Input interfaces,,, Appendix
                    531: @section Input interfaces
                    532: \E
1.1       noro      533:
1.3       noro      534: \BJP
1.7     ! noro      535: DOS $BHG(B, Windows $BHG$G$OF~NO%$%s%?%U%'!<%9$H(B
1.1       noro      536: $B$7$F%3%^%s%I%i%$%sJT=8$*$h$S%R%9%H%jCV$-49$($,AH$_9~$^$l$F$$$k(B. UNIX $BHG$G$O(B
                    537: $B$3$N$h$&$J5!G=$OAH$_9~$^$l$F$$$J$$$,(B, $B0J2<$G=R$Y$k$h$&$JF~NO%$%s%?%U%'!<%9(B
                    538: $B$,MQ0U$5$l$F$$$k(B. $B$3$l$i$O(B @b{Asir} $B%P%$%J%j$H$H$b$K(B ftp $B2DG=$G$"$k(B.
                    539: ftp server $B$K4X$7$F$O(B @xref{$BF~<jJ}K!(B}.
1.7     ! noro      540:
        !           541: Windows $BHG(B @samp{asirgui.exe} $B$O(B, $BDL>o$N(B Windows $B$K$*$1$k47=,$H$O0[$J$k(B
        !           542: $B7A$N%3%T!<%Z!<%9%H5!G=$rDs6!$7$F$$$k(B. Window $B>e$KI=<($5$l$F$$$kJ8;zNs(B
        !           543: $B$KBP$7%^%&%9:8%\%?%s$r2!$7$J$,$i%I%i%C%0$9$k$HJ8;zNs$,A*Br$5$l$k(B.
        !           544: $B%\%?%s$rN%$9$HH?E>I=<($,85$KLa$k$,(B, $B$=$NJ8;zNs$O%3%T!<%P%C%U%!$K(B
        !           545: $B<h$j9~$^$l$F$$$k(B. $B%^%&%91&%\%?%s$r2!$9$H(B, $B%3%T!<%P%C%U%!Fb$NJ8;zNs$,(B
        !           546: $B8=:_$N%+!<%=%k0LCV$KA^F~$5$l$k(B. $B4{$KI=<($5$l$?ItJ,$O(B readonly
        !           547: $B$G$"$j(B, $B$=$NItJ,$r2~JQ$G$-$J$$$3$H$KCm0U$7$FM_$7$$(B.
1.3       noro      548: \E
                    549: \BEG
1.7     ! noro      550: A command line editing facility and a history
        !           551: substitution facility are built-in for DOS, Windows version
1.3       noro      552: of @b{Asir}. UNIX versions of @b{Asir} do not have such built-in facilites.
                    553: Instead, the following input interfaces are prepared. This are also available
                    554: from our ftp server. As for our ftp server @xref{How to get Risa/Asir}.
1.7     ! noro      555:
        !           556: On Windows, @samp{asirgui.exe} has a copy and paste functionality
        !           557: different from Windows convention. Press the left button of the mouse
        !           558: and drag the mouse cursor on a text, then the text is selected and is
        !           559: highlighted.  When the button is released, highlighted text returns to
        !           560: the normal state and it is saved in the copy buffer.  If the right
        !           561: button is pressed, the text in the copy buffer is inserted at the
        !           562: current text cursor position. Note that the existing text is read-only and
        !           563: one cannot modify it.
1.3       noro      564: \E
1.1       noro      565:
                    566: @menu
                    567: * fep::
                    568: * asir.el::
                    569: @end menu
                    570:
1.3       noro      571: \JP @node fep,,, $BF~NO%$%s%?%U%'!<%9(B
                    572: \EG @node fep,,, Input interfaces
1.1       noro      573: @subsection fep
                    574:
                    575: @noindent
1.3       noro      576: \BJP
1.1       noro      577: fep $B$H$O(B, SRA $B$N2NBe;a$K$h$j3+H/$5$l$?%3%^%s%I%i%$%sJT=8(B, $B%R%9%H%jCV$-49$((B
                    578: $BMQ$NF~NO%U%m%s%H%(%s%I$G$"$k(B. $B$3$N%W%m%0%i%`$N85$G(B @samp{asir} $B$r5/F0$9$k(B
                    579: $B$3$H$K$h$j(B vi $B$"$k$$$O(B emacs $BIw$N%3%^%s%I%i%$%sJT=8$*$h$S(B csh $BIw$N%R%9%H%j(B
                    580: $BCV$-49$($,2DG=$K$J$k(B.
1.3       noro      581: \E
                    582: \BEG
                    583: Fep is a general purpose front end processor. The author is
                    584: K. Utashiro (SRA Inc.).
                    585:
                    586: Under fep,
                    587: emacs- or vi-like command line editing and csh-like history substitution are
                    588: available for UNIX commands, including @samp{asir}.
                    589: \E
1.1       noro      590: @example
                    591: % fep asir
                    592: ...
                    593: [0] fctr(x^5-1);
                    594: [[1,1],[x-1,1],[x^4+x^3+x^2+x+1,1]]
                    595: [1] !!                              /* !!+Return                      */
1.3       noro      596: \BJP
1.1       noro      597: fctr(x^5-1);                        /* $BD>A0$NF~NO$,8=$l$k$FJT=8$G$-$k(B */
                    598: ...                                 /* $BJT=8(B+Return                    */
1.3       noro      599: \E
                    600: \BEG
                    601: fctr(x^5-1);                        /* The last input appears.        */
                    602: ...                                 /* Edit+Return                    */
                    603: \E
1.1       noro      604: fctr(x^5+1);
                    605: [[1,1],[x+1,1],[x^4-x^3+x^2-x+1,1]]
                    606: @end example
                    607:
                    608: @noindent
1.3       noro      609: \BJP
1.1       noro      610: fep $B$O%U%j!<%=%U%H$G%=!<%9$,F~<j2DG=$G$"$k$,(B, $B%*%j%8%J%k$N$b$N$O(B make $B$G$-$k(B
                    611: $B5!<o(B (OS) $B$,8B$i$l$F$$$k(B. $B$$$/$D$+$N5!<o>e$GF0:n$9$k$h$&$K2f!9$,2~B$$7$?$b$N(B
                    612: $B$,(B, ftp $B$GF~<j2DG=$G$"$k(B.
1.3       noro      613: \E
                    614: \BEG
                    615: Fep is a free software and the source is available. However
                    616: machines or operating systems on which the original one can run are limited.
                    617: The modified version by us running on several unsupported environments
                    618: is available from our ftp server.
                    619: \E
1.1       noro      620:
1.3       noro      621: \JP @node asir.el,,, $BF~NO%$%s%?%U%'!<%9(B
                    622: \EG @node asir.el,,, Input interfaces
1.1       noro      623: @subsection asir.el
                    624:
                    625: @noindent
1.3       noro      626: \BJP
1.1       noro      627: @samp{asir.el} $B$O(B, @b{Asir} $B$N(B GNU Emacs $B%$%s%?%U%'!<%9$G$"$k(B ($BCx<T$O(B
                    628: $B5\Eh8w<#;a(B (@code{YVE25250@@pcvan.or.jp}).  @samp{asir.el} $B$K$*$$$F$O(B,
                    629: $BDL>o$N(B emacs $B$G2DG=$JJT=85!G=$NB>$K(B, $B%U%!%$%kL>(B, $B%3%^%s%IL>$N(B completion
                    630: $B$,<B8=$5$l$F$$$k(B.
1.3       noro      631: \E
                    632: \BEG
                    633: @samp{asir.el} is a GNU Emacs interface for @b{Asir}.
                    634: The author is Koji Miyajima (@code{YVE25250@@pcvan.or.jp}).
                    635: In @samp{asir.el}, completion of file names and command names is
                    636: realized other than the ordinary editing functions
                    637: which are available on Emacs.
                    638: \E
1.1       noro      639:
                    640: @noindent
1.3       noro      641: \BJP
1.1       noro      642: @samp{asir.el} $B$O(B PC-VAN $B$G(B
                    643: $B4{$K8x3+$5$l$F$$$k$,(B, $B:#2s$N2~D{$KH<$&JQ99$r9T$C$?$b$N$,(B, $B$d$O$j(B ftp $B$G(B
                    644: $BF~<j2DG=$G$"$k(B.
1.3       noro      645: \E
                    646: \BEG
                    647: @samp{asir.el} is distributed on PC-VAN. The version where several
                    648: changes have been made according to the current version of @b{Asir}
                    649: is available via ftp.
                    650: \E
1.1       noro      651:
                    652: @noindent
1.3       noro      653: \JP $B%;%C%H%"%C%W(B, $B;HMQJ}K!$O(B, @samp{asir.el} $B$N@hF,$K5-=R$5$l$F$$$k(B.
                    654: \BEG
                    655: The way of setting up and the usage can be found at the top of
                    656: @samp{asir.el}.
                    657: \E
1.6       noro      658:
                    659: \BJP
                    660: @node $B%i%$%V%i%j%$%s%?%U%'!<%9(B,,, $BIUO?(B
                    661: @section $B%i%$%V%i%j%$%s%?%U%'!<%9(B
                    662: \E
                    663: \BEG
                    664: @node Library interfaces,,, Appendix
                    665: @section Library interfaces
                    666: \E
                    667:
                    668: \BJP
                    669: @b{Asir} $B$NDs6!$9$k5!G=$rB>$N%W%m%0%i%`$+$i;HMQ$9$kJ}K!$H$7$F(B, @b{OpenXM} $B$K$h$k(B
                    670: $BB>$K(B, $B%i%$%V%i%j$ND>@\%j%s%/$K$h$kJ}K!$,2DG=$G$"$k(B. $B%i%$%V%i%j$O(B,
                    671: GC $B%i%$%V%i%j$G$"$k(B @samp{libasir-gc.a} $B$H$H$b$K(B @b{OpenXM}
                    672: distribution (@code{http://www.math.kobe-u.ac.jp/OpenXM}) $B$K4^$^$l$k(B.
                    673: $B8=>u$G$O(B@b{OpenXM} $B%$%s%?%U%'!<%9$N$_$,8x3+$5$l$F$$$k$?$a(B, $B0J2<$G$O(B
                    674: @b{OpenXM} $B$,%$%s%9%H!<%k$5$l$F$$$k$H2>Dj$9$k(B. @b{OpenXM} root $B%G%#%l%/%H%j$r(B
                    675: @code{$OpenXM_HOME}$B$H=q$/(B. $B%i%$%V%i%j%U%!%$%k$OA4$F(B @samp{$OpenXM_HOME/lib}
                    676: $B$K$*$+$l$F$$$k(B. $B%i%$%V%i%j$K$O0J2<$N(B 3 $B<oN`$,$"$k(B.
                    677: \E
                    678: \BEG
                    679: It is possible to link an @b{Asir} library to use the functionalities of
                    680: @b{Asir} from other programs.
                    681: The necessary libraries are included in the @b{OpenXM} distribution
                    682: (@code{http://www.math.kobe-u.ac.jp/OpenXM}).
                    683: At present only the @b{OpenXM} interfaces are available. Here we assume
                    684: that @b{OpenXM} is already installed. In the following
                    685: @code{$OpenXM_HOME} denotes the @b{OpenXM} root directory.
                    686: All the library files are placed in @samp{$OpenXM_HOME/lib}.
                    687: There are three kinds of libraries as follows.
                    688: \E
                    689: @itemize @bullet
                    690: @item @samp{libasir.a}
                    691: @*
                    692: \BJP
                    693: @b{PARI}, @b{X11} $B4XO"$N5!G=$r4^$^$J$$(B.
                    694: $B%j%s%/$K$O(B @samp{libasir-gc.a} $B$N$_$,I,MW(B.
                    695: \E
                    696: \BEG
                    697: It does not contain the functionalities related to @b{PARI} and @b{X11}.
                    698: Only @samp{libasir-gc.a} is necessary for linking.
                    699: \E
                    700:
                    701: @item @samp{libasir_pari.a}
                    702: @*
                    703: \BJP
                    704: @b{X11} $B4XO"$N5!G=$r4^$^$J$$(B. $B%j%s%/$K$O(B @samp{libasir-gc.a},
                    705: @samp{libpari.a} $B$,I,MW(B.
                    706: \E
                    707: \BEG
                    708: It does not contain the functionalities related to @b{X11}.
                    709: @samp{libasir-gc.a}, @samp{libpari.a} are necessary for linking.
                    710: \E
                    711:
                    712: @item @samp{libasir_pari_X.a}
                    713: @*
                    714: \BJP
                    715: $BA4$F$N5!G=$r4^$`(B. $B%j%s%/$K$O(B @samp{libasir-gc.a}, @samp{libpari.a}
                    716: $B$*$h$S(B @b{X11} $B4XO"$N%i%$%V%i%j;XDj$,I,MW(B.
                    717: \E
                    718: \BEG
                    719: All the functionalities are included. @samp{libasir-gc.a}, @samp{libpari.a}
                    720: and libraries related to @b{X11} are necessary for linking.
                    721: \E
                    722: @end itemize
                    723: \BJP
                    724: $BDs6!$5$l$F$$$k4X?t$O0J2<$NDL$j$G$"$k(B.
                    725: \E
                    726: @itemize @bullet
                    727: @item @code{int asir_ox_init(int @var{byteorder})}
                    728: @*
                    729: \BJP
                    730: $B%i%$%V%i%j$N=i4|2=(B. @var{byteorder} $B$O%a%b%j>e$X$N%P%$%J%j(B CMO $B%G!<%?(B
                    731: $B$X$NE83+J}K!$r;XDj$9$k(B. @var{byteorder} $B$,(B 0 $B$N$H$-%^%7%s8GM-$N(B byteorder
                    732: $B$rMQ$$$k(B. 1 $B$N$H$-(B network byteorder $B$rMQ$$$k(B. $B=i4|2=$K@.8y$7$?>l9g(B 0,
                    733: $B<:GT$N;~(B -1 $B$rJV$9(B.
                    734: \E
                    735: \BEG
                    736: It initializes the library.
                    737: @var{byteorder} specifies the format of binary CMO data on the memory.
                    738: If @var{byteorder} is 0, the byteorder native to the machine is used.
                    739: If @var{byteorder} is 1, the network byteorder is used. It returns
                    740: 0 if the initialization is successful, -1 otherwise.
                    741: \E
                    742:
                    743: @item @code{void asir_ox_push_cmo(void *@var{cmo})}
                    744: @*
                    745: \BJP
                    746: $B%a%b%j>e$KCV$+$l$?(B CMO $B%G!<%?$r(B @b{Asir} $B$NFbIt7A<0$KJQ49$7$F%9%?%C%/$K(B
                    747: push $B$9$k(B.
                    748: \E
                    749: \BJP
                    750: It converts CMO data pointed by @var{cmo} into an @b{Asir} object and
                    751: it pushes the object onto the stack.
                    752: \E
                    753:
                    754: @item @code{int asir_ox_peek_cmo_size()}
                    755: @*
                    756: \BJP
                    757: $B%9%?%C%/$N:G>e0L$K$"$k(B @b{Asir} $B%G!<%?$r(B CMO $B$KJQ49$7$?$H$-$N%5%$%:$rJV$9(B.
                    758: $BJQ49ITG=$J>l9g$K$O(B -1 $B$rJV$9(B.
                    759: \E
                    760: \BEG
                    761: It returns the size of the object at the top of the stack as CMO object.
                    762: It returns -1 if the object cannot be converted into CMO object.
                    763: \E
                    764:
                    765: @item @code{int asir_ox_pop_cmo(void *@var{cmo}, int @var{limit})}
                    766: @*
                    767: \BJP
                    768: $B%9%?%C%/$N:G>e0L$K$"$k(B @b{Asir} $B%G!<%?$r(B pop $B$7(B, CMO $B$KJQ49$7$F(B @var{cmo}$B$G(B
                    769: $B;X$5$l$kG[Ns$K=q$-(B, CMO $B$N%5%$%:$rJV$9(B. $B$3$N$H$-(B, CMO $B$N%5%$%:$,(B
                    770: @var{limit} $B$h$jBg$-$$>l9g$K$O(B -1 $B$rJV$9(B. @var{cmo} $B$OD9$5$,>/$J$/$H$b(B
                    771: @var{limit}$B%P%$%H$NG[Ns$r;X$9I,MW$,$"$k(B. $BJQ49$5$l$?(B CMO $B$r<}MF$G$-$k(B
                    772: $BG[Ns$ND9$5$rCN$k$?$a$K(B, @code{asir_ox_peek_cmo_size} $B$rMQ$$$k(B.
                    773: \E
                    774: \BEG
                    775: It pops an @b{Asir} object at the top of the stack and it converts
                    776: the object into CMO data. If the size of the CMO data is not greater
                    777: than @var{limit}, then the data is written in @var{cmo} and the size
                    778: is returned. Otherwise -1 is returned. The size of the array pointed
                    779: by @var{cmo} must be at least @var{limit}. In order to know the size
                    780: of converted CMO data in advance @code{asir_ox_peek_cmo_size} is called.
                    781: \E
                    782:
                    783: @item @code{void asir_ox_push_cmd(int @var{cmd})}
                    784: @*
                    785: \BJP
                    786: $B%9%?%C%/%^%7%s%3%^%s%I(B @var{cmd} $B$r<B9T$9$k(B.
                    787: \E
                    788: \BEG
                    789: It executes a stack machine command @var{cmd}.
                    790: \E
                    791:
                    792: @item @code{void asir_ox_execute_string(char *@var{str})}
                    793: @*
                    794: \BJP
                    795: @b{Asir} $B$,<B9T2DG=$JJ8;zNs(B @var{str} $B$r<B9T$7(B, $B$=$N7k2L$r%9%?%C%/$K(B push $B$9$k(B.
                    796: \E
                    797: \BEG
                    798: It evaluates @var{str} as a string written in the @b{Asir} user language.
                    799: The result is pushed onto the stack.
                    800: \E
                    801: @end itemize
                    802:
                    803: \BJP
                    804: include $B$9$Y$-(B header file $B$O(B @samp{$OpenXM_HOME/include/asir/ox.h} $B$G$"$k(B.
                    805: $B$3$N(B header file $B$K$O(B, @b{OpenXM} $B$K4X$9$kA4$F$N(B tag, command $B$NDj5A$,4^$^$l$F(B
                    806: $B$$$k(B.
                    807: $B<!$NNc(B (@samp{$OpenXM_HOME/doc/oxlib/test3.c}) $B$O>e5-4X?t$N;HMQ(B
                    808: $BK!$r<($9(B.
                    809: \E
                    810: \BEG
                    811: A program calling the above functions should include
                    812: @samp{$OpenXM_HOME/include/asir/ox.h}.
                    813: In this file all the definitions of @b{OpenXM} tags and commands.
                    814: The following example
                    815: (@samp{$OpenXM_HOME/doc/oxlib/test3.c}) illustrates the usage of
                    816: the above functions.
                    817: \E
                    818:
                    819: @example
                    820: #include <asir/ox.h>
                    821: #include <signal.h>
                    822:
                    823: main(int argc, char **argv)
                    824: @{
                    825:   char buf[BUFSIZ+1];
                    826:   int c;
                    827:   unsigned char sendbuf[BUFSIZ+10];
                    828:   unsigned char *result;
                    829:   unsigned char h[3];
                    830:   int len,i,j;
                    831:   static int result_len = 0;
                    832:   char *kwd,*bdy;
                    833:   unsigned int cmd;
                    834:
                    835:   signal(SIGINT,SIG_IGN);
                    836:   asir_ox_init(1); /* 1: network byte order; 0: native byte order */
                    837:   result_len = BUFSIZ;
                    838:   result = (void *)malloc(BUFSIZ);
                    839:   while ( 1 ) @{
                    840:     printf("Input>"); fflush(stdout);
                    841:     fgets(buf,BUFSIZ,stdin);
                    842:     for ( i = 0; buf[i] && isspace(buf[i]); i++ );
                    843:     if ( !buf[i] )
                    844:       continue;
                    845:     kwd = buf+i;
                    846:     for ( ; buf[i] && !isspace(buf[i]); i++ );
                    847:     buf[i] = 0;
                    848:     bdy = buf+i+1;
                    849:     if ( !strcmp(kwd,"asir") ) @{
                    850:       sprintf(sendbuf,"%s;",bdy);
                    851:       asir_ox_execute_string(sendbuf);
                    852:     @} else if ( !strcmp(kwd,"push") ) @{
                    853:       h[0] = 0;
                    854:       h[2] = 0;
                    855:       j = 0;
                    856:       while ( 1 ) @{
                    857:         for ( ; (c= *bdy) && isspace(c); bdy++ );
                    858:         if ( !c )
                    859:           break;
                    860:         else if ( h[0] ) @{
                    861:           h[1] = c;
                    862:           sendbuf[j++] = strtoul(h,0,16);
                    863:           h[0] = 0;
                    864:         @} else
                    865:           h[0] = c;
                    866:         bdy++;
                    867:       @}
                    868:       if ( h[0] )
                    869:         fprintf(stderr,"Number of characters is odd.\n");
                    870:       else @{
                    871:         sendbuf[j] = 0;
                    872:         asir_ox_push_cmo(sendbuf);
                    873:       @}
                    874:     @} else if ( !strcmp(kwd,"cmd") ) @{
                    875:       cmd = atoi(bdy);
                    876:       asir_ox_push_cmd(cmd);
                    877:     @} else if ( !strcmp(kwd,"pop") ) @{
                    878:       len = asir_ox_peek_cmo_size();
                    879:       if ( !len )
                    880:         continue;
                    881:       if ( len > result_len ) @{
                    882:         result = (char *)realloc(result,len);
                    883:         result_len = len;
                    884:       @}
                    885:       asir_ox_pop_cmo(result,len);
                    886:       printf("Output>"); fflush(stdout);
                    887:       printf("\n");
                    888:       for ( i = 0; i < len; ) @{
                    889:         printf("%02x ",result[i]);
                    890:         i++;
                    891:         if ( !(i%16) )
                    892:           printf("\n");
                    893:       @}
                    894:       printf("\n");
                    895:     @}
                    896:   @}
                    897: @}
                    898: @end example
                    899: \BJP
                    900: $B$3$N%W%m%0%i%`$O(B, @var{keyword} @var{body} $B$J$k(B 1 $B9T$rF~NO$H$7$F<u$1<h$j(B
                    901: @var{keyword} $B$K1~$8$F<!$N$h$&$JF0:n$r9T$&(B.
                    902: \E
                    903: \BEG
                    904: This program receives a line in the form of @var{keyword} @var{body}
                    905: as an input and it executes the following operations according to
                    906: @var{keyword}.
                    907: \E
                    908: @itemize @bullet
                    909: @item @code{asir} @var{body}
                    910: @*
                    911: \BJP
                    912: @var{body} $B$r(B @b{Asir} $B8@8l$G=q$+$l$?<0$H$_$J$7(B, $B<B9T7k2L$r%9%?%C%/$K(B push $B$9$k(B.
                    913: @code{asir_ox_execute_string()} $B$,MQ$$$i$l$k(B.
                    914: \E
                    915: \BEG
                    916: @var{body} is regarded as an expression written in the @b{Asir} user language.
                    917: The expression is evaluated and the result is pushed onto the stack.
                    918: @code{asir_ox_execute_string()} is called.
                    919: \E
                    920:
                    921: @item @code{push} @var{body}
                    922: @*
                    923: \BJP
                    924: @var{body} $B$r(B 16 $B?J?t$GI=<($5$l$?(B CMO $B%G!<%?$H$_$J$7(B, @b{Asir} $B%*%V%8%'%/%H$KJQ49(B
                    925: $B$7$F%9%?%C%/$K(B push $B$9$k(B. @code{asir_ox_push_cmo()} $B$,MQ$$$i$l$k(B.
                    926: \E
                    927: \BEG
                    928: @var{body} is regarded as a CMO object in the hexadecimal form.
                    929: The CMO object is converted into an @b{Asir} object and is pushed onto the stack.
                    930: @code{asir_ox_push_cmo()} is called.
                    931: \E
                    932:
                    933: @item @code{pop}
                    934: @*
                    935: \BJP
                    936: $B%9%?%C%/:G>e0L$N%*%V%8%'%/%H$r(B CMO $B$KJQ49$7(B, 16 $B?J?t$GI=<($9$k(B.
                    937: @code{asir_ox_peek_cmo_size()} $B$*$h$S(B @code{asir_ox_pop_cmo()} $B$,MQ$$$i$l$k(B.
                    938: \E
                    939: \BEG
                    940: The object at the top of the stack is converted into a CMO object
                    941: and it is displayed in the hexadecimal form.
                    942: @code{asir_ox_peek_cmo_size()} and @code{asir_ox_pop_cmo()} are called.
                    943: \E
                    944:
                    945: @item @code{cmd} @var{body}
                    946: @*
                    947: \BJP
                    948: @var{body} $B$r(B SM $B%3%^%s%I$H$_$J$7(B, $B<B9T$9$k(B.
                    949: @code{asir_ox_push_cmd()} $B$,MQ$$$i$l$k(B.
                    950: \E
                    951: \BEG
                    952: @var{body} is regarded as an SM command and the command is executed.
                    953: @code{asir_ox_push_cmd()} is called.
                    954: \E
                    955: @end itemize
1.1       noro      956:
1.3       noro      957: \BJP
1.1       noro      958: @node $BJQ99E@(B,,, $BIUO?(B
                    959: @section $BJQ99E@(B
1.3       noro      960: \E
                    961: \BEG
                    962: @node Changes,,, Appendix
                    963: @section Appendix
                    964: \E
1.1       noro      965:
                    966: @menu
                    967: * Version 990831::
                    968: * Version 950831::
                    969: * Version 940420::
                    970: @end menu
                    971:
1.3       noro      972: \JP @node Version 990831,,, $BJQ99E@(B
                    973: \EG @node Version 990831,,, Changes
1.1       noro      974: @subsection Version 990831
                    975:
1.3       noro      976: \BJP
1.1       noro      977: 4 $BG/$V$j$NBg2~D{(B. $B@0?t$N(B 32bit $B2=B>(B, $BCf?H$O$:$$$V$sJQ$o$C$F$$$k$b$N$N(B,
                    978: $B8+3]$1$O$=$l$[$IJQ$o$C$F$$$k$h$&$K$O8+$($J$$(B. $B$`$7$m(B, Windows $BHG$J$I$O(B,
                    979: plot $B$,;H$($J$$$?$a(B, $BB`2=$7$F$$$k(B.
                    980:
                    981: $B5lHG$N%f!<%6$,$b$C$H$bCm0U$9$Y$-E@$O(B, $B5lHG$G:n$C$?(B bsave file $B$rFI$_9~$`(B
                    982: $B>l9g$O(B @code{bload27} $B$r;H$&I,MW$,$"$k(B, $B$H$$$&E@$G$"$k(B.
1.3       noro      983: \E
                    984:
                    985: \BEG
                    986: Four years have passed since the last distribution.
                    987: Though the look and feel seem unchanged, internally there are
                    988: several changes such as 32-bit representation of bignums.
                    989: Plotting facilities are not available on Windows.
                    990:
                    991: If you have files created by @code{bsave} on the older version,
                    992: you have to use @code{bload27} to read such files.
                    993: \E
1.1       noro      994:
1.3       noro      995: \JP @node Version 950831,,, $BJQ99E@(B
                    996: \EG @node Version 950831,,, Changes
1.1       noro      997: @subsection Version 950831
                    998:
                    999: @menu
1.3       noro     1000: \BJP
1.1       noro     1001: * $B%G%P%C%,(B($BJQ99(B)::
                   1002: * $BAH$_9~$_H!?t(B($BJQ99(B)::
                   1003: * $B%0%l%V%J4pDl(B($BJQ99(B)::
                   1004: * $B$=$NB>(B($BJQ99(B)::
1.3       noro     1005: \E
                   1006: \BEG
                   1007: * Debugger(Changes)::
                   1008: * Built-in functions(Changes)::
                   1009: * Groebner basis computation(Changes)::
                   1010: * Others(Changes)::
                   1011: \E
1.1       noro     1012: @end menu
                   1013:
1.3       noro     1014: \BJP
1.1       noro     1015: @node $B%G%P%C%,(B($BJQ99(B),,, Version 950831
                   1016: @subsubsection $B%G%P%C%,(B
1.3       noro     1017: \E
                   1018: \BEG
                   1019: @node Debugger(Changes),,, Version 950831
                   1020: @subsubsection Debugger
                   1021: \E
1.1       noro     1022:
                   1023: @itemize @bullet
                   1024: @item
1.3       noro     1025: \JP $BG$0U$N;~E@$K%G%P%C%0%b!<%I$KF~$l$k(B.
                   1026: \EG One can enter the debug mode anytime.
1.1       noro     1027: @item
1.3       noro     1028: \JP @code{finish} $B%3%^%s%I$NDI2C(B.
                   1029: \EG A command @code{finish} has been appended.
1.1       noro     1030: @item
1.3       noro     1031: \BJP
1.1       noro     1032: @code{up}, @code{down}, @code{frame} $B%3%^%s%I$K$h$k(B, $BG$0U$N%9%?%C%/%U%l!<%`(B
1.3       noro     1033: $B$N;2>H(B.
                   1034: \E
                   1035: \EG One can examine any stack frame with @code{up}, @code{down} and @code{frame}.
1.1       noro     1036: @item
1.3       noro     1037: \JP @code{trace} $B%3%^%s%I$NDI2C(B.
                   1038: \EG A command @code{trace} has been appended.
1.1       noro     1039: @end itemize
                   1040:
1.3       noro     1041: \BJP
1.1       noro     1042: @node $BAH$_9~$_H!?t(B($BJQ99(B),,, Version 950831
                   1043: @subsubsection $BAH$_9~$_H!?t(B
1.3       noro     1044: \E
                   1045: \BEG
                   1046: @node Built-in functions(Changes),,, Version 950831
                   1047: @subsubsection Built-in functions
                   1048: \E
1.1       noro     1049:
                   1050: @itemize @bullet
1.3       noro     1051: \BJP
1.1       noro     1052: @item
                   1053: @code{sdiv()} $B$J$I$K$*$1$k(B, $B<gJQ?t$N;XDj$N%5%]!<%H(B.
                   1054: @item
                   1055: @code{sdivm()} $B$J$I(B, $BM-8BBN>e$G$NB?9`<0=|;;$NDI2C(B.
                   1056: @item
                   1057: @code{det()}, @code{res()} $B$J$I$K$*$1$k(B, $BM-8BBN>e$G$N7W;;$N%5%]!<%H(B
                   1058: @item
                   1059: @code{vtol()} ($B%Y%/%H%k$+$i%j%9%H$X$NJQ49(B) $B$NDI2C(B.
                   1060: @item
                   1061: @code{map()} $B$NDI2C(B.
1.3       noro     1062: \E
                   1063: \BEG
                   1064: @item
                   1065: One can specify a main variable for @code{sdiv()} etc.
                   1066: @item
                   1067: Functions for polynomial division over finite fields
                   1068: such as @code{sdivm()} have been appended.
                   1069: @item
                   1070: @code{det()}, @code{res()} can produce results over finite fields.
                   1071: @item
                   1072: @code{vtol()}, conversion from a vector to a list has been appended.
                   1073: @item
                   1074: @code{map()} has been appended.
                   1075: \E
1.1       noro     1076: @end itemize
                   1077:
1.3       noro     1078: \BJP
1.1       noro     1079: @node $B%0%l%V%J4pDl(B($BJQ99(B),,, Version 950831
                   1080: @subsubsection $B%0%l%V%J4pDl(B
1.3       noro     1081: \E
                   1082: \BEG
                   1083: @node Groebner basis computation(Changes),,, Version 950831
                   1084: @subsubsection Groebner basis computation
                   1085: \E
1.1       noro     1086:
                   1087: @itemize @bullet
1.3       noro     1088: \BJP
1.1       noro     1089: @item
                   1090: $B%0%l%V%J4pDl7W;;5!G=$NAH$_9~$_H!?t2=(B.
                   1091: @item
                   1092: @code{grm()}, @code{hgrm()} $B$,(B @code{gr()}, @code{hgr()} $B$KJQ99(B.
                   1093: @item
                   1094: @code{gr()}, @code{hgr()} $B$K$*$$$F(B, $B9`=g=x$N;XDj$,I,MW$K$J$C$?(B.
                   1095: @item
                   1096: $B9`=g=x$N;XDjJ}K!$,3HD%$5$l$?(B.
                   1097: @item
                   1098: $BM-8BBN>e$N%0%l%V%J4pDl7W;;$N%5%]!<%H(B.
                   1099: @item
                   1100: $B4pDlJQ49$K$h$k<-=q<0=g=x%0%l%V%J4pDl7W;;$N%5%]!<%H(B.
                   1101: @item
                   1102: $B$$$/$D$+$N?7$7$$AH$_9~$_H!?t$NDs6!(B.
1.3       noro     1103: \E
                   1104: \BEG
                   1105: @item Functions for Groebner basis computation have been implemented
                   1106: as built-in functions.
                   1107: @item
                   1108: @code{grm()} and @code{hgrm()} have been changed to @code{gr()} and
                   1109: @code{hgr()} respectively.
                   1110: @item
                   1111: @code{gr()} and @code{hgr()} requires explicit specification of
                   1112: an ordering type.
                   1113: @item
                   1114: Extension of specification of a term ordering type.
                   1115: @item
                   1116: Groebner basis computations over finite fields.
                   1117: @item
                   1118: Lex order Groebner basis computation via a modular change of ordering algorithm.
                   1119: @item
                   1120: Several new built-in functions.
                   1121: \E
1.1       noro     1122: @end itemize
                   1123:
1.3       noro     1124: \BJP
1.1       noro     1125: @node $B$=$NB>(B($BJQ99(B),,, Version 950831
                   1126: @subsubsection $B$=$NB>(B
1.3       noro     1127: \E
                   1128: \BEG
                   1129: @node Others(Changes),,, Version 950831
                   1130: @subsubsection Others
                   1131: \E
1.1       noro     1132:
                   1133: @itemize @bullet
1.3       noro     1134: \BJP
1.1       noro     1135: @item
                   1136: $BJ,;67W;;MQ%D!<%k(B, $BH!?t$NDI2C(B.
                   1137: @item
                   1138: $BBe?tBN>e$N(B GCD $B7W;;$K$*$1$k%b%8%e%i7W;;$N1~MQ(B.
                   1139: @item
                   1140: $B%$%G%"%k$N=`AGJ,2r$N%5%]!<%H(B.
                   1141: @item
                   1142: Windows $B$X$N0\?"(B.
1.3       noro     1143: \E
                   1144: \BEG
                   1145: @item
                   1146: Implementation of tools for distributed computation.
                   1147: @item
                   1148: Application of modular computation for GCD computation over algebraic number
                   1149: fields.
                   1150: @item
                   1151: Implementation of primary decompostion of ideals.
                   1152: @item
                   1153: Porting to Windows.
                   1154: \E
1.1       noro     1155: @end itemize
                   1156:
1.3       noro     1157: \JP @node Version 940420,,, $BJQ99E@(B
                   1158: \EG @node Version 940420,,, Changes
1.1       noro     1159: @subsection Version 940420
                   1160:
                   1161: @noindent
1.3       noro     1162: \JP $B:G=i$N8x3+HG(B.
                   1163: \EG The first public verion.
1.1       noro     1164:
1.3       noro     1165: \BJP
1.1       noro     1166: @node $BJ88%(B,,, $BIUO?(B
                   1167: @section $BJ88%(B
1.3       noro     1168: \E
                   1169: \BEG
                   1170: @node References,,, Appendix
                   1171: @section References
                   1172: \E
1.1       noro     1173: @table @code
                   1174: @item [Batut et al.]
                   1175: Batut, C., Bernardi, D., Cohen, H., Olivier, M., "User's Guide to PARI-GP",
                   1176: 1993.
                   1177: @item [Becker,Weispfenning]
                   1178: Becker, T., Weispfenning, V., "Groebner Bases", Graduate Texts in Math. 141,
                   1179: Springer-Verlag, 1993.
                   1180: @item [Boehm,Weiser]
                   1181: Boehm, H., Weiser, M., "Garbage Collection in an Uncooperative
                   1182: Environment", Software Practice & Experience, September 1988, 807-820.
                   1183: @item [Gebauer,Moeller]
                   1184: Gebauer, R., Moeller, H. M., "An installation of Buchberger's algorithm",
                   1185: J. of Symbolic Computation 6, 275-286.
                   1186: @item [Giovini et al.]
                   1187: Giovini, A., Mora, T., Niesi, G., Robbiano, L., Traverso, C.,
                   1188: ""One sugar cube, please" OR Selection strategies in the Buchberger algorithm",
                   1189: Proc. ISSAC'91, 49-54.
                   1190: @item [Noro,Takeshima]
                   1191: Noro, M., Takeshima, T., "Risa/Asir -- A Computer Algebra System",
                   1192: Proc. ISSAC'92, 387-396.
                   1193: @item [Noro,Yokoyama]
1.3       noro     1194: Noro, M., Yokoyama, K., "A Modular Method to Compute the Rational Univariate
                   1195: Representation of Zero-Dimensional Ideals",
                   1196: J. Symb. Comp. 28/1 (1999), 243-263.
1.1       noro     1197: @item [Shimoyama,Yokoyama]
                   1198: Shimoyama, T., Yokoyama, K.,
                   1199: "Localization and primary decomposition of polynomial ideals",
1.3       noro     1200: J. Symb. Comp. 22 (1996), 247-277.
                   1201: @item [Shoup]
                   1202: Shoup, V., "A new polynomial factorization algorithm and its implementation",
                   1203: J. Symb. Comp. 20 (1995), 364-397.
1.1       noro     1204: @item [Traverso]
                   1205: Traverso, C., "Groebner trace algorithms", Proc. ISSAC '88(LNCS 358), 125-138.
1.3       noro     1206: @item [Weber]
                   1207: Weber, K., "The accelerated Integer GCD Algorithm", ACM TOMS, 21, 1(1995), 111-122.
1.1       noro     1208: @end table
                   1209:

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>