PX=CX(N,N,I)'N次のベジエ曲線の場合 PY=CY(N,N,I)'N次のベジエ曲線の場合 DEF CX(N,K,T) IF N>0 THEN RETURN F(CX(N-1,K-1,T),CX(N-1,K,T),T) ELSE 'N=0 の場合 RETURN X[K] ENDIF END DEF CY(N,K,T) CXと同様に... END これで出来るとおもいます