Nuprl Definition : qsqrt-normal2
qsqrt-normal2(a;n) == let v1,v2 = qrep(a) in eval n' = 10^log(10;v1 ÷ v2) + 1 * n in <isqrt2((v1 * n' * n') ÷ v2), n'>
Definitions occuring in Statement :
isqrt2: isqrt2(x)
,
qrep: qrep(r)
,
log: log(b;n)
,
exp: i^n
,
callbyvalue: callbyvalue,
spread: spread def,
pair: <a, b>
,
divide: n ÷ m
,
multiply: n * m
,
add: n + m
,
natural_number: $n
Definitions occuring in definition :
spread: spread def,
qrep: qrep(r)
,
callbyvalue: callbyvalue,
exp: i^n
,
add: n + m
,
log: log(b;n)
,
natural_number: $n
,
pair: <a, b>
,
isqrt2: isqrt2(x)
,
divide: n ÷ m
,
multiply: n * m
FDL editor aliases :
qsqrt-normal2
Latex:
qsqrt-normal2(a;n) ==
let v1,v2 = qrep(a)
in eval n' = 10\^{}log(10;v1 \mdiv{} v2) + 1 * n in
<isqrt2((v1 * n' * n') \mdiv{} v2), n'>
Date html generated:
2016_05_15-PM-11_39_46
Last ObjectModification:
2015_09_23-AM-08_31_01
Theory : rationals
Home
Index