`ifplot', `conplot', `plot'
---------------------------

ifplot(POLY [,GEOMETRY] [,XRANGE] [,YRANGE] [,ID] [,NAME])
     :: 2 $@JQ?tB?9`<0$N<B?t>e$G$NNmE@$rI=<($9$k(J.
conplot(POLY [,GEOMETRY] [,XRANGE] [,YRANGE] [,ZRANGE] [,ID] [,NAME])
     :: 2 $@JQ?tB?9`<0$N<B?t>e$G$NEy9b@~$rI=<($9$k(J.
plot(POLY [,GEOMETRY] [,XRANGE] [,ID] [,NAME])
     :: 1 $@JQ?tB?9`<0$GI=$5$l$kH!?t$N%0%i%U$rI=<($9$k(J.
plotover(POLY,ID,NUMBER)
     :: $@$9$G$KB8:_$7$F$$$k%&%#%s%I%&$XIA2h$9$k(J.

RETURN
     $@@0?t(J
POLY
     $@B?9`<0(J
GEOMETRY, XRANGE, YRANGE, ZRANGE
     $@%j%9%H(J
ID, NUMBER
     $@@0?t(J
NAME
     $@J8;zNs(J

   * `ifplot()' $@$O(J, 2 $@JQ?t$NB?9`<0(J POLY $@$N<B?t>e$G$NNmE@(J, $@$9$J$o$A<BBe(J
     $@?t6J@~$N%0%i%U$NI=<($r9T$&(J. `conplot()' $@$O(J, $@F1MM$N0z?t$KBP$7(J, $@Ey(J
     $@9b@~$NI=<($r9T$&(J. `plot()' $@$O(J, 1 $@JQ?tB?9`<0$r(J 1 $@JQ?tH!?t$H8+$J$7(J
     $@$F$=$N%0%i%U$NI=<($r9T$&(J. UNIX $@HG(J (`X11' $@>e(J), Mac $@HG$GF0:n$9$k(J.
   * UNIX $@HG$O(J, $@1s3V%W%m%;%9$K$h$j<B8=$5$l$F$$$k(J. $@%3%^%s%I$O(J 
     `asir_plot'$@$G(J, `tcpinit()' $@$K$h$j5/F0$7$F$*$/I,MW$,$"$k(J.
   * Mac $@HG$G$OD>@\$3$l$i$NH!?t$r5/F0$G$-$k(J.
   * $@0z?t$NFb(J, POLY $@$OI,?\$G$"$k(J. $@$=$NB>$N0z?t$O%*%W%7%g%s$G$"$k(J. $@%*%W(J
     $@%7%g%s$N7A<0$*$h$S$=$N%G%U%)%k%HCM(J ($@%+%C%3Fb(J) $@$O<!$NDL$j(J.
     GEOMETRY
          $@%&%#%s%I%&$N%5%$%:$r%I%C%HC10L$G(J [X,Y] $@$G;XDj$9$k(J. (UNIX $@HG(J
          $@$G$O(J [`400',`400'], Mac $@HG$G$O(J [`200',`200'].)
     XRANGE, YRANGE
          $@JQ?t$NHO0O$N;XDj$G(J, [V,VMIN,VMAX] $@$G;XDj$9$k(J. ($@$$$:$l$NJQ?t(J
          $@$b(J [V,`-2',`2'].)  $@$3$N;XDj$,$J$$>l9g(J, POLY $@$K4^$^$l$kJQ?t$N(J
          $@FbJQ?t=g=x$N>e$NJQ?t$,(J `x', $@2<$NJQ?t$,(J `y' $@$H$7$F07$o$l$k(J. 
          $@$3$l$rHr$1$k$?$a$K$O(JXRANGE, YRANGE $@$r;XDj$9$k(J. $@$^$?(J, POLY $@$,(J 
          1 $@JQ?t$N>l9g(J, $@$3$l$i$N;XDj$OI,?\$H$J$k(J.
     ZRANGE
          `conplot()' $@$N>l9g$N$_;XDj$G$-$k(J. $@7A<0$O(J [V,VMIN,VMAX
          `[',STEP `]'] $@$G(J, STEP $@$,;XDj$5$l$?>l9g$K$O(J, $@Ey9b@~$N4V3V$,(J 
          (VMAX-VMIN)/STEP $@$H$J$k(J. ([Z,`-2',`2',`16'].)
     ID
          $@1s3V%W%m%;%9$NHV9f(J, $@$9$J$o$A(J `tcpinit()' $@$,JV$7$?HV9f$r;XDj(J
          $@$9$k(J. ($@0lHV:G6a$K:n$i$l(J, $@$+$D%"%/%F%#%V$J%W%m%;%9$KBP1~$9$k(J
          $@HV9f(J.)
     NAME
          $@%&%#%s%I%&$NL>A0(J. (`Plot'.) $@@8@.$5$l$?%&%#%s%I%&$N%?%$%H%k$O(J 
          NAME:N/M $@$H$J$k(J.  $@$3$l$O(J, $@%W%m%;%9HV9f(J N $@$N%W%m%;%9$N(J, M $@HV(J
          $@$N%&%#%s%I%&$r0UL#$9$k(J. $@$3$NHV9f$O(J, `plotover()' $@$GMQ$$$i$l(J
          $@$k(J.
   * $@0z?t$O(J, bigfloat $@$r4^$s$G$O$$$1$J$$(J. $@$9$J$o$A0z?t$K8=$l$kIbF0>.?t(J
     $@$O(J, $@A4$FG\@:EYIbF0>.?t$G$J$1$l$P$J$i$J$$(J. 
   * $@0l$D$N%W%m%;%9>e$GIA2h$G$-$k%&%#%s%I%&$N?t$O:GBg(J 128 $@8D$G$"$k(J.
   * `plotover()' $@$O(J, $@;XDj$7$?%&%#%s%I%&>e$K(J, $@0z?t$G$"$k(J 2 $@JQ?tB?9`<0(J
     $@$NNmE@$r>e=q$-$9$k(J.

   * $@IA2h=*N;8e$N%&%#%s%I%&>e$G(J, $@%^%&%9$N:8%\%?%s$r2!$7$J$,$i$N%I%i%C(J
     $@%0$GHO0O$r;XDj$7%\%?%s$rN%$9$H?7$?$J%&%#%s%I%&$,@8@.$5$l(J, $@;XDj$7(J
     $@$?HO0O$,3HBg$7$FI=<($5$l$k(J. $@%I%i%C%0$O:8>e$+$i1&2<$X$H9T$&(J. $@%I%i%C(J
     $@%0$r;O$a$?8e%-%c%s%;%k$9$k>l9g$O(J, $@%^%&%9%]%$%s%?$r;OE@$N>e$+:8$K(J
     $@;}$C$F$$$C$F%\%?%s$rN%$;$P$h$$(J. $@?7$7$$%&%$%s%I%&$N7A$O(J, $@;XDjNN0h(J
     $@$HAj;w$G(J, $@:GBgJU$,(J, $@85$N%&%#%s%I%&$N:GBgJU$H0lCW$9$k$h$&$KDj$a$i(J
     $@$l$k(J. $@0J2<$G@bL@$9$k(J `precise' $@$,(J on $@$N>l9g(J, $@A*Br$7$?NN0h$,F10l(J 
     window $@>e$G=q$-D>$5$l$k(J.

   * $@%&%#%s%I%&Fb$G1&%\%?%s$r2!$9$H(J, $@$=$NE@$N:BI8$,%&%#%s%I%&$N2<It$K(J
     $@I=<($5$l$k(J.

   * `conplot()' $@$G@8@.$7$?%&%#%s%I%&$K$*$$$F(J, $@%&%#%s%I%&$N1&B&$N%^!<(J
     $@%+$rCf%\%?%s$G%I%i%C%0$9$k$H(J, $@BP1~$9$kEy9b@~$N?'$,JQ$o$j(J, $@1&>e$N(J
     $@%&%#%s%I%&$KBP1~$9$k%l%Y%k$,I=<($5$l$k(J.

   * UNIX $@HG$G$O$$$/$D$+$N%\%?%s(J, Mac $@HG$G$O%W%k%@%&%s%a%K%e!<$K$h$j$$(J
     $@$/$D$+$N@_DjJQ99(J, $@A`:n$,$G$-$k(J. UNIX $@HG$G$O<!$N%\%?%s$,$"$k(J.

     `quit'
          window $@$rGK2u$9$k(J. $@7W;;Cf$N>l9g(J, $@7W;;$rCfCG$9$k(J.
     `wide ($@%H%0%k(J)'
          $@8=:_$NI=<(ItJ,$r=D2#3F(J 10 $@G\$7$?NN0h$rI=<($9$k(J. $@8=:_I=<($5$l(J
          $@$F$$$kHO0O$O$3$NI=<($K$*$$$FCf1{It$KD9J}7A$G<($5$l$k(J. $@$3$NI=(J
          $@<($GHO0O;XDj$r9T$&$H(J, $@$=$NHO0O$,?7$7$$%&%#%s%I%&$KIA2h$5$l$k(J.
     `precise ($@%H%0%k(J)'
          $@A*BrNN0h$r(J, $@@0?t1i;;$K$h$j(J, $@$h$j@53N$K:FIA2h$9$k(J. $@$3$N%b!<%I(J
          $@$G$O(J Sturm $@Ns$HFsJ,K!$K$h$j(J, $@6h4VFb$NNmE@$N8D?t$r@53N$K5a$a(J
          $@$F$$$/$b$N$G(J, $@%G%U%)%k%H$N7W;;K!$h$j$b@53N$JIA2h$,4|BT$G$-$k(J. 
          $@$?$@$7(J, $@IA2h;~4V$OM>7W$K$+$+$k>l9g$,B?$$(J. $@$3$N@bL@$+$iL@$i$+(J
          $@$J$h$&$K(J, $@$3$N5!G=$OM-M}?t78?t$NB?9`<0$NIA2h$KBP$7$F$N$_M-8z(J
          $@$G$"$k(J. ((x^2+y^2-1)^2 $@$NIA2h$G;n$7$F$_$h(J.)

     `formula'
          $@BP1~$9$k<0$rI=<($9$k(J.
     `noaxis ($@%H%0%k(J)'
          $@:BI8<4$r>C$9(J.

   * `asir_plot' $@$,5/F0$5$l$k%^%7%s$K$h$C$F$O(J, $@%9%?%C%/$rBgNL$K;HMQ$9(J
     $@$k$b$N$b$"$k$?$a(J, `.cshrc' $@$G%9%?%C%/%5%$%:$rBg$-$a(J (16MB $@DxEY(J) 
     $@$K;XDj$7$F$*$/$N$,0BA4$G$"$k(J. $@%9%?%C%/%5%$%:$O(J `limit stacksize
     16m'$@$J$I$H;XDj$9$k(J.

   * `X' $@$G$O!"%&%$%s%I%&$N3FItJ,$K$D$$$F(J resource $@$K$h$j?'IU$1$d!"%\(J
     $@%?%s$N7A$rJQ$($k$3$H$,$G$-$k!#(Jresource $@$N;XDj$N;EJ}$O0J2<$NDL$j!#(J
     $@!J%G%U%)%k%H$r<($7$F$*$/!K(J`plot*form*shapeStyle' $@$O!"(Jrectangle,
     oval, ellipse, roundedRectangle$@$,!";XDj$G$-$k!#(J
          plot*background:white
          plot*form*shapeStyle:rectangle
          plot*form*background:white
          plot*form*quit*background:white
          plot*form*wide*background:white
          plot*form*precise*background:white
          plot*form*formula*background:white
          plot*form*noaxis*background:white
          plot*form*xcoord*background:white
          plot*form*ycoord*background:white
          plot*form*level*background:white
          plot*form*xdone*background:white
          plot*form*ydone*background:white

     [0] tcpinit("geisha","asir_plot");
     7
     [1] ifplot(x^2+y^2-1)$
     [2] ifplot(x^5-2*y*x^2+y^5,[200,200])$
     [3] ifplot(x^6+3*y^2*x^4+(3*y^4-4*y^2)*x^2+y^6)$
     [4] ifplot(x^4+(2*y^2+3*y)*x^2+y^4-y^3)$
     [5] conplot(2*x^4-3*x^2*y+y^2-2*y^3+y^4,[y,-1,3],"Mask")$
     [6] conplot(x^6+(43/12*y^2-3)*x^4+(88/27*y^4+46/3*y^2+3)*x^2+64/729*y^6-
             16/27*y^4+4/3*y^2-1,[x,-3,3],[y,-3,3])$
     [7] plot(256*x^8-512*x^6+304*x^4-48*x^2+1,[x,-1,1])$
     [8] ifplot(364816*x^6+(9214800*y^2+8937600*y-121625)*x^4+(2520000*y^4-
             2250000*y^3-18877500*y^2-12656250*y+1880000)*x^2+4000000*y^6+
             3000000*y^5-8250000*y^4-4437500*y^3+6187500*y^2+1687500*y-1687500)$

$@;2>H(J
     `tcpinit', `tcpclose'

