[Ex2 - Q7] Ajout

Co-authored-by: Dimitrijevic <hugo.dimitrijevic@etu.u-pec.fr>
This commit is contained in:
Lyanis SOUIDI 2023-05-20 20:17:28 +02:00
parent f947aa7c4b
commit ee59a52afa
Signed by: Lyanis SOUIDI
GPG Key ID: 251ADD56CFE6A854
3 changed files with 118 additions and 0 deletions

View File

@ -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)

View File

@ -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
---

53
ex2/scripts/ex2-7.sce Normal file
View File

@ -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