一个GRIP小程序，出了点错，麻烦大家指点下^_^

wll

请问下各位，下面的式子，我想用循环实现，编程时出现了点问题，麻烦大家给指点指点~~
y2(1)=(m1-m2)(m1-m3)(m1-m4)
' r0 M3 J' K( ^y2(2)=(m2-m1)(m2-m3)(m2-m4)
9 W/ S) u4 D) |- U9 iy2(3)=(m3-m1)(m3-m2)(m3-m4)
. o7 m6 f$ o0 E  R) j9 o" Ly2(4)=(m4-m1)(m4-m2)(m4-m3)
4 ^, _) m4 Q3 v- g
: N$ u2 t3 l+ k: Q程序如下
8 ^& A; T& S8 j1 S: M; mNUMBER/m(4),y2(4)
4 M6 m5 K$ ?4 {+ y/ L) R6 cDATA/m(1..4),5,4,3,2

: O9 n+ W: B( L5 ?' n! XDATA/y2(1..4),1,1,1,1
trm2:
DO/trm3:,i,1,4
DO/trm3:,j,1,4
2 K8 O; E& ?* w8 q1 J* {1 Y5 _* Z' r
IFTHEN/i<>j
  o8 ^7 x& T! `* S: C# _& \y2(i)=y2(i)*(m(i)-m(j))
, N' H5 N: U# S& y/ ?4 ^3 H4 z JUMP/trm2:
ENDIF
PRINT/y2(i)
trm3:
halt
( P6 }4 @3 @! l! F* m2 U也是忙活了好几天，怎么弄也没弄对，麻烦大家帮忙看一下哪里不对，请多多指点^_^

wll

已经解决了 是IF语句用得不对
7 y7 G% R0 d5 [最后的程序时这样的
$ n4 s6 U, s9 w: vNUMBER/m(4),y2(4)
( z: x  O$ n6 A% q( j5 W' d$ N' jDATA/m(1..4),5,4,3,2
5 v& [1 C- A. N" ^3 l% m& ODATA/y2(1..4),1,1,1,1
) R; X1 Z$ Y; j4 `DO/trm3:,i,1,4
DO/trm3:,j,1,4
IF/i<>j,y2(i)=y2(i)*(m(i)-m(j))
trm3:
. O6 |5 H; K9 N$ k! ]" C1 B2 F/ {PRINT/y2(1..4)
halt

-KASA-

编程需要细心的