**TI92**mainProgram: 12\17\1995 07:14:27 PMRcusp7¥ZÝ() Prgm Local n,width,height,xs,ys,xe,ye Local rx,ry,der,m ClrDraw 20n 5width 0ymin 2*widthymax width*238/102xmax ­xmaxxmin For i,0,59 ­width+i*width/30xs mirror(xs)ys xs+width/30xe mirror(xe)ye Line xs,ys,xe,ye EndFor For i,0,n ­width+i*2*width/nrx mirror(rx)ry Line rx,ry,rx,ymax slope(rx)der If abs(der)>.001 Then (der^2-1)/(2*der)m If m>0 Then widthxe Else ­widthxe EndIf ry+(xe-rx)*mye Line rx,ry,xe,ye EndIf EndFor EndPrgmäåÜ––