実数値のみの陰関数による曲線

　実数となる複素数Zの関数がf(Z)=0で表される曲線を点で描画します。
//**********************************************************************************
　入力　Lr：線の半径　V1：実部の範囲　V2：虚部の範囲　Fn：式の登録番号
　出力　曲線を点により描画
//**********************************************************************************
　#macro Complex_line_R(Lr,V1,V2,Fn)
　#local Fb=0; #local I=V2.x; #while(I,Fn);
　　#if(R!=Spr & F*Fb<0) sphere { Lr } #end #local Fb=F;
　 #local R=R+V1.z; #end
　#local I=I+V2.z; #end
　#end
//**********************************************************************************

　複素数Zの関数f(Z)の値が実数になるので、その値が、前回の値と符号が変わったときを、
関数f(Z)が０になったと見なし、そのときの( 実部，虚部 )の位置に球を表示します。