SAE24_2022/ex2/scripts/ex2-7.sce

data = csvRead("data.csv");
pays = csvRead("data.csv",",",".","string")(:,1);
esperanceHomme = gsort(data(:,11), 'g', 'i');

//Valeur des premiers et neuvièmes decile 
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);

//Selectionner uniquement les pays à l'extérieur de l'intervale 1er/9eme decile 
Pays_intervale_ext_decile = pays(find(data(:,11)<premierDecile | data(:,11)>neuviemeDecile));

//Recuperer l'indice des pays correspondant à l'intervale extérieur
//Pour ce faire je crée un colonne de 1 à 207 qui va me permettre de stocker les indices des pays
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);

// Maintenant que nous connaissons les indices des pays à l'extérieur de l'intervale , on peut faire un tri pour chaque continent 
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