Wikipedia

Module:Weather box/row: Difference between revisions

Browse history interactively
← Previous editNext edit →
Content deleted Content added
update from Module:WeatherBox/sandbox (see its history for details) per template talk (no substantive change): style fixes (tab indents, trailing whitespace, redundant semicolons); fix unintended globals; Erutuon's move of repeated code to a function
update from Module:WeatherBox/sandbox; this moves many calculations into a Value object and displays significant trailing zeroes
Line 3:
local wbc = require( "Module:WeatherBoxColors" )
 
local Value
local function checkFlag( flag )
Value = {
lang = mw.getContentLanguage(),
getDisplay = function (self)
if not self:isValid() then
return nil
end
local display = self.string
if math.abs(self.number) >= 1000 then
display = self.lang:formatNum(math.abs(self.number))
if self.number < 0 then
display = '−' .. display
end
elseif self.number < 0 then
display = '−' .. display:sub(2)
end
return display
end,
getPrecision = function (self)
local result = rawget(self, 'precision')
if not result then
if self:isValid() then
result = math.max(0, math_mod._precision(self.string))
else
result = 0
end
rawset(self, 'precision', result)
end
return result
end,
isValid = function (self)
return self.number ~= nil and self.number ~= -9999
end,
new = function (v)
local val, str
if type(v) == 'string' then
val, str = math_mod._cleanNumber(v)
elseif type(v) == 'number' then
val, str = v, tostring(v)
end
if not val then
val, str = -9999, ''
end
return setmetatable({
number = val,
string = str,
}, Value)
end,
setNumberRounded = function (self, number, precision)
-- precision is a small integer >= 0.
self.number = math_mod._round(number, precision)
local fmt = '%.' .. string.format('%d', precision) .. 'f'
self.string = string.format(fmt, self.number)
end,
}
Value.__index = Value
 
local function checkFlag( flag, default )
if flag == nil then
return nildefault
elseif type( flag ) == 'boolean' then
return flag
Line 22 ⟶ 79:
end
 
local function makeLine( label, first_value_stringfirst_values, second_value_stringsecond_values, color_values, color_scheme )
local result = {'|- style="text-align: center;"\n! scope="row" style="height: 16px;" | ', label, "\n"}
local result, color_str, value_str
 
result = {'|- style="text-align: center;"\n! scope="row" style="height: 16px;" | ', label, "\n"}
for i = 1,13 do
local color_str = color_values[i]
 
if i == 13 then
Line 35 ⟶ 90:
end
 
