home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh47a.d64
/
funktionskurven
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
3KB
|
111 lines
10 LINE=49152
20 HARDCOPY=49155
30 CLEAR=49158
40 GOTO 65
50 Y=::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
60 RETURN
65 IF Z=0 THEN Z=1:LOAD"STAR-SUPPORT",8,1
66 SYS CLEAR:S1=5:S2=0:S3=0:S4=7
70 POKE 53281,S2:POKE 53280,S3:POKE 646,S4
80 PRINT"[147]"
90 PRINT:PRINT" FUNKTIONSKURVEN
100 [153]:[153]" VON TILMAN SOHR
110 PRINT:PRINT" (C) SEPTEMBER 1987
120 [153]""
130 [153]" 1. EINGEBEN DER FUNKTION"
140 [153]" 2. KOORDINATENSYSTEM FESTLEGEN UND
145 PRINT" FUNKTIONEN LOESCHEN
150 [153]" 3. FUNKTION DRUCKEN"
155 [153]" 4. SYSTEM-VARIABLEN AENDERN"
160 [161]A$:[139]A$[179]"1"[176]A$[177]"4"[167]160
170 [145][197](A$)[137] 500,1000,1500,2000
499 [143] EINGEBEN DER FUNKTION
500 [153]"LOAD"
510 [153]" EINGEBEN DER FUNKTION :"
515 [139] F[179][177]1 [167] [153]"ERST DIE KOORDINATEN EINGEBEN":[141] 10000:[137] 80
520 [153]" F(X) = ";F$
525 [151] 211,8:[151]214,5:[158] 58640:[151] 19,1:[133]F$
530 [139] F$[178]""[167] 500
531 [151] 19,0
535 [129]T[178]2114[164]2187:[151]T,58:[130]
540 T[178]0:[129]R[178]1[164][195](F$)
545 S[178]0:T[178]T[170]1
550 A$[178][202](F$,R,1)
560 B$[178][202](F$,R,3)
570 [139] A$[178]"+" [167] S[178]170
580 [139] A$[178]"-" [167] S[178]171
590 [139] A$[178]"*" [167] S[178]172
600 [139] A$[178]"/" [167] S[178]173
610 [139] A$[178]"^" [167] S[178]174
620 [139] A$[178]"(null)" [167] S[178]255
630 [139] B$[178]"SQR" [167] S[178]186
640 [139] B$[178]"LOG" [167] S[178]188
650 [139] B$[178]"COS" [167] S[178]190
660 [139] B$[178]"SIN" [167] S[178]191
670 [139] B$[178]"TAN" [167] S[178]192
680 [139] B$[178]"ATN" [167] S[178]193
690 [139] B$[178]"ABS" [167] S[178]182
700 [139] S[179][177]0 [167] 720
710 S[178][198](A$)
720 [151] 2113[170]T,S
730 [139] S[177]180 [175] S[179][177]255 [167] R[178]R[170]2
740 [130]:[151] 2115[170]T,142
750 LX[178][171]1
760 [129] T[178]NX [164] MX [169] S1[173](EE[172]1.2)
770 X[178]T[170]10[174][171]6
780 [141] 50
790 Y[178]Y[172]EE[170]AY
800 X[178]T[172]EE[172]1.2[170]AX
805 [139] Y[179]0 [176] Y[177]959 [167] LX[178][171]1:[137] 840
810 [139] LX[178][171]1 [167] 830
820 [158] LINE,1,Y,X,LY,LX
830 LX[178]X:LY[178]Y
840 [130]
850 [137] 80
1000 [143] KOORDINATENSYSTEM FESTLEGEN
1010 [158] CLEAR:[153]"LOAD"
1020 F[178]1:[153]" KOORDINATENSYSTEM FESTLEGEN :"
1030 [153]
1040 [133]"WIE GROSS IST X MAXIMAL ";MX
1045 [139] MX[179][178]0[167]1040
1050 [133]" MINIMAL ";NX
1055 [139] NX[177][178]0[167]1050
1057 [153]
1060 [133]"WIE GROSS IST Y MAXIMAL ";MY
1065 [139] MY[179][178]0[167]1060
1070 [133]" MINIMAL ";NY
1075 [139] NY[177][178]0[167]1070
1080 EE[178]959[173](MY[171]NY)
1085 H[178]10[173]EE
1090 [139] MX[179]H [176] NX[177][171]H [176] MY[179]H [176] NY[177][171]H [167] 1040
1100 AX[178][171]NX[172]EE[172]1.2:AY[178][171]NY[172]EE
1110 [158] LINE,1,AY,0,AY,EE[172](MX[171]NX)[172]1.2
1120 [158] LINE,1,0,AX,959,AX
1130 [129]T[178][181](NX)[170]1[164]MX[171]1:[158] LINE,1,AY[171]5,(AX[170]T[172]EE[172]1.2),AY[170]5,(AX[170]T[172]EE[172]1.2):[130]
1140 [129]T[178][181](NY)[170]1[164]MY[171]1:[158] LINE,1,AY[170]T[172]EE,AX[171]6,AY[170]T[172]EE,AX[170]6:[130]
1150 [158] LINE,1,959,AX,950,AX[171]10
1160 [158] LINE,1,959,AX,950,AX[170]10
1170 [158] LINE,1,AY,EE[172](MX[171]NX)[172]1.2,AY[171]10,EE[172](MX[171]NX)[172]1.2[171]10
1180 [158] LINE,1,AY,EE[172](MX[171]NX)[172]1.2,AY[170]10,EE[172](MX[171]NX)[172]1.2[171]10
1190 [137] 80
1500 [143] FUNKTION DRUCKEN
1510 [153]"LOAD"
1520 [153]" FUNKTIONEN DRUCKEN"
1530 [158] HARDCOPY, (MX[171]NX)[172]EE[172]1.2
1540 [137] 80
2000 [153]"LOAD"
2010 [153]"SYSTEMVARIABLEN AENDERN :"
2020 [153]""
2030 [133]"ABSTAND DER LINIEN AUF DER X-ACHSE 5CMDCMDCMD"; S1
2040 [133]"HINTERGRUNDSFARBE 0CMDCMDCMD";S2
2050 [139] S2[179]0 [176] S2[177]15 [167] 2040
2060 [133]"RAMENFARBE 0CMDCMDCMD";S3
2070 [139] S3[179]0 [176] S3[177]15 [167] 2060
2080 [133]"ZEICHENFARBE 7CMDCMDCMD";S4
2090 [139] S4[179]0 [176] S4[177]15 [167] 2080
2100 [137] 70
10000 [143] AUF TESTENDRUCK WARTEN
10010 [153]"TASTE DRUECKEN ..."
10020 [161]A$:[139]A$[178]""[167]10020
10030 [142]