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 >
Commodore BASIC  |  2022-10-26  |  3KB  |  111 lines
  1. 10 line=49152
  2. 20 hardcopy=49155
  3. 30 clear=49158
  4. 40 goto 65
  5. 50 y=::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6. 60 return
  7. 65 if z=0 then z=1:load"star-support",8,1
  8. 66 sys clear:s1=5:s2=0:s3=0:s4=7
  9. 70 poke 53281,s2:poke 53280,s3:poke 646,s4
  10. 80 print"[147]"
  11. 90 print:print"            funktionskurven
  12. 100 [153]:[153]"            von tilman sohr
  13. 110 print:print"          (c)  september 1987
  14. 120 [153]""
  15. 130 [153]"   1. eingeben der funktion"
  16. 140 [153]"   2. koordinatensystem festlegen und
  17. 145 print"      funktionen loeschen
  18. 150 [153]"   3. funktion drucken"
  19. 155 [153]"   4. system-variablen aendern"
  20. 160 [161]a$:[139]a$[179]"1"[176]a$[177]"4"[167]160
  21. 170 [145][197](a$)[137] 500,1000,1500,2000
  22. 499 [143] eingeben der funktion
  23. 500 [153]"load"
  24. 510 [153]" eingeben der funktion :"
  25. 515 [139] f[179][177]1 [167] [153]"erst die koordinaten eingeben":[141] 10000:[137] 80
  26. 520 [153]" f(x) = ";f$
  27. 525 [151] 211,8:[151]214,5:[158] 58640:[151] 19,1:[133]f$
  28. 530 [139] f$[178]""[167] 500
  29. 531 [151] 19,0
  30. 535 [129]t[178]2114[164]2187:[151]t,58:[130]
  31. 540 t[178]0:[129]r[178]1[164][195](f$)
  32. 545 s[178]0:t[178]t[170]1
  33. 550 a$[178][202](f$,r,1)
  34. 560 b$[178][202](f$,r,3)
  35. 570 [139] a$[178]"+" [167] s[178]170
  36. 580 [139] a$[178]"-" [167] s[178]171
  37. 590 [139] a$[178]"*" [167] s[178]172
  38. 600 [139] a$[178]"/" [167] s[178]173
  39. 610 [139] a$[178]"^" [167] s[178]174
  40. 620 [139] a$[178]"(NULL)" [167] s[178]255
  41. 630 [139] b$[178]"sqr" [167] s[178]186
  42. 640 [139] b$[178]"log" [167] s[178]188
  43. 650 [139] b$[178]"cos" [167] s[178]190
  44. 660 [139] b$[178]"sin" [167] s[178]191
  45. 670 [139] b$[178]"tan" [167] s[178]192
  46. 680 [139] b$[178]"atn" [167] s[178]193
  47. 690 [139] b$[178]"abs" [167] s[178]182
  48. 700 [139] s[179][177]0 [167] 720
  49. 710 s[178][198](a$)
  50. 720 [151] 2113[170]t,s
  51. 730 [139] s[177]180 [175] s[179][177]255 [167] r[178]r[170]2
  52. 740 [130]:[151] 2115[170]t,142
  53. 750 lx[178][171]1
  54. 760 [129] t[178]nx [164] mx [169] s1[173](ee[172]1.2)
  55. 770 x[178]t[170]10[174][171]6
  56. 780 [141] 50
  57. 790 y[178]y[172]ee[170]ay
  58. 800 x[178]t[172]ee[172]1.2[170]ax
  59. 805 [139] y[179]0 [176] y[177]959 [167] lx[178][171]1:[137] 840
  60. 810 [139] lx[178][171]1 [167] 830
  61. 820 [158] line,1,y,x,ly,lx
  62. 830 lx[178]x:ly[178]y
  63. 840 [130]
  64. 850 [137] 80
  65. 1000 [143] koordinatensystem festlegen
  66. 1010 [158] clear:[153]"load"
  67. 1020 f[178]1:[153]" koordinatensystem festlegen :"
  68. 1030 [153]
  69. 1040 [133]"wie gross ist x maximal ";mx
  70. 1045 [139] mx[179][178]0[167]1040
  71. 1050 [133]"                minimal ";nx
  72. 1055 [139] nx[177][178]0[167]1050
  73. 1057 [153]
  74. 1060 [133]"wie gross ist y maximal ";my
  75. 1065 [139] my[179][178]0[167]1060
  76. 1070 [133]"                minimal ";ny
  77. 1075 [139] ny[177][178]0[167]1070
  78. 1080 ee[178]959[173](my[171]ny)
  79. 1085 h[178]10[173]ee
  80. 1090 [139] mx[179]h [176] nx[177][171]h [176] my[179]h [176] ny[177][171]h [167] 1040
  81. 1100 ax[178][171]nx[172]ee[172]1.2:ay[178][171]ny[172]ee
  82. 1110 [158] line,1,ay,0,ay,ee[172](mx[171]nx)[172]1.2
  83. 1120 [158] line,1,0,ax,959,ax
  84. 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]
  85. 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]
  86. 1150 [158] line,1,959,ax,950,ax[171]10
  87. 1160 [158] line,1,959,ax,950,ax[170]10
  88. 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
  89. 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
  90. 1190 [137] 80
  91. 1500 [143] funktion drucken
  92. 1510 [153]"load"
  93. 1520 [153]" funktionen drucken"
  94. 1530 [158] hardcopy, (mx[171]nx)[172]ee[172]1.2
  95. 1540 [137] 80
  96. 2000 [153]"load"
  97. 2010 [153]"systemvariablen aendern :"
  98. 2020 [153]""
  99. 2030 [133]"abstand der linien auf der x-achse   5cmdcmdcmd"; s1
  100. 2040 [133]"hintergrundsfarbe   0cmdcmdcmd";s2
  101. 2050 [139] s2[179]0 [176] s2[177]15 [167] 2040
  102. 2060 [133]"ramenfarbe          0cmdcmdcmd";s3
  103. 2070 [139] s3[179]0 [176] s3[177]15 [167] 2060
  104. 2080 [133]"zeichenfarbe        7cmdcmdcmd";s4
  105. 2090 [139] s4[179]0 [176] s4[177]15 [167] 2080
  106. 2100 [137] 70
  107. 10000 [143] auf testendruck warten
  108. 10010 [153]"taste druecken ..."
  109. 10020 [161]a$:[139]a$[178]""[167]10020
  110. 10030 [142]
  111.