\start83P\ \comment=Program file dated 04/10/96, 18:39 \protected=FALSE \name=QUAD ClrHome FnOff ClrDraw Horiz AxesOff Text(0,0,"Y=AX\^2\+BX+C") Prompt A Prompt B Prompt C If A=0 Then Disp "NOT QUADRATIC" Stop End \(-)\B\->\D B\^2\-4AC\->\E 2A\->\F 0\->\G If E<0 Then \(-)\E\->\E 1\->\G End Lbl E Menu("QUADRATIC","ALL ROOTS",A,"DEC ROOTS",B,"VERTEX",C,"QUIT",D) Lbl A ClrDraw Text(0,0,"Y=AX\^2\+BX+C") If (A=int(A)(B=int(B)(C=int(C)=0 Then 10A\->\A 10B\->\B 10C\->\C \(-)\B\->\D abs((B\^2\-4AC)\->\E 2A\->\F Goto A End 2\->\\theta\ 1\->\H Lbl 1 E/\theta\\^2\\->\Z If \theta\\^2\\<=\E Then If Z\!=\int(Z Then \theta\+1\->\\theta\ Goto 1 End H\theta\\->\H E/\theta\\^2\\->\E Goto 1 End If E=0 Then 0\->\H 1\->\E End 0\->\L If E=1 and G=0 Then D-H\->\L D+H\->\D 0\->\H End F\->\K F\->\M D\->\\theta\ F\->\Z Lbl 2 \theta\/Z\->\Y If Y\!=\int(Y Then \theta\-ZiPart(Y\->\X Z\->\\theta\ X\->\Z Goto 2 End D/Z\->\D F/Z\->\F If F<0 Then \(-)\D\->\D \(-)\F\->\F End H\->\\theta\ K\->\Z Lbl 3 \theta\/Z\->\Y If Y\!=\int(Y Then \theta\-ZiPart(Y\->\X Z\->\\theta\ X\->\Z Goto 3 End H/Z\->\H K/Z\->\K If K<0 Then \(-)\H\->\H \(-)\K\->\K End L\->\\theta\ M\->\Z Lbl 4 \theta\/Z\->\Y If Y\!=\int(Y Then \theta\-ZiPart(Y\->\X Z\->\\theta\ X\->\Z Goto 4 End L/Z\->\L M/Z\->\M If M<0 Then \(-)\L\->\L \(-)\M\->\M End If D\!=\0 or (D=0 and H=0) Then If F\!=\1 Text(6,0,D,"/",F) If F=1 Text(6,0,D) End If H=0 and D/F\!=\L/M Then If M\!=\1 Text(12,0,L,"/",M) If M=1 Text(12,0,L) End If H\!=\0 Then If K\!=\1 Text(12,0,"+-",H,"/",K) If K=1 Text(12,0,"+-",H) If G=0 Text(18,0,"\root\(",E) If G=1 and E=1 Text(18,0,"I") If G=1 and E\!=\1 Text(18,0,"I\root\(",E) End \(-)\B\->\D B\^2\-4AC\->\E 2A\->\F Lbl B Text(0,59,"ROOTS") Output(1,12,"(\(-)\B+-") Output(2,12,"\root\((B\^2\-") Output(3,12,"4AC))") Output(4,12,"/2A") If G=0 Then (D+\root\(E)/F\->\H (D-\root\(E)/F\->\I Text(24,0,H) Text(24,47,I) End Disp Pause Goto E Lbl C ClrDraw Text(0,0,"Y=AX\^2\+BX+C") Text(0,57,"VERTEX") D/F\->\H AH\^2\+BH+C\->\I If A>0 Text(12,0,"OPENS UP") If A<0 Text(12,0,"OPENS DOWN") Text(24,0,H) Text(24,47,I) Output(1,12,"\(-)\B/2A") Output(2,12," ") Output(3,12,"F(\(-)\B/") Output(4,12," 2A)") Pause Goto E Lbl D Full AxesOn Stop COPYRIGHT STEPHEN OSTERMILLER 1996 \stop83P\