IDに「RPG」が出るまでがんばるスレ Part3

[0276 名前は開発中のものです。 02/06/04 01:17 ID:???]

T1:=T*T*T*-0.5 +T*T*1.0 +T*-0.5 +0;
T2:=T*T*T*1.5 +T*T*-2.5 +T*0 +1;
T3:=T*T*T*-1.5 +T*T*2.0 +T*0.5 +0;
T4:=T*T*T*0.5 +T*T*-0.5 +T*0 +0;
XC:=T1*CP[X,1+J]+T2*CP[X,2+J]+T3*CP[X,3+J]+T4*CP[X,4+J];
YC:=T1*CP[Y,1+J]+T2*CP[Y,2+J]+T3*CP[Y,3+J]+T4*CP[Y,4+J];
ZC:=T1*CP[Z,1+J]+T2*CP[Z,2+J]+T3*CP[Z,3+J]+T4*CP[Z,4+J];