🚀 go-pugleaf

In article <KUGE.92Sep18203906@nhkgw.strl.nhk.or.jp> kuge@strl.nhk.or.jp (Tetsuro Kuge) writes:
>Mathematica $B$G!"(J
>$BG$0U$KM?$($i$l$?<B?t$NAH(J(a,b,c,d,e,f)$B$KBP$9$k!"<B?tJQ?t(Jx,y $B$N#2<!6J@~(J
>	a x^2 + b y^2 + c x y + d x + e y + f == 0
>$B$N%0%i%U$rIA$/$K$O!"$I$&$9$l$P$h$$$N$G$7$g$&$+!)(J

$BBg:e650iBg3X$N1[6M$G$9!#(J

$B<YF;$+$b$7$l$^$;$s$,!&!&!&(J

ContourPlot[ x^2+  y^2 + x y +  x +  y - 1, 
		   {x,-2,2},{y,-2,2},
		   PlotRange->{-0.01,0.01},
		   Contours->1,
		   ContourShading->False,
		   ContourSmoothing->Automatic]

$B>e$NMM$J4JC1$JNc$G$O$&$^$/$+$1$^$7$?!#(J
$B<!$N%7%9%F%`$GLs(J9-10$BIC$+$+$j$^$7$?!#(J
(Mathematica Ver2.0.4, NeXTstation mono 25MHz)

$B8=:_CmJ8Cf$G$^$@FO$$$F$$$^$;$s$,!"(JMathematica 2.1
$B$G$O!"(JCoutourPlot$B$O$+$J$j2~A1$5$l$F$k$i$7$$$G$9$+$i(J
$B>/$7$O$^$7$+$b$7$l$^$;$s!#(J

K. Koshigiri
koshi@cc.osaka-kyoiku.ac.jp