home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 63 / 64er_Magazin_Sonderheft_63_19xx_Markt__Technik_de_Side_A.d64 / hmacher (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  246 lines
  1. 10 rem ********************************
  2. 20 rem * funktionenhilfe fuer den c64 *
  3. 30 rem * michael suhr                 *
  4. 40 rem * 5160 dueren wernerstr. 10    *
  5. 50 rem * tel: 02421/14666             *
  6. 70 rem ********************************
  7. 80 :
  8. 100 rem ** hilfestellung ***
  9. 110 :
  10. 120 dimf$(90):p$=chr$(13):s$=chr$(34)
  11. 130 :
  12. 140 open 15,8,15,"s:0hilfe":close15
  13. 150 open1,8,1,"0hilfe"
  14. 160 f$(1)="[147][193]llgemeine [200]inweise!"
  15. 170 f$(2)="([214]erlassen mit '_')"
  16. 180 f$(3)="[199]anz rationale [198]kt. koennen wie auf"
  17. 190 f$(4)="dem [208]apier geschrieben eingegeben"
  18. 200 f$(5)="werden.[194]itte klammern [211]ie bei gebrochen"
  19. 210 f$(6)="rationalen [198]kt. [218]aehler und [206]enner ein."
  20. 220 f$(7)="[197]rlaubt sind z.[194]. 1/x ; x/4 ; x[145]1/4,"
  21. 230 f$(8)="also [193]usdruecke, die eindeutige [218]aehler und [206]enner haben."
  22. 240 f$(9)="[193]chten [211]ie auf [197]indeutigkeit! [211]o wird"
  23. 250 f$(10)="z.[194]. sin2x als (sin2)*x interpretiert!"
  24. 260 f$(11)="[193]lso -> [201]m [218]weifelsfalle einklammern!"
  25. 270 f$(12)="[214]om [208]rogramm erkannte [198]unktionen:"
  26. 280 f$(13)="sin -> sinx ;sin(x-2); (sin(x-e))[145]2"
  27. 290 f$(14)="cos -> wie sin"
  28. 300 f$(15)="tan -> wie sin"
  29. 310 f$(16)="sgn -> wie sin"
  30. 320 f$(17)="warte"
  31. 330 f$(18)="[147]sqr -> sqr(2x) ; [186](sinx) ; [186](2pi-x) ;    auch >[211]chift;@< ([186][146])"
  32. 340 f$(19)="abs -> abs(x-3) ;[221]sinx[221] ; [221]x[221]-[221]tanx[221] ;   auch >[211]chift;b< ([221][146])"
  33. 350 f$(20)="ln  -> wie sin; [204]ogarithmus zur [194]asis e[146]"
  34. 360 f$(21)="exp(x)[146] wird nicht erkannt, => e[145]x!"
  35. 370 f$(22)="[214]om [208]rogramm erkannte [218]eichen:"
  36. 380 f$(23)="[186]    -> wie sqr"
  37. 390 f$(24)="[221]    -> wie abs"
  38. 400 f$(25)="e    -> [197]ulerische [218]ahl"
  39. 410 f$(26)="pi   -> 3.14159...."
  40. 420 f$(27)="a..z -> werden als [198]unktion betrachtet"
  41. 430 f$(28)="x    -> [204]aufvariable"
  42. 440 f$(29)="[];()-> [203]lammern, vom [208]rogramm gleichge-        stellt!"
  43. 450 f$(30)="[193]lle [218]ahlen und [210]echenzeichen."
  44. 460 f$(31)="warte"
  45. 470 f$(32)="[147][194]eispiele:"
  46. 480 f$(33)="[198]alsch ...............[210]ichtig"
  47. 490 f$(34)="x9....................9x"
  48. 500 f$(35)="[186]sinx.................[186](sinx)
  49. 510 f$(36)[178]"x+3/x-4...............[x+3]/[x-4]
  50. 520 f$(37)="1/cosx................1/(cosx)"
  51. 530 f$(38)="logx ([218]ehnerlog.).....lnx/(ln10)"
  52. 540 f$(39)="e+[186]2 ('x' fehlt!).....e+[186](2x)"
  53. 550 f$(40)="(2-x)lnx..............(2-x)*lnx"
  54. 560 f$(41)="[145]3[186]x...................x[145]1/3"
  55. 570 f$(42)="warte"
  56. 580 f$(43)="[147][196]as [199]leichheitszeichen '=' wird nicht"
  57. 590 f$(44)="akzeptiert. [213]m [199]leichungen zu loesen"
  58. 600 f$(45)="geben [211]ie anstelle des [199]leichheits-"
  59. 610 f$(46)="zeichen ein [205]inuszeichen '-' ein."
  60. 620 f$(47)="[193]n den [211]tellen an denen diese [198]unktion"
  61. 630 f$(48)="ihre [206]ullstellen hat, ist die [199]leichung"
  62. 640 f$(49)="erfuellt!"
  63. 650 f$(50)="warte"
  64. 660 f$(51)="[147][194]esonderheiten des [208]rogramms:"
  65. 670 f$(52)="[196]ie [210]echengenauigkeit betraegt 4 [206]ach-"
  66. 680 f$(53)="kommastellen (gerundet), bei [193]usgaben"
  67. 690 f$(54)="wie [186]2; 2pi/2;... allerdings nur 3!"
  68. 700 f$(55)="[193]ufloesung:"
  69. 710 f$(56)="[196]ef'luecken:   41/100"
  70. 720 f$(57)="[206]ullstellen:   41/100"
  71. 730 f$(58)="[197]xtremwerte:   21/100"
  72. 740 f$(59)="[193]usschluesse:"
  73. 750 f$(60)="[194]etragsfunktionen koennen nur gezeichnetwerden."
  74. 760 f$(61)="[198]unktionen wie [186](x[145]2) oder (x[145]3)[145]1/3,"
  75. 770 f$(62)="also alle [208]otenzfunktionen, die letzt-"
  76. 780 f$(63)="endlich 'x' alleine darstellen, werden"
  77. 790 f$(64)="fehlerhaft berechnet."
  78. 800 f$(65)="warte"
  79. 810 f$(66)="[147][194]esonderheiten zur [194]erechnung der [196]ef'-"
  80. 820 f$(67)="luecken:"
  81. 830 f$(68)="[215]enn [211]ie tanx als [198]kt. eingaben und die"
  82. 840 f$(69)="[205]eldung '[208]ruefe [206]enner...' erscheint,"
  83. 850 f$(70)="liegt das an der [212]atsache, dass das"
  84. 860 f$(71)="[208]rogramm tanx als sinx/cosx ansieht."
  85. 870 f$(72)="warte"
  86. 880 f$(73)="[147][194]esonderheiten zur [194]erechnung der [206]ull-"
  87. 890 f$(74)="stellen:"
  88. 900 f$(75)="[196]as [208]rogramm zerlegt die [198]kt. in ein-"
  89. 910 f$(76)="zelne [212]erme und prueft diese gesondert"
  90. 920 f$(77)="auf [206]ullstellen. [196]eshalb wird das"
  91. 930 f$(78)="[201]ntervall oefters durchlaufen ([205]in.=2)."
  92. 940 f$(79)="warte"
  93. 950 f$(80)="[147][194]esonderheiten zur [194]erechnung der [197]x-"
  94. 960 f$(81)="tremwerte:"
  95. 970 f$(82)="[196]ieser [212]eil ist in jeder [194]eziehung"
  96. 980 f$(83)="der [210]echenzeitaufwendigste."
  97. 990 f$(84)="[196]as [208]rogramm errechnet die [211]teigung der"
  98. 1000 f$(85)="[198]kt. in jedem zu pruefenden [208]unkt und"
  99. 1010 f$(86)="nimmt diesen als [198]unktionswert fuer die"
  100. 1020 f$(87)="[206]ullstellensuche. [214]iel [193]rbeit..."
  101. 1030 gosub2380
  102. 1040 close1
  103. 1050 :
  104. 1060 open15,8,15,"s:1hilfe":close15
  105. 1070 open1,8,1,"1hilfe"
  106. 1080 f$(1)="[196]ie [211]umme der runden [203]lammern ist"
  107. 1090 f$(2)="ungerade. [213]m den [213]eberblick zu behalten"
  108. 1100 f$(3)="empfehle ich [201]hnen, die runden [203]lammern"
  109. 1110 f$(4)="nach innen zu setzen, z.[194].:"
  110. 1120 f$(4)="[cos([146]x[145]sin[x-tan([146]x-1)[146]])[146]]/[x]"
  111. 1130 gosub2380
  112. 1140 close1
  113. 1150 :
  114. 1160 open15,8,15,"s:2hilfe":close15
  115. 1170 open1,8,1,"2hilfe"
  116. 1180 f$(1)="[196]ie [211]umme der eckigen [203]lammern ist"
  117. 1190 f$(2)="ungerade. [213]m den [213]eberblick zu behalten"
  118. 1200 f$(3)="empfehle ich [201]hnen,die eckigen [203]lammern"
  119. 1210 f$(4)="nach aussen zu setzen, z.[194].:"
  120. 1220 f$(5)="[[146]cos(x[145]sin[[146]x-tan(x-1)][146])][146]/[[146]x][146]"
  121. 1230 gosub2380
  122. 1240 close1
  123. 1250 :
  124. 1260 open15,8,15,"s:3hilfe":close15
  125. 1270 open1,8,1,"3hilfe"
  126. 1280 f$(1)="[196]iese [198]ehlermeldung erscheint immer"
  127. 1290 f$(2)="dann, wenn nach einer [198]unktion ein"
  128. 1300 f$(3)="[208]otenzzeichen 'steht'. [193]lso auch bei"
  129. 1310 f$(4)="folgenden [198]unktionen:"
  130. 1320 f$(5)="[186][145]2x; tan[145]2(x-e);"
  131. 1330 gosub2380
  132. 1340 close1
  133. 1350 :
  134. 1360 open15,8,15,"s:4hilfe":close15
  135. 1370 open1,8,1,"4hilfe"
  136. 1380 f$(1)="[196]iese [198]ehlermeldung erscheint immer"
  137. 1390 f$(2)="dann, wenn ein [218]eichen keiner [193]n-"
  138. 1400 f$(3)="weisung zugeordnet werden kann."
  139. 1410 f$(4)="z.[194].:"
  140. 1420 f$(5)="lnl[146]x; tan(x-k[146]); [221]x-sqc[146]x[221]"
  141. 1430 gosub2380
  142. 1440 close1
  143. 1450 :
  144. 1460 open15,8,15,"s:5hilfe":close15
  145. 1470 open1,8,1,"5hilfe"
  146. 1480 f$(1)="[194]eachten [211]ie, dass das [208]rogramm nur"
  147. 1490 f$(2)="natuerliche [204]ogarithmen, also die"
  148. 1500 f$(3)="zur [194]asis e[146] berechnen kann."
  149. 1510 f$(4)="[211]ie koennen sich aber jeden beliebigen"
  150. 1520 f$(5)="durch die [196]arstellung:"
  151. 1530 f$(6)="(lnx)/[ln(beliebiger [194]asis)]"
  152. 1540 f$(7)="errechnen lassen."
  153. 1550 gosub2380
  154. 1560 close1
  155. 1570 :
  156. 1580 open15,8,15,"s:6hilfe":close15
  157. 1590 open1,8,1,"6hilfe"
  158. 1600 f$(1)="[194]eachten [211]ie, dass numerische [198]aktoren"
  159. 1610 f$(2)="vor der [214]ariable stehen, oder dass"
  160. 1620 f$(3)="die eckigen [203]lammern durch ein [210]echen-"
  161. 1630 f$(4)="zeichen getrennt sind."
  162. 1640 f$(5)="[218].[194].: x9->9x; [x-1][x+3]->[x-1]*[x+3]"
  163. 1650 gosub2380
  164. 1660 close1
  165. 1670 :
  166. 1680 open15,8,15,"s:7hilfe":close15
  167. 1690 open1,8,1,"7hilfe"
  168. 1700 f$(1)="[196]as [208]rogramm vermisst nach einem 'x'"
  169. 1710 f$(2)="die [210]echenvorschrift, b.z.w. kann sie"
  170. 1720 f$(3)="nicht selber zuweisen."
  171. 1730 f$(4)="[218].[194].: x?[146]sinx; x?[146][186]x; 2x?[146][221]sinx[221]"
  172. 1740 gosub2380
  173. 1750 close1
  174. 1760 :
  175. 1770 open15,8,15,"s:8hilfe":close15
  176. 1780 open1,8,1,"8hilfe"
  177. 1790 f$(1)="[196]as [208]rogramm vermisst nach einer"
  178. 1800 f$(2)="[198]unktion das [193]rgument oder kann es"
  179. 1810 f$(3)="wegen fehlender [203]lammer nicht deuten."
  180. 1820 f$(4)="z.[194].: sin?[146]; x(tan?[146]); [186]sinx[146]"
  181. 1830 gosub2380
  182. 1840 close1
  183. 1850 :
  184. 1860 open15,8,15,"s:9hilfe":close15
  185. 1870 open1,8,1,"9hilfe"
  186. 1880 f$(1)="[196]as [208]rogramm wandelt die [198]unktion"
  187. 1890 f$(2)="in ein fuer den [201]nterpreter gueltiges"
  188. 1900 f$(3)="[198]ormat. [196]abei ist es moeglich dass die"
  189. 1910 f$(4)="endgueltige [198]assung [201]hrer [198]unktion zu"
  190. 1920 f$(5)="lang wird. [214]ersuchen [211]ie die [198]unktion"
  191. 1930 f$(6)="zu kuerzen!"
  192. 1940 gosub2380
  193. 1950 close1
  194. 1960 :
  195. 1970 open15,8,15,"s:10hilfe":close15
  196. 1980 open1,8,1,"10hilfe"
  197. 1990 f$(1)="[196]as [208]rogramm vermisst nach einer"
  198. 2000 f$(2)="[203]lammer die [210]echenvorschrift, b.z.w."
  199. 2010 f$(3)="kann sie nicht selber zuweisen."
  200. 2020 f$(4)="[218].[194].: (2-x)?[146]lnx; (x-sinx)?[146]e; (e-x)?[146]cosx"
  201. 2030 gosub2380
  202. 2040 close1
  203. 2050 :
  204. 2060 open15,8,15,"s:11hilfe":close15
  205. 2070 open1,8,1,"11hilfe"
  206. 2080 f$(1)="[196]as [208]rogramm fand eine ungueltige"
  207. 2090 f$(2)="[218]uweisung von [194]etraegen, z.[194].:"
  208. 2100 f$(3)="[221][221][146]sin[221][146]x[221][146]; [221][146]x; [tan[221][146]x]/[x][221][146]"
  209. 2110 gosub2380
  210. 2120 close1
  211. 2130 :
  212. 2140 open15,8,15,"s:12hilfe":close15
  213. 2150 open1,8,1,"12hilfe"
  214. 2160 f$(1)="[202]a, tuen [211]ie das doch!"
  215. 2170 gosub2380
  216. 2180 close1
  217. 2190 :
  218. 2200 open15,8,15,"s:13hilfe":close15
  219. 2210 open1,8,1,"13hilfe"
  220. 2220 f$(1)="[197]in nicht definierter [198]ehler wurde ge-"
  221. 2230 f$(2)="funden. [194]eispiele:"
  222. 2240 f$(3)="x()[146]; [221][221][146]x; x**[146]sinx..."
  223. 2250 f$(4)="[197]ins steht fest: [197]s handelt sich um"
  224. 2260 f$(5)="einen sehr groben [198]ehler!!"
  225. 2270 gosub2380
  226. 2280 close1
  227. 2290 :
  228. 2300 open15,8,15,"s:14hilfe":close15
  229. 2310 open1,8,1,"14hilfe"
  230. 2320 f$(1)="[203]ein 'x', keine [198]unktion..."
  231. 2330 gosub2380
  232. 2340 close1
  233. 2350 :
  234. 2360 end
  235. 2370 :
  236. 2380 rem ** strings schreiben ***
  237. 2390 f=1
  238. 2400 print#1,s$+f$(f)+s$:f$(f)=""
  239. 2410 f=f+1
  240. 2420 iff$(f)<>""then2400
  241. 2430 print#1," [197]nde der [200]ilfestellung!"
  242. 2440 print#1,"warte"
  243. 2450 return
  244. 2460 :
  245. 10000 open15,8,15,"s:hmacher":close15:save"hmacher",8:verify"hmacher",8
  246.