home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh47a.d64 / funktionskurven (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.