请问下各位,下面的式子,我想用循环实现,编程时出现了点问题,麻烦大家给指点指点~~
) P- R& [0 q. a7 Wy2(1)=(m1-m2)(m1-m3)(m1-m4)+ Y; z2 [! P0 r7 B4 j
y2(2)=(m2-m1)(m2-m3)(m2-m4)
6 a' M! d8 s' C& ^3 M0 uy2(3)=(m3-m1)(m3-m2)(m3-m4)- b* r2 O5 A4 ], p7 f7 E
y2(4)=(m4-m1)(m4-m2)(m4-m3)
! z8 k) D( H3 A- H! E% [1 C. b4 H/ V9 Y, w" G7 T R
程序如下3 e6 ?4 H. z* s/ e/ P( ]. u+ o
NUMBER/m(4),y2(4)
! x5 X1 |: B3 ]# l: }; UDATA/m(1..4),5,4,3,2 s6 R9 G; r6 H* Q
. O7 A. Z: g* g7 d& h
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,43 p% z$ S& G( D! z( ?
8 f, S _0 ]6 n, a3 O IFTHEN/i<>j8 y( D6 S! t5 s9 k
y2(i)=y2(i)*(m(i)-m(j)): E, ]" @' n1 d; R4 m6 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: \$ f6 g4 m: V; q+ \
也是忙活了好几天,怎么弄也没弄对,麻烦大家帮忙看一下哪里不对,请多多指点^_^ |