Module:NumberAbbr

Documentation for this module may be created at Module:NumberAbbr/doc

p={}
function p.abbr(frame)
	local f=frame
	local n=f.args[1]~=nil and tostring(f.args[1]) or "0" --number to abbreviate
	local dec=f.args[2]~=nil and math.min(math.max(f.args[2],0),11) or 3 --decimal places
	local s=f.args[3]~=nil and math.max(f.args[3],3) or 6 --start at 10^
	local abt=f.args[4]==nil and false or f.args[4] --use abbr tag?
	local ps=f.args[5]==nil and false or f.args[5] --add plus symbol to positive numbers?
	
	local chk=string.gsub(n,",","") --remove commas
	if tonumber(chk)==nil then --cancel abbreviation if number is invalid
		return n
	else
		local n2="" --create additional variables
		local nn=""
		local ep=0
		local isinf=false
		local nb=n --keep unmodified number if needed
		
		local m=string.sub(n,1,1)=="-" and 1 or 0 --check if negative
		n=string.sub(n,m+1,#n) --if so, remove minus at start
		
		if string.find(n,"i")~=nil then --check if infinite
			nn=math.huge
			isinf=true
		else
			for nc in string.gmatch(n,"[0-9e%.%-%+]+") do --extract valid numerical characters
				nn=nn..nc
			end
			n2=nn --keep full number for later
			
			ep=string.find(nn,"e")~=nil and tonumber(string.sub(nn,string.find(nn,"e")+1,#nn)) or #nn>100 and #nn or math.floor(math.log10(nn)) --get exponent
			
			if string.find(ep,"i")~=nil then --check if exponent is infinite
				nn=math.huge
				isinf=true
			else
				nn=string.find(nn,"e")~=nil and string.sub(nn,1,string.find(nn,"e")-1) or nn --remove the exponent from number variable
				
				local nd=nn
				nn=""
				for nc in string.gmatch(nd,"[0-9]+") do --remove decimal point
					nn=nn..nc
				end
				
				if ep>=3 then --pad variable to 14 characters
					if #nn>14 then
						nn=string.sub(nn,1,14)
					else
						for i=#nn,13 do
							nn=nn.."0"
						end
					end
				end
				
				nn=tonumber(nn)>999 and tonumber(nn)/10^(13-ep%3) or nn
				nn=math.floor(nn*10^dec)/10^dec --remove unnecessary decimal places
			end
		end
		
		m=m>0 and "-" or chk~="0" and ps and "+" or ""
		return ep>=s and (abt and "<abbr title=\""..m..n.."\">" or "")..m..nn..""..(not isinf and p.illion({args={math.floor(ep/3-1)}}) or "")..(abt and "</abbr>" or "") or m..n
	end
end

function p.illion(frame)
	local f=frame
	local n=f.args[1]~=nil and tonumber(f.args[1]) or 0 --illion number
	local u00=f.args[2]==nil and true or f.args[2] --use e00?
	local b0=(f.args[3]==nil and false or f.args[3]) and 1 or 0 --blank illion 0?
	local e00={"k","M","B"}
	local e0={"","U","D","T","Qa","Qi","Sx","Sp","O","N"}
	local e1={"","De","Vg","Tg","Qag","Qig","Sxg","Spg","Og","Ng"}
	local e2={"","Ce","Du","Tr","Qu","Qn","Se","St","Oc","No"}
	local e3={"Mi","Mc","Na","Pc","Fm","At","Zp","Yc","Xo","Vc","Mec","Duc","Trc","Ttc","Ptc","Hxc","Hpc","Otc","Enc","Ico","Meic","Duic","Tric","Ttic","Ptic","Hxic","Hpic","Otic","Enic","Trct","Metr","Dutr","Trtr","Tttr","Pttr","Hxtr","Hptr","Ottr","Entr","Ttri","Mettr","Duttr","Trttr","Ttttr","Ptttr","Hxttr","Hpttr","Otttr","Enttr","Pct","Mepc","Dupc","Trpc","Ttpc","Ptpc","Hxpc","Hppc","Otpc","Enpc","Hxct","Mehxc","Duhxc","Trhxc","Tthxc","Pthxc","Hxhxc","Hphxc","Othxc","Enhxc","Hpct","Mehpc","Duhpc","Trhpc","Tthpc","Pthpc","Hxhpc","Hphpc","Othpc","Enhpc","Otct","Meotc","Duotc","Trotc","Ttotc","Ptotc","Hxotc","Hpotc","Ototc","Enotc","Enct","Meenc","Duenc","Trenc","Ttenc","Ptenc","Hxenc","Hpenc","Otenc","Enenc","Hc","Mehc","Duhc"}
	local i=0
	local r=f.args[4]==nil and 0 or f.args[4]
	
	if n>=math.huge then
		return math.huge
	elseif n>=999 then
		i=10^(3*math.floor(math.log10(n)/3))
		return (math.floor(n/i)>1 and p.illion({args={math.floor(n/i),false}}) or "")..(math.floor(math.log10(n)/3)<=#e3 and e3[math.floor(math.log10(n)/3)] or "["..math.floor(math.log10(n)/3).."]")..(r<3 and p.illion({args={n%i,nil,true,r+1}}) or "")..(r==3 and "..." or "") --it can only go so far down, this limit is to prevent not enough memory errors
	else
		return n<b0 and "" or (u00 and n<#e00) and e00[1+n] or e0[1+(n%10)]..e1[1+(math.floor(n/10)%10)]..e2[1+(math.floor(n/100)%10)]
	end
end
return p