複素数Z1をN乗した値を計算します。Nは実数とします。************************************************************************************
入力 Z1:複素数 N:乗数(実数)
出力 複素数ZをN乗した値
//**********************************************************************************
#macro Ipow(Z1,N)
#local Zr=pow(vlength(Z1),N);
#if(Z1.x=0 & Z1.y=0) #local T1=0; #else #local T1=atan2(Z1.y,Z1.x); #end
#local Zt=N*T1;
Zr*< cos(Zt), sin(Zt) >
#end
//**********************************************************************************