local display = first_values[i]:getDisplay()
value_str = first_value_string[i]
if value_str ~= '' and value_str ~= nildisplay then
table.insert( result, value_strdisplay )
if second_value_stringsecond_values ~= nil then
display = second_values[i]:getDisplay()
value_str = second_value_string[i]
if value_str ~= '' and value_str ~= nildisplay then
table.insert( result, "<br /> (" .. value_strdisplay .. ")" )
end
end
Line 57 ⟶ 112:
local month_names = { 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec', 'year' }
local str, str2, val
local values = {}
 
local output_string = {}
local output_value = {}
local variant = {}
if suffix == nil then
for _i, mon in ipairs( month_names ) do
if include_space then
str = ( frame.args[ mon .. ' ' .. group_name ] or '' )
else
str = ( frame.args[ mon .. group_name ] or '' )
end
val, str2 = math_mod._cleanNumber( str )
if val ~= nil then
table.insert( output_string, str2 )
table.insert( output_value, val )
else
str = frame.args[ mon .. group_name ] or ''
table.insert( output_string, str )
table.insert( output_value, -9999 )
end
values[i] = Value.new(str)
end
else
for i, mon in ipairs( month_names ) do
local updated = false
local value, updated
for _, mon in ipairs( month_names ) do
for var, suf in ipairs( suffix ) do
updated = false
for i, suf in ipairs( suffix ) do
if include_space then
str = frame.args[ mon .. ' ' .. group_name .. ' ' .. suf ]
Line 89 ⟶ 133:
end
if str ~= nil and str ~= '' then
val, str2value = math_modValue._cleanNumbernew( str )
ifvalue.variant val ~= nil thenvar
table.insert( output_string, str2 )
table.insert( output_value, val )
else
table.insert( output_string, str )
table.insert( output_value, -9999 )
end
table.insert( variant, i )
updated = true
break
Line 103 ⟶ 140:
end
if not updated then
value = Value.new()
table.insert( output_string, '' )
value.variant = 0
table.insert( output_value, -9999 )
table.insert( variant, 0 )
end
values[i] = value
end
end
return values
 
return output_string, output_value, variant
end
 
local function getAnnualValue( values, mode )
local total = 0
local val = 0
 
if mode == 'avg' or mode == 'sum' then
local p1,total p2= 0
local p1, p2, variant
p1 = 0
for i = 1, 12 do
valif =not values[i]:isValid() then
return Value.new()
if val == -9999 then
end
return '', -9999
if not variant then
local var = values[i].variant
if var and var ~= 0 then
variant = var
end
end
 
p2 = math_mod._precisionvalues[i]:getPrecision( val )
if p2 > p1 then
p1 = p2
end
 
total = total + valvalues[i].number
end
local value = Value.new(total)
if mode == 'avg' then
total = math_mod._roundvalue:setNumberRounded( total / 12, p1 )
end
value.variant = variant
return tostring( total ), total
return value
elseif mode == 'min' then
local min_val = niltarget
for i = 1, 12 do
val =if values[i]:isValid() then
if valtarget ~== nil or values[i].number < -9999target.number then
target = values[i]
if min_val == nil or val < min_val then
min_val = val
end
end
end
return tostring(target min_valor Value.new(), min_val
elseif mode == 'max' then
local max_val = niltarget
for i = 1, 12 do
val =if values[i]:isValid() then
if valtarget ~== nil or values[i].number > -9999target.number then
target = values[i]
if max_val == nil or val > max_val then
max_val = val
end
end
end
return tostringtarget or Value.new(max_val), max_val
else
error( 'Unrecognized Annual Mode' )
Line 164 ⟶ 203:
end
 
local function reconcileTemperature( C_degree_stringsC_values, C_degree_values, F_degree_strings, F_degree_valuesF_values )
local p
for i = 1,13 do
local p
if C_degree_strings[i] == '' then
if F_degree_valuesC_values[i].string ~== -9999'' then
if F_values[i]:isValid() then
p = math.max( 0, math_mod._precision( F_degree_strings[i] ) )
p = F_values[i]:getPrecision()
C_degree_values[i] = math_mod._round( (F_degree_values[i] - 32)*5/9, p )
C_values[i]:setNumberRounded( (F_values[i].number - 32)*5/9, p )
C_degree_strings[i] = tostring( C_degree_values[i] )
end
elseif F_degree_stringsF_values[i].string == '' then
if C_degree_valuesC_values[i] ~= -9999:isValid() then
p = C_values[i]:getPrecision()
p = math.max( 0, math_mod._precision( C_degree_strings[i] ) )
F_degree_valuesF_values[i] = math_mod._round:setNumberRounded( C_degree_valuesC_values[i].number*9/5 + 32, p )
F_degree_strings[i] = tostring( F_degree_values[i] )
end
end
end
return C_degree_strings, C_degree_values, F_degree_strings, F_degree_values
end
 
local function reconcilePrecipitation( M_degree_stringsM_values, M_degree_valuesI_values, prefer_cm )
I_degree_strings, I_degree_values, variant, prefer_cm )
local p
 
local v_class = 0
for i = 1,13 do
if variantM_values[i].variant == 1 then
v_class = 1
elseif variantM_values[i].variant == 2 then
v_class = 2
end
Line 204 ⟶ 237:
end
for i = 1,13 do
local p
if M_degree_strings[i] == '' then
if I_degree_valuesM_values[i].string ~== -9999'' then
if I_values[i]:isValid() then
if v_class == 1 then
p = math.max( 0, math_mod._precision( I_degree_stringsI_values[i] ) :getPrecision() - 1
M_degree_valuesM_values[i] = math_mod._round:setNumberRounded( I_degree_valuesI_values[i].number*2.54, p )
variant[i] = v_class
else
p = math.max( 0, math_mod._precision( I_degree_stringsI_values[i] ) :getPrecision() - 2
M_degree_valuesM_values[i] = math_mod._round:setNumberRounded( I_degree_valuesI_values[i].number*25.4, p )
variant[i] = v_class
end
M_values[i].variant = v_class
M_degree_strings[i] = tostring( M_degree_values[i] )
end
elseif I_degree_stringsI_values[i].string == '' then
if M_degree_valuesM_values[i] ~= -9999:isValid() then
if variantM_values[i].variant == 1 then
p = M_values[i]:getPrecision()
p = math.max( 0, math_mod._precision( M_degree_strings[i] ) )
I_degree_valuesI_values[i].number = M_degree_valuesM_values[i].number/2.54
else
p = math.max( 0, math_mod._precision( M_degree_stringsM_values[i] ) :getPrecision() + 1
I_degree_valuesI_values[i].number = M_degree_valuesM_values[i].number/25.4
end
I_degree_valuesI_values[i] = math_mod._round:setNumberRounded( I_degree_valuesI_values[i].number, p )
I_degree_strings[i] = tostring( I_degree_values[i] )
end
end
end
return M_degree_strings, M_degree_values, I_degree_strings, I_degree_values, variant
end
 
Line 237 ⟶ 267:
local mode = (frame.args.mode or 'basic'):lower()
local group_name = frame.args.group_name
local first_values, second_values
local first_value_string, second_value_string
local first_value_number, second_value_number, color_values
local color_scheme = frame.args.color_scheme or 't'
local scale_factor = math_mod._cleanNumber( frame.args.scale_factor) or 1
local date_mode = checkFlag( frame.args.date_mode or, false )
local label = frame.args.label or ''
local annual_mode = (frame.args.annual_mode or 'avg'):lower()
local include_space = checkFlag( frame.args.include_space or, true )
local second_line = checkFlag( frame.args.second_line, false ) or false
local prefer_cm = checkFlag( frame.args.prefer_cm, false ) or false
local result
local variant
 
local pframe = frame:getParent()
local imperial_first = checkFlag( frame.args['imperial first'] or pframe.args['imperial first'] )
iflocal imperial_firstmetric_first == nilcheckFlag( thenframe.args['metric imperial_firstfirst'] = checkFlag(or pframe.args['imperialmetric first'] ) end
local single_line = checkFlag( frame.args['single line'] or pframe.args['single line'] )
 
if imperial_first == nil then
local metric_first = checkFlag( frame.args['metric first'] )
if imperial_first = metric_first == nil thenand metric_firsttrue =or checkFlag(not pframe.args['metric first'] ) endmetric_first
 
local single_line = checkFlag( frame.args['single line'] )
if single_line == nil then single_line = checkFlag( pframe.args['single line'] ) end
 
if imperial_first == nil and metric_first ~= nil then
imperial_first = not metric_first
else
imperial_first = true
end
 
if mode == 'basic' then
first_value_string, first_value_numberfirst_values = getInputs( pframe, group_name, nil, include_space )
second_values = nil
nil, include_space )
second_value_string = nil
second_value_number = nil
elseif mode == 'temperature' then
first_value_string, first_value_numberfirst_values = getInputs( pframe, group_name, {'C'}, include_space )
second_values = getInputs( pframe, group_name, {'CF'}, include_space )
reconcileTemperature( first_values, second_values )
second_value_string, second_value_number = getInputs( pframe, group_name,
{'F'}, include_space )
first_value_string, first_value_number, second_value_string, second_value_number =
reconcileTemperature( first_value_string, first_value_number,
second_value_string, second_value_number )
elseif mode == "precipitation" then
first_value_string, first_value_number, variantfirst_values = getInputs( pframe, group_name, {'cm', 'mm'}, include_space )
{'cm'second_values = getInputs( pframe, group_name, {'mminch'}, include_space )
reconcilePrecipitation( first_values, second_values, prefer_cm )
second_value_string, second_value_number = getInputs( pframe, group_name,
{'inch'}, include_space )
first_value_string, first_value_number, second_value_string, second_value_number,
variant =
reconcilePrecipitation( first_value_string, first_value_number,
second_value_string, second_value_number, variant, prefer_cm )
else
error( 'Requested mode not recognized' )
Line 294 ⟶ 303:
local good = false
for i = 1,13 do
if first_value_string[i] ~= nil and first_value_stringfirst_values[i].string ~= '' then
good = true
break
Line 303 ⟶ 312:
end
 
if first_value_string[13] == nil or first_value_stringfirst_values[13].string == '' then
first_value_string[13], first_value_numberfirst_values[13] = getAnnualValue( first_value_numberfirst_values, annual_mode )
end
if second_value_stringsecond_values ~= nil then
if second_value_string[13] == nil or second_value_stringsecond_values[13].string == '' then
second_value_string[13], second_value_numbersecond_values[13] = getAnnualValue( second_value_numbersecond_values, annual_mode )
end
if mode == 'precipitation' then
for i = 1,12 do
if variant[i] ~= 0 then
variant[13] = variant[i]
break
end
end
end
end
Line 324 ⟶ 325:
color_values = {}
local month_adj = { 31/30, 28.25/30, 31/30, 1, 31/30, 1,
31/30, 31/30, 1, 31/30, 1, 31/30, 12365.17525/30 }
local adj
for i = 1,13 do
if first_values[i]:isValid() then
if first_value_number[i] ~= nil and first_value_number[i] ~= -9999 then
local adj = scale_factor
if date_mode then
adj = adj / month_adj[i]
end
if mode == "precipitation" then
if variantfirst_values[i].variant == 1 then
adj = adj * 10
end
end
table.insert( color_values, color_scheme( first_value_numberfirst_values[i].number * adj ) )
else
table.insert( color_values, color_scheme( nil ) )
Line 343:
end
 
if imperial_first and second_values ~= nil then
local lang = mw.getContentLanguage()
first_values, second_values = second_values, first_values
local function formatNumber(number, number_string)
if number ~= nil and number ~= -9999 then
if math.abs(number) >= 1000 then
number_string = lang:formatNum( math.abs(number) )
if number < 0 then
number_string = '−' .. number_string
end
elseif number < 0 then
number_string = '−' .. number_string:sub(2)
end
end
return number_string
end
for i = 1,13 do
first_value_string[i] = formatNumber(first_value_number[i], first_value_string[i])
if second_value_number ~= nil then
second_value_string[i] = formatNumber(second_value_number[i], second_value_string[i])
end
end
 
if imperial_first and second_value_string ~= nil then
local t = first_value_string
first_value_string = second_value_string
second_value_string = t
end
 
if not single_line then
if second_line and second_value_stringsecond_values ~= nil then
first_values = second_values
first_value_string = second_value_string
end
second_value_stringsecond_values = nil
end
 
return makeLine( label, first_value_stringfirst_values, second_value_stringsecond_values, color_values, color_scheme )
end
 
Retrieved from "https://en.wikipedia.org/wiki/Module:Weather_box/row"