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