曲線を描くための媒介変数表示の式を登録します。 式は登録した番号で呼び出します。
//**********************************************************************************
入力 Tp:媒介変数の値 Fn:式の登録番号
出力 F :媒介変数に対する曲線の座標値
//**********************************************************************************
#macro Line_function(Tp,Fn)
#switch(Fn)
#case(1) #local F=< 5*pi*Tp, 0, 5*pi*sin(Tp) >; #break // sin
#case(2) #local F=< 20*Tp, 0, 20*cos(Tp) >; #break // cos
#case(3) #local F=< 40*cos(Tp), 0, 40*sin(Tp) >; #break // circle
#end F
#end
//**********************************************************************************