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

wll

请问下各位，下面的式子，我想用循环实现，编程时出现了点问题，麻烦大家给指点指点~~
) P- R& [0 q. a7 Wy2(1)=(m1-m2)(m1-m3)(m1-m4)
y2(2)=(m2-m1)(m2-m3)(m2-m4)
6 a' M! d8 s' C& ^3 M0 uy2(3)=(m3-m1)(m3-m2)(m3-m4)
y2(4)=(m4-m1)(m4-m2)(m4-m3)
! z8 k) D( H3 A- H! E% [1 C. b
程序如下
NUMBER/m(4),y2(4)
! x5 X1 |: B3 ]# l: }; UDATA/m(1..4),5,4,3,2

DATA/y2(1..4),1,1,1,1
0 _0 U) \6 v2 vtrm2:
8 i2 s" R6 M6 x+ ]. S1 e6 X; r7 CDO/trm3:,i,1,4
% Q0 w  d0 D- e. ?  P) W( A  v. yDO/trm3:,j,1,4

8 f, S  _0 ]6 n, a3 O IFTHEN/i<>j
y2(i)=y2(i)*(m(i)-m(j))
JUMP/trm2:
5 L* }% e! N, g/ ?% ] ENDIF
+ u9 B0 e- q9 T1 {& G+ w3 l9 ]PRINT/y2(i)
1 b7 M6 r7 I# ^4 u5 qtrm3:
1 v( Y5 M' Q) w' {" `% z1 c/ khalt
也是忙活了好几天，怎么弄也没弄对，麻烦大家帮忙看一下哪里不对，请多多指点^_^

wll

已经解决了 是IF语句用得不对
最后的程序时这样的
; n  M- f9 ~. Y1 C: {: `$ A0 RNUMBER/m(4),y2(4)
DATA/m(1..4),5,4,3,2
4 H: q7 x" J) ]! H" LDATA/y2(1..4),1,1,1,1
- l0 P. \) E4 m4 w" o" kDO/trm3:,i,1,4
$ }+ W5 V/ ?' t( [/ }: w- n  u7 O9 uDO/trm3:,j,1,4
4 E- S6 A+ `# f IF/i<>j,y2(i)=y2(i)*(m(i)-m(j))
. \) }2 Z$ S5 ?% @* J1 E* [! j+ }trm3:
" v2 N! Z1 W4 E+ s3 cPRINT/y2(1..4)
# [. R( q0 e3 m4 X% ~  L+ ?; E$ `+ ~halt

-KASA-

编程需要细心的