[Ex2 - Q7] Ajout

Co-authored-by: Dimitrijevic <hugo.dimitrijevic@etu.u-pec.fr>

README.md

@@ -45,6 +45,7 @@ Les réponses aux questions des exercices sont situées dans les README des doss
     - [Histogramme](ex2/#q4)
     - [Classement](ex2/#q5)
     - [Quartiles et écart inter-quartile](ex2/#q6)
+    - [Déciles](ex2/#q7)
 3. [Taux d'accoissement naturel](ex3/)
     1. [Acroissements minimaux et maximaux](ex3/#q1)
     2. [Pays ayant un taux d'accroissement négatif](ex3/#q2)

ex2/README.md

@@ -9,6 +9,7 @@
 4. [Histogramme](#q4)
 5. [Classement](#q5)
 6. [Quartiles et écart inter-quartile](#q6)
+7. [Déciles](#q7)
 
 ---
 
@@ -212,6 +213,69 @@ Pays_inferieur_premier_quartile = pays(find(data(:,11)<quartile1))
 	- Kiribati
 	- Papouasie-Nouvelle-Guinée
 
+---
+
+## Question 7 : Déciles {#q7}
+
+> Donner les valeurs du premier et du neuvième décile ainsi que la liste des pays dont l'espérance de vie est 
+   inférieure au premier décile ou supérieure au neuvième décile. Donner leur répartition suivant les continents.
+
+**[Script Scilab](scripts/ex2-7.sce) :**
+
+```scilab
+premierDecile = esperanceHomme(ceil(length(esperanceHomme)/10))
+neuviemeDecile = esperanceHomme(ceil(9*length(esperanceHomme)/10))
+
+Pays_intervale_ext_decile = pays(find(data(:,11)<premierDecile | data(:,11)>neuviemeDecile))
+```
+
+**Résultat :**
+
+- Premier décile : 59 ans
+- Neuvieme décile : 79 ans
+- 37 Pays à l'extérieur de l'intervale :
+	- Afrique (18 pays) : 
+		- Côted'Ivoire
+		- Guinée-Bissau
+		- Mali
+		- Nigeria
+		- SierraLeone
+		- Burundi
+		- Mozambique
+		- Somalie
+		- Sud-Soudan
+		- Angola
+		- Cameroun
+		- Centrafricaine(République)
+		- Congo
+		- Congo(Répdémdu)
+		- Gabon
+		- Tchad
+		- Lesotho
+		- Swaziland
+	- Asie (6 pays) :
+		- Chypre
+		- Israël
+		- Singapour
+		- Chine-HongKong
+		- Chine-Macao
+		- Japon
+	- Europe (11 pays) :
+		- Islande
+		- Norvège
+		- Suède
+		- Liechtenstein
+		- Luxembourg
+		- Pays-Bas
+		- Suisse
+		- Espagne
+		- Italie
+		- Malte
+		- Saint-Marin
+	- Océanie (2 pays) :
+		- Australie
+		- Nouvelle-Zélande
+
 
 ---
 

ex2/scripts/ex2-7.sce

@@ -0,0 +1,53 @@
+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