Category : BASIC Source Code
Archive   : UBAS830.ZIP
Filename : BERNOULL.UB

 
Output of file : BERNOULL.UB contained in archive : UBAS830.ZIP

˜BERNOULL v1.0
˜
L˜This program finds Bernoulli numbers
U(˜
–2˜using method by Knuth & Buckholtz, Math. Comp. 21 (1967)
Ÿ<˜
©FŸñþ
·PƒNXÑñè
çZƒNHÑ(ƒNXÝñ)èñåñÀ¤„TƒNHèñÝñ)
d€’"BERNTBL"‰€“€”#ñ
n˜
x˜1st half
$‚˜
4Œ„Tð)Ññ
R–ƒNÑñÀƒQÑñÀƒKXÑð
[ ’
mª˜for odd n
~´ƒT1фTð)
’¾‰ƒKÑñŠƒKX
çȃT2фTƒK)À„TƒK)Ñ(ñåƒKÞñ)åƒT1Ý(ñåƒKÝñ)å„TƒK)ÀƒT1уT2
îÒŒ
Ü„TƒK)Ñ(ñåƒKÞñ)åƒT1
"æƒTфTð)
-ð ƒN
@ú˜for even n
R‰ƒKÑðŠƒKX
‘„TƒK)ÑñåƒKå„TƒK)Ýñå(ƒKÝñ)å„TƒKÝñ)
˜Œ
º"„TƒK)ÑñåƒKå„TƒK)
Í,ƒQуQåñ
ö6ƒB1уNåƒTÀƒB2уQå(ƒQÞñ)
@¦ƒB1ƒB2À™€ìñ)ƒNÁ
/J™#ñƒB1À™#ñƒB2
:T ƒN
E^ ƒKX
Wh“ƒN҃NH
`r˜
q|˜2nd half
z†˜
ƒ’
Žš¡ƒKX
 ¤˜for odd n
±®ƒT1фTð)
Ÿ‰ƒKÑñŠƒKX
ƒT2фTƒK)À„TƒK)Ñ(ñåƒKÞñ)åƒT1Ý(ñåƒKÝñ)å„TƒK)ÀƒT1уT2
!̌
2ÖƒTфTð)
=à ƒN
Pê˜for even n
bô‰ƒKÑðŠƒKX
¡þ„TƒK)ÑñåƒKå„TƒK)Ýñå(ƒKÝñ)å„TƒKÝñ)
¨Œ
»ƒQуQåñ
äƒB1уNåƒTÀƒB2уQå(ƒQÞñ)
&¦ƒB1ƒB2À™€ìñ)ƒNÁ
0™#ñƒB1À™#ñƒB2
(: ƒN
:D“ƒN҃NX
AN¿


  3 Responses to “Category : BASIC Source Code
Archive   : UBAS830.ZIP
Filename : BERNOULL.UB
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/