**TI85** Program file dated 02/07/00, 13:08 SLOPEFLDClLCDÖ17WÖ11LÖ(yMax-yMin)/LVÖ(xMax-xMin)/WHÖyMin+V/3YÖFor(R,1,L)ÖxMin+H/3XÖFor(C,1,W)Öy1MÖM*H/3+YSÖM*H/3+YTÖIf abs (T-S)>VÖThenÖY+V/3TÖY-V/3SÖ(T-Y)/M+XQÖ(S-Y)/M+XPÖElseÖX-H/3PÖX+H/3QÖEndÖYFÖLine(P,S,Q,T)ÖFYÖX+HXÖEndÖY+VYÖEndÖPause ÖDIFFEQN9Z