**TI92P*mainb1RsudÊ¥Zp(x,y) Func © computes 2nd unit diffs Local z,num,i,temp,h,tt,sd © „y/„x (shift(y,1)-y)/(shift(x,1)-x)z dim(x)-1num © dropping last undefined element For i,1,num z[i]temp[i] EndFor © „x shift(x,2)-xh For i,1,num h[i]tt[i] EndFor © compute 2nd unit diffs (shift(temp,1)-temp)/ttz © drop last dummy element For i,1,num-1 z[i]sd[i] EndFor sd EndFuncfäåÜz