Wikipedia

Modulo:Grafico XY: differenze tra le versioni

Naviga nella cronologia in modo interattivo
← Differenza precedente
Contenuto cancellato Contenuto aggiunto
Nessun oggetto della modifica
m modulo no globals obsoleto
 
(34 versioni intermedie di un altro utente non mostrate)
Riga 1:
require("Module:No globalsstrict")
 
local getArgs = require('Module:Arguments').getArgs
local p = {}
Riga 9 ⟶ 10:
flex['destra'] = {'<div class="floatright">','</div>'}
 
local clr = { "#1f77b4","#ff7f0e","#2ca02c22ca02c","#d62728","#9467bd","#8c564b","#e377c2","#7f7f7f","#bcbd22","#17becf" }
 
-- =====================================================================
Riga 29 ⟶ 30:
local function unisci(a,b,c,d)
local values = { }
local t
for i =1,#b do
t = string.format("%g",math.floor(10*b[i]/d+0.5)/10)
values[i] = { nx = a[i]/c, ny = b[i]/d, num = i }
t = t:gsub('%.',',')
values[i] = { nx = a[i]/c, ny = b[i]/d, num = i, txt = t }
end
return values
Riga 66 ⟶ 70:
type = "ordinal",
___domain = { data = "nomi", field = "testo"},
range = { }
},
{
name = "colori2",
type = "ordinal",
___domain = { data = "area", field = "testo"},
range = { }
}
Riga 73 ⟶ 83:
type = "x",
scale = "x",
title = "X",
format = args['formatoX'] or "d",
labelOverlap = "greedy",
grid = true,
properties = {
labels = { font = { value = "Helvetica" } },
title = { font = { value = "Helvetica" } },
}
},
{
type = "y",
scale = "y",
title = "Y",
grid = true,
format = args['formatoY'] or "d",
layerlabelOverlap = "backgreedy",
layer = "back",
properties = {
labels = { font = { value = "Helvetica" } },
title = { font = { value = "Helvetica" } },
}
}
},
Riga 92 ⟶ 112:
orient = "top-left",
offset = 8,
properties = {
shape = {value = "square"},
labels = { font = { value = "Helvetica" }, fontSize = { value = 12 } },
strokeWidth = 0
symbols = {
strokeWidth = { value = 0 },
shape = { value = "square" },
opacity = { value = 0.7 }
},
legend = { fill = { value = "#fff" } }
}
},
{
fill = "colori2",
title = "",
orient = "top-left",
offset = 8,
properties = {
labels = { font = { value = "Helvetica" }, fontSize = { value = 12 } },
symbols = {
strokeWidth = { value = 0 },
shape = { value = "square" },
opacity = { value = 0.3 }
},
legend = { fill = { value = "#fff" } }
}
}
},
marks = { }
{
type = "rect",
from = { data = "area" },
properties = {
enter = {
x = {scale = "x",field = "x1"},
x2 = {scale = "x",field = "x2"},
y = {value = 0},
y2 = {signal = "height"},
fill = {scale = "colori2", field = "testo" },
opacity = {value =0.2 }
}
}
}
}
}
-- titoli assi
local titoloX = args.titoloX or 'X'
local fattoreX = args.fattoreX and tonumber(args.fattoreX) and tonumber(args.fattoreX) or 1
if fattoreX == 0 then
Riga 109 ⟶ 166:
end
graph['axes'][1]['title'] = titoloX
local titoloY = args.titoloY or 'Y'
local fattoreY = args.fattoreY and tonumber(args.fattoreY) and tonumber(args.fattoreY) or 1
if fattoreY == 0 then
Riga 130 ⟶ 187:
-- legge valori
local numero = 1
local dx, dy, dt, cc
while (args['x'..numero]) do numero = numero+1 end
local err = '-'
dt = {}
 
