**TI92P*maindRfud ¥Z²(x,y) Func Local z,num,i,temp © compute „y/„x (shift(y,1)-y)/(shift(x,1)-x)z dim(x)-1num © drop last undefined element For i,1,num z[i]temp[i] EndFor temp EndFunc™äåÜP;