868b2b66 (kx 2024-12-20 16:11:07 +0300 1)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2) #ifndef __REAL_INTERNAL_BIN_EXP_EMU64MSB
868b2b66 (kx 2024-12-20 16:11:07 +0300 3) #define __REAL_INTERNAL_BIN_EXP_EMU64MSB
868b2b66 (kx 2024-12-20 16:11:07 +0300 4)
868b2b66 (kx 2024-12-20 16:11:07 +0300 5) #if BITS_PER_EMUSHORT == 64
868b2b66 (kx 2024-12-20 16:11:07 +0300 6)
868b2b66 (kx 2024-12-20 16:11:07 +0300 7) /***************************************************************
868b2b66 (kx 2024-12-20 16:11:07 +0300 8) Определения для МАКСИМАЛЬНОЙ двоичной Экспоненты чисел
868b2b66 (kx 2024-12-20 16:11:07 +0300 9) типа real.
868b2b66 (kx 2024-12-20 16:11:07 +0300 10) ***************************************************************/
868b2b66 (kx 2024-12-20 16:11:07 +0300 11)
868b2b66 (kx 2024-12-20 16:11:07 +0300 12) /* REAL_32_MAX_MAX_BIN_EXP = 128; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 13) static EMUSHORT _max_max_bin_exp_32_[NPIE_32+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 14) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 15) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 16) 0x0000000000000080
868b2b66 (kx 2024-12-20 16:11:07 +0300 17) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 18) /* REAL_64_MAX_MAX_BIN_EXP = 1024; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 19) static EMUSHORT _max_max_bin_exp_64_[NPIE_64+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 20) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 21) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 22) 0x0000000000000400
868b2b66 (kx 2024-12-20 16:11:07 +0300 23) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 24) /* REAL_128_MAX_MAX_BIN_EXP = 1073741824; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 25) static EMUSHORT _max_max_bin_exp_128_[NPIE_128+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 26) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 27) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 28) 0x0000000040000000
868b2b66 (kx 2024-12-20 16:11:07 +0300 29) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 30) /* REAL_256_MAX_MAX_BIN_EXP = 1073741824; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 31) static EMUSHORT _max_max_bin_exp_256_[NPIE_256+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 32) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 33) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 34) 0x0000000040000000
868b2b66 (kx 2024-12-20 16:11:07 +0300 35) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 36)
868b2b66 (kx 2024-12-20 16:11:07 +0300 37) /* REAL_512_MAX_MAX_BIN_EXP = 4611686018427387904; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 38) static EMUSHORT _max_max_bin_exp_512_[NPIE_512+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 39) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 40) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 41) 0x4000000000000000
868b2b66 (kx 2024-12-20 16:11:07 +0300 42) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 43) /* REAL_1024_MAX_MAX_BIN_EXP = 4611686018427387904; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 44) static EMUSHORT _max_max_bin_exp_1024_[NPIE_1024+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 45) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 46) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 47) 0x4000000000000000
868b2b66 (kx 2024-12-20 16:11:07 +0300 48) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 49)
868b2b66 (kx 2024-12-20 16:11:07 +0300 50) /* REAL_2048_MAX_MAX_BIN_EXP = 85070591730234615865843651857942052864; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 51) static EMUSHORT _max_max_bin_exp_2048_[NPIE_2048+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 52) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 53) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 54) 0x4000000000000000, 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 55) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 56) /* REAL_4096_MAX_MAX_BIN_EXP = 85070591730234615865843651857942052864; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 57) static EMUSHORT _max_max_bin_exp_4096_[NPIE_4096+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 58) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 59) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 60) 0x4000000000000000, 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 61) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 62)
868b2b66 (kx 2024-12-20 16:11:07 +0300 63) /* REAL_8192_MAX_MAX_BIN_EXP = 28948022309329048855892746252171976963\
868b2b66 (kx 2024-12-20 16:11:07 +0300 64) 317496166410141009864396001978282409984; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 65) static EMUSHORT _max_max_bin_exp_8192_[NPIE_8192+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 66) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 67) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 68) 0x4000000000000000, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 69) 0, 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 70) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 71) /* REAL_16384_MAX_MAX_BIN_EXP = 28948022309329048855892746252171976963\
868b2b66 (kx 2024-12-20 16:11:07 +0300 72) 317496166410141009864396001978282409984; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 73) static EMUSHORT _max_max_bin_exp_16384_[NPIE_16384+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 74) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 75) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 76) 0x4000000000000000, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 77) 0, 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 78) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 79)
868b2b66 (kx 2024-12-20 16:11:07 +0300 80) /* REAL_32768_MAX_MAX_BIN_EXP = 33519519824856492748935062495514615318\
868b2b66 (kx 2024-12-20 16:11:07 +0300 81) 698414551480983444308903609304410075183\
868b2b66 (kx 2024-12-20 16:11:07 +0300 82) 867442004685745417258569225079645466215\
868b2b66 (kx 2024-12-20 16:11:07 +0300 83) 12713438470702986642486608412251521024; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 84) static EMUSHORT _max_max_bin_exp_32768_[NPIE_32768+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 85) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 86) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 87) 0x4000000000000000, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 88) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 89) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 90) 0, 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 91) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 92) /* REAL_65536_MAX_MAX_BIN_EXP = 33519519824856492748935062495514615318\
868b2b66 (kx 2024-12-20 16:11:07 +0300 93) 698414551480983444308903609304410075183\
868b2b66 (kx 2024-12-20 16:11:07 +0300 94) 867442004685745417258569225079645466215\
868b2b66 (kx 2024-12-20 16:11:07 +0300 95) 12713438470702986642486608412251521024; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 96) static EMUSHORT _max_max_bin_exp_65536_[NPIE_65536+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 97) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 98) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 99) 0x4000000000000000, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 100) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 101) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 102) 0, 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 103) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 104)
868b2b66 (kx 2024-12-20 16:11:07 +0300 105) /* REAL_131072_MAX_MAX_BIN_EXP = 449423283715578976932326297697256183404\
868b2b66 (kx 2024-12-20 16:11:07 +0300 106) 494244735576643183575202894331689513752\
868b2b66 (kx 2024-12-20 16:11:07 +0300 107) 407831771193306018840052800284699678483\
868b2b66 (kx 2024-12-20 16:11:07 +0300 108) 394146974422036041556232118576598685310\
868b2b66 (kx 2024-12-20 16:11:07 +0300 109) 944419733562163713190755549003115235298\
868b2b66 (kx 2024-12-20 16:11:07 +0300 110) 632707380212514422095376705856157203684\
868b2b66 (kx 2024-12-20 16:11:07 +0300 111) 782776352068092908376276711465745599868\
868b2b66 (kx 2024-12-20 16:11:07 +0300 112) 11484619929076208839082406056034304; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 113) static EMUSHORT _max_max_bin_exp_131072_[NPIE_131072+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 114) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 115) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 116) 0x4000000000000000, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 117) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 118) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 119) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 120) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 121) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 122) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 123) 0, 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 124) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 125)
868b2b66 (kx 2024-12-20 16:11:07 +0300 126)
868b2b66 (kx 2024-12-20 16:11:07 +0300 127) /***************************************************************
868b2b66 (kx 2024-12-20 16:11:07 +0300 128) Определения для Максимальной двоичной Экспоненты чисел
868b2b66 (kx 2024-12-20 16:11:07 +0300 129) типа real.
868b2b66 (kx 2024-12-20 16:11:07 +0300 130) ***************************************************************/
868b2b66 (kx 2024-12-20 16:11:07 +0300 131)
868b2b66 (kx 2024-12-20 16:11:07 +0300 132) /* REAL_32_MAX_BIN_EXP = +127; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 133) static EMUSHORT _max_bin_exp_32_[NPIE_32+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 134) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 135) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 136) 0x000000000000007f
868b2b66 (kx 2024-12-20 16:11:07 +0300 137) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 138) /* REAL_64_MAX_BIN_EXP = +1023; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 139) static EMUSHORT _max_bin_exp_64_[NPIE_64+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 140) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 141) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 142) 0x00000000000003ff
868b2b66 (kx 2024-12-20 16:11:07 +0300 143) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 144) /* REAL_128_MAX_BIN_EXP = +1073741823; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 145) static EMUSHORT _max_bin_exp_128_[NPIE_128+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 146) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 147) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 148) 0x000000003fffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 149) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 150) /* REAL_256_MAX_BIN_EXP = +1073741823; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 151) static EMUSHORT _max_bin_exp_256_[NPIE_256+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 152) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 153) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 154) 0x000000003fffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 155) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 156)
868b2b66 (kx 2024-12-20 16:11:07 +0300 157) /* REAL_512_MAX_BIN_EXP = +4611686018427387903; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 158) static EMUSHORT _max_bin_exp_512_[NPIE_512+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 159) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 160) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 161) 0x3fffffffffffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 162) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 163) /* REAL_1024_MAX_BIN_EXP = +4611686018427387903; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 164) static EMUSHORT _max_bin_exp_1024_[NPIE_1024+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 165) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 166) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 167) 0x3fffffffffffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 168) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 169)
868b2b66 (kx 2024-12-20 16:11:07 +0300 170) /* REAL_2048_MAX_BIN_EXP = +85070591730234615865843651857942052863; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 171) static EMUSHORT _max_bin_exp_2048_[NPIE_2048+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 172) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 173) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 174) 0x3fffffffffffffff, 0xffffffffffffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 175) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 176) /* REAL_4096_MAX_BIN_EXP = +85070591730234615865843651857942052863; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 177) static EMUSHORT _max_bin_exp_4096_[NPIE_4096+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 178) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 179) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 180) 0x3fffffffffffffff, 0xffffffffffffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 181) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 182)
868b2b66 (kx 2024-12-20 16:11:07 +0300 183) /* REAL_8192_MAX_BIN_EXP = +28948022309329048855892746252171976963\
868b2b66 (kx 2024-12-20 16:11:07 +0300 184) 317496166410141009864396001978282409983; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 185) static EMUSHORT _max_bin_exp_8192_[NPIE_8192+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 186) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 187) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 188) 0x3fffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 189) 0xffffffffffffffff, 0xffffffffffffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 190) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 191) /* REAL_16384_MAX_BIN_EXP = +28948022309329048855892746252171976963\
868b2b66 (kx 2024-12-20 16:11:07 +0300 192) 317496166410141009864396001978282409983; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 193) static EMUSHORT _max_bin_exp_16384_[NPIE_16384+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 194) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 195) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 196) 0x3fffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 197) 0xffffffffffffffff, 0xffffffffffffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 198) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 199)
868b2b66 (kx 2024-12-20 16:11:07 +0300 200) /* REAL_32768_MAX_BIN_EXP = +33519519824856492748935062495514615318\
868b2b66 (kx 2024-12-20 16:11:07 +0300 201) 698414551480983444308903609304410075183\
868b2b66 (kx 2024-12-20 16:11:07 +0300 202) 867442004685745417258569225079645466215\
868b2b66 (kx 2024-12-20 16:11:07 +0300 203) 12713438470702986642486608412251521023; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 204) static EMUSHORT _max_bin_exp_32768_[NPIE_32768+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 205) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 206) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 207) 0x3fffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 208) 0xffffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 209) 0xffffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 210) 0xffffffffffffffff, 0xffffffffffffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 211) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 212) /* REAL_65536_MAX_BIN_EXP = +33519519824856492748935062495514615318\
868b2b66 (kx 2024-12-20 16:11:07 +0300 213) 698414551480983444308903609304410075183\
868b2b66 (kx 2024-12-20 16:11:07 +0300 214) 867442004685745417258569225079645466215\
868b2b66 (kx 2024-12-20 16:11:07 +0300 215) 12713438470702986642486608412251521023; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 216) static EMUSHORT _max_bin_exp_65536_[NPIE_65536+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 217) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 218) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 219) 0x3fffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 220) 0xffffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 221) 0xffffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 222) 0xffffffffffffffff, 0xffffffffffffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 223) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 224)
868b2b66 (kx 2024-12-20 16:11:07 +0300 225) /* REAL_131072_MAX_BIN_EXP = +449423283715578976932326297697256183404\
868b2b66 (kx 2024-12-20 16:11:07 +0300 226) 494244735576643183575202894331689513752\
868b2b66 (kx 2024-12-20 16:11:07 +0300 227) 407831771193306018840052800284699678483\
868b2b66 (kx 2024-12-20 16:11:07 +0300 228) 394146974422036041556232118576598685310\
868b2b66 (kx 2024-12-20 16:11:07 +0300 229) 944419733562163713190755549003115235298\
868b2b66 (kx 2024-12-20 16:11:07 +0300 230) 632707380212514422095376705856157203684\
868b2b66 (kx 2024-12-20 16:11:07 +0300 231) 782776352068092908376276711465745599868\
868b2b66 (kx 2024-12-20 16:11:07 +0300 232) 11484619929076208839082406056034303; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 233) static EMUSHORT _max_bin_exp_131072_[NPIE_131072+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 234) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 235) 0x0000000000000000,
868b2b66 (kx 2024-12-20 16:11:07 +0300 236) 0x3fffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 237) 0xffffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 238) 0xffffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 239) 0xffffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 240) 0xffffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 241) 0xffffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 242) 0xffffffffffffffff, 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 243) 0xffffffffffffffff, 0xffffffffffffffff
868b2b66 (kx 2024-12-20 16:11:07 +0300 244) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 245)
868b2b66 (kx 2024-12-20 16:11:07 +0300 246)
868b2b66 (kx 2024-12-20 16:11:07 +0300 247) /***************************************************************
868b2b66 (kx 2024-12-20 16:11:07 +0300 248) Определения для Минимальной двоичной Экспоненты чисел
868b2b66 (kx 2024-12-20 16:11:07 +0300 249) типа real.
868b2b66 (kx 2024-12-20 16:11:07 +0300 250) ***************************************************************/
868b2b66 (kx 2024-12-20 16:11:07 +0300 251)
868b2b66 (kx 2024-12-20 16:11:07 +0300 252) /* REAL_32_MIN_BIN_EXP = -126; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 253) static EMUSHORT _min_bin_exp_32_[NPIE_32+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 254) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 255) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 256) 0xffffffffffffff82
868b2b66 (kx 2024-12-20 16:11:07 +0300 257) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 258) /* REAL_64_MIN_BIN_EXP = -1022; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 259) static EMUSHORT _min_bin_exp_64_[NPIE_64+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 260) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 261) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 262) 0xfffffffffffffc02
868b2b66 (kx 2024-12-20 16:11:07 +0300 263) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 264) /* REAL_128_MIN_BIN_EXP = -1073741822; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 265) static EMUSHORT _min_bin_exp_128_[NPIE_128+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 266) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 267) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 268) 0xffffffffc0000002
868b2b66 (kx 2024-12-20 16:11:07 +0300 269) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 270) /* REAL_256_MIN_BIN_EXP = -1073741822; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 271) static EMUSHORT _min_bin_exp_256_[NPIE_256+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 272) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 273) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 274) 0xffffffffc0000002
868b2b66 (kx 2024-12-20 16:11:07 +0300 275) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 276)
868b2b66 (kx 2024-12-20 16:11:07 +0300 277) /* REAL_512_MIN_BIN_EXP = -4611686018427387902; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 278) static EMUSHORT _min_bin_exp_512_[NPIE_512+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 279) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 280) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 281) 0xc000000000000002
868b2b66 (kx 2024-12-20 16:11:07 +0300 282) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 283) /* REAL_1024_MIN_BIN_EXP = -4611686018427387902; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 284) static EMUSHORT _min_bin_exp_1024_[NPIE_1024+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 285) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 286) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 287) 0xc000000000000002
868b2b66 (kx 2024-12-20 16:11:07 +0300 288) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 289)
868b2b66 (kx 2024-12-20 16:11:07 +0300 290) /* REAL_2048_MIN_BIN_EXP = -85070591730234615865843651857942052862; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 291) static EMUSHORT _min_bin_exp_2048_[NPIE_2048+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 292) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 293) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 294) 0xc000000000000000, 2
868b2b66 (kx 2024-12-20 16:11:07 +0300 295) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 296) /* REAL_4096_MIN_BIN_EXP = -85070591730234615865843651857942052862; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 297) static EMUSHORT _min_bin_exp_4096_[NPIE_4096+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 298) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 299) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 300) 0xc000000000000000, 2
868b2b66 (kx 2024-12-20 16:11:07 +0300 301) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 302)
868b2b66 (kx 2024-12-20 16:11:07 +0300 303) /* REAL_8192_MIN_BIN_EXP = -28948022309329048855892746252171976963\
868b2b66 (kx 2024-12-20 16:11:07 +0300 304) 317496166410141009864396001978282409982; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 305) static EMUSHORT _min_bin_exp_8192_[NPIE_8192+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 306) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 307) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 308) 0xc000000000000000, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 309) 0, 2
868b2b66 (kx 2024-12-20 16:11:07 +0300 310) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 311) /* REAL_16384_MIN_BIN_EXP = -28948022309329048855892746252171976963\
868b2b66 (kx 2024-12-20 16:11:07 +0300 312) 317496166410141009864396001978282409982; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 313) static EMUSHORT _min_bin_exp_16384_[NPIE_16384+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 314) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 315) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 316) 0xc000000000000000, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 317) 0, 2
868b2b66 (kx 2024-12-20 16:11:07 +0300 318) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 319)
868b2b66 (kx 2024-12-20 16:11:07 +0300 320) /* REAL_32768_MIN_BIN_EXP = -33519519824856492748935062495514615318\
868b2b66 (kx 2024-12-20 16:11:07 +0300 321) 698414551480983444308903609304410075183\
868b2b66 (kx 2024-12-20 16:11:07 +0300 322) 867442004685745417258569225079645466215\
868b2b66 (kx 2024-12-20 16:11:07 +0300 323) 12713438470702986642486608412251521022; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 324) static EMUSHORT _min_bin_exp_32768_[NPIE_32768+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 325) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 326) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 327) 0xc000000000000000, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 328) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 329) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 330) 0, 2
868b2b66 (kx 2024-12-20 16:11:07 +0300 331) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 332) /* REAL_65536_MIN_BIN_EXP = -33519519824856492748935062495514615318\
868b2b66 (kx 2024-12-20 16:11:07 +0300 333) 698414551480983444308903609304410075183\
868b2b66 (kx 2024-12-20 16:11:07 +0300 334) 867442004685745417258569225079645466215\
868b2b66 (kx 2024-12-20 16:11:07 +0300 335) 12713438470702986642486608412251521022; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 336) static EMUSHORT _min_bin_exp_65536_[NPIE_65536+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 337) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 338) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 339) 0xc000000000000000, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 340) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 341) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 342) 0, 2
868b2b66 (kx 2024-12-20 16:11:07 +0300 343) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 344)
868b2b66 (kx 2024-12-20 16:11:07 +0300 345) /* REAL_131072_MIN_BIN_EXP = -449423283715578976932326297697256183404\
868b2b66 (kx 2024-12-20 16:11:07 +0300 346) 494244735576643183575202894331689513752\
868b2b66 (kx 2024-12-20 16:11:07 +0300 347) 407831771193306018840052800284699678483\
868b2b66 (kx 2024-12-20 16:11:07 +0300 348) 394146974422036041556232118576598685310\
868b2b66 (kx 2024-12-20 16:11:07 +0300 349) 944419733562163713190755549003115235298\
868b2b66 (kx 2024-12-20 16:11:07 +0300 350) 632707380212514422095376705856157203684\
868b2b66 (kx 2024-12-20 16:11:07 +0300 351) 782776352068092908376276711465745599868\
868b2b66 (kx 2024-12-20 16:11:07 +0300 352) 11484619929076208839082406056034302; */
868b2b66 (kx 2024-12-20 16:11:07 +0300 353) static EMUSHORT _min_bin_exp_131072_[NPIE_131072+1] =
868b2b66 (kx 2024-12-20 16:11:07 +0300 354) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 355) 0xffffffffffffffff,
868b2b66 (kx 2024-12-20 16:11:07 +0300 356) 0xc000000000000000, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 357) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 358) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 359) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 360) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 361) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 362) 0, 0,
868b2b66 (kx 2024-12-20 16:11:07 +0300 363) 0, 2
868b2b66 (kx 2024-12-20 16:11:07 +0300 364) };
868b2b66 (kx 2024-12-20 16:11:07 +0300 365)
868b2b66 (kx 2024-12-20 16:11:07 +0300 366) #else /* BITS_PER_EMUSHORT != 64 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 367) #error lbin_exp_emu64msb.dfn: ERROR: Failed size of EMUSHORT data type.
868b2b66 (kx 2024-12-20 16:11:07 +0300 368) #endif /* BITS_PER_EMUSHORT == 64 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 369)
868b2b66 (kx 2024-12-20 16:11:07 +0300 370) #endif /* __REAL_INTERNAL_BIN_EXP_EMU64MSB */
Math Processor Unit Library
libmpu – library of arithmetic functions for integer, real, and complex numbers of increased digit capacity
16 Commits
0 Branches
2 Tags