**TI89**mainSingle file dated Mon Oct 30 23:24:24 20Rinterpng¥Z (tab) Func Local n,r,i,ret,m colDim(tab)n For r,1,n,1 For i,n,r+1,­1 (tab[2,i]-tab[2,i-1])/(tab[1,i]-tab[1,i-r])tab[2,i] EndFor EndFor tab[2,1]ret 1m For r,1,n-1,1 m*(x-tab[1,r])m ret+tab[2,r+1]*mret EndFor Return ret EndFuncæäåÜŒL