複素数Z1を複素数Z2で割った値を計算します。
//**********************************************************************************
入力 Z1:複素数 Z2:複素数
出力 複素数Z1を複素数Z2で割った値
//**********************************************************************************
#macro Idiv(Z1,Z2)
#local R1=vlength(Z1);
#if(Z1.x=0 & Z1.y=0) #local T1=0; #else #local T1=atan2(Z1.y,Z1.x); #end
#if(Z2.x=0 & Z2.y=0) #local R2=1e-8; #local T2=0;
#else #local R2=vlength(Z2); #local T2=atan2(Z2.y,Z2.x); #end
#local Zt=T1-T2;
< cos(Zt), sin(Zt) >*R1/R2
#end
//**********************************************************************************