From ee59a52afa23cb29f61040d140e9ecdb991c6440 Mon Sep 17 00:00:00 2001
From: Lyanis Souidi <code@lyanis.sh>
Date: Sat, 20 May 2023 20:17:28 +0200
Subject: [PATCH] [Ex2 - Q7] Ajout

Co-authored-by: Dimitrijevic <hugo.dimitrijevic@etu.u-pec.fr>
---
 README.md             |  1 +
 ex2/README.md         | 64 +++++++++++++++++++++++++++++++++++++++++++
 ex2/scripts/ex2-7.sce | 53 +++++++++++++++++++++++++++++++++++
 3 files changed, 118 insertions(+)
 create mode 100644 ex2/scripts/ex2-7.sce

diff --git a/README.md b/README.md
index e617ac1..6fbc012 100644
--- a/README.md
+++ b/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)
diff --git a/ex2/README.md b/ex2/README.md
index 91fe343..f569276 100644
--- a/ex2/README.md
+++ b/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
+
 
 ---
 
diff --git a/ex2/scripts/ex2-7.sce b/ex2/scripts/ex2-7.sce
new file mode 100644
index 0000000..be4678f
--- /dev/null
+++ b/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