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