local p={}
local lib_arg={};
local lib_var={};
local yesno = {}
function p.foreachNumber(frame)
local args, working_frame
if frame == mw.getCurrentFrame() then
-- We're being called via #invoke. The args are passed through to the module
-- from the template page, so use the args that were passed into the template.
if lib_arg.getArgs == nil then lib_arg = require('Module:Arguments') end
args = lib_arg.getArgs(frame, {parentFirst=true})
working_frame = frame
else
-- We're being called from another module or from the debug console, so assume
-- the args are passed in directly.
args = frame
working_frame = mw.getCurrentFrame()
if type(args) ~= type({}) then args = {frame} end
end
local input_article = args[1] or args['1'] or ''
local input_calc = args[2] or args['2'] or '$1'
local pattern = '#expr:' .. mw.ustring.gsub(input_calc,'%%(%d+)','%%%%%1') .. '}}'
if mw.isSubsting() then pattern = 'safesubst:' .. pattern end
pattern = '{{' .. pattern
pattern = mw.ustring.gsub(pattern,'%$','(%%1)')
local result = mw.ustring.gsub(input_article,'(%-?[%d%.]+)',pattern)
return working_frame:preprocess( result )
end
function p.forrangeNumber(frame)
if lib_var._arg_process == nil then lib_var = require('Module:Var') end
local args, working_frame = lib_var._arg_process(frame)
local expr=args[4] or args['4'] or 'x'
local var_name=args[5] or args['5'] or 'x'
local var_str=args[6] or args['6'] or 'x'
var_str = mw.ustring.gsub(var_str,"%%","%%%%");
expr = mw.ustring.gsub(expr,"%a+",function(str)
if str==var_name then return "("..var_str..")" end
end)
expr = mw.ustring.gsub(expr,"[質质素][數数]","primeIndexAtModuleFactorization")
local output_str=args[1] or args['1'] or '$1,'
local start_n = tonumber(args[2] or args['2'] or args.min or '1')or 1
local end_n = tonumber(args[3] or args['3'] or args.max or '10')or 10
local math_lib = math
local tonumber_func = tonumber
if args.class then
local comp_number;
local num_class = mw.ustring.lower(args.class)
if num_class == 'cmath' then
if comp_number == nil then comp_number = require("Module:Complex Number") end
math_lib = comp_number.cmath.init()
tonumber_func = math_lib.toComplexNumber
elseif num_class == 'qmath' then
if comp_number == nil then comp_number = require("Module:Complex Number") end
math_lib = comp_number.qmath.init()
tonumber_func = math_lib.toQuaternionNumber
end
end
local series = false
if args.series then
if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
series = yesno(args.series or 'no')
end
if args.delnowiki then
if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
if yesno(args.delnowiki or 'no') then
output_str = mw.text.unstripNoWiki( output_str )
end
end
if args.delmsgnw then
if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
if yesno(args.delmsgnw or 'no') then
output_str = mw.text.decode( output_str )
end
end
local input_arg = {useOtherModule="yes"}
for ikey, ivalue in pairs(args) do
if mw.ustring.find(ikey,"last") then
input_arg[ikey] = ivalue
end
end
local num_arr=mw.text.split(require("Module:Complex Number/Calculate")._functionGraph({expr},
start_n,end_n,math.abs(start_n-end_n), nil, nil, input_arg,math_lib,tonumber_func).y1,',')
local body=""
if series==true then
for i=1,#num_arr do
local last = num_arr[i-1]
num_arr[i] = tonumber_func(num_arr[i]) + tonumber_func(last or 0)
end
end
for i=1,#num_arr do
body = body .. mw.ustring.gsub(output_str,"(%$[+-]?[%d]*)",function(str)
local tail = ''
if str=="$+" or str=="$-" then tail = mw.ustring.sub(str,-1) end
local check, num = mw.ustring.find(str,"[+-]?[%d]+")
if check then
num = tonumber(mw.ustring.sub(str, check, num) or '') or 1
else
num = 1
end
local idx = num+i-1
if num < 0 then idx = num+i end
if num == 0 then return tostring(i+start_n-1) .. tail end
local get_val
if num < 0 and idx<1 then
get_val = tonumber_func(input_arg['last'..math.abs(num)])
else get_val = tonumber_func(num_arr[idx]) end
if mw.text.trim(tostring(get_val or '')) ~= '' then return tostring(get_val) .. tail end
return str
end)
end
if args.preprocess then
if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end
if yesno(args.preprocess or 'no') then
return working_frame:preprocess( body )
end
end
return body
end
function p.exp10link(frame)
if lib_var._arg_process == nil then lib_var = require('Module:Var') end
local args, working_frame = lib_var._arg_process(frame)
local input_number_str = args[1] or args['1'] or ''
local digits = tonumber(input_number_str)
if digits then
local test_num = '1'
if digits > 0 then
for i=1,digits do test_num = test_num .. '0' end
end
if working_frame:preprocess( "{{PAGENAME}}" ) == test_num then
return "'''10<sup>" .. input_number_str .. "</sup>'''"
end
end
return '[[1 E' .. input_number_str .. '|10<sup>' .. input_number_str .. '</sup>]]'
end
function p.numberListTemplate(frame)
if lib_var._arg_process == nil then lib_var = require('Module:Var') end
local args, working_frame = lib_var._arg_process(frame)
local input_number_str = args[1] or args['1'] or ''
local failed = args.failed or ''
local orginal_input_number_str = mw.text.trim(input_number_str)
input_number_str = mw.ustring.gsub(input_number_str,'[Ii][Nn][Ff]','inf')
:gsub('∞','inf')
:gsub('[Nn][Aa][Nn]','nan')
if mw.ustring.find(input_number_str,'[无無][穷窮限]') then input_number_str = 'inf' end
local function out_text(text) return mw.text.tag( "div", {style="text-align: center;"}, mw.text.tag( "small", {}, text)) end
if mw.ustring.find(input_number_str,'除') then return out_text("[[除以零]] 除以一 [[除以二]] [[除以三]] [[除法|>>]]") end
if mw.ustring.find(input_number_str,'1/0') then return out_text("[[除以零]] 除以一 [[除以二]] [[除以三]] [[除法|>>]]") end
input_number_str = mw.text.trim(input_number_str)
local input_number = tonumber(input_number_str)
if input_number then
local inf_msg = out_text("[[擴展實數線|<<]] [[无穷|-∞]] .... [[-0]] [[0]] .... [[无穷|∞]] [[大数_(数学)|>>]]")
if not not tostring(input_number):lower():find('inf') then return inf_msg end
if not not tostring(input_number):lower():find('%-0') then return inf_msg end
if not not tostring(input_number):lower():find('nan') then return out_text("[[NaN]] （參見：[[浮點數]]、[[算術溢出]]）") end
local digits_log = math.floor(math.log10(math.abs(input_number)))+1
local is_zero = false
if math.abs(input_number)<1e-8 then
digits_log = 4
is_zero = true
end
local sign = ((input_number>0)and 1 or((input_number==0 or input_number==-0)and 0 or-1))
local int, frac = math.modf(math.abs(input_number))
local int10, frac10 = math.modf(math.abs(input_number) * 10)
local invocation = require('Module:Template invocation')
local body = ''
if frac > 1e-8 then --小數模式
local get_frac = mw.ustring.gsub(input_number_str,'[%+%-]','')
local _,frac_start = get_frac:find('%.')
if frac_start then get_frac = get_frac:sub(frac_start+1,-1)
else get_frac = tostring(frac):sub(3,-1) end
local get_frac10 = '0' .. get_frac:sub(2,-1)
local get_frac100 = '00' .. get_frac:sub(3,-1)
if frac10 > 1e-8 then
body = body .. invocation.invocation("Numbers digits", {
orginal_input_number_str,
digit = '0.01',
tail = ( sign < 0 and '-' or '' ) .. '0.'..get_frac100
})
end
body = body .. invocation.invocation("Numbers digits", { orginal_input_number_str, digit = '0.1'})
end
for digits=1,digits_log do
local current_unit = tonumber('1e'..(digits-1))
local current_mod = int % current_unit
if current_mod == 0 then
body = body .. invocation.invocation("Numbers digits", { orginal_input_number_str, digit = current_unit})
end
end
if is_zero then body = body .. inf_msg end
return body
else return failed end
end
function p.combineNumber(frame)
local args, working_frame
if frame == mw.getCurrentFrame() then
-- We're being called via #invoke. The args are passed through to the module
-- from the template page, so use the args that were passed into the template.
if lib_arg.getArgs == nil then lib_arg = require('Module:Arguments') end
args = lib_arg.getArgs(frame, {
parentFirst=true,
trim = false,
removeBlanks = false
})
working_frame = frame
else
-- We're being called from another module or from the debug console, so assume
-- the args are passed in directly.
args = frame
working_frame = mw.getCurrentFrame()
if type(args) ~= type({}) then args = {frame} end
end
local input_article = args[1] or args['1'] or ''
local spliter = {}
input_spliter = mw.ustring.gsub(input_article, '(%d)', '%1%1%1')
mw.ustring.gsub(input_spliter,'[%d%.]([^%d%.]+)[%d%.]',function(str)
spliter[str] =(spliter[str] or 0)+1
return str
end)
local max_count = 0
local spliter_str = args[2] or args['2'] or ','
for value,v_count in pairs(spliter) do
if v_count > max_count then
max_count = v_count
spliter_str = value
end
end
if (args[2] or args['2']) ~= nil and (args[2] or args['2']) ~= '' then spliter_str = args[2] or args['2'] end
if mw.text.trim(spliter_str or '') =='' then spliter_str = ' ' end
local counting_sort = {}
mw.ustring.gsub(input_article,'[%d%.]+',function(str)
local n_first, n_last = mw.ustring.find(str,'%d+')
if n_first then
local num = tonumber(mw.ustring.sub(str, n_first, n_last))
if num then counting_sort[num] = counting_sort[num] or str end
end
return str
end)
local quick_sort = {}
for value,v_count in pairs(counting_sort) do
quick_sort[#quick_sort + 1] = {value,v_count}
end
table.sort( quick_sort, function(left,fight) return left[1] < fight[1] end )
local write_number = ''
local output_arr = {}
local trmp_str = ''
for i=1,#quick_sort do
if type(write_number) ~= type(0) then
write_number = quick_sort[i][1]
trmp_str = '' .. quick_sort[i][2]
end
if quick_sort[i][1] + 1 ~= (quick_sort[i+1]or{quick_sort[i][1]-1})[1] then
if write_number ~= quick_sort[i][1] then
trmp_str = trmp_str .. "-"..quick_sort[i][2]
end
output_arr[#output_arr + 1] = trmp_str
write_number = ''
end
end
return table.concat( output_arr, spliter_str )
end
return p
