Wikipedia

Modulo:Demografia/sandbox: differenze tra le versioni

Naviga nella cronologia in modo interattivo
Contenuto cancellato Contenuto aggiunto
Moroboshi (discussione | contributi)
75 152 modifiche
test
 
use require("strict") instead of require("Module:No globals")
 
(28 versioni intermedie di 2 utenti non mostrate)
Riga 1:
require("Module:No globalsstrict")
local getArgs = require('Module:Arguments').getArgs
 
local p = {}
 
local minimo, massimo
-- Converte una stringa di valori numerici separati da "," in una lista
 
-- =====================================================================
-- Legge gli argomenti per caricare un array di valori numerici.
-- Prima tenta di leggere il parametro <list_name> che deve contenere una
-- lista di valori separati da ",".
-- Se fallisce tenta di leggere i singoli valori
-- <base_name1>, <base_name2> .. <base_name20>
-- Eventuali valori non numerici sono ignorati
-- =====================================================================
local function read_array(base_name, list_name)
local function read_array(args, base_name, list_name)
local array = {}
if args[list_name] then
array = mw.text.split(string.gsub(args[list_name], "%s", ""), ",")
end
-- mi assicuro di tenere solo i primi venti valori
-- se l'array ha lunghezza nulla uso il vecchio metodo di inserimento
if #array ==> 020 then
for i = 21, #array do
array[i] = nil
end
end
-- se l'array ha lunghezza nulla tento di leggere i valori con il vecchio metodo
if #array == 0 then
for i= 1,20 do
local numberarray[i] = tonumber(args[base_name .. tonumber(i)])
if number then
array[#array+1] = number
end
end
end
-- converto in numeri
for i =1,20 do
array[i] = array[i] and tonumber(array[i])
end
return array
end
-- =====================================================================
-- Fonde le due liste years e population in un'unica lista
-- =====================================================================
local function merge_years_population(years, populations)
local values = { }
local t
for i =1,#populations do
if (minimo == nil or years[i] < minimo) then minimo = years[i] end
if (massimo == nil or years[i] > massimo) then massimo = years[i] end
t = string.format("%g",math.floor(populations[i]+0.5))
t = t:gsub('%.',',')
values[i] = { year = years[i], population = populations[i], num = i, txt = t }
end
return values
end
 
-- =====================================================================
-- Crea tabella laterale
-- =====================================================================
local function formato(a)
local k
local s = ''..a
while true do
s, k = s:gsub("^(-?%d+)(%d%d%d)", '%1&nbsp;%2')
if (k==0) then break end
end
return s
end
 
local function mostraTabella(a,b,f)
local ss = {}
table.insert(ss,'</td><td style="vertical-align:top"><table class="wikitable" style="font-size:smaller;text-align:right"><tr><th>Anno</th><th>Abitanti</th>')
if #b > 12 then
table.insert(ss,'<th>Anno</th><th>Abitanti</th></tr>')
local c = math.floor(0.5+#b/2)
for i =1,c do
table.insert(ss,string.format('<tr><th>%s</th><td>%s</td>',a[i],formato(math.floor(b[i]*f+0.5))))
if b[i+c] then table.insert(ss,string.format('<th>%s</th><td>%s</td>',a[i+c],formato(math.floor(b[i+c]*f+0.5)))) end
table.insert(ss,'</tr>')
end
else
table.insert(ss,'</tr>')
for i =1,#b do
table.insert(ss,string.format('<tr><th>%s</th><td>%s</td></tr>',a[i],formato(math.floor(b[i]*f+0.5))))
end
end
table.insert(ss,'</table></td></tr></table>')
return table.concat(ss)
end
 
-- =====================================================================
-- Generazione del grafico demografico
-- =====================================================================
function p._demografia(args)
-- Definizione base del grafico
local graph = {
version = 2,
Riga 44 ⟶ 111:
{ type = "sort", by = "year" }
},
values = { }
}
},
Riga 53 ⟶ 120:
range = "width",
zero = false,
___domain = { fields = { {data = " table", field = "year"}, { data = "table2", field = "year"} } }
},
{
Riga 60 ⟶ 127:
range = "height",
nice = true,
___domain = { fields = { {data = "table", field = "population"}, {data = "table2", field = "population"} } }
}
},
axes = {
{
{ type = "x", scale = "x", format = "d", title = "Anno", grid = true, },
type = "x",
{ type = "y", scale = "y", title = "Abitanti", grid = true, layer ="back" }
scale = "x",
format = "d",
title = "Anno",
grid = true,
properties = {
labels = { font = { value = "Helvetica" } },
title = { font = { value = "Helvetica" } }
}
},
{
type = "y",
scale = "y",
title = "Abitanti",
grid = true,
layer = "back",
properties = {
labels = { font = { value = "Helvetica" } },
title = { font = { value = "Helvetica" } }
}
}
},
marks = {
Riga 73 ⟶ 160:
properties = {
enter = {
interpolate = { value = "linear"},
x = { scale = "x", field = "year"},
y = { scale = "y", field = "population"},
stroke ={ {value = "#fc81f77b4"},
strokeWidth = { value = 34},
opacity = {value = 0.5}
}
}
Riga 83 ⟶ 171:
{
type = "symbol",
from = { data = "table2" },
properties = {
enter = {
x = { scale = "x", field = "year"},
y = { scale = "y", field = "population"},
stroke ={ {value = "#f801f77b4"},
fill ={ {value = "#fff"},
size ={ {value = 1218}
}
}
Riga 96 ⟶ 184:
{
type = "symbol",
from = { data = "table"},
properties = {
enter = {
x = { scale = "x", field = "year"},
y = { scale = "y", field = "population"},
stroke = { value = "#8001f77b4"},
fill = { value = "#fff"},
size = { value = 30}
}
}
Riga 112 ⟶ 200:
properties = {
enter = {
x = { scale = "x", field = "year"},
y = { scale = "y", field = "population", offset = -8},
align = { value = "center" },
fill = { value = "#000"},
text = { field = "populationtxt" },
font = {value = "Helvetica"},
}
}
Riga 127 ⟶ 216:
{
type = "aggregate",
summarize = { year = {"min","max"} }
}
}
},
properties = {
enter = {
x = { signal = "width", mult = 0.5},
y = { value = -10},
text = {
template = ""
template = "Censimenti dal \u007b{datum.min_year}\u007d al \u007b{datum.max_year}\u007d {{#if:{{{b1|}}}|e dati annuali}}"
},
fill = {value = "black"},
fontSize = {value = 1614},
alignfont = {value = "centerHelvetica"},
fontWeightalign = { value = "boldcenter"},
fontWeight = {value = "bold"}
}
}
Riga 147 ⟶ 237:
}
}
local titolo = args.titolo or args[1] or "Abitanti censiti"
local raw_data = read_array(args)
if #raw_data == 0args.fonte then return '' end
titolo = titolo .. '<ref>' .. args.fonte .. '</ref>'
-- generazione del grafico
end
local titolo = args.titolo or args[1] or "Abitanti censiti<br />"
titolo = titolo .. '\n\n'
local populations = read_array("p", "popolazione")
local yearspopulations = read_array(args, "ap", "annipopolazione")
local populations2years = read_array(args, "pba", "popolazione2anni")
local years2populations2 = read_array(args, "bpb", "anni2popolazione2")
local years2 = read_array(args, "b", "anni2")
--TODO error checking
graph['data'][1]['values'] = merge_years_population(years, populations)
local values1 = { }
graph['data'][2]['values'] = merge_years_population(years2, populations2)
for i =1,#populations do
graph['width'] = args.dimx and tonumber(args.dimx) and tonumber(args.dimx)
values[i] = {year = years[i], population = populations[i] }
graph['height'] = args.dimy and tonumber(args.dimy) and tonumber(args.dimy)
local tabella1 = ''
local tabella2 = ''
local fattore = args.fattore and tonumber(args.fattore) and tonumber(args.fattore) or 1
if fattore == 1000 then
graph['axes'][2]['title'] = 'Abitanti (migliaia)'
elseif fattore == 1000000 then
graph['axes'][2]['title'] = 'Abitanti (milioni)'
end
if args.etichette then
if args.etichette == "dispari" then
-- mostra solo etichette dispari
graph['marks'][4]['from']['transform'] = {{ type = "filter", test = "datum.num % 2 == 1"}}
elseif args.etichette == "pari" then
-- mostra solo etichette pari
graph['marks'][4]['from']['transform'] = {{ type = "filter", test = "datum.num % 2 == 0"}}
elseif args.etichette == "tabella" then
-- nasconde etichette e crea tabella a fianco
graph['marks'][4]['from']['transform'] = {{ type = "filter", test = "datum.num < 1"}}
tabella1 = '<table><tr><td style="vertical-align:top">'
tabella2 = mostraTabella(years, populations, fattore)
end
end
--if true then return mw.text.jsonEncode(graph) end
local template_text = "Censimenti dal {{datum.min_year}} al {{datum.max_year}}"
if #years2 > 0 then
graph['marks'][5]['properties']['enter']['text']['template'] = template_text .. " e dati annuali"
else
graph['marks'][5]['properties']['enter']['text']['template'] = template_text
end
graph['data'][1]['values'] = values1
if (massimo - minimo > 1) then
local values2 = { }
graph['scales'][1]['domainMin'] = minimo - (massimo-minimo)*0.04
for i =1,#populations2 do
graph['scales'][1]['domainMax'] = massimo + (massimo-minimo)*0.04
values[i] = {year = years2[i], population = populations2[i] }
end
graph['data'][2]['values'] = values2
local widthris = tonumber(args.dimx){}
table.insert(ris,titolo)
if width then graph['width'] = width end
table.insert(ris,tabella1)
local heigth = tonumber(args.dimy)
table.insert(ris,mw.getCurrentFrame():extensionTag('graph', mw.text.jsonEncode(graph)))
if height then graph['height'] = height end
table.insert(ris,tabella2)
return titolo .. mw.getCurrentFrame():extensionTag('graph', mw.text.jsonEncode(graph))
return table.concat(ris)
end
 
-- ======================================================================================================
-- Funzione di intefaccia con template:Demografia
-- ======================================================================================================
function p.demografia(frame)
local args = getArgs(frame)
Estratto da "https://it.wikipedia.org/wiki/Modulo:Demografia/sandbox"