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

wll

请问下各位，下面的式子，我想用循环实现，编程时出现了点问题，麻烦大家给指点指点~~
y2(1)=(m1-m2)(m1-m3)(m1-m4)
+ Y/ u- y8 m& J6 [  F8 {y2(2)=(m2-m1)(m2-m3)(m2-m4)
2 R# O# O2 X4 Iy2(3)=(m3-m1)(m3-m2)(m3-m4)
y2(4)=(m4-m1)(m4-m2)(m4-m3)

程序如下
NUMBER/m(4),y2(4)
" z: u4 \+ |; r) r( |. eDATA/m(1..4),5,4,3,2
. d. d: N. a: C; i' S7 h
' z! q7 ^6 E  F$ f5 f' _/ j' PDATA/y2(1..4),1,1,1,1
trm2:
8 s* Z$ n% D- }; S$ u9 QDO/trm3:,i,1,4
DO/trm3:,j,1,4
2 W# T! B/ B! u9 J
3 G( c# ~8 P, c* j) Z2 H1 i IFTHEN/i<>j
  x$ v; n, Q$ k. p% my2(i)=y2(i)*(m(i)-m(j))
5 E: L/ W% `2 ]; C; v. y4 X JUMP/trm2:
ENDIF
PRINT/y2(i)
trm3:
halt
也是忙活了好几天，怎么弄也没弄对，麻烦大家帮忙看一下哪里不对，请多多指点^_^

wll

已经解决了 是IF语句用得不对
最后的程序时这样的
NUMBER/m(4),y2(4)
3 O0 f  B; P2 i3 WDATA/m(1..4),5,4,3,2
DATA/y2(1..4),1,1,1,1
3 K! X  C, g8 c8 |) K0 G5 i# cDO/trm3:,i,1,4
  G: i  Y/ X& x4 n* H% wDO/trm3:,j,1,4
  Q  G, {; c: x+ D& _! _3 k IF/i<>j,y2(i)=y2(i)*(m(i)-m(j))
4 T3 J8 Z' b0 |' E6 k9 K5 n9 Jtrm3:
4 s1 x9 U( z4 fPRINT/y2(1..4)
7 m: Q# N9 V% S' Chalt

-KASA-

编程需要细心的