跳转到内容

模組:BigNumber/utils/sandbox

本页使用了标题或全文手工转换
维基百科,自由的百科全书
local main_module = "Module:BigNumber/sandbox"
local utils = {}
local cmath = {}
local bignum = {}
local lib_calc = {}

--大數帶餘長除法 / 可作為進制轉換用的帶餘長除法
function utils.modulo_div(n, _original_base, destination_base, fractional_flag)
	local original_base = tonumber(_original_base)
	local non_number_base = not original_base --確認是否為非數字進制
	if non_number_base then original_base = 1 end
	local carry = 0
	local result = {0} --儲存商的陣列
	for i =fractional_flag and #n or 1,fractional_flag and 1 or #n, fractional_flag and -1 or 1 do
		if non_number_base then 
			original_base = utils.getBaseValue(_original_base, fractional_flag and (-i) or (#n - i))
			if utils.isInf(original_base) then original_base = 10 end --若混合底數出現無限大作為十進制計算
		end
		local d = n[i]
		if fractional_flag then --進制轉換時,小數點以後用乘的
			d = d * math.abs(destination_base) + carry
			carry = math.floor(d / original_base)
			d = utils.mod(d, original_base)
			if destination_base < 0 then d = -d end
		else --對每個位數進行帶餘長除法
			d = d + original_base * carry --上一位的餘數,取下一位
			carry = utils.mod(d, destination_base) --新的餘數 
			d = math.floor(d / destination_base) --商
		end
		result[i] = math.floor(d) --紀錄商
	end
	if fractional_flag and destination_base < 0 then carry = -carry end
	return result, carry --回傳商, 餘數
end

function utils._convertBase(n, _original_base, _destination_base, fractional_flag, total_digit)
	local digits = {}
	if utils.isInf(_original_base) then
		error(string.format("底數不能為 '%s'", tostring(_original_base)),2)
	end
	if fractional_flag and utils.isInf(_destination_base) then --無限大進制的小數位數位置值為 1/無限大 是零,無法表示小數
		return {}
	end
	local original_base = utils.getBaseValue(_original_base, 0)
	local destination_base = utils.getBaseValue(_destination_base, 0)
	local dn, digit = n
	local max_digit = total_digit or math.max(#n+1, 20) --未指定時不超過20位
	local i = 0
	local src_max_digit = #dn

	--進位轉換為不斷帶餘除法直到商為0
	while not utils.is_zero(dn) do
		destination_base = utils.getBaseValue(_destination_base, fractional_flag and (-i - 1) or i)
		--以帶餘長除法計算各個位數 (回傳值 => 商, 位數)
		dn, digit = utils.modulo_div(dn, _original_base, destination_base, fractional_flag)
		if digit < 0 then --負底數進位會遇到餘數小於0的情況
			digit = digit + math.abs(destination_base) --加成正的
			if fractional_flag then
			else --商+1 (因為等於多減一次除數)
				dn[#dn] = dn[#dn] + 1
			end
		end
		--計算小數時,位數加在末尾
		if fractional_flag then
			if utils.isNaN(digit) then break end
			digits[#digits + 1] = digit
			if i >= max_digit then break end
		--計算整數時,位數加在開頭
		else
			table.insert(digits, 1, digit)
		end
		i = i + 1
	end
	return digits
end

function utils.is_zero(n)
	for _,d in ipairs(n) do
		if d ~= 0 then return false end
	end
	return true
end

function utils.myfloor(n)
	if math.abs(math.ceil(n)-n)<1e-12 then return math.ceil(n) end
	return math.floor(n)
end

function utils.myceil(n)
	if math.abs(math.floor(n)-n)<1e-12 then return math.floor(n) end
	return math.ceil(n)
end

function utils.round(n)
	return utils.myfloor(n + 0.5)
end

function utils.mod(n, m)
	if utils.isInf(m) then return n end
	return n % m
end

function utils.loop_mod(n, m)
	if utils.isInf(m) then return n end
	local result = n % m
	return (result == 0) and m or result
end

function utils.tonumber(n)
	local check = tostring(n)
	check = mw.ustring.gsub(check, '∞', 'inf')
	return tonumber(check)
end

function utils.tostring(n)
	local result = tostring(n)
	result = mw.ustring.gsub(result, '^%s*([+-]?)inf%s*$', '%1∞')
	result = mw.ustring.gsub(result, '%-', '−')
	return result
end

function utils.isInt(n)
	return math.abs(utils.myfloor(n)-n)<1e-12
end

function utils.isInf(num)
	local num_str = tostring(num):lower()
	return num_str=='inf' or num_str=='-inf' or num_str=='−inf' or num_str=='+inf'
end

function utils.isNaN(num)
	local num_str = tostring(num):lower()
	return num_str=='nan' or num_str=='-nan' or num_str=='−nan' or num_str=='+nan'
end

function utils.cintpow(num, power)
	if type(cmath.constructor) ~= type(tostring) then cmath = require("Module:Complex Number").cmath.init()end
	power = utils.round(power)
	local this = cmath[0] + cmath.constructor(num)
	if power < 0 then --負的次方為倒數自乘
		this = cmath.inverse(this) 
		power = -power
	end
	if power == 0 then return cmath[0] + 1 end
	if power == 1 then return cmath[0] + this end
	if power == 2 then return this * this end
	local loge = math.log(power)
	local log2 = loge / math.log(2)
	if utils.isInt(log2) then --次方為2的冪 直接連續自乘,以減少乘法運算的次數
		local result = this
		for i=1,log2 do result = result * result end
		return result
	end
	local times_data = {}
	local times_times = {}
	local two_time = utils.round(math.pow(2, math.floor(log2))) --其餘情況轉換成2的冪的組合,以減少乘法運算的次數
	local lose_time = power - two_time
	local to_times = cmath[0] + this
	local zero_flag = 0
	repeat --重複分成2的冪的組合
		for i=1,log2 do to_times = to_times * to_times end
		times_data[#times_data+1] = to_times --紀錄本次自乘次數的結果
		times_times[#times_times+1] = two_time
		log2 = math.log(lose_time) / math.log(2) --計算剩餘數字的2的冪的組合
		two_time = math.pow(2, math.floor(log2))
		lose_time = lose_time - two_time --計算扣除本次的2的冪的次數後剩下多少次要乘
		to_times = cmath[0] + this
		if lose_time <= 0 then zero_flag = zero_flag + 1 end --剩餘次數為0為迴圈結束條件
	until zero_flag > 1
	local result = cmath[1]
	for i=1,#times_data do result = result * times_data[i]end --將所有自乘次數的結果相乘
	return result
end

function utils._swap(x,i,y,j) local t = x[i]; x[i] = y[j]; y[j] = t end

function utils.fibonacci_coding(int_digits, original_base, _destination_base, fractional_flag, total_digit, fib_code)
	local sqrt5 = math.sqrt(5)
	local phi = (sqrt5 + 1) * 0.5
	local logphi = math.log(phi)
	local function fibonacciId(x)return utils.myceil(math.log(x*sqrt5-0.5)/logphi)end
	local function fibonacci(an)return math.floor(math.pow(phi, an) / sqrt5 + 0.5)end
	if fractional_flag then 
		if fib_code then return {} end
		local number = utils.toDecimal({0}, int_digits, original_base)
		if number == 0 then return {} end
		local max_digs = total_digit or math.max(#int_digits + 1,20)
		local result = {}
		for i=1,max_digs do
			local place_value = 1 / fibonacci(i+2)
			if place_value > number then
				result[#result + 1] = 0
			else
				result[#result + 1] = 1
				number = number - place_value
			end
			if number == 0 then break end
		end
		return result 
	end
	local n = utils.myfloor(utils.toDecimal(int_digits, {}, original_base))
	if math.abs(tonumber(table.concat(int_digits,''))-1)<1e-14 then 
		return fib_code and {1,1} or {1,0} 
	end

	local k = utils.myceil(math.log(n*sqrt5-0.5)/logphi)
	local vaild_fib = {}
	local max_id = 0
	local x0 = n
	while x0 > 0 do
		local id = fibonacciId(x0)
		local digval = fibonacci(id)
		if digval > x0 then 
			id = id - 1
			digval = fibonacci(id)
		end
		x0 = x0 - digval
		if id > max_id then max_id = id end
		vaild_fib[id] = 1
	end
	local result = {}
	for i=max_id,(fib_code and 2 or 1),-1 do
		result[#result + 1] = vaild_fib[i] or 0
	end
	if fib_code then
		local the_code = {1}
		for i=1,#result do
			table.insert(the_code, 1, result[i])
		end
		return the_code
	end
	return result
end

function utils.non_integer_base(int_digits, fractional_digits, original_base, destination_base, _sign)
	local n = utils.toDecimal(int_digits, fractional_digits, original_base)
	local sign = _sign
	if n < 0 then 
		sign = sign * -1
		n = -n
	end
	local k = utils.myfloor(math.log(n)/math.log(destination_base)) + 1
	local int_result, fractional_result = {}, {}
	for i=k-1,0,-1 do
		local digit = utils.myfloor((n / utils.getPlaceValue(destination_base, i)) % destination_base)
		n = n - digit * utils.getPlaceValue(destination_base, i)
		int_result[#int_result + 1] = digit
	end
	if n > 0 then
		for i=1,20 do
			local digit = utils.myfloor((n / utils.getPlaceValue(destination_base, -i)) % destination_base)
			n = n - digit * utils.getPlaceValue(destination_base, -i)
			fractional_result[#fractional_result + 1] = digit
			if n <= 0 then break end
		end
	end
	return int_result, fractional_result, sign
end

function utils.negabaseCarry(int_digits, fractional_digits, destination_base, sign)
	if math.abs(fractional_digits[1]or 0) > 0 and (sign or 0) > 0 then
		int_digits[#int_digits] = int_digits[#int_digits] + 1
	end
	local carry = 0
	local abs_base = utils.round(math.abs(destination_base))
	for i=#fractional_digits,1,-1 do
		local d = utils.round(fractional_digits[i]) + carry
		carry = 0
		if d >= abs_base then
			carry = i%2 and -1 or 1
			d = d - abs_base
		end
		if d < 0 then
			carry = i%2 and 1 or -1
			d = d + abs_base
		end
		fractional_digits[i] = utils.round(d)
	end
	local j = 0
	for i=#int_digits,1,-1 do
		j = #int_digits - i
		local d = utils.round(int_digits[i]) + carry
		carry = 0
		if d >= abs_base then
			carry = j%2 and -1 or 1
			d = d - abs_base
		end
		if d < 0 then
			carry = j%2 and 1 or -1
			d = d + abs_base
		end
		int_digits[i] = utils.round(d)
	end
	while math.abs(carry) > 0 do
		j = j + 1
		local d = utils.round(carry)
		carry = 0
		if d >= abs_base then
			carry = j%2 and -1 or 1
			d = d - abs_base
		end
		if d < 0 then
			carry = j%2 and 1 or -1
			d = d + abs_base
		end
		table.insert(int_digits, 1, utils.round(d))
	end
	for i=1,#int_digits-1 do if int_digits[1] == 0 then table.remove(int_digits, 1) end end
	return int_digits, fractional_digits
end

local function complexBase2Decimal(num, imag, base)
	if type(cmath.constructor) ~= type(tostring) then cmath = require("Module:Complex Number").cmath.init()end
	local base = cmath.constructor(base)
	if not base then return nil end
	num = mw.text.trim(num)
	local sign = 1
	local first_sign = mw.ustring.sub(num,1,1)
	--讀取正負號
	if first_sign == '+' or first_sign == '-' or first_sign == '−' then 
		num = mw.ustring.sub(num,2,-1)
		if first_sign == '-' or first_sign == '−' then 
			sign = -1 
		end
	end
	if type(lib_calc._getNumString) ~= type(tostring) then lib_calc = require('Module:Complex_Number/Calculate')end
	local int_digits, fractional_digits = lib_calc._getNumString(num, true)
	local result = cmath.constructor(utils.toDecimalComplex(int_digits, fractional_digits, imag, base))
	if sign < 0 then result = result * -1 end
	return result
end

function utils.complexBaseConvert(num, to, from, digs, precision)
	if mw.ustring.find(to..' '..from, "[%+%-−%d]i") then
		if type(cmath.constructor) ~= type(tostring) then cmath = require("Module:Complex Number").cmath.init()end
		num = mw.ustring.gsub(num, '−', '-')
		to = mw.ustring.gsub(to, '−', '-')
		from = mw.ustring.gsub(from, '−', '-')
		local cto, cfrom = cmath.constructor(tostring(to)), cmath.constructor(tostring(from))
		cfrom = cfrom or cmath.constructor(10)
		
		if cto and cfrom then
			local number = tostring(num)
			number = mw.text.trim(number)
			--轉換為十進制
			if cmath.abs(cmath.im(cfrom)) < 1e-14 and cmath.abs(cmath.re(cfrom)) > 0 then
				local check_number = num
				if not mw.ustring.find(check_number,"^[%+%-−]") then check_number = '+'..num end
				number = mw.ustring.gsub(check_number, "[%+%-−][%a%d%.,;:]+", function(number_part)
					if type(bignum.convertBase) ~= type(tostring)then bignum = require(main_module)end
					local is_imag = (mw.ustring.sub(number_part,-1,-1) == 'i')
					local convert_number = is_imag and mw.ustring.sub(number_part,1,-2) or number_part
					if convert_number == '' or convert_number == '+' or convert_number == '-' or convert_number == '−' then convert_number = convert_number..'1' end
					convert_number = bignum.convertBase(convert_number, 10, from)..(is_imag and 'i' or '')
					if not mw.ustring.find(convert_number,"^[%+%-−]") then convert_number = '+'..convert_number end
					return mw.ustring.gsub(convert_number, '−', '-')
				end)
			else
				local check_number = num
				if not mw.ustring.find(check_number,"^[%+%-−]") then check_number = '+'..num end
				number = mw.ustring.gsub(check_number, "[%+%-−][%a%d%.,;:]+", function(number_part)
					if type(lib_calc.scientific2number) ~= type(tostring) then lib_calc = require('Module:Complex_Number/Calculate')end
					local is_imag = (mw.ustring.sub(number_part,-1,-1) == 'i')
					local convert_number = is_imag and mw.ustring.sub(number_part,1,-2) or number_part
					convert_number = mw.ustring.gsub(convert_number, '−', '-')
					if convert_number == '' or convert_number == '+' or convert_number == '-' or convert_number == '−' then convert_number = convert_number..'1' end
					convert_number = complexBase2Decimal(convert_number, is_imag, cfrom)
					convert_number = tostring(convert_number)
					--跳脫科學記號,避免加與減和科學記號混淆
					convert_number = mw.ustring.gsub(convert_number, "[Ee]%+?(%d)", "F%1")
					convert_number = mw.ustring.gsub(convert_number, "[Ee]%-(%d)", "D%1")
					if not mw.ustring.find(convert_number,"^[%+%-−]") then convert_number = '+'..convert_number end
					--還原科學記號為一般數字
					convert_number = mw.ustring.gsub(convert_number, "([%+%-−])([%a%d%.,;:]+)", function(number_sign_part,number_value_part)
						local is_part_imag = (mw.ustring.sub(number_value_part,-1,-1) == 'i')
						local number_value_part_real = is_part_imag and mw.ustring.sub(number_value_part,1,-2) or number_value_part
						number_value_part_real = mw.ustring.gsub(number_value_part_real, "[DdFf]", function(Evalue) return ({D='e-',d='e-',F='e+',f='e+'})[Evalue] end)
						return number_sign_part..lib_calc.scientific2number(number_value_part_real, true)..(is_part_imag and 'i' or '')
					end)
					return mw.ustring.gsub(convert_number, '−', '-')
				end)
			end
			number = cmath.constructor(number)
			if not number then
				error(mw.ustring.format("轉換失敗:'%s' 不是有效的數字。",tostring(num)), 2)
				return nil
			end
			local int_digits, fractional_digits = {}, {}
			if cmath.abs(cto) <= 1 then
				return nil
			elseif cmath.abs(cmath.re(cto)) < 1e-14 then
				local to_im = cmath.im(cto)
				local to_im_sq = to_im * to_im
				if utils.isInt(to_im_sq) and to_im_sq > 1 then
					local real, imag = cmath.re(number), cmath.i * cmath.im(number)
					imag = imag * cmath.i * to_im
					local function convert_part(num_val, base, frac_precision)
						local num_str = tostring(num_val)
						local sign = 1
						local first_sign = mw.ustring.sub(num_str,1,1)
						--讀取正負號
						if first_sign == '+' or first_sign == '-' or first_sign == '−' then 
							num_str = mw.ustring.sub(num_str,2,-1)
							if first_sign == '-' or first_sign == '−' then 
								sign = -1 
							end
						end
						if type(lib_calc._getNumString) ~= type(tostring) then lib_calc = require('Module:Complex_Number/Calculate')end
						local int_digits, fractional_digits = lib_calc._getNumString(num_str, true)
						if base < 0 and sign < 0 then
							for i=1,#int_digits do int_digits[i] = -int_digits[i]end
							for i=1,#fractional_digits do fractional_digits[i] = -fractional_digits[i]end
						end
						int_digits = utils._convertBase(int_digits, 10, base, false)
						fractional_digits = utils._convertBase(fractional_digits, 10, base, true, tonumber(frac_precision<0 and '' or frac_precision))
						if #int_digits == 0 then int_digits[1] = 0 end
						if base < 0 then int_digits, fractional_digits = utils.negabaseCarry(int_digits, fractional_digits, base, sign)end
						return int_digits, fractional_digits
					end
					local function revert(x)
						rev = {}
						for i=#x, 1, -1 do table.insert(rev, x[i])end
						return rev
					end
					local real_int, real_frac = convert_part(cmath.re(real), -to_im_sq, precision)
					local imag_int, imag_frac = convert_part(cmath.re(imag), -to_im_sq, precision)
					table.insert(imag_frac, 1, imag_int[#imag_int])
					table.remove(imag_int, #imag_int)
					if utils.is_zero(imag_frac) then imag_frac = {} end
					real_int, imag_int = revert(real_int), revert(imag_int)
					for i=1,math.max(#real_int, #imag_int) do
						table.insert(int_digits,1,real_int[i] or 0)
						table.insert(int_digits,1,imag_int[i] or 0)
					end
					if int_digits[1] == 0 then table.remove(int_digits,1) end
					for i=1,math.max(#real_frac, #imag_frac) do
						table.insert(fractional_digits,imag_frac[i] or 0)
						table.insert(fractional_digits,real_frac[i] or 0)
					end
					if fractional_digits[#fractional_digits] == 0 then table.remove(fractional_digits,#fractional_digits) end
				end
			elseif cmath.abs(cmath.re(cto)) >= 1 and cmath.abs(cmath.im(cto)) < 1e-14 then
				local real, imag = cmath.re(number), cmath.im(number)
				if type(bignum.convertBase) ~= type(tostring)then bignum = require(main_module)end
				local real_result, imag_result = bignum.convertBase(real, cmath.re(cto), 10, digs, precision), bignum.convertBase(imag, cmath.re(cto), 10, digs, precision)
				local real_is0, imag_is0 = ((tonumber(real_result)or 1) == 0), ((tonumber(imag_result)or 1) == 0)
				if imag_is0 then return real_result, '' 
				elseif real_is0 and not imag_is0 then return ((math.abs(tonumber(({mw.ustring.gsub(imag_result, '−', '-')})[1]) or 0) ~= 1) and imag_result or ({mw.ustring.gsub(imag_result,'1','')})[1])..'i', ''end
				local check_sign = mw.ustring.sub(imag_result,1,1)
				return real_result .. ((check_sign == '+' or check_sign == '-' or check_sign == '−') and '' or '+') .. ((math.abs(tonumber(({mw.ustring.gsub(imag_result, '−', '-')})[1]) or 0) ~= 1) and imag_result or ({mw.ustring.gsub(imag_result,'1','')})[1]) ..'i', ''
			elseif utils.isInt(cmath.re(cto)) and utils.isInt(cmath.im(cto)) and cmath.abs(cto) > 1 then
				--尚不知道其他高斯整數底數的非整數轉換演算法。部分高斯整數底數無法轉換
				local real, imag = cmath.re(number), cmath.im(number)
				local function complex_div_quotient_remainder(input_number, base)
					local base_real, base_imag = cmath.re(base), cmath.im(base)
					local max_remainder = base_real * base_real + base_imag * base_imag
					for i=0,max_remainder-1 do
						local check_quotient = (input_number-i) / base
						if utils.isInt(cmath.re(check_quotient)) and utils.isInt(cmath.im(check_quotient)) then
							return check_quotient, i
						end
					end
				end
				local int_number = cmath.ceil(number)
				local frac_number = number - int_number
				if cmath.abs(frac_number) > 1e-14 then --阻止非高斯整數進行轉換,因為目前演算法不支援
					error(mw.ustring.format("轉換失敗:底數 '%s' 不支援非高斯整數 '%s' 的轉換。",tostring(to), tostring(num)), 2)
					return nil 
				end
				local tk = (utils.myceil(math.log(cmath.abs(number))/math.log(cmath.abs(cto))) + 1) * 4 + 4
				local do_number = int_number
				local counter = 0
				while cmath.abs(do_number) > 0 do
					local quotient, remainder = complex_div_quotient_remainder(do_number, cto)
					do_number = quotient
					table.insert(int_digits,1,remainder)
					
					counter = counter + 1
					if counter > tk then --轉換到變成無窮迴圈,視為失敗
						error(mw.ustring.format("轉換失敗:無法將 '%s' 轉換為底數 '%s' 的進制。", tostring(num), tostring(to)), 2)
						return nil 
					end
				end
				if #int_digits == 0 then int_digits[1] = 0 end
			else
				return nil 
			end
			local max_digs = 0
			for i=1,#int_digits do if int_digits[i] > max_digs then max_digs = int_digits[i] end end
			for i=1,#fractional_digits do if fractional_digits[i] > max_digs then max_digs = fractional_digits[i] end end
			
			if #int_digits < digs then --補齊整數位數
				local lose_digs = digs - #int_digits
				for i=1,lose_digs do
					table.insert(int_digits, 1, 0)
				end
			end
			if #fractional_digits < precision then --補齊小數位數
				local lose_digs = precision - #fractional_digits
				for i=1,lose_digs do
					fractional_digits[#fractional_digits+1] = 0
				end
			end
			local int_result, fractional_result = utils.printAllDigit(int_digits, max_digs + 1, -1, 0, false), utils.printAllDigit(fractional_digits, max_digs + 1, precision, 0, true)
			return int_result, fractional_result
		end
	end
	return nil
end

function utils.factorial(n)
	local result = 1
	for i=1,n do result = result * i end
	if n<0 then for i=1,-n do result = result / i end end --提供給阶乘进制 負的用除的
	return result
end

utils.specialBaseData = {
	['!']={
		name = "!",
		display = "!",
		page = "阶乘进制",
		digitsplit = ":",
		point = ".",
		placeValue = function(this, digit_id) return utils.factorial(digit_id)end,
		baseValue = function(this, digit_id) return (digit_id < 0) and -digit_id or (digit_id + 1) end,
		printDigit = function(this, digit)return tostring(digit) end,
		needtoDecimal = false,
		convertBase = utils._convertBase,
	},
	['#']={
		name = "#",
		display = "#",
		page = "质数阶乘进制",
		digitsplit = ":",
		point = ".",
		placeValue = function(this, digit_id) 
			if not lib_fact.primeIndex then lib_fact = require("Module:Factorization") end
			local result = 1
			for i=1,digit_id do result = result * ((i-1<=0) and 1 or lib_fact.primeIndex(i-1)) end
			if digit_id<0 then for i=1,-digit_id do result = result / ((i-1<=0) and 1 or lib_fact.primeIndex(i-1)) end end
			return result
		end,
		baseValue = function(this, digit_id)
			if not lib_fact.primeIndex then lib_fact = require("Module:Factorization") end
			return (digit_id < 0) and ((-digit_id<=1) and 1 or lib_fact.primeIndex(-digit_id-1)) or ((digit_id<=0) and 1 or lib_fact.primeIndex(digit_id))
		end,
		printDigit = function(this, digit)return tostring(digit) end,
		needtoDecimal = false,
		convertBase = utils._convertBase,
	},
	['!0']={ --以0-9A-Z表達的阶乘进制 (遇到超過36位數可能會出現亂碼)
		name = "!0",
		display = "!",
		page = "阶乘进制",
		digitsplit = "",
		point = ".",
		placeValue = function(this, digit_id) return utils.factorial(digit_id)end,
		baseValue = function(this, digit_id)return (digit_id < 0) and -digit_id or (digit_id + 1) end,
		printDigit = function(this, digit)
			return utils.printAZ(digit)
		end,
		needtoDecimal = false,
		convertBase = utils._convertBase,
	},
	['!-']={ --以0-9A-Z表達的阶乘进制並省略個位數 (遇到超過36位數可能會出現亂碼)
		name = "!-", --[[oeis:A007623]]
		display = "!",
		page = "阶乘进制",
		digitsplit = "",
		point = ".",
		placeValue = function(this, digit_id) return utils.factorial((digit_id < 0) and digit_id or (digit_id + 1))end,
		baseValue = function(this, digit_id)return (digit_id < 0) and -digit_id or (digit_id + 2) end,
		printDigit = function(this, digit)
			return utils.printAZ(digit)
		end,
		needtoDecimal = false,
		convertBase = utils._convertBase,
	},
	fib={
		name = "fib",
		display = "fib",
		page = "斐波那契进制",
		digitsplit = "",
		point = ".",
		placeValue = function(this, an)
			local sqrt5 = math.sqrt(5)
			local phi = (sqrt5 + 1) * 0.5
			local fib_val = math.floor(math.pow(phi, math.abs(an)+((an < 0) and 2 or 1)) / sqrt5 + 0.5)
			return (an < 0) and (1/fib_val) or fib_val
		end,
		baseValue = function(this, digit_id)return 1 end,
		printDigit = function(this, digit)return tostring(digit) end,
		needtoDecimal = true,
		convertBase = utils.fibonacci_coding,
	},
	["fib-"]={
		name = "fib-",
		display = "fib",
		page = "斐波那契进制",
		digitsplit = "",
		point = ".",
		placeValue = function(this, an)
			local sqrt5 = math.sqrt(5)
			local phi = (sqrt5 + 1) * 0.5
			local fib_val = math.floor(math.pow(phi, math.abs(an)+2) / sqrt5 + 0.5)
			return (an < 0) and (1/fib_val) or fib_val
		end,
		baseValue = function(this, digit_id)return 1 end,
		printDigit = function(this, digit)return tostring(digit) end,
		needtoDecimal = true,
		convertBase = function(int_digits, original_base, _destination_base, fractional_flag, total_digit)
			local result = utils.fibonacci_coding(int_digits, original_base, _destination_base, fractional_flag, total_digit)
			if fractional_flag then return result end
			table.remove(result,#result)
			return result
		end,
	},
	fibcode={
		name = "fibcode",
		display = "fib code",
		page = "斐波那契编码",
		digitsplit = "",
		point = ".",
		placeValue = function(this, an)
			local sqrt5 = math.sqrt(5)
			local phi = (sqrt5 + 1) * 0.5
			return math.floor(math.pow(phi, an+1) / sqrt5 + 0.5)
		end,
		baseValue = function(this, digit_id)return 1 end,
		printDigit = function(this, digit)return tostring(digit) end,
		needtoDecimal = true,
		convertBase = function(int_digits, original_base, _destination_base, fractional_flag, total_digit)
			return utils.fibonacci_coding(int_digits, original_base, _destination_base, fractional_flag, total_digit, true)
		end,
	},
	ContinuedFraction={
		name = "ContinuedFraction",
		display = "ContinuedFraction",
		page = "连分数",
		digitsplit = ",",
		point = ";",
		placeValue = function(this, an)return 1 end,
		baseValue = function(this, digit_id)return 1 end,
		printDigit = function(this, digit)return tostring(digit) end,
		needtoDecimal = true,
		convertBase = utils.ContinuedFraction,
	},
}
utils.specialBaseData['!'] = utils.specialBaseData['!']
utils.specialBaseData['阶乘'] = utils.specialBaseData['!']
utils.specialBaseData['阶乘进制'] = utils.specialBaseData['!']
utils.specialBaseData['階乘'] = utils.specialBaseData['!']
utils.specialBaseData['階乘進制'] = utils.specialBaseData['!']
utils.specialBaseData['階乘進位'] = utils.specialBaseData['!']
utils.specialBaseData['斐波那契进制'] = utils.specialBaseData.fib
utils.specialBaseData['斐波那契進制'] = utils.specialBaseData.fib
utils.specialBaseData['斐波那契编码'] = utils.specialBaseData.fibcode
utils.specialBaseData['斐波那契編碼'] = utils.specialBaseData.fibcode
utils.specialBaseData['fib code'] = utils.specialBaseData.fibcode
utils.specialBaseData['斐波那契'] = utils.specialBaseData.fib
utils.specialBaseData['連分數'] = utils.specialBaseData.ContinuedFraction
utils.specialBaseData['连分数'] = utils.specialBaseData.ContinuedFraction
utils.specialBaseData['continued fraction'] = utils.specialBaseData.ContinuedFraction
utils.specialBaseData['Continued Fraction'] = utils.specialBaseData.ContinuedFraction

function utils.getPlaceValue(base, digit_id)
	local special_base_data = utils.getSpecialBase(base)
	if special_base_data then
		return special_base_data:placeValue(digit_id)
	else
		return math.pow(base, digit_id)
	end
end

function utils.getBaseValue(base, digit_id)
	local special_base_data = utils.getSpecialBase(base)
	if special_base_data then
		return special_base_data:baseValue(digit_id)
	else
		return base
	end
end

function utils.getSpecialBase(base)
	local base_string = mw.text.trim(tostring(base))
	if utils.isNaN(base) then error(string.format("底數不能為 '%s'", base_string),2) end
	local num_base = utils.tonumber(base_string)
	if num_base then return nil end
	local special_base_data = utils.specialBaseData[base]
	if special_base_data then return special_base_data end
	if mw.ustring.find(base_string, '[,;]') then
		local point, split = '.', ''
		local point_loaded = false
		base_string = mw.ustring.gsub(base_string, ' +', '')
		local base_name = base_string
		local az_digits = false
		if not mw.ustring.match(mw.ustring.sub(base_string, -2),'[%d∞]+') then
			split = mw.ustring.sub(base_string, -2, -2)
			point = mw.ustring.sub(base_string, -1, -1)
			base_name = mw.ustring.sub(base_string, 1, -3)
			if split == point and split == '.' then
				split = ''
				az_digits = true
			end
			point_loaded = true
		end
		local int_frac, int_base = mw.text.split(base_name..';', ';')
		int_base = mw.text.split(int_frac[1], ',')
		local int_base_count = #int_base
		local load_bases = mw.text.split(base_name, '[,;]')
		local bases, frac_bases = {}, {}
		local max_base = 0
		local repeat_base = false
		for i=1,#load_bases do
			local unit_base = utils.tonumber(load_bases[i])
			if not unit_base then return nil end
			if (i > 1 and unit_base == 0) or unit_base < 0 or (not utils.isInf(unit_base) and not utils.isInt(unit_base)) then return nil, string.format("不支援非正整數的混合底數 '%s' 進制", base_name) end
			if math.abs(unit_base) > 36 and not point_loaded then
				point, split = ';', ','
			end
			if unit_base > max_base then max_base = unit_base end
			if i==1 and math.abs(unit_base) < 1e-14 then
				repeat_base = true
			else
				if i > int_base_count then
					frac_bases[#frac_bases + 1] = unit_base
				else
					table.insert(bases, 1, unit_base)
				end
			end
		end
		if #bases <= 0 then bases[1] = frac_bases[1]end
		if #frac_bases <= 0 then
			frac_bases = mw.clone(bases)
			if repeat_base and #frac_bases > 1 then 
				frac_bases[#frac_bases + 1] = frac_bases[1]
				table.remove(frac_bases, 1)
			end
		end
		local new_base_data = {
			name = base_string,
			display = base_name,
			page = "混合进制",
			digitsplit = split,
			point = point,
			base_list = bases,
			frac_base_list = frac_bases,
			max_base = max_base,
			repeat_base = repeat_base,
			point_loaded = point_loaded,
			az_digits = az_digits,
			placeValue = function(this, digit_id)
				local result = 1
				for i=1,math.abs(digit_id) do
					local using_list = digit_id < 0 and this.frac_base_list or this.base_list
					local doing_index = this.repeat_base and utils.loop_mod(i, #using_list) or i
					result = result * (using_list[doing_index] or using_list[#using_list] or 10)
				end
				return digit_id < 0 and (1/result) or result
			end,
			baseValue = function(this, digit_id)
				return (digit_id < 0)
					and (this.frac_base_list[this.repeat_base and utils.loop_mod(-digit_id, #(this.frac_base_list)) or (-digit_id)] or this.frac_base_list[#(this.frac_base_list)] or 10) 
					or (this.base_list[this.repeat_base and utils.loop_mod(digit_id + 1, #(this.base_list)) or (digit_id + 1)] or this.base_list[#(this.base_list)] or 10) 
			end,
			printDigit = function(this, digit)
				if (this.point_loaded or (math.abs(max_base) > 36)) and (not this.az_digits) then
					return utils.tostring(digit)
				else
					return utils.printAZ(digit)
				end
			end,
			needtoDecimal = false,
			convertBase = utils._convertBase,
		}
		return new_base_data
	end
	return nil
end

function utils.checkSpecialBase(base)
	local base_string = mw.text.trim(tostring(base))
	if utils.isNaN(base) then error(string.format("底數不能為 '%s'", base_string),2) end
	local num_base = utils.tonumber(base_string)
	if num_base then return num_base end
	local special_base_data = utils.specialBaseData[base]
	if special_base_data then return special_base_data.name end
	if mw.ustring.find(base_string, '[,;]') then
		base_string = mw.ustring.gsub(base_string, ' +', '')
		local check_string = base_string
		if not mw.ustring.match(mw.ustring.sub(check_string, -2),'[%d∞]+') then
			check_string = mw.ustring.sub(check_string, 1, -3)
		end
		local load_bases = mw.text.split(check_string, '[,;]')
		for i=1,#load_bases do 
			local check_number = utils.tonumber(load_bases[i])
			if not check_number then return nil end
			if (i > 1 and check_number == 0) or check_number < 0 or (not utils.isInf(unit_base) and not utils.isInt(check_number)) then return nil end
		end
		return base_string
	end
	return nil
end

function utils.printAZ(digit)
	local char_0 = mw.ustring.codepoint('0')
	local char_A = mw.ustring.codepoint('A') - 10
	local char_a = mw.ustring.codepoint('a') - 36
	local char_100 = mw.ustring.codepoint('¡') - 62
	local codepoint = digit + ((digit >= 10) and ((digit >= 36) and ((digit >= 62) and char_100 or char_a) or char_A) or char_0)
	return mw.ustring.char(codepoint)
end

function utils.print_digit(digit, base)
	local digit = utils.round(digit)
	local special_base_data = utils.getSpecialBase(base)
	if special_base_data then
		return special_base_data:printDigit(digit)
	elseif math.abs(tonumber(base)or 10) <= 36 then
		return utils.printAZ(digit)
	else
		return tostring(digit)
	end
end

function utils.printAllDigit(digits, base, precision, _subarg, fractional_flag)
	local subarg = tonumber(_subarg) or 0
	local special_base_data = utils.getSpecialBase(base)
	local result, digitcomma = '', ''
	if special_base_data then
		digitcomma = special_base_data.digitsplit
	elseif math.abs(tonumber(base) or 10) > 36 then
		digitcomma = ','
	end
	for i=1,#digits do
		if precision >= 0 and i == precision + 1 then break end
		if subarg < 6 then
			if result ~= '' then result = result .. digitcomma end
		end
		result = result .. utils.print_digit(digits[i], base)
		if subarg >= 6 and subarg < 12 then
			result = string.format("%s<sub>%s</sub>", result, 
				utils.tostring(special_base_data and special_base_data:baseValue(fractional_flag and -i or (#digits-i)) or base)
			)
		elseif subarg >= 12 and subarg < 18 then
			result = string.format("%s<sub>%s</sub>", result, 
				utils.tostring(((not fractional_flag) and (#digits-i == 0)) and ((tostring(base):sub(1,1)=='!')and 0 or 1)
				or (special_base_data and special_base_data:baseValue(fractional_flag and -i or (#digits-i-1))) or base)
			)
		end
	end
	return result
end

function utils.toDecimal(int_digits, fractional_digits, base)
	local n = int_digits[#int_digits]
	local j = 1
	for i = #int_digits-1, 1, -1 do
		n = n + int_digits[i] * utils.getPlaceValue(base, j)
		j = j + 1
	end
	for i = 1, #fractional_digits do
		n = n + fractional_digits[i] * utils.getPlaceValue(base, -i)
	end
	return n
end

function utils.toDecimalComplex(int_digits, fractional_digits, imag, base)
	if type(cmath.constructor) ~= type(tostring) then cmath = require("Module:Complex Number").cmath.init()end
	base = cmath.constructor(base)
	if not base then return nil end
	local n = cmath.constructor(int_digits[#int_digits])
	local j = 1
	for i = #int_digits-1, 1, -1 do
		n = n + int_digits[i] * utils.cintpow(base, j)
		j = j + 1
	end
	for i = 1, #fractional_digits do
		n = n + fractional_digits[i] * utils.cintpow(base, -i)
	end
	n = (imag and cmath.i or cmath[1]) * n
	n:clean()
	return n
end

function utils.print_base_string(int_result, fractional_result, ori_int_digits, ori_fractional_digits, sign, from, to, _subarg, prefix, suffix)
	local subarg = tonumber(_subarg) or 0
	local special_base_data_from = utils.getSpecialBase(from)
	local special_base_data_to = utils.getSpecialBase(to)
	local point_string = (math.abs(tonumber(to) or 10) > 36) and ';' or ((special_base_data_to or{}).point or '.')
	if tostring(to):sub(-1,-1) == 'i' and (int_result:find(',') or (fractional_result or''):find(',')) then point_string = ';'end
	local number_result = ((sign < 0) and '−' or '') .. (int_result == '' and '0' or int_result) .. (fractional_result == '' and '' or (point_string..fractional_result))
	local result = (prefix or '') .. number_result .. (suffix or '') 
	if subarg % 6 == 1 then
		result = string.format("%s<sub>(%s)</sub>", result, utils.tostring((special_base_data_to or{}).display or to))
	elseif subarg % 6 == 2 then
		result = string.format("(%s)<sub>%s</sub>", result, utils.tostring((special_base_data_to or{}).display or to))
	elseif subarg % 6 == 3 or subarg % 6 == 5 then
		local lib_num2zh = require('Module:NumberToChinese')
		local success, num = pcall(utils.toDecimal, ori_int_digits, ori_fractional_digits, from)
		if not success then
			--轉換失敗時
			if type(bignum.convertBase) ~= type(tostring)then bignum = require(main_module)end
			if tonumber(to) then
				num = (tonumber(to) == 10) and number_result or "數字" --不支援的部分
			else
				success, num = pcall(bignum.convertBase, number_result, 10, to)
				if not success then num = "數字" end --不支援的部分
			end
		end
		local base_name = lib_num2zh._numberToChinese(utils.tostring(to))
		if base_name == lib_num2zh.NotANumber() then base_name = utils.tostring(to) end
		result = mw.ustring.format("[[%s|%s]]<sub>[[%s|%s%s%s]]</sub>", 
			utils.tostring(num), result,
			special_base_data_to and (special_base_data_to.page) or (base_name..'進制'), 
			(subarg % 6 == 5) and '' or '(',
			utils.tostring((special_base_data_to or{}).display or to),
			(subarg % 6 == 5) and '' or ')')
	elseif subarg % 6 == 4 then
		result = string.format("%s<sub>%s</sub>", result, utils.tostring((special_base_data_to or{}).display or to))
	end
	return result
end

return utils