home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 March
/
64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64
/
funktionskurven
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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]