複素数の陰関数による曲線

　複素数Zが陰関数で表される曲線f(Z)=0を点で描画します。

//**********************************************************************************
　入力　Lr：線の半径　V1：実部の範囲　V2：虚部の範囲　Fn：式の登録番号
　出力　曲線を点により描画
//**********************************************************************************
　#macro Complex_line_E(Lr,V1,V2,Fn)
　#local Fb=<0,0>; #local I=V2.x; #while(I,Fn);
　　#if(R!=Spr & F.x*Fb.x<0 | R!=Spr & F.y*Fb.y<0) sphere { Lr } #end
　　#local Fb=F;
　#local R=R+V1.z; #end
　#local I=I+V2.z; #end
　#end
//**********************************************************************************

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