54 lines
2.7 KiB
Scilab
54 lines
2.7 KiB
Scilab
data = csvRead("data.csv");
|
|
pays = csvRead("data.csv",",",".","string")(:,1);
|
|
esperanceHomme = gsort(data(:,11), 'g', 'i');
|
|
|
|
premierDecile = esperanceHomme(ceil(length(esperanceHomme)/10));
|
|
neuviemeDecile = esperanceHomme(ceil(9*length(esperanceHomme)/10));
|
|
|
|
mprintf("Premier décile : %.0f ans\n",premierDecile);
|
|
mprintf("Neuvieme décile : %.0f ans\n",neuviemeDecile);
|
|
|
|
Pays_intervale_ext_decile = pays(find(data(:,11)<premierDecile | data(:,11)>neuviemeDecile));
|
|
|
|
indice_pays = [1:207];
|
|
indice_pays = matrix(indice_pays,length(indice_pays),1);
|
|
indice_pays_intervale_ext_decile = indice_pays(find(data(:,11)<premierDecile | data(:,11)>neuviemeDecile),1);
|
|
|
|
Pays_Afrique_ext_intervale = Pays_intervale_ext_decile(find(indice_pays_intervale_ext_decile <= 57 ));
|
|
Pays_Amerique_nord_ext_intervale = Pays_intervale_ext_decile(find(indice_pays_intervale_ext_decile >= 58 & indice_pays_intervale_ext_decile <= 86) );
|
|
Pays_Amerique_sud_ext_intervale = Pays_intervale_ext_decile(find(indice_pays_intervale_ext_decile >= 87 & indice_pays_intervale_ext_decile <= 99) );
|
|
Pays_Asie_ext_intervale = Pays_intervale_ext_decile(find(indice_pays_intervale_ext_decile >= 100 & indice_pays_intervale_ext_decile <= 150) );
|
|
Pays_Europe_ext_intervale = Pays_intervale_ext_decile(find(indice_pays_intervale_ext_decile >= 151 & indice_pays_intervale_ext_decile <= 193) );
|
|
Pays_Oceanie_ext_intervale = Pays_intervale_ext_decile(find(indice_pays_intervale_ext_decile >= 194 & indice_pays_intervale_ext_decile <= 207) );
|
|
|
|
mprintf("%.0f Pays à l''extérieur de l''intervale :\n",size(Pays_intervale_ext_decile,1));
|
|
if (size(Pays_Afrique_ext_intervale,1) > 0)
|
|
mprintf("\t- Afrique (%.0f pays) : \n",size(Pays_Afrique_ext_intervale,1));
|
|
mprintf("\t\t- %s\n",Pays_Afrique_ext_intervale);
|
|
end
|
|
|
|
if (size(Pays_Amerique_nord_ext_intervale,1) > 0)
|
|
mprintf("\t- Amérique du Nord (%.0f pays) :\n",size(Pays_Amerique_nord_ext_intervale,1));
|
|
mprintf("\t\t- %s\n",Pays_Amerique_nord_ext_intervale);
|
|
end
|
|
|
|
if (size(Pays_Amerique_sud_ext_intervale,1) > 0)
|
|
mprintf("\t- Amérique du Sud (%.0f pays) :\n",size(Pays_Amerique_sud_ext_intervale,1));
|
|
mprintf("\t\t- %s\n",Pays_Amerique_sud_ext_intervale);
|
|
end
|
|
|
|
if (size(Pays_Asie_ext_intervale,1) > 0)
|
|
mprintf("\t- Asie (%.0f pays) :\n",size(Pays_Asie_ext_intervale,1));
|
|
mprintf("\t\t- %s\n",Pays_Asie_ext_intervale);
|
|
end
|
|
|
|
if (size(Pays_Europe_ext_intervale,1) > 0)
|
|
mprintf("\t- Europe (%.0f pays) :\n",size(Pays_Europe_ext_intervale,1));
|
|
mprintf("\t\t- %s\n",Pays_Europe_ext_intervale);
|
|
end
|
|
|
|
if (size(Pays_Oceanie_ext_intervale,1) > 0)
|
|
mprintf("\t- Océanie (%.0f pays) :\n",size(Pays_Oceanie_ext_intervale,1));
|
|
mprintf("\t\t- %s\n",Pays_Oceanie_ext_intervale);
|
|
end
|