Sharp PC-E500/E500S Technikersoftware

CUBIC.121

Kubische Gleichungen

CUBIC.121 (1.314 Bytes)

10 ' CUBIC.121 (Cubic equation)
15 CLEAR
20 MERGE "G:SCUBIC.12$":MERGE "G:COMN.00$"
40 GOSUB *CG:DEFDBL P-R
50 QAL$=CHR$ &A1:QBE$=CHR$ &A2:QGM$=CHR$ &A3:Q32$=CHR$ &C3:Q33$=CHR$ &C4
60 QALX$=QAL$+"=":QBEX$=QBE$+"=":QGMX$=QGM$+"="
70 ON ERROR GOTO *ERR
80 Q9=0:P7$="a":GOSUB 800:P1=Q9:IF P1=0 THEN 80
90 Q9=0:P7$="b":GOSUB 800:Q1=Q9
100 Q9=0:P7$="c":GOSUB 800:R1=Q9
110 Q9=0:P7$="d":GOSUB 800:P2=Q9
120 GOSUB 900:PRINT "a=";P1;:LOCATE 21,1:PRINT "b=";Q1
130 LOCATE 1,2:PRINT "c=";R1;:LOCATE 21,2:PRINT "d=";P2
140 WAIT 50:PRINT "";:WAIT 0:GOSUB *DPC
150 GOSUB 3000
160 ON QNN GOTO 180,200,240
170 ' x only
180 GOSUB 900:PRINT "a(x-"+QAL$+")"+Q33$+"=0"
190 LOCATE 1,2:PRINT QALX$;QXX$:GOTO 290
200 ' x & y
210 GOSUB 900:PRINT "a(x-"+QAL$+")(x-"+QBE$+")"+Q32$+"=0"
220 LOCATE 1,2:PRINT QALX$;QXX$
230 LOCATE 1,3:PRINT QBEX$;QYY$:GOTO 290
240 ' x & y & z
250 CLS :LOCATE 1,0:PRINT "a(x-"+QAL$+")(x-"+QBE$+")(x-"+QGM$+")=0"
260 LOCATE 1,1:PRINT QALX$;QXX$
270 LOCATE 1,2:PRINT QBEX$;QYY$
280 LOCATE 1,3:PRINT QGMX$;QZZ$
290 GOSUB *REK:GOTO 80
800 GOSUB 900:PRINT "ax"+Q33$+"+bx"+Q32$+"+cx+d=0":LOCATE 1,2:PRINT P7$;"= ";:INPUT Q9:RETURN
900 CLS :LOCATE 10,0:PRINT "*  CUBIC EQUATION  *":LOCATE 1,1:RETURN
1000 *ERR IF ERL =800 RESUME 800
1010 GOSUB 900:GOSUB *DPA:GOSUB *REK:RESUME 80

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net