%Viene letto un file con i dati della popolazione e della superficie delle
%province del Friuli Venezia Giulia.
%Il formato è
%Popolazione maschile Popolazione Femminile Superficie
%separati da spazi, su ognuna delle 4 righe del file.
%Le province sono in ordine alfabetico (GO, PN, TS, UD)
%Si richiede di produrre un grafico a barre, in cui ogni barra descrive i
%dati della popolazione maschile e femminile della rispettiva provincia,
%ed inoltre, con i dati della densità della popolazione totale per ogni
%provincia, un grafico a bolle, la cui dimensione rappresenta la densità,
%e un grafico a punti, sempre rappresentante la densità di popolazione
%delle province.


%Pulizia dei grafici
clf;

%Caricamento dei dati dal file
M=load('abit_mf_sup_prov_FVG.txt');

%Stringa descrittiva per l'asse delle x
prov=["GO" "PN" "TS" "UD"];

%Prima figura
figure(1);

%Estrapolazione dei dati della popolazione
M12=M(:,1:2);

%Creazione del grafico a barre
bar(prov,M12,'stacked');
xlabel('Province');
ylabel('Abitanti/kmq');

%Seconda figura
figure(2);

%Disegno dei grafici delle densità della popolazione complessiva per ogni
%provincia
popTot=sum(M12,2);
superficie=M(:,3);
densita=popTot./superficie;
bubblechart(popTot,superficie,densita)
xlabel('Popolazione');
ylabel('Superficie');
bubblelegend('Densità','Style','telescopic','Location','northeastoutside');


%Terza figura
figure(3);

plot(densita,'+k');
axis padded;
title("Densità degli abitanti delle province del Friuli Venezia Giulia")
ylabel('Abitanti/kmq');
%Si fissa l'equidstanza dei valori sull'asse delle x
set(gca,'XTick',(1:1:4));


%Quarta figura
figure(4);

%Variante per aggiungere le sigle delle provincie sull'asse delle x
list1=categorical(prov);
plot(list1,densita,'+k');
axis padded;
ylabel('Abitanti/kmq');
xlabel('Province');
title("Densità degli abitanti delle province del Friuli Venezia Giulia");