home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / crossplatform / emulators / Atari / c64.lzh / C64 / FUPLOT (.txt) < prev    next >
Commodore BASIC  |  1986-02-06  |  2KB  |  111 lines
  1. 100 (NULL)14,14,1
  2. 120 (NULL)0:(NULL)
  3. 125 a=160:o=100
  4. 130 e=2e-3:f=1/e
  5. 140 print"[147][215]ie lautet die [198]unktionsgleichung?
  6. 150 [159]1,0
  7. 160 [153]"f(x)=";
  8. 170 [132]1,f$
  9. 180 c$[178]f$
  10. 190 [129]i[178]1[164][195](c$)
  11. 200 [139][202](c$,i,1)[178]"x"[175][202](c$,i,2)[179][177]"xp"[167]c$[178][200](c$,i[171]1)[170]"c"[170][202](c$,i[170]1)
  12. 210 [130]
  13. 220 [224]"deffnf(c)="[170]c$
  14. 230 [150][165]f1(c)[178]([165]f(c[170]e)[171][165]f(c))[172]f
  15. 240 [150][165]f2(c)[178]([165]f1(c[170]e)[171][165]f1(c))[172]f
  16. 250 [153]:[153]"[x1,x2]=";
  17. 260 [132]1,x1,x2
  18. 270 [153]:[153]"[y1,y2]=";
  19. 280 [132]1,y1,y2
  20. 290 [160]1
  21. 300 p[178](y2[171]y1)[173]10
  22. 310 q[178](x2[171]x1)[173]10
  23. 320 w[178](x1[170]x2)[173]2
  24. 330 s[178][171](y1[170]y2)[173]2
  25. 340 x%[178][171]320[172]x1[173](x2[171]x1)
  26. 350 y%[178]200[172]y2[173](y2[171]y1)
  27. 360 [153]:[153]"f(x)="f$
  28. 370 [153]"im right$ntervall ["[196](x1)","[196](x2)"]
  29. 380 print"[208]lotten in:
  30. 390 [153]"1. left$ochaufloesung
  31. 400 print"2. [205]ulticolour
  32. 410 [153]"(NULL)eichnen in:
  33. 420 print"3. [200]ochaufloesung
  34. 430 [153]"4. (NULL)ulticolour
  35. 440 getm$:ifm$<"1"orm$>"4"then440
  36. 450 print"[147]
  37. 460 [139]m$[178]"1"[176]m$[178]"3"[167][204]1:[137]480
  38. 470 [204]2
  39. 480 [209]1,0,2
  40. 485 [205]a,o
  41. 490 [139]x%[179]0[176]x%[177]319[167]540
  42. 500 [212]1,x%,0[164]x%,199
  43. 510 [139]x%[179]16[167]x%[178]16
  44. 520 [217][196](y2),0,x%[173]8[171]2
  45. 530 [217][196](y1),24,x%[173]8[171]2
  46. 540 [139]y%[179]0[176]y%[177]199[167]600
  47. 550 [212]1,0,y%[164]319,y%
  48. 560 [139]y%[179][171]8[167]y%[178][171]8
  49. 570 [217][196](x1),y%[173]8[170]1,0
  50. 580 [217][196](x2),y%[173]8[170]1,37
  51. 590 [217]"f(x)",0,0
  52. 600 [151]198,0
  53. 610 [139]m$[177]"2"[167]700
  54. 620 [211]1,([165]f(q[172]x[170]w)[170]s)[173]p
  55. 630 [161]a$:[139]a$[179][177]""[167]1140
  56. 640 [217]"f'(x)",0,0
  57. 650 [211]2,([165]f1(q[172]x[170]w)[170]s)[173]p
  58. 660 [161]a$:[139]a$[179][177]""[167]1140
  59. 670 [217]"f''(x)",0,0
  60. 680 [211]3,([165]f2(q[172]x[170]w)[170]s)[173]p
  61. 690 [137]1140
  62. 700 [225]810
  63. 710 [151]198,0
  64. 720 x[178][171]5
  65. 730 x1[178][171]5
  66. 740 y1[178]([165]f(q[172]x1[170]w)[170]s)[173]p
  67. 750 [129]x2[178]x[164]5[169].25
  68. 760 y2[178]([165]f(q[172]x2[170]w)[170]s)[173]p
  69. 770 [212]1,a[170]32[172]x1,o[171]20[172]y1[164]a[170]32[172]x2,o[171]20[172]y2
  70. 780 x1[178]x2:y1[178]y2
  71. 790 [130]
  72. 800 [137]840
  73. 810 x1[178]x1[170].25
  74. 815 [139]x1[177]5[167][226]840
  75. 820 x[178]x1
  76. 830 [226]740
  77. 840 [161]a$:[139]a$[179][177]""[167]1140
  78. 850 [217]"f'(x)",0,0
  79. 860 [225]960
  80. 870 x[178][171]5
  81. 880 x1[178][171]5
  82. 890 y1[178]([165]f1(q[172]x1[170]w)[170]s)[173]p
  83. 900 [129]x2[178]x[164]5[169].25
  84. 910 y2[178]([165]f1(q[172]x2[170]w)[170]s)[173]p
  85. 920 [212]2,a[170]32[172]x1,o[171]20[172]y1[164]a[170]32[172]x2,o[171]20[172]y2
  86. 930 x1[178]x2:y1[178]y2
  87. 940 [130]
  88. 950 [137]990
  89. 960 x1[178]x1[170].25
  90. 965 [139]x1[177]5[167][226]990
  91. 970 x[178]x1
  92. 980 [226]890
  93. 990 [161]a$:[139]a$[179][177]""[167]1140
  94. 1000 [217]"f''(x)",0,0
  95. 1010 [225]1110
  96. 1020 x[178][171]5
  97. 1030 x1[178][171]5
  98. 1040 y1[178]([165]f2(q[172]x1[170]w)[170]s)[173]p
  99. 1050 [129]x2[178]x[164]5[169].25
  100. 1060 y2[178]([165]f2(q[172]x2[170]w)[170]s)[173]p
  101. 1070 [212]3,a[170]32[172]x1,o[171]20[172]y1[164]a[170]32[172]x2,o[171]20[172]y2
  102. 1080 x1[178]x2:y1[178]y2
  103. 1090 [130]
  104. 1100 [137]1140
  105. 1110 x1[178]x1[170].25
  106. 1115 [139]x1[177]5[167][226]1140
  107. 1120 x[178]x1
  108. 1130 [226]1060
  109. 1140 [161]a$:[139]a$[179][177]" "[167]1140
  110. 1150 [138]
  111.