home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 November / 64er_Magazin_91-11_1991_Markt__Technik_de_Side_A.d64 / fakultaet (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.3 KB  |  28 lines
  1. 1 poke53280,9: poke53281,11: poke646,05: print"[147]
  2. 2 [153]""[166]240)[166]243)"**********************************"[166]6)"(c)"[166]27)
  3. 3 [153]"prgm"[166]6)"***    fakultaet berechnen    ****"[166]6)"1983"[166]25)"lemke
  4. 4 print"   **********************************
  5. 5 [153][163]15)"n=";: [159]1,0: [132]1,x$: [160]1
  6. 6 x[178][197](x$): [139] x[177]32767 [176] x[179]0 [137] 1
  7. 7 x%[178][181](x): [153]"  cmdcmdcmdcmdcmdcmd          on": [153] [163]20)x%: xx[178]1: [139] x[179]1 [137] 11
  8. 8 [139] x[177]3248 [137] 15
  9. 9 [139] x[177]12 [137] 16
  10. 10 [129] p[178]x% [164] 1 [169][171]1: xx[178]p[172]xx: [130]
  11. 11 [153]"load"[163]212)x%"cmdsys!"[163]18)"= "xx: x[178][188](xx)[173][188](10): [137] 14
  12. 12 m[178][181](x): l[178]10[174](x[171]m): l$[178][200]([196](l),(12[171][195]([196](m)))): [153]"    "
  13. 13 [153]"load"[163]250)x%"cmdsys!"[163]18)"="l$" e"m
  14. 14 [153] [163]3)"log ("x%"cmdsys! )"[163]18)"="x"": [156]: [137] 2
  15. 15 x[178](x%[172][188](x%[173][189](1))[170][188](2[172][255][172]x%)[173]2)[173][188](10): [137] 12
  16. 16 l[178]1[173]12[173]x%:x[178][188](2[172][255])[173]2[170]l[171]l[173]30[173]x%[173]x%[170]l[173]105[173]x%[174]4[171]l[173]140[173]x%[174]6
  17. 17 x[178](x[170](x%[170].5)[172][188](x%)[171]x%[170]1.8e[171]8)[173][188](10): [137] 12                            :
  18. 18                                                                             :
  19. 19       in zeile 16[173]17 wird die       :
  20. 20       " euler - maclaurin           :
  21. 21       'sche   summenformel "        :
  22. 22       mit bernoulli[171]koeffizienten   :
  23. 23               verw[128]et                                                     :
  24. 25     fuer grosse  n  (bzw  n !) ist  :
  25. 26     die  "stirling'sche naeherung"  :
  26. 27      n! [178] ((n[173][189](n))[174]n)[172](2[255]n)[174].5   :
  27. 28             v[176]zuziehen !                                                   :
  28.