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

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

˜ File name " IMQF "
>˜ 1987 by T.AZUHATA
G˜
€(™À™" * Class numbers of imaginary quadratic fields"
·2 ™" (counting points in the fundamental domain)"
Ç<õNEXT_N
ýF™À§"Absolute value inside the square root="ÁƒN
PƒNÕðŽ¿
-ZƒNÔñŽƒHÑñÀ‡ñ‚
^dƒNÒñåñïñŽ™"Too big."À‡õNEXT_N
¥n³õSqDiv(ƒN)ÒñŽ™À™"It has a square divisor."À‡õNEXT_N
ÄxƒHѳõ ClassImqf(ƒN)
ç‚™À¬ñ
À™"Class number ="ÁƒH
øŒ‡õNEXT_N
–˜
 ³õ ClassImqf(ƒN)
:ªºƒAƒBƒBEƒDƒH
y´ƒNçñÑñŽƒDуNÀƒBÑñƒDÑñåƒNÀƒBÑð
„¾¨ƒH
¤È‰ƒBуBŠ€ÆƒDèñ)‹ñ
ÂÒƒBEÑ(ƒBïñ݃D)èñ
á܉ƒAрßñƒB)Š€ÆƒBE)
ûæ
ƒBEçƒAÑðŽ ƒH
,ð À€çƒBƒAփBƒAïñփBE}Ž ƒH
3úŒ
:Œ
G•(ƒH)
P˜
n"˜ get a square divisor
w,˜
6³õSqDiv(ƒN)
˜@ºƒSD
¹JƒSDруN)ÀƒNуNèƒSD
æTƒNÑñŽƒSDÑñƒNçƒSDŽñJ
ó^•(ƒSD)


  3 Responses to “Category : BASIC Source Code
Archive   : UBAS830.ZIP
Filename : IMQF.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/