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


˜±
REALQF version 2.3
C˜Ø
1st version by Y.KIDA
s˜ corrected & revised by A.KUDO & Y.KIDA
|(˜
†2Ÿñ
¡<ƒXFÑñˆÀƒOFÑñïñ
»F¤„XƒXF)‚MXƒXF)

P™À™"Fundamental units and class numbers of real quadratic fields"
Q
Z™"Displays fundamental units as coefficients of canonical integral basis"

dõINPUT™À§"Inside the square root="ÁƒM
Š
n¨€š

xƒMÔñŽ¿
Â
‚ƒMÒñïñ"Ž™"Too big"À‡ñd
Œ³õSqDiv(ƒM)Òñ
Ž™"It has a square divisor."À‡ñd
–ˆõ
RealQuadratic(ƒM)
O ™"Fundamental units is ("Á…UAÁ","Á…UBÁ")"
rª™"Class number is "ÁƒH
’´™"( F="ÁƒFÁ")"Á€âñ)Á€š
¢¾‡õINPUT
«È˜
¹Ò˜PART1
Âܘ
ßæõ
RealQuadratic(ƒM)
ðƒDуMÀƒAÑñ
ÀƒMçñÖñ
ŽƒDÑñåƒMÀƒAÑñ
'ú˜
~
˜PART 2 : Register irreducible quadratic irrational numbers (half numbers only)
‡
˜
 
ƒQDрƃD)ÀƒFÑð
©"
¸
ß,
ƒYÑ(ƒDރAïñ)èñÀƒYÕð‡õ EXPAND_IN
ù6
ƒIAÑ(ƒQDރA)èñ
@
€æƒY)Ž
'J
À‰ƒCуIAÝñ
Š€ÆƒY)
`T
ÀƒYçƒC ƒFÀ„XƒF)уAåƒOFÝñåƒC—
h^
ÀŒ
rh
À
œr
À‰ƒCуIA݃IAçñÝñ
Š€ÆƒY)‹ñ
Õ|
ÀƒYçƒC ƒFÀ„XƒF)уAåƒOFÝñåƒC—
݆
ÀŒ
ð
ƒAуAÝñ
ùš
¹
¤
˜
<®
˜PART 3 : Expand in ontinued fraction and classify
~¸
˜ Calculate fundamental units simultaneously first
‡Â
˜
šÌ
õ EXPAND_IN
»Ö
„XƒFÝñ
)ÑðÀ˜sentinel
Ùà
ƒHÑðÀIIÑñ
ÀƒNÑñ

ê
ƒX0фXII)ÀƒAуX0èƒOFÀƒCÑ£
%ô
…UAуAÀ…UBÑñ
À…UCуC
.þ
˜
7¸
{ƒC0уCÀƒAуQDÞ(ƒA݃QD)çƒCÀƒCÑ(ƒDރAïñ)èƒC
¡ƒC҃C0‡ñDÀ˜unregistered
º&ƒXуAåƒOF݃C
ì0ƒXуX0‡õEXP1_END˜expansion cycles
3:IрäƒX„Xñ
)ƒF)Ýñ
À‚MXI)Ññ
À˜delete same class
tD…WAхUAåƒA݅UBåƒDÀ…WBхUA݅UBåƒAÀ…WCхUCåƒC
“N…GрąWA€ąWB…WC))
ÅX…UAхWAè…GÀ…UBхWBè…GÀ…UCхWCè…G
Ðb ƒN
Ùl¹
âv˜
ô€õEXP1_END
ŠƒDçñŽ
5”À…UCÖñŽ…UAÑñå…UAÀ…UBÑñå…UB—
PžÀ…UAÑ(…UAޅUB)èñ
Z¨À
z²À…UCÑñ
Ž…UBÑñå…UB
’¼À…UAхUAèñ—
›Æ˜
­ÐõALLDONE?
ËÚ’À IIÀ“‚MXII)Ñð
òä ƒHÀIIՃF‡õ
NEXT_CLASS
 NçñŽƒHÑރH
" ø¢‚MXðÃF)Ñð
) •
2 ˜
F õ
NEXT_CLASS
p ƒX0фXII)ÀƒAуX0èƒOFÀƒCÑ£
y *˜
‚ 4¸
‹ >’
Ï HƒC0уCÀƒAуQDÞ(ƒA݃QD)çƒCÀƒCÑ(ƒDރAïñ)èƒC
á R“ƒCՃC0
ú \ƒXуAåƒOF݃C

fƒXуX0‡õALLDONE?
K
pIрäƒX„Xñ
)ƒF)Ýñ
À‚MXI)Ññ

T
z¹
]
„˜
{
Ž˜ get a square divisor
„
˜˜
š
¢³õSqDiv(ƒN)
¥
¬ºƒSD
Æ
¶ƒSDруN)ÀƒNуNèƒSD
ó
ÀƒNÑñ
ŽƒSDÑñ
ƒNçƒSDŽñ¶
Ê•(ƒSD)