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

wll

请问下各位，下面的式子，我想用循环实现，编程时出现了点问题，麻烦大家给指点指点~~
y2(1)=(m1-m2)(m1-m3)(m1-m4)
y2(2)=(m2-m1)(m2-m3)(m2-m4)
y2(3)=(m3-m1)(m3-m2)(m3-m4)
# q  }/ u; Z+ my2(4)=(m4-m1)(m4-m2)(m4-m3)
5 p0 D, \$ X3 k9 s; g
程序如下
NUMBER/m(4),y2(4)
DATA/m(1..4),5,4,3,2

& e! b) H: p; H6 j0 O# nDATA/y2(1..4),1,1,1,1
trm2:
' S: }; X: M$ _: F. aDO/trm3:,i,1,4
/ u9 D3 Q* A  Z( j; B7 M: sDO/trm3:,j,1,4
# ]+ o% s* H7 a% w. G
$ x4 \& W+ {6 @! E! p2 d IFTHEN/i<>j
y2(i)=y2(i)*(m(i)-m(j))
JUMP/trm2:
ENDIF
PRINT/y2(i)
trm3:
, \; S8 z9 h2 z9 p) O6 }2 Nhalt
也是忙活了好几天，怎么弄也没弄对，麻烦大家帮忙看一下哪里不对，请多多指点^_^

wll

已经解决了 是IF语句用得不对
最后的程序时这样的
NUMBER/m(4),y2(4)
2 X: V* `0 u$ Y/ N! @* v3 J: m- G* YDATA/m(1..4),5,4,3,2
% ?- B; m' ^0 h% N# |DATA/y2(1..4),1,1,1,1
9 w2 f# P6 h0 g' S5 q* WDO/trm3:,i,1,4
DO/trm3:,j,1,4
8 o& V1 X$ i  N IF/i<>j,y2(i)=y2(i)*(m(i)-m(j))
trm3:
PRINT/y2(1..4)
halt

-KASA-

编程需要细心的