Sub bid128_add
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_sub
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_mul
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_div
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_sqrt
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_cbrt
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_exp
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_log
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_pow
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_atan2
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_fmod
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Sub bid128_modf
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Sub bid128_hypot
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_sin
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_cos
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_tan
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_asin
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_acos
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_atan
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_sinh
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_cosh
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_tanh
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_asinh
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_acosh
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_atanh
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_log1p
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_expm1
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_log10
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_log2
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_exp2
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_exp10
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_erf
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_erfc
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_tgamma
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_lgamma
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Function bid128_quiet_equal&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_greater&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_greater_equal&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_greater_unordered&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_less&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_less_equal&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_less_unordered&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_not_equal&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_not_greater&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_not_less&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_ordered&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_quiet_unordered&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_signaling_greater&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_signaling_greater_equal&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_signaling_greater_unordered&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_signaling_less&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_signaling_less_equal&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_signaling_less_unordered&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_signaling_not_greater&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Function bid128_signaling_not_less&
(x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
)
Sub bid128_copy
(result
As BID_UINT128
, x
As BID_UINT128
) Sub bid128_negate
(result
As BID_UINT128
, x
As BID_UINT128
) Sub bid128_abs
(result
As BID_UINT128
, x
As BID_UINT128
) Function bid128_to_binary80##
(x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
)
Function bid128_to_int8_rnint%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int8_xrnint%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int8_rninta%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int8_xrninta%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int8_int%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int8_xint%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int8_floor%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int8_xfloor%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int8_ceil%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int8_xceil%%
(x
As BID_UINT128
, pfpsf~&
)
Function bid128_to_int16_rnint%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int16_xrnint%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int16_rninta%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int16_xrninta%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int16_int%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int16_xint%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int16_floor%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int16_xfloor%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int16_ceil%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int16_xceil%
(x
As BID_UINT128
, pfpsf~&
)
Function bid128_to_uint8_rnint~%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint8_xrnint~%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint8_rninta~%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint8_xrninta~%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint8_int~%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint8_xint~%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint8_floor~%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint8_xfloor~%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint8_ceil~%%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint8_xceil~%%
(x
As BID_UINT128
, pfpsf~&
)
Function bid128_to_uint16_rnint~%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint16_xrnint~%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint16_rninta~%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint16_xrninta~%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint16_int~%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint16_xint~%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint16_floor~%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint16_xfloor~%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint16_ceil~%
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint16_xceil~%
(x
As BID_UINT128
, pfpsf~&
)
Function bid128_to_int32_rnint&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int32_xrnint&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int32_rninta&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int32_xrninta&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int32_int&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int32_xint&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int32_floor&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int32_xfloor&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int32_ceil&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int32_xceil&
(x
As BID_UINT128
, pfpsf~&
)
Function bid128_to_uint32_rnint~&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint32_xrnint~&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint32_rninta~&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint32_xrninta~&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint32_int~&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint32_xint~&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint32_floor~&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint32_xfloor~&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint32_ceil~&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint32_xceil~&
(x
As BID_UINT128
, pfpsf~&
)
Function bid128_to_int64_rnint&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int64_xrnint&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int64_rninta&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int64_xrninta&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int64_int&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int64_xint&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int64_floor&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int64_xfloor&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int64_ceil&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_int64_xceil&&
(x
As BID_UINT128
, pfpsf~&
)
Function bid128_to_uint64_rnint~&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint64_xrnint~&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint64_rninta~&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint64_xrninta~&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint64_int~&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint64_xint~&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint64_floor~&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint64_xfloor~&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint64_ceil~&&
(x
As BID_UINT128
, pfpsf~&
) Function bid128_to_uint64_xceil~&&
(x
As BID_UINT128
, pfpsf~&
)
Sub bid128_round_integral_exact
(result
As BID_UINT128
, x
As BID_UINT128
, Byval rnd_mode~&
, pfpsf~&
) Sub bid128_round_integral_nearest_even
(result
As BID_UINT128
, x
As BID_UINT128
, pfpsf~&
) Sub bid128_round_integral_negative
(result
As BID_UINT128
, x
As BID_UINT128
, pfpsf~&
) Sub bid128_round_integral_positive
(result
As BID_UINT128
, x
As BID_UINT128
, pfpsf~&
) Sub bid128_round_integral_zero
(result
As BID_UINT128
, x
As BID_UINT128
, pfpsf~&
) Sub bid128_round_integral_nearest_away
(result
As BID_UINT128
, x
As BID_UINT128
, pfpsf~&
) Sub bid128_nextup
(result
As BID_UINT128
, x
As BID_UINT128
, pfpsf~&
) Sub bid128_nextdown
(result
As BID_UINT128
, x
As BID_UINT128
, pfpsf~&
) Sub bid128_nextafter
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Sub bid128_minnum
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Sub bid128_minnum_mag
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Sub bid128_maxnum
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Sub bid128_maxnum_mag
(result
As BID_UINT128
, x
As BID_UINT128
, y
As BID_UINT128
, pfpsf~&
) Sub bid128_from_int32
(result
As BID_UINT128
, Byval x&
) Sub bid128_from_uint32
(result
As BID_UINT128
, Byval x~&
) Sub bid128_from_int64
(result
As BID_UINT128
, Byval x&&
) Sub bid128_from_uint64
(result
As BID_UINT128
, Byval x~&&
)
Dim As BID_UINT128 i
, y
, z
, x
rm = 0
bid128_from_int32 i, -1 'strto128 i, "1"
bid128_from_int32 y, 1 'strto128 y, "20"
strto128 z, ".1"
While bid128_quiet_less_equal
(i
, y
, flag
) 'bid128_sin x, i, rm, flag
'bid128_asin x, x, rm, flag
'bid128_log10 x, i, rm, flag
'Print d128tostring$(x)
bid128_add i, i, z, rm, flag
bid_strtod128 result, sn, 0
Dim As BID_UINT128 one
, x
d128tostring = " 0"
rm = 0
x = z
bid128_copy x, z
bid_strtod128 one, "1.00000000000000000000000000000000000", 0
bid128_mul x, x, one, 0, flag
bid128_to_string s, x, flag
sd = sdl
ex1 = ln + ex - 2
sd
= Left$(sdl
, ex1
+ 2) + "." + Mid$(sdl
, ex1
+ 3) se = "+" + se
sd = sdl
sd = sdl + "." + sdr + "E" + se
d128tostring = sd