描画する曲線の複素数の式を登録します。
//**********************************************************************************
入力 Tp:複素数Zの値 Fn:式の登録番号
出力 F:式の計算結果の値
//**********************************************************************************
#macro Line_function(Tp,Fn)
#switch(Fn)
#case(27) //cordioid
#local T=atan2(Tp.y,Epsz(Tp.x)); #local Iz=
#local A=<1,0>; #local W=((2*Iz-Imult(A,Ipow(Iz,2)))+A)/2; #local F=W;
#break
#end F
#end
//**********************************************************************************
ここでは、カージオイドの式を登録します。
複素数Zの値が0のとき、atan2の値がエラーとなるので、エラーを防ぐために、Epszを使用します。
//**********************************************************************************
#macro Epsz(N) #if(N=0) #local N=1e-8; #end N #end
//**********************************************************************************