[Ex2 - Q7] Ajout
Co-authored-by: Dimitrijevic <hugo.dimitrijevic@etu.u-pec.fr>
This commit is contained in:
parent
f947aa7c4b
commit
ee59a52afa
GPG Key ID:
251ADD56CFE6A854
@ -45,6 +45,7 @@ Les réponses aux questions des exercices sont situées dans les README des doss
|
|||||||
- [Histogramme](ex2/#q4)
|
- [Histogramme](ex2/#q4)
|
||||||
- [Classement](ex2/#q5)
|
- [Classement](ex2/#q5)
|
||||||
- [Quartiles et écart inter-quartile](ex2/#q6)
|
- [Quartiles et écart inter-quartile](ex2/#q6)
|
||||||
|
- [Déciles](ex2/#q7)
|
||||||
3. [Taux d'accoissement naturel](ex3/)
|
3. [Taux d'accoissement naturel](ex3/)
|
||||||
1. [Acroissements minimaux et maximaux](ex3/#q1)
|
1. [Acroissements minimaux et maximaux](ex3/#q1)
|
||||||
2. [Pays ayant un taux d'accroissement négatif](ex3/#q2)
|
2. [Pays ayant un taux d'accroissement négatif](ex3/#q2)
|
||||||
|
|||||||
@ -9,6 +9,7 @@
|
|||||||
4. [Histogramme](#q4)
|
4. [Histogramme](#q4)
|
||||||
5. [Classement](#q5)
|
5. [Classement](#q5)
|
||||||
6. [Quartiles et écart inter-quartile](#q6)
|
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
|
- Kiribati
|
||||||
- Papouasie-Nouvelle-Guinée
|
- 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
53
ex2/scripts/ex2-7.sce
Normal 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
|
||||||
Loading…
Reference in New Issue
Block a user