while (args['x'..numero]) do
dx = leggi(args, "x"..numero)
dy = leggi(args, "y"..numero)
if (dx and dy) then
if (#dx == #dy) then
dt[numero] = unisci(dx, dy, fattoreX, fattoreY)
else
err = 'Errore nel numero di elementi per serie '..numero
break
end
else
err = 'Errore nella serie '..numero
break
end
numero = numero+1
end
numero = numero-1
if err == '-' then
local dx
for i = 1,numero do
local dy
cc = i%10
for i = 1,numero do
if cc == 0 then cc = 10 end
graph['data'][i] = {
graph['data'][i] = {
name = "tab"..i,
name = "tab"..i,
transform = { { type = "sort", by = "nx" } },
}
graph['data'][i]['values'] = dt[i]
dx = leggi(args, "x"..i)
graph['marks'][1+i] = {
dy = leggi(args, "y"..i)
type = "line",
graph['data'][i]['values'] = unisci(dx, dy, fattoreX, fattoreY)
from = {data = "tab"..i },
 
graph['marks'][i] properties = {
type enter = "line",{
from interpolate = {datavalue = "tablinear"..i },
x = {scale = "x",field = "nx"},
properties = {
enter y = {scale = "y",field = "ny"},
interpolate stroke = {value = "linear"clr[cc] },
x strokeWidth = {scalevalue = "x",field = "nx"4},
y opacity = {scalevalue = "y",field = "ny"0.5},
}
stroke = {value = clr[i%10+1] },
strokeWidth = {value = 4},
opacity = {value = 0.5}
}
}
graph['marks'][1+i+numero] = {
}
type = "symbol",
graph['marks'][i+numero] = {
type from = {data = "symboltab"..i },
properties = {
from = {data = "tab"..i },
properties enter = {
enter x = {scale = "x",field = "nx"},
x y = {scale = "xy",field = "nxny"},
y stroke = {scalevalue = "y",fieldclr[cc] = "ny"},
stroke fill = {value = clr[i%10+1] "#fff"},
fill size = {value = "#fff"30},
size = {value = 30}
}
}
graph['marks'][1+i+2*numero] = {
}
type = "text",
graph['marks'][i+2*numero] = {
type from = { data = "texttab"..i },
properties = {
from = { data = "tab"..i },
properties enter = {
enter x = {scale = "x",field = "nx"},
x y = {scale = "xy",field = "nxny", offset = -8},
y align = {scalevalue = "ycenter",field = "ny", offset = -8},
align fill = {value = "center#000"},
fill font = {value = "#000Helvetica"},
text fontSize = {field value = "ny"12 },
text = {field = "txt" }
}
}
}
graph['scales'][1]['___domain']['fields'][i] = {data = "tab"..i,field = "nx"}
graph['scales'][2]['___domain']['fields'][i] = {data = "tab"..i,field = "ny"}
graph['scales'][3]['range'][i] = clr[cc]
-- colori
if args['colore'..i] then
graph['marks'][1+i]['properties']['enter']['stroke']['value'] = args['colore'..i]
graph['marks'][1+i+numero]['properties']['enter']['stroke']['value'] = args['colore'..i]
graph['scales'][3]['range'][i] = args['colore'..i]
end
-- opzioni etichette
if args['etichette'..i] then
if args['etichette'..i] == 'dispari' then
graph['marks'][1+i+2*numero]['from']['transform'] = {{ type = "filter", test = "datum.num % 2 == 1"}}
elseif args['etichette'..i] == 'pari' then
graph['marks'][1+i+2*numero]['from']['transform'] = {{ type = "filter", test = "datum.num % 2 == 0"}}
elseif args['etichette'..i] == 'no' then
graph['marks'][1+i+2*numero]['from']['transform'] = {{ type = "filter", test = "datum.num < 1"}}
end
end
-- mostra dati
if args['mostra'..i] then
if args['mostra'..i] == '1' then
graph['marks'][1+numero+i]['from']['transform'] = {{ type = "filter", test = "datum.num < 1"}}
elseif args['mostra'..i] == '2' then
graph['marks'][1+i]['from']['transform'] = {{ type = "filter", test = "datum.num < 1"}}
end
end
end
 
-- legenda
graph['data'][numero+1] = {
name = "nomi",
values = { }
}
local lg = 1
graph['scales'][1]['___domain']['fields'][i] = {data = "tab"..i,field = "nx"}
while (args['nome'..lg]) do
graph['scales'][2]['___domain']['fields'][i] = {data = "tab"..i,field = "ny"}
graph['scalesdata'][3numero+1]['rangevalues'][ilg] = clr{ testo = args[i%10+1'nome'..lg] }
-- lg colori= lg +1
if args['colore'..i] then
graph['marks'][i]['properties']['enter']['stroke']['value'] = args['colore'..i]
graph['marks'][i+numero]['properties']['enter']['stroke']['value'] = args['colore'..i]
graph['scales'][3]['range'][i] = args['colore'..i]
end
if args.legenda then graph['legends'][1]['orient'] = args.legenda end
-- opzioni etichette
 
if args['etichette'..i] then
-- annotazioni
if args['etichette'..i] == 'dispari' then
graph['data'][numero+2] = {
graph['marks'][i+2*numero]['from']['transform'] = {{ type = "filter", test = "datum.num % 2 == 1"}}
name = "area",
elseif args['etichette'..i] == 'pari' then
values = { }
graph['marks'][i+2*numero]['from']['transform'] = {{ type = "filter", test = "datum.num % 2 == 0"}}
}
elseif args['etichette'..i] == 'no' then
lg = 1
graph['marks'][i+2*numero]['from']['transform'] = {{ type = "filter", test = "datum.num < 1"}}
while (args['area'..lg]) do
end
graph['data'][numero+2]['values'][lg] = { testo = args['area'..lg], x1 = args['area'..lg..'_x1'], x2 = args['area'..lg..'_x2'] }
graph['scales'][4]['range'][lg] = args['area'..lg..'_colore'] or clr[lg]
graph['scales'][1]['___domain']['fields'][numero+2*lg-1] = {data = "area",field = "x1"}
graph['scales'][1]['___domain']['fields'][numero+2*lg] = {data = "area",field = "x2"}
lg = lg +1
end
if args.area_legenda then graph['legends'][2]['orient'] = args.area_legenda end
-- mostra dati
 
if args['mostra'..i] then
if (args['mostra'..i]minimoX ==and '1'tonumber(args.minimoX)) then
graph['marksscales'][numero+i1]['from']['transformdomainMin'] = {{ type = "filter", test = "datumtonumber(args.num < 1"}}minimoX)
end
elseif args['mostra'..i] == '2' then
if (args.massimoX and tonumber(args.massimoX)) then
graph['marks'][i]['from']['transform'] = {{ type = "filter", test = "datum.num < 1"}}
graph['scales'][1]['domainMax'] = tonumber(args.massimoX)
end
end
end
-- legenda
graph['data'][numero+1] = {
name = "nomi",
values = { }
}
local lg = 1
while (args['nome'..lg]) do
graph['data'][numero+1]['values'][lg] = { testo = args['nome'..lg] }
lg = lg +1
end
if args.legenda then graph['legends'][1]['orient'] = args.legenda end
 
if (args.minimoY and tonumber(args.minimoY)) then
local ris = {}
graph['scales'][2]['domainMin'] = tonumber(args.minimoY)
local allinea = args['allinea'] or ''
end
if (flex[allinea]) then table.insert(ris,flex[allinea][1]) end
if (args.massimoY and tonumber(args.massimoY)) then
table.insert(ris,mw.getCurrentFrame():extensionTag('graph', mw.text.jsonEncode(graph)))
graph['scales'][2]['domainMax'] = tonumber(args.massimoY)
if (args.didascalia) then
end
table.insert(ris,'<p>'..args.didascalia..'</p>')
 
local ris = {}
local allinea = args['allinea'] or ''
if (flex[allinea]) then table.insert(ris,flex[allinea][1]) end
table.insert(ris,mw.getCurrentFrame():extensionTag('graph', mw.text.jsonEncode(graph)))
if (args.didascalia) then
table.insert(ris,'<p style="font-size:90%;margin-left:30px">'..args.didascalia..'</p>')
end
if (flex[allinea]) then table.insert(ris,flex[allinea][2]) end
if args['debug'] then
return mw.text.jsonEncode(graph)
else
return table.concat(ris)
end
else
return '<span style="color:red"><b>Template GraficoXY:</b> '..err..'</span>'
end
if (flex[allinea]) then table.insert(ris,flex[allinea][2]) end
--return mw.text.jsonEncode(graph)
return table.concat(ris)
end
 
-- ======================================================================================================
-- Funzione di intefaccia con template:DemografiaGrafico XY
-- ======================================================================================================
function p.grafico(frame)
Estratto da "https://it.wikipedia.org/wiki/Modulo:Grafico_XY"