径数形式で表された曲面の式を登録します。 式は登録した番号で呼び出します。
//**********************************************************************************
入力 U：第一変数の値 V：第二変数の値 Fn：式の登録番号
出力 F：第一変数と第二変数に対する曲面の座標値
//**********************************************************************************
#macro Surface_function(U,V,Fn)
#switch(Fn)
#case(1) #local F=< sin(U), V, cos(U) >; #break
#end F
#end
//**********************************************************************************
