楕円の座標位置を求めるためにトラメルの式を定義します。
//**********************************************************************************
#macro Trammel_function(Sp,Tl,Vl,Px0,Pz0)
#local Px0=Vl*cos(Sp); #local Pz0=(Tl-Vl)*sin(Sp);
#end
//**********************************************************************************