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

wll

请问下各位，下面的式子，我想用循环实现，编程时出现了点问题，麻烦大家给指点指点~~
y2(1)=(m1-m2)(m1-m3)(m1-m4)
- P% s2 u( t* a* C$ hy2(2)=(m2-m1)(m2-m3)(m2-m4)
/ V$ q2 L5 K3 ?2 T) @7 t% |y2(3)=(m3-m1)(m3-m2)(m3-m4)
y2(4)=(m4-m1)(m4-m2)(m4-m3)
$ d; G2 O, y( W! N5 {! }6 B0 L. Z
程序如下
NUMBER/m(4),y2(4)
8 Q7 S1 S, Z+ _DATA/m(1..4),5,4,3,2
) t8 U0 J0 z" z5 c) k0 @
DATA/y2(1..4),1,1,1,1
  ~# f. _* d3 I0 T, h- }' z# z- ytrm2:
$ k, b0 a7 o7 a8 b9 qDO/trm3:,i,1,4
DO/trm3:,j,1,4

! n3 N& v8 |5 }, } IFTHEN/i<>j
7 ^! ?8 ^) K4 P5 ~! t# ^7 ~y2(i)=y2(i)*(m(i)-m(j))
JUMP/trm2:
ENDIF
0 n9 H- d8 L: m8 y2 CPRINT/y2(i)
trm3:
halt
也是忙活了好几天，怎么弄也没弄对，麻烦大家帮忙看一下哪里不对，请多多指点^_^

wll

已经解决了 是IF语句用得不对
最后的程序时这样的
NUMBER/m(4),y2(4)
- T  E5 P0 o" U1 G4 P4 t& ZDATA/m(1..4),5,4,3,2
- p" F1 K2 a& V$ P; `DATA/y2(1..4),1,1,1,1
& V# X, K0 R2 o# {DO/trm3:,i,1,4
DO/trm3:,j,1,4
IF/i<>j,y2(i)=y2(i)*(m(i)-m(j))
5 b1 ~& n* Z  a* L9 Ttrm3:
5 ^; L7 A4 l/ j6 A$ u. q" QPRINT/y2(1..4)
% Q2 g- g( S4 _) b; }0 Z/ Phalt

-KASA-

编程需要细心的