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

ifplot(POLY [,GEOMETRY] [,XRANGE] [,YRANGE] [,ID] [,NAME])
     :: 2 ѿ¿༰μ¿Ǥɽ.
conplot(POLY [,GEOMETRY] [,XRANGE] [,YRANGE] [,ZRANGE] [,ID] [,NAME])
     :: 2 ѿ¿༰μ¿Ǥɽ.
plot(POLY [,GEOMETRY] [,XRANGE] [,ID] [,NAME])
     :: 1 ѿ¿༰ɽȡΥդɽ.
plotover(POLY,ID,NUMBER)
     :: Ǥ¸ߤƤ륦ɥ褹.

RETURN
     
POLY
     ¿༰
GEOMETRY, XRANGE, YRANGE, ZRANGE
     ꥹ
ID, NUMBER
     
NAME
     ʸ

   * `ifplot()' , 2 ѿ¿༰ POLY μ¿Ǥ, ʤ
     ΥդɽԤ. `conplot()' , ƱͤΰФ, 
     ɽԤ. `plot()' , 1 ѿ¿༰ 1 ѿȡȸʤ
     ƤΥդɽԤ. UNIX  (`X11' ), Mac Ǥư.
   * UNIX Ǥ, ֥ץˤ¸Ƥ. ޥɤ 
     `asir_plot', `tcpinit()' ˤ굯ưƤɬפ.
   * Mac ǤǤľܤȡưǤ.
   * , POLY ɬܤǤ. ¾ΰϥץǤ. 
     ηӤΥǥե (å) ϼ̤.
     GEOMETRY
          ɥΥɥåñ̤ [X,Y] ǻꤹ. (UNIX 
          Ǥ [`400',`400'], Mac ǤǤ [`200',`200'].)
     XRANGE, YRANGE
          ѿϰϤλ, [V,VMIN,VMAX] ǻꤹ. (ѿ
           [V,`-2',`2'].)  λ꤬ʤ, POLY ˴ޤޤѿ
          ѿξѿ `x', ѿ `y' Ȥư. 
          򤱤뤿ˤXRANGE, YRANGE ꤹ. ޤ, POLY  
          1 ѿξ, λɬܤȤʤ.
     ZRANGE
          `conplot()' ξΤ߻Ǥ.  [V,VMIN,VMAX
          `[',STEP `]'] , STEP ꤵ줿ˤ, δֳ֤ 
          (VMAX-VMIN)/STEP Ȥʤ. ([Z,`-2',`2',`16'].)
     ID
          ֥ץֹ, ʤ `tcpinit()' ֹ֤
          . (ֺǶ˺, ĥƥ֤ʥץб
          ֹ.)
     NAME
          ɥ̾. (`Plot'.) 줿ɥΥȥ 
          NAME:N/M Ȥʤ.  , ץֹ N Υץ, M 
          Υɥ̣. ֹ, `plotover()' Ѥ
          .
   * , bigfloat ޤǤϤʤ. ʤ˸ư
     , ưǤʤФʤʤ. 
   * ĤΥץǤ륦ɥοϺ 128 ĤǤ.
   * `plotover()' , ꤷɥ, Ǥ 2 ѿ¿༰
     񤭤.

   * 轪λΥɥ, ޥκܥ򲡤ʤΥɥ
     ϰϤꤷܥΥȿʥɥ, ꤷ
     ϰϤ礷ɽ. ɥåϺ夫鱦ؤȹԤ. ɥ
     Ϥ᤿奭󥻥뤹, ޥݥ󥿤ξ夫
     äƤäƥܥΥФ褤. ɥη, ΰ
     , դ, ΥɥκդȰפ褦
     . ʲ `precise'  on ξ, 򤷤ΰ褬Ʊ 
     window ǽľ.

   * ɥǱܥ򲡤, κɸɥβ
     ɽ.

   * `conplot()' ɥˤ, ɥα¦Υޡ
     ܥǥɥå, бοѤ, 
     ɥб٥뤬ɽ.

   * UNIX ǤǤϤĤΥܥ, Mac ǤǤϥץ˥塼ˤꤤ
     Ĥѹ, Ǥ. UNIX ǤǤϼΥܥ󤬤.

     `quit'
          window ˲. ׻ξ, ׻Ǥ.
     `wide (ȥ)'
          ߤɽʬĲ 10 ܤΰɽ. ɽ
          ƤϰϤϤɽˤĹǼ. ɽ
          ϰϻԤ, ϰϤɥ褵.
     `precise (ȥ)'
          ΰ, 黻ˤ, Τ˺褹. Υ⡼
          Ǥ Sturm ʬˡˤ, θĿΤ˵
          ƤΤ, ǥեȤη׻ˡΤ褬ԤǤ. 
          , ֤;פˤ礬¿. 餫
          ʤ褦, εǽͭ¿༰ФƤΤͭ
          Ǥ. ((x^2+y^2-1)^2 ǻƤߤ.)

     `formula'
          б뼰ɽ.
     `noaxis (ȥ)'
          ɸä.

   * `asir_plot' ưޥˤäƤ, å̤˻Ѥ
     Τ⤢뤿, `.cshrc' ǥå礭 (16MB ) 
     ˻ꤷƤΤǤ. å `limit stacksize
     16m'ʤɤȻꤹ.

   * `X' ǤϡɥγʬˤĤ resource ˤ꿧դ䡢
     ηѤ뤳ȤǤ롣resource λλϰʲ̤ꡣ
     ʥǥեȤ򼨤Ƥ`plot*form*shapeStyle' ϡrectangle,
     oval, ellipse, roundedRectangleǤ롣
          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)$


     `tcpinit', `tcpclose'

