GRIP中如何实现拉格朗日插值函数？？

wll

! @0 L) \6 i* c8 v( H
5 ]% v+ z! [2 L/ |7 L4 sf(r)=x1*L1(r)+x2*L2(r)+...+x8*L8(r)
其中Li(r)=(r-r1)...(r-r(i-1))(r-r(i+1))...(r-rn)/(ri-r1)...(ri-r(i-1))(ri-r(i+1))...(ri-rn)
  b2 e' u! _0 Z7 F* i如果一项一项的按顺序写下去，可以实现这个式子，但是很繁琐。
) ?$ j" W7 _7 _! {* o大家有什么办法，用什么函数或者语句可以实现拉格朗日插值多项式？
各位谁有思路给一下提示，先谢过啦^_^
. w, c" H' u! L1 D. Z5 {# K2 @
8 ~& p0 c9 Y& A! ]另：
' A% Q; C6 d2 B1 U5 \, T就比如说我想实现这样一个循环
% ~* O6 h4 h; ADO/trm:,i,1,5
) C' c, U/ o3 Y- n) _! Zx(i)=n(1)*(e(i)-m(1))*(e(i)-m(2))*(e(i)-m(3))/((m(i)-m(1))*(m(i)-m(2))*(m(i)-m(3)))
trm:

2 ^; F5 l7 o5 P. |+ Q: W不论i等于几时，分母都有0项，改怎么办呢？