home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 56 / 64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_B.d64 / polynom a (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  13.3 KB  |  779 lines
  1. 20 rem      polynomverarbeitumg
  2. 40 rem
  3. 60 rem nst.,umform.,division,differen-
  4. 70 rem   tiation,partialbruchzerleg.
  5. 80 rem
  6. 90 rem
  7. 100 rem    programed in dec 1988 by
  8. 120 rem        frank brendel
  9. 140 rem         angelweg 17
  10. 160 rem        69 heidelberg
  11. 170 rem
  12. 171 rem fuer das 64'er sonderheft gete-
  13. 172 rem stet, aufbereitet und ueberar-
  14. 173 rem beitet sowie artikel geschrie-
  15. 174 rem  ben von nikolaus heusler
  16. 175 rem          zwengauerweg 18
  17. 176 rem        d-8000 muenchen 71
  18. 177 rem
  19. 178 rem    am 19.6.89     arr
  20. 179 rem
  21. 180 rem i.a. markt & technik verlag
  22. 182 rem  alle rechte vorbehalten
  23. 190 rem
  24. 200 poke53280,0:poke53281,0
  25. 210 :
  26. 220 dima(26),b(26),c(26),ns(26),fz(26),de(26),dv(26),q(26),r(26),cm(26)
  27. 230 dimm1(26,26)
  28. 240 :
  29. 241 :
  30. 242 :
  31. 243 :
  32. 244 :
  33. 245 :
  34. 250 print"[147]                                        ";
  35. 260 print"           [208]olynomverarbeitung          ";
  36. 270 print"           [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]          "
  37. 280 :
  38. 290 print" 1 :  [208]olynomumformung"
  39. 300 print:print" 2 :  [208]olynomdifferentiation"
  40. 310 print:print" 3 :  [208]olynomdivision"
  41. 320 print:print" 4 :  [208]artialbruchzerlegung"
  42. 330 print:print" 5 :  [206]ullstellenbestimmung"
  43. 340 print:print" 6 :  [194]est. des [199]rades einer [206]ullstelle"
  44. 350 print:print" 7 :  [208]olynom berechnen"
  45. 360 print:print" 8 :  [197]ingabe/[193]endern des [208]olynoms"
  46. 362 print:print" 9 :  [201]nfo
  47. 365 [153]
  48. 366 [139]ga[167]370
  49. 367 [153]"(NULL)ein (NULL)olynom im (NULL)peicher !":[137]380
  50. 370 [153]"(NULL)olynom"ga"cmd. chr$rades
  51. 380 poke198,0
  52. 400 print"                      [201]hre [215]ahl .....  
  53. 402 [151]2023,160:[151]56295,[194](646)
  54. 410 [161]a$:a[178][197](a$):[139]a[179]1[176]a[177]9[167]410
  55. 415 [139]a[179]8[175]a[177]1[175]ga[179]1[167][153]"loadpeekitte erst (NULL)olynom eingeben!":[129]i[178]1[164]3000:[130]:[137]250
  56. 420 [145]a[141]11000,15000,14000,20000,12000,16000,55000,5000,500
  57. 430 :
  58. 440 :
  59. 450 [137]250
  60. 460 :
  61. 500 [153]"load                                        ";
  62. 510 [153]"           (NULL)olynomverarbeitung          ";
  63. 520 [153]"                                        "
  64. 530 [153]"right$nformation:          (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) atn         tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  65. 540 print"[196]ies ist ein [208]rogramm zum [210]echnen mit
  66. 542 [153]"(NULL)olynomen.
  67. 544 print"[208]rogrammierer:     [198]rank [194]rendel
  68. 546 [153]"(NULL)eberarbeitet:     (NULL)ikolaus left$eusler
  69. 547 print
  70. 550 print"(c) [195]opyright [205]arkt & [212]echnik [214]erlag
  71. 552 [153]"               64'er - (NULL)onderhefte
  72. 553 print:print
  73. 554 print""
  74. 556 print"[194]itte druecken [211]ie eine [212]aste !        
  75. 557 [151]2023,160:[151]56295,[194](646):[151]198,0:[146]198,1:[142]
  76. 1000 [153]:[153]"p(x) ="
  77. 1010 :
  78. 1020 [129]i[178]gb[171]1[164]0[169][171]1
  79. 1030 [153]"  ";
  80. 1040 [139]b(i)[178]0[167]1100
  81. 1050 [139]b(i)[177]0[167][153]"+";
  82. 1060 [153]b(i);
  83. 1070 [139]i[178]1[167][153]"* x";
  84. 1080 [139]i[177]1[167][153]"* x^"[170][202]([196](i),2,4);
  85. 1090 :
  86. 1100 [130]
  87. 1110 :
  88. 1120 [142]
  89. 1130 ::::::::::::::::::::::
  90. 3000 [153]:[153]" ("[170][202]([196](al),2,4)[170]")"
  91. 3002 [153]"f   (x) ="
  92. 3010 :
  93. 3020 [129]i[178]gm[164]0[169][171]1
  94. 3030 [153]"  ";
  95. 3040 [139]cm(i)[178]0[167]3100
  96. 3050 [139]cm(i)[177]0[167][153]"+";
  97. 3060 [153]cm(i);
  98. 3070 [139]i[178]1[167][153]"* x";
  99. 3080 [139]i[177]1[167][153]"* x^"[170][202]([196](i),2,4);
  100. 3090 :
  101. 3100 [130]
  102. 3110 :
  103. 3120 [142]
  104. 3130 ::::::::::::::::::::::
  105. 4000 [153]:[153]"loadq(x) ="
  106. 4010 :
  107. 4020 [129]i[178]gr[164]0[169][171]1
  108. 4030 [139]q(i)[178]0[167]4080
  109. 4040 [139]q(i)[177]0[167][153]"+";
  110. 4050 [139]q(i)[179]0[167][153]"-";
  111. 4060 [153][182](q(i));
  112. 4070 [139]i[177]0[167][153]"* x";:[139]i[177]1[167][153]"^"[170][202]([196](i),2,4);
  113. 4080 [130]
  114. 4090 [153]:[153]""
  115. 4095 oo[178]gr
  116. 4100 [139]r(oo)[178]0[167]oo[178]oo[171]1:[139]oo[177][178]0[167]4100
  117. 4110 :
  118. 4120 [139]oo[179]0[167]4220
  119. 4130 [129]i[178]oo[164]0[169][171]1
  120. 4140 [139]r(i)[178]0[167]4180
  121. 4150 [139]r(i)[177]0[167][153]"+";
  122. 4160 [139]r(i)[179]0[167][153]"-";
  123. 4170 [153][182](r(i));:[139]i[177]0[167][153]"* x";:[139]i[177]1[167][153]"^"[170][202]([196](i),2,4);
  124. 4180 [130]
  125. 4185 [153]
  126. 4190 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan               divisor(x)"
  127. 4200 :
  128. 4210 :
  129. 4220 [142]
  130. 4230 ::::::::::::::::::::::::::::
  131. 5000 [153]"load             (NULL)olynomeingabe             "
  132. 5010 [153]"valingabe ueber (NULL)oeffizienten oder (NULL)inear-faktoren ?  (k/l)"
  133. 5020 [161]a$:[139]a$[179][177]"k"[175]a$[179][177]"l"[167]5020
  134. 5030 [139]a$[178]"k"[167]17000
  135. 5040 :
  136. 5050 [153]"load             (NULL)olynomeingabe             "
  137. 5060 [153]"chr$rad n des (NULL)olynoms";:[133]gn
  138. 5070 [139]gn[179]1[176]gn[177]15[167]5050
  139. 5080 :
  140. 5090 [153]:[153]
  141. 5100 [133]"chr$esamtfaktor";ns(0):[139]ns(0)[178]0[167][153]"on";:[137]5100
  142. 5110 :
  143. 5120 [153]"m-fache (NULL)(NULL) bitte m-fach eingeben!"
  144. 5130 :
  145. 5140 [129]i[178]1[164]gn
  146. 5150 [153]"(NULL)ullstelle"i"  ";:[133]ns(i):ns(i)[178][171]ns(i)
  147. 5160 [130]
  148. 5170 :
  149. 5180 [141]25380
  150. 5190 :
  151. 5200 ga[178]gn
  152. 5210 [129]i[178]0[164]ga
  153. 5220 a(i)[178]b(i)
  154. 5230 [130]
  155. 5240 :
  156. 5250 [142]
  157. 9999 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  158. 11000 :
  159. 11010 [141]25000
  160. 11020 :
  161. 11030 [153]"load"
  162. 11040 [141]1000
  163. 11050 :
  164. 11060 [153]:[153]"(NULL)olynom uebernehmen?  (j/n)"
  165. 11070 [151]198,0
  166. 11080 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]11080
  167. 11090 :
  168. 11100 [139]a$[178]"n"[167][142]
  169. 11110 :
  170. 11120 ga[178]gb[171]1
  171. 11130 [129]i[178]0[164]ga
  172. 11140 a(i)[178]b(i)
  173. 11150 [130]
  174. 11160 :
  175. 11170 [142]
  176. 11999 :::::::::::::::::::::::::::::
  177. 12000 [153]"load         (NULL)ullstellenbestimmung          "
  178. 12010 [153]:[153]
  179. 12020 [145]ga[141]12100,12200,12400
  180. 12030 [139]ga[177]3[167]13000
  181. 12040 [151]198,0:[146]198,1:[161]a$
  182. 12050 [142]
  183. 12060 :::
  184. 12100 x1[178][171]a(0)[173]a(1)
  185. 12110 [153]"(NULL)ullstelle:"
  186. 12120 [153]"x = ";x1
  187. 12130 :
  188. 12140 [142]
  189. 12150 :
  190. 12200 a[178]a(2)
  191. 12210 b[178]a(1)
  192. 12220 c[178]a(0)
  193. 12230 :
  194. 12240 [141]30000
  195. 12250 [139]d[179]0[167][153]"(NULL)eine (NULL)ullstelle":[142]
  196. 12260 [139]d[178]0[167][153]"(NULL)ullstelle:":[153]"x ="x1:[142]
  197. 12270 [153]"(NULL)ullstellen:"
  198. 12280 [153]"x1 = "x1
  199. 12290 [153]"x2 = "x2
  200. 12300 :
  201. 12310 [142]
  202. 12320 :::
  203. 12400 a[178]a(3)
  204. 12410 b[178]a(2)
  205. 12420 c[178]a(1)
  206. 12430 d[178]a(0)
  207. 12440 :
  208. 12450 [141]35000
  209. 12460 :
  210. 12470 [139]d[177]1e[171]8[167][153]"(NULL)ullstelle:":[153]"x ="x:[142]
  211. 12480 :
  212. 12490 [153]"(NULL)ullstellen:"
  213. 12500 [153]
  214. 12510 [153]"x1 ="x1
  215. 12520 [153]"x2 ="x2
  216. 12530 [153]"x3 ="x3
  217. 12540 :
  218. 12550 [142]
  219. 12560 :
  220. 12570 :::::::::::::::::::::::::::::
  221. 13000 [153]"(NULL)ullstellen koennen nur  naeherungsweisebestimmt werden."
  222. 13010 [153]"peekitte den (NULL)uchintervall eingeben!"
  223. 13020 [133]"von";x1
  224. 13030 [133]"bis";x2
  225. 13040 [139]x2[171]x1[179].1[167][153]"on";:[137]13030
  226. 13050 :
  227. 13060 [133]"(NULL)chrittweite";sw
  228. 13070 [139]sw[177](x2[171]x1)[173]2[176]sw[179]1e[171]3[167][153]"on";:[137]13060
  229. 13080 [153]:[153]
  230. 13090 za[178]0:[153]"(NULL)ullstellen:"
  231. 13130 :
  232. 13140 wa[178]0:[129]i[178]0[164]ga:wa[178]wa[170]a(i)[172](x2[171]sw)[174]i:[130]
  233. 13150 xa[178]x2[171]sw
  234. 13160 :
  235. 13170 [129]x0[178]x1[164]x2[169]sw
  236. 13180 wn[178]0:[129]i[178]0[164]ga:wn[178]wn[170]a(i)[172]x0[174]i:[130]
  237. 13190 [139][182](wn)[179]1e[171]7[167]13270
  238. 13195 [139]wa[172]wn[177]0[167]13300
  239. 13200 xb[178]xa
  240. 13210 xz[178]x0[171]wn[172](xa[171]x0)[173](wa[171]wn)
  241. 13220 [139]xz[179][178]xb[170]1e[171]7[167]13300
  242. 13230 wz[178]0:[129]i[178]0[164]ga:wz[178]wz[170]a(i)[172]xz[174]i:[130]
  243. 13240 [139]wn[172]wz[177]0[167]x0[178]xz:wn[178]wz:[137]13250
  244. 13245 [139]wn[172]wz[178][179]0[167]xa[178]x0:wa[178]wn:x0[178]xz:wn[178]wz
  245. 13250 [139][182](xa[171]x0)[177]1e[171]7[175][182](wn)[177]1e[171]7[167]13210
  246. 13260 :
  247. 13270 za[178]za[170]1
  248. 13280 [153]"x"[170][202]([196](za[171]1),2,4)[170]" =";[181](x0[172]1e6[170].5)[173]1e6
  249. 13290 :
  250. 13300 xa[178]x0:wa[178]wn:[130]
  251. 13310 [139]za[178]0[167][153]"(NULL)eine (NULL)(NULL) gefunden."
  252. 13320 [139]za[177]0[167][153]za" (NULL)(NULL) gefunden."
  253. 13330 :
  254. 13340 :
  255. 13350 [151]198,0:[146]198,1:[161]a$
  256. 13360 [142]
  257. 14000 [153]"load            (NULL)olynomdivision             "
  258. 14010 [153]
  259. 14020 [153]"str$ividend ist (NULL)olynom a"
  260. 14030 [153]:[153]""
  261. 14040 [153]"str$ivisor eingeben:"
  262. 14050 [153]
  263. 14060 ge[178]ga
  264. 14070 [133]"chr$rad n str$ivisor";gv
  265. 14080 [139]gv[179]1[176](gv[177]ge)[167][153]"on";:[137]14060
  266. 14090 :
  267. 14100 [153]
  268. 14110 [129]i[178]gv[164]0[169][171]1
  269. 14120 [153]"x^"[170][202]([196](i),2,4)[170]":  b("i")";:[133]dv(i)
  270. 14130 [139]i[178]gv[167][139]dv(i)[178]0[167][153]"on";:[137]14120
  271. 14140 [130]
  272. 14150 :
  273. 14160 :
  274. 14170 [129]i[178]0[164]ge
  275. 14180 de(i)[178]a(i)
  276. 14190 [130]
  277. 14200 :
  278. 14210 [141]40000
  279. 14220 :
  280. 14230 [141]4000
  281. 14240 :
  282. 14250 [139]oo[177][178]0[167]14500
  283. 14260 :
  284. 14270 [153]"(NULL)olynom uebernehmen?  (j/n)"
  285. 14280 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]14280
  286. 14290 [139]a$[178]"n"[167][142]
  287. 14300 [129]i[178]0[164]gr
  288. 14310 a(i)[178]q(i)
  289. 14320 [130]
  290. 14330 ga[178]gr
  291. 14340 [142]
  292. 14500 [151]198,0:[146]198,1:[161]a$:[142]
  293. 14510 :
  294. 14520 :
  295. 14530 :::::::::::::::::::::::
  296. 15000 [153]"load         (NULL)olynomdifferentiation         ";
  297. 15010 [153]:[153]
  298. 15030 gc[178]ga
  299. 15040 [129]i[178]gc[164]0[169][171]1
  300. 15050 c(i)[178]a(i)
  301. 15060 [130]
  302. 15070 [133]"(NULL)ievielte atnbleitung";al
  303. 15080 [139]al[177]gc[167][153]"on";:[137]15070
  304. 15090 [139]al[179]0[167][153]"on";:[137]15070
  305. 15100 :
  306. 15110 [141]45350
  307. 15120 :
  308. 15130 [141]3000
  309. 15140 :
  310. 15150 [153]:[153]
  311. 15160 [153]"(NULL)olynom uebernehmen?  (j/n)"
  312. 15170 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]15170
  313. 15180 [139]a$[178]"n"[167][142]
  314. 15190 [129]i[178]0[164]gm
  315. 15200 a(i)[178]cm(i)
  316. 15210 [130]
  317. 15220 ga[178]gm:[142]
  318. 15230 [151]198,0:[146]198,1:[161]a$:[142]
  319. 15240 :
  320. 15250 :
  321. 15800 :::::::::::::::::::::::
  322. 16000 [153]"load  peekestimmen des chr$rades einer (NULL)ullstelle "
  323. 16010 [153]:[153]
  324. 16020 [133]"(NULL)ullstelle";x0
  325. 16030 :
  326. 16040 [153]:[153]
  327. 16050 :
  328. 16060 [129]i[178]0[164]ga
  329. 16070 c(i)[178]a(i)
  330. 16080 [130]
  331. 16090 gc[178]ga
  332. 16100 al[178]0
  333. 16110 :
  334. 16120 [141]45355
  335. 16130 :
  336. 16140 er[178]0
  337. 16150 [129]i[178]0[164]gm
  338. 16160 er[178]er[170]cm(i)[172]x0[174]i
  339. 16170 [130]
  340. 16180 [139][182](er)[177]1e[171]6[167]16300
  341. 16190 :
  342. 16200 al[178]al[170]1
  343. 16210 [137]16120
  344. 16220 :
  345. 16300 [139]al[178]0[167][153]"(NULL)eine (NULL)ullstelle.":[137]16320
  346. 16310 [153]"(NULL)ullstelle"al". chr$rades"
  347. 16320 :
  348. 16330 :
  349. 16340 [151]198,0:[146]198,1:[161]a$:[142]
  350. 16350 :
  351. 16999 ::::::::::::::::::::::::::::
  352. 17000 [153]"load            (NULL)olynomeingabe              "
  353. 17010 [153]"chr$rad des (NULL)olynoms";ga
  354. 17020 [153]:[153]"p(x) ="
  355. 17030 :
  356. 17040 [129]i[178]ga[164]0[169][171]1
  357. 17050 [153]"  ";
  358. 17060 [139]a(i)[178]0[167]17120
  359. 17070 [139]a(i)[177]0[167][153]"+";
  360. 17080 [153]a(i);
  361. 17090 [139]i[178]1[167][153]"* x";
  362. 17100 [139]i[177]1[167][153]"* x^"[170][202]([196](i),2,4);
  363. 17110 :
  364. 17120 [130]
  365. 17130 :
  366. 17140 :
  367. 17150 [153]
  368. 17160 [153]:[153]"atnendern ?  (j/n) ";
  369. 17180 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]17180
  370. 17190 [139]a$[178]"n"[167][142]
  371. 17200 [139]ga[178]0[167]17400
  372. 17210 [153]a$:[153]"atnendern des chr$rades n ("ga") ?  (j/n)"
  373. 17220 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]17220
  374. 17230 [139]a$[178]"j"[167]17400
  375. 17240 :
  376. 17250 [153]"load          (NULL)olynomkorrektur              "
  377. 17260 [153]
  378. 17270 [129]i[178]ga[164]0[169][171]1
  379. 17280 [153]"x^"[170][202]([196](i),2,2)" :  a("i") = "[163]19);a(i)"on"
  380. 17282 [153][163]17);
  381. 17285 [133]a(i)
  382. 17290 [130]
  383. 17300 :
  384. 17310 [142]
  385. 17400 [153]"load          (NULL)olynomeingabe                "
  386. 17410 [153]
  387. 17420 [133]"chr$rad des (NULL)olynoms";ga
  388. 17430 [139]ga[179]1[176]ga[177]25[167]17400
  389. 17435 [153]
  390. 17440 [129]i[178]ga[164]0[169][171]1
  391. 17450 [153]"x^"[170][202]([196](i),2,2)" :  a("i") =";:[133]a(i)
  392. 17460 [130]
  393. 17470 :
  394. 17480 [142]
  395. 17490 :
  396. 20000 :
  397. 20010 [143]    partialbruchzerlegung
  398. 20020 [153]"load        (NULL)artialbruchzerlegung           "
  399. 20030 [153]:[153]
  400. 20040 [153]"str$ividendenpolynom ist (NULL)olynom a mit chr$rad n="ga
  401. 20050 [153]:[153]
  402. 20060 [153]"peekitte str$ivisorpolynom eingeben!"
  403. 20070 [133]"chr$rad n (div) =";gv
  404. 20080 [139]ga[177][178]gv[176]gv[177]25[167][153]"on";:[137]20070
  405. 20090 :
  406. 20100 [153]"(NULL)olynom ueber (NULL)ullstellen eingeben!"
  407. 20110 [153]
  408. 20120 [133]"chr$esamtfaktor";dv(0):[139]dv(0)[178]0[167][153]"on";:[137]20120
  409. 20130 [153]
  410. 20135 zn[178]1
  411. 20140 [129]i[178]1[164]gv
  412. 20150 [153]i". (NULL)ullstelle";:[133]dv(zn)
  413. 20160 [153]"   chr$rad der (NULL)ullstelle";:[133]de(zn)
  414. 20170 [139]de(zn)[170]i[171]1[177]gv[176]de(zn)[179]1[167][153]"on";:[137]20160
  415. 20175 i[178]i[170]de(zn)[171]1
  416. 20180 zn[178]zn[170]1
  417. 20190 [130]
  418. 20195 zn[178]zn[171]1
  419. 20200 :
  420. 20210 [153]"peekitte warten!"
  421. 20220 :
  422. 20230 [129]i[178]0[164]ga
  423. 20240 c(i)[178]a(i)[173]dv(0)
  424. 20250 [130]
  425. 20260 gc[178]ga
  426. 20270 :
  427. 20280 sy[178]gv[171]1
  428. 20290 :
  429. 20300 gz[178]0
  430. 20310 [129]ni[178]1[164]zn
  431. 20320 [129]nj[178]1[164]de(ni)
  432. 20330 gz[178]gz[170]1
  433. 20340 :
  434. 20350 gn[178]gv[171]nj
  435. 20360 ns(0)[178]1
  436. 20370 :
  437. 20380 [143] ns->umformen zuordnen
  438. 20390 nk[178]0:gx[178]0
  439. 20400 nk[178]nk[170]1
  440. 20410 [139]nk[177]zn [167] 20510
  441. 20420 :
  442. 20430 [139]nk[178]ni[167]20400 :[143] diese ns extra
  443. 20440 :          
  444. 20450 :
  445. 20460 [129]nl[178]1[164]de(nk):[143] alle anderen ns
  446. 20470 gx[178]gx[170]1
  447. 20480 ns(gx)[178][171]dv(nk)
  448. 20490 [130]
  449. 20495 [137]20400
  450. 20500 :
  451. 20510 nk[178]0
  452. 20520 nk[178]nk[170]1
  453. 20530 [139]nk[177]de(ni)[171]nj[167]20580
  454. 20540 gx[178]gx[170]1
  455. 20550 ns(gx)[178][171]dv(ni)
  456. 20560 [137]20520
  457. 20570 :
  458. 20580 :
  459. 20590 [141]25380
  460. 20600 :
  461. 20610 [129]nk[178]0[164]sy
  462. 20620 m1(nk,gz[171]1)[178]b(nk)
  463. 20630 [130]
  464. 20640 :
  465. 20650 [130]
  466. 20660 [130]
  467. 20670 :
  468. 20680 [129]ni[178]0[164]sy
  469. 20690 m1(ni,sy[170]1)[178]c(ni)
  470. 20700 [130]
  471. 20710 :
  472. 20720 [141]56760
  473. 20730 [139]ff[178]1[167]20890
  474. 20740 [153]"loadp(x) ="
  475. 20750 :
  476. 20752 ll[178]0
  477. 20760 gz[178]0:gx[178]1:gy[178]1
  478. 20770 er[178][181](m1(gz,sy[170]1)[173]m1(gz,gz)[172]1e7[170].5)[172]1e[171]7
  479. 20775 [139]er[178]0[167]20850
  480. 20780 ll[178]ll[170]1:[153]"  "er
  481. 20790 [153]"+ tantantantantantantantantantantantantan"
  482. 20800 [153]"   (x ";
  483. 20810 [139]dv(gx)[178][179]0[167][153]"+"[182](dv(gx));
  484. 20820 [139]dv(gx)[177]0[167][153]"-"dv(gx);
  485. 20825 [153]")";
  486. 20830 [139]gy[177]1[167][153]"^"[170][202]([196](gy),2,4);
  487. 20840 [153]:[153]
  488. 20842 [139]ll[177]4[167]ll[178]0:[153],,"(NULL)aste":[151]198,0:[146]198,1:[161]a$
  489. 20850 gy[178]gy[170]1
  490. 20860 [139]gy[177]de(gx)[167]gx[178]gx[170]1:gy[178]1
  491. 20870 [139]gx[179][178]zn[167]gz[178]gz[170]1:[137]20770
  492. 20880 :
  493. 20890 [151]198,0:[146]198,1:[161]a$
  494. 20900 [142]
  495. 24999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  496. 25000 [143]
  497. 25010 [143]  p(x)= a0 * (x-a1) * (x-a2) *
  498. 25020 [143]
  499. 25030 [143]        * ... * (x-an)
  500. 25040 [143]
  501. 25050 [143]
  502. 25060 [143]  =>  = bn x^n + bn-1 x^n-1 +
  503. 25070 [143]
  504. 25080 [143]        +...+b2 x^2 + b1 x + b0
  505. 25090 [143]
  506. 25100 :
  507. 25110 :
  508. 25120 :
  509. 25130 :
  510. 25140 [153]"load           (NULL)olynomumformung             ";
  511. 25150 :
  512. 25160 [153]
  513. 25170 :
  514. 25180 [153]"p(x)= a  * (x-a ) * (x-a ) *...* (x-a )"
  515. 25190 [153]"       0       1        2            n"
  516. 25200 [153]""
  517. 25210 [133]"chr$rad n des (NULL)olynoms";gn
  518. 25220 [139]gn[179]1[176]gn[177]25[167][153]"on";:[137]25210
  519. 25230 :
  520. 25240 :
  521. 25250 :
  522. 25280 :
  523. 25290 [153]"peekitte den chr$esamtfaktor eingeben!"
  524. 25300 [133]"a(0)";ns(0):[139]ns(0)[178]0[167][153]"on";:[137]25300
  525. 25310 :
  526. 25320 [153]"peekitte die (NULL)ullstellen eingeben!"
  527. 25330 [129]gb[178]1[164]gn
  528. 25340 [153]"a("gb") =";:[133]ns(gb):ns(gb)[178][171]ns(gb)
  529. 25350 [130]
  530. 25360 :
  531. 25370 :
  532. 25380 :
  533. 25390 [129]gb[178]0[164]26:b(gb)[178]0:[130]
  534. 25400 :
  535. 25410 :
  536. 25420 [129]gb[178]0[164]gn
  537. 25430 :
  538. 25440 :
  539. 25450 v1[178]gn:v2[178]gb:[141]26070:k[178]er
  540. 25460 v[178]gn[171]gb
  541. 25470 :
  542. 25480 :
  543. 25490 :
  544. 25500 [139]v[178]0[167]b(gb)[178]1:[137] 25780
  545. 25510 b(gb)[178]0
  546. 25520 :
  547. 25530 [129]l[178]1[164]v
  548. 25540 fz(l)[178]l
  549. 25550 [130]
  550. 25560 r[178]0
  551. 25570 :
  552. 25580 r[178]r[170]1
  553. 25590 sr[178]1
  554. 25600 :
  555. 25610 [129]l[178]1[164]v
  556. 25620 sr[178]sr[172]ns(fz(l))
  557. 25630 [130]
  558. 25640 :
  559. 25650 b(gb)[178]b(gb)[170]sr
  560. 25660 [139]r[178][177]k[167] 25780
  561. 25670 :
  562. 25680 gr[178]0
  563. 25690 [139]fz(v[171]gr)[170]gr[170]1[177]gn[167]gr[178]gr[170]1:[137]25690
  564. 25700 :
  565. 25710 [129]zz[178]0[164]gr
  566. 25720 fz(v[171]zz)[178]fz(v[171]gr)[170]1[170]gr[171]zz
  567. 25730 [130]
  568. 25740 :
  569. 25750 [137]25580
  570. 25760 :
  571. 25770 :
  572. 25780 b(gb)[178]b(gb)[172]ns(0)
  573. 25790 :
  574. 25800 [130]gb
  575. 25810 :
  576. 25820 :
  577. 25830 [142]
  578. 25840 :
  579. 25850 :
  580. 26060 [143]***********************************************************************
  581. 26070 [143] er= kombinationen                           von v1 ueber v2
  582. 26080 :
  583. 26090 er[178]1
  584. 26100 [139]v1[179][178]v2[167][142]
  585. 26110 :
  586. 26120 [129]qz[178]v2[170]1[164]v1
  587. 26130 er[178]er[172]qz
  588. 26140 [130]
  589. 26150 [129]qz[178]1[164]v1[171]v2
  590. 26160 er[178]er[173]qz
  591. 26170 [130]
  592. 26180 er[178][181](er[170].1)
  593. 26190 [142]
  594. 26200 :
  595. 29999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  596. 30000 :
  597. 30010 :
  598. 30020 :
  599. 30030 [143]     quadratische gleichung
  600. 30040 :
  601. 30050 :
  602. 30130 d[178]b[174]2[171]4[172]a[172]c
  603. 30140 [139]d[179]0[167]30220
  604. 30150 x1[178]([171]b[170][186](d))[173](2[172]a)
  605. 30160 x2[178]([171]b[171][186](d))[173](2[172]a)
  606. 30170 :
  607. 30180 x1[178][181](x1[172]1e6[170].5)[173]1e6
  608. 30190 x2[178][181](x2[172]1e6[170].5)[173]1e6
  609. 30200 :
  610. 30210 :
  611. 30220 [142]
  612. 30230 :
  613. 34999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  614. 35000 :
  615. 35010 :
  616. 35020 :
  617. 35030 [143]     kubische gleichung
  618. 35040 :
  619. 35050 :
  620. 35120 :
  621. 35130 r[178]b[173]a
  622. 35140 s[178]c[173]a
  623. 35150 t[178]d[173]a
  624. 35160 :
  625. 35170 p[178](3[172]s[171]r[172]r)[173]3
  626. 35180 q[178](2[172]r[174]3)[173]27[171]r[172]s[173]3[170]t
  627. 35190 :
  628. 35200 :
  629. 35210 d[178](p[173]3)[174]3[170](q[173]2)[174]2
  630. 35220 [139]d[179][178]1e[171]8[167]35370
  631. 35230 :
  632. 35240 un[178][171]q[173]2[170][186](d):u[178]([182](un))[174](1[173]3)[172][180](un)
  633. 35250 v[178][171]p[173](3[172]u)
  634. 35260 :
  635. 35270 y1[178]u[170]v
  636. 35280 :
  637. 35290 x[178]y1[171]r[173]3
  638. 35300 x[178][181](x[172]1e6[170].5)[173]1e6
  639. 35310 :
  640. 35320 [143] x=ns wenn d>=0
  641. 35330 [142]
  642. 35340 :
  643. 35350 :
  644. 35360 :
  645. 35370 si[178][186]([171]p[174]3[173]27)
  646. 35380 :
  647. 35390 cf[178][171]q[173](2[172]si)[171]1:cf[178][181](cf[172]1e6[170].5)[172]1e[171]6:cf[178]cf[170]1
  648. 35400 fi[178][171][193](cf[173][186](1[171]cf[174]2[170]1e[171]10))[170][255][173]2
  649. 35410 :
  650. 35420 y1[178]2[172](si)[174](1[173]3)[172][190](fi[173]3)
  651. 35430 y2[178]2[172](si)[174](1[173]3)[172][190](fi[173]3[170]2[172][255][173]3)
  652. 35440 y3[178]2[172](si)[174](1[173]3)[172][190](fi[173]3[170]4[172][255][173]3)
  653. 35450 :
  654. 35460 :
  655. 35470 x1[178]y1[171]r[173]3:x1[178][181](1e6[172]x1[170].5)[173]1e6
  656. 35480 x2[178]y2[171]r[173]3:x2[178][181](1e6[172]x2[170].5)[173]1e6
  657. 35490 x3[178]y3[171]r[173]3:x3[178][181](1e6[172]x3[170].5)[173]1e6
  658. 35500 :
  659. 35510 :
  660. 35520 :
  661. 35530 :
  662. 35540 :
  663. 35550 :
  664. 35560 [142]
  665. 39999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  666. 40000 [143]
  667. 40010 [143]
  668. 40020 [143]        polynomdivision
  669. 40030 [143]
  670. 40040 [143]
  671. 40050 [143]
  672. 40060 [143] p(x) =  an x^n + an-1 x^n-1 +
  673. 40070 [143]
  674. 40080 [143]         +...+a2 x^2 + a1 x + a0
  675. 40090 [143]
  676. 40470 :
  677. 40480 gr[178]ge[171]gv
  678. 40490 [129]i[178]ge [164]gv[169][171]1
  679. 40500 q(i[171]gv)[178]de(i)[173]dv(gv)
  680. 40510 [129]j[178]0[164]gv
  681. 40520 de(i[171]j)[178]de(i[171]j)[171]q(i[171]gv)[172]dv(gv[171]j)
  682. 40530 [139][182](de(i[171]j))[177][178][182](q(i[171]gv)[172]dv(gv[171]j))[172]1e[171]8[167] 40550
  683. 40540 de(i[171]j)[178]0
  684. 40550 [130]j
  685. 40560 [130]i
  686. 40570 :
  687. 40580 :
  688. 40590 [129]i[178]gr[164]0[169][171]1
  689. 40600 r(i)[178]de(i)
  690. 40610 [130]i
  691. 40620 :
  692. 40630 [142]
  693. 40880 :
  694. 40890 :
  695. 44999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  696. 45000 :
  697. 45010 [143]
  698. 45020 [143]        polynomdifferentiation
  699. 45030 [143]
  700. 45040 [143]
  701. 45050 [143]
  702. 45060 [143] f(x) =  an x^n + an-1 x^n-1 +
  703. 45070 [143]
  704. 45080 [143]         +...+a2 x^2 + a1 x + a0
  705. 45090 [143]
  706. 45350 :
  707. 45355 gm[178]gc[171]al
  708. 45360 [129]r[178]0[164]gm
  709. 45370 :
  710. 45380 v1[178]r[170]al:[141]45620:fa[178]er
  711. 45390 v1[178]r:[141]45620:fa[178]fa[173]er
  712. 45395 fa[178][181](fa[172]1e6[170].5)[173]1e6
  713. 45400 :
  714. 45410 cm(r)[178]fa[172]c(al[170]r)
  715. 45420 :
  716. 45430 [130]
  717. 45440 :
  718. 45450 [142]
  719. 45600 :
  720. 45610 [143]*******************************
  721. 45620 [143] er = v1!
  722. 45630 er[178]1
  723. 45640 [139]v1[179]1[167][142]
  724. 45650 [129]qz[178]1[164]v1
  725. 45660 er[178]er[172]qz
  726. 45670 [130]
  727. 45680 [142]
  728. 49999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  729. 55000 [143] funktionswert berechnen
  730. 55010 [153]"load         (NULL)olynom ausrechnen             "
  731. 55020 [153]"peekitte die (NULL)telle x0 eingeben!"
  732. 55030 [133]"x0 = ";x0
  733. 55040 :
  734. 55050 :
  735. 55100 su[178]0
  736. 55110 [129]i[178]0[164]ga
  737. 55120 su[178]su[170]a(i)[172]x0[174]i
  738. 55130 [130]
  739. 55140 :
  740. 55150 :
  741. 55160 [153]"p (x0) =";su
  742. 55170 :
  743. 55180 :
  744. 55190 [151]198,0:[146]198,1:[161]a$
  745. 55200 [142]
  746. 55210 :
  747. 55220 :
  748. 55230 :
  749. 55240 :::::::::::::::::::::::::
  750. 56610 [153]"(NULL)eine valindeutige (NULL)oesung des chr$(NULL)  moeglich.":ff[178]1:[142]
  751. 56620 :
  752. 56760 [129]k[178]0[164]sy
  753. 56770 [139]k[178]sy[167]56890
  754. 56780 u[178][182](m1(k,k))
  755. 56790 :
  756. 56800 [129]i[178]k[170]1[164]sy
  757. 56810 [139][182](m1(i,k))[179][178]u[167]56870
  758. 56820 u[178][182](m1(i,k))
  759. 56830 :
  760. 56840 [129]j[178]k[164]sy[170]1
  761. 56850 zz[178]m1(k,j):m1(k,j)[178]m1(i,j):m1(i,j)[178]zz
  762. 56860 [130]j
  763. 56870 [130]i
  764. 56880 :
  765. 56890 [139][182](m1(k,k))[179][178]1e[171]7[167]56610
  766. 56900 :
  767. 56910 [129]i[178]0[164]sy
  768. 56920 [139]i[178]k[167]56980
  769. 56930 t[178]m1(i,k)[173]m1(k,k)
  770. 56940 :
  771. 56950 [129]j[178]k[170]1[164]sy[170]1
  772. 56960 m1(i,j)[178]m1(i,j)[171]m1(k,j)[172]t
  773. 56970 [130]j
  774. 56980 [130]i
  775. 56990 [130]k
  776. 57000 :
  777. 57010 [139]r[179][177]0[167][153]"(NULL)aste druecken!"
  778. 57020 [142]
  779.