5)べき乗

 複素数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
//**********************************************************************************