Open main menu
Home
Random
Donate
Recent changes
Special pages
Community portal
Preferences
About Stockhub
Disclaimers
Search
User menu
Talk
Contributions
Create account
Log in
Editing
Module:Pop density
Warning:
You are not logged in. Your IP address will be publicly visible if you make any edits. If you
log in
or
create an account
, your edits will be attributed to your username, along with other benefits.
Anti-spam check. Do
not
fill this in!
-- -- This module implements {{Pop density}} -- local p = {} local math_module = require( "Module:Math" ) local precision = math_module._precision local sortkey = require( "Module:Sortkey" ) local function rnd(num, digits) -- This function implements {{rnd}} return math_module._precision_format(tostring(num), tostring(digits)) end local unitnames = { ["kmΒ²"] = "km2", ["sqkm"] = "km2", ["km2"] = "km2", ["mi2"] = "sqmi", ["sqmi"] = "sqmi", ["acres"] = "acre", ["acre"] = "acre", ["ha"] = "ha", ["dunam"] = "dunam", ["mΒ²"] = "m2", ["sqm"] = "m2", ["m2"] = "m2" } local unitmult = { ["km2"] = 1000000, ["sqmi"] = 2589988.110336, ["acre"] = 4046.8564224, ["ha"] = 10000, ["dunam"] = 1000, ["m2"] = 1 } local unitstr = { ["km2"] = 'km<sup>2</sup>', ["sqmi"] = 'sq mi', ["acre"] = 'acre', ["ha"] = 'ha', ["dunam"] = 'dunam', ["m2"] = 'm<sup>2</sup>' } local function popdensity(pop, area1, areaunit1, areaunit2, prec, disp, flip) local dens1, dens1sort, prec1 local dens2, dens2sort, prec2 local str1, str2 = '', '' local uniterror = '<sup>[[Template:Pop density|?Unknown unit?]]</sup>[[Category:Pop density using unsupported units]]' if(pop ~= '' and area1 ~= '') then -- pop and area are defined local popnum = tonumber(pop) if not popnum then error(string.format('Unable to convert population "%s" to a number', pop), 2) end local area1num = tonumber(area1) if not area1num then error(string.format('Unable to convert area "%s" to a number', area1), 2) end local dens1num = popnum/area1num local unit1 = unitnames[areaunit1] or nil local unit2 = unitnames[areaunit2] or nil prec1 = (prec ~= '') and tonumber(prec) or (1+math.log10(2*area1/(1/10^precision(pop)+pop/area1/10^precision(area1)))) dens1 = rnd(dens1num, math.floor(prec1 + 0.5)) dens1sort = '<span style="display:none" data-sort-value="' .. sortkey._sortKeyForNumber(dens1num) .. 'β "></span>' if (unit1) then str1 = '/' .. unitstr[unit1] if(unit2) then -- convert local mult = unitmult[unit2]/unitmult[unit1] prec2 = prec1 - math.log10(mult) dens2 = rnd(dens1num*mult, math.floor(prec2 + 0.5)) dens2sort = '<span style="display:none" data-sort-value="' .. sortkey._sortKeyForNumber(dens1num*mult) .. 'β "></span>' str2 = '/' .. unitstr[unit2] elseif(areaunit2 ~= '') then if( disp ~= 'num' ) then dens2 = '?' else dens2 = '?' .. uniterror end str2 = '/' .. areaunit2 .. uniterror end elseif(areaunit1 ~= '') then if( disp ~= 'num' ) then dens2 = '?' else dens2 = '?' .. uniterror end if(unit2) then str2 = '/' .. unitstr[unit2] elseif(areaunit2 ~= '') then str2 = '/' .. areaunit2 .. uniterror end str1 = '/' .. areaunit1 .. uniterror end -- form output if( str2 ~= '' ) then -- has a converted unit if( disp ~= 'num' and disp ~= 'table' ) then -- display input and output density numbers with units if( flip == 'on' ) then return (dens2sort or '') .. dens2 .. str2 .. ' (' .. dens1 .. str1 .. ')' else return (dens1sort or '') .. dens1 .. str1 .. ' (' .. dens2 .. str2 .. ')' end elseif( disp == 'table') then dens1 = (dens1sort or '') .. dens1 dens2 = (dens2sort or '') .. dens2 return pop .. '||' .. area1 .. '||' .. dens1 .. '||' .. dens2 else -- display output density number without unit return dens2 end else -- no converted unit if( disp ~= 'num' and disp ~= 'table' ) then -- display input density number with unit return (dens1sort or '') .. dens1 .. str1 elseif( disp == 'table') then return pop .. '||' .. area1 .. '||' ..(dens1sort or '') .. dens1 else -- display input density number without unit return dens1 end end end return '' end function p.density(frame) local args = (frame.args[3] ~= nil) and frame.args or frame:getParent().args return popdensity( args[1] or '', args[2] or '', args[3] or '', args[4] or '', args['prec'] or '', args['disp'] or '', args['flip'] or '' ) end return p
Summary:
Please note that all contributions to Stockhub may be edited, altered, or removed by other contributors. If you do not want your writing to be edited mercilessly, then do not submit it here.
You are also promising us that you wrote this yourself, or copied it from a public domain or similar free resource (see
Stockhub:Copyrights
for details).
Do not submit copyrighted work without permission!
Cancel
Editing help
(opens in new window)
Templates used on this page:
Template:Clc
(
edit
)
Module:Pop density/doc
(
edit
)