媒介変数で表された曲線の式を登録します。式は登録した番号で呼び出します。
//**********************************************************************************
入力 Tp：媒介変数の値 Fn：式の登録番号
出力 F ：媒介変数に対する曲線の座標値
//**********************************************************************************
#macro Line_function(Tp,Fn)
#switch(Fn)
#case(3) #local F=<20*cos(Tp), 0, 20*sin(Tp)>; #break // circle
#case(4) #local F=<20*cos(Tp), 2.6*Tp, 20*sin(Tp)>; #break // helix
#end F
#end
//**********************************************************************************
ここで、登録する曲線の式は、円と常螺旋の二種類です。
