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

wll

请问下各位，下面的式子，我想用循环实现，编程时出现了点问题，麻烦大家给指点指点~~
y2(1)=(m1-m2)(m1-m3)(m1-m4)
  `2 ?" u* H, N  {* a9 xy2(2)=(m2-m1)(m2-m3)(m2-m4)
2 p" l% E9 {6 Vy2(3)=(m3-m1)(m3-m2)(m3-m4)
" A, G" \) X- D4 A3 l' z5 C: Ty2(4)=(m4-m1)(m4-m2)(m4-m3)
" v4 T3 _2 \0 a' u- T
程序如下
$ L* y$ [7 l0 L2 B. zNUMBER/m(4),y2(4)
DATA/m(1..4),5,4,3,2
4 ~% f1 M+ P7 f, G5 U, [
; F6 n5 t$ d( [7 @) UDATA/y2(1..4),1,1,1,1
trm2:
4 P* e9 j  K' m4 pDO/trm3:,i,1,4
DO/trm3:,j,1,4
- D1 y6 E4 i$ \0 e& _* T4 w9 w
IFTHEN/i<>j
+ y9 Q4 X) c$ P# G8 t4 oy2(i)=y2(i)*(m(i)-m(j))
JUMP/trm2:
. W+ y  P6 @$ s8 }( r/ f ENDIF
PRINT/y2(i)
trm3:
halt
& b0 z) i, u& [, Z$ L8 ]2 x* v也是忙活了好几天，怎么弄也没弄对，麻烦大家帮忙看一下哪里不对，请多多指点^_^

wll

已经解决了 是IF语句用得不对
最后的程序时这样的
NUMBER/m(4),y2(4)
DATA/m(1..4),5,4,3,2
DATA/y2(1..4),1,1,1,1
DO/trm3:,i,1,4
! U9 D& ~8 S" W0 R' BDO/trm3:,j,1,4
5 O% v  l% c4 N. J0 u8 C: |: { IF/i<>j,y2(i)=y2(i)*(m(i)-m(j))
0 z, `: g- A: x( p" R% d! xtrm3:
PRINT/y2(1..4)
' q8 ^! _! f2 ^! rhalt

-KASA-

编程需要细心的