**TI85** Slope Fields by Harvey Carruth SLFL2.5CÖClDrwÖFnOffÖDisp "Enter F(x,y)"ÖInpSt FUNCTIONÖStEq(FUNCTION,F)ÖDisp "Enter xMin"ÖInput xMinÖDisp "Enter xMax"ÖInput xMaxÖDisp "Enter yMin"ÖInput yMinÖDisp "Enter yMax"ÖInput yMaxÖDisp "Enter Nx"ÖInput NXÖDisp "Enter Ny"ÖInput NYÖ(xMax-xMin)/NXHÖ(yMax-yMin)/NYVÖ1IÖLbl AÖ1JÖLbl BÖxMin+(J-1)*H+H/2xÖyMin+(I-1)*V+V/2yÖFMÖy-M*C*H/2SÖy+M*C*H/2ZÖx-C*H/2PÖx+C*H/2QÖIf abs (Z-S)>C*VÖGoto DÖLbl EÖLine(P,S,Q,Z)ÖIS>(J,NX)ÖGoto BÖIS>(I,NY)ÖGoto AÖStopÖLbl DÖy-V/2SÖy+V/2ZÖ(S-y)/M+xPÖ(Z-y)/M+xQÖGoto EÖÁ´