Ajout de commentaires dans les scripts

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

ex2/scripts/ex2-1.sce

@@ -1,8 +1,10 @@
 data = csvRead("data.csv");
 
+// récupérer les valeurs des espérances de vie en ignorant les pays ou elles ne sont pas donnés
 Valeur_esperance_vie_femme = find (data(:,12) >=0);
 Valeur_esperance_vie_homme = find (data(:,11) >=0);
 
+// faire la moyenne des espérances de vie des femmes et des hommes
 Moyenne_esperance_vie_femme = mean(data(Valeur_esperance_vie_femme,12));
 Moyenne_esperance_vie_homme = mean(data(Valeur_esperance_vie_homme,11));
 

ex2/scripts/ex2-2.sce

@@ -1,11 +1,14 @@
 data = csvRead("data.csv");
 
+// Faire la médiane 
 Valeur_esperance_vie_femme = find (data(:,12) >=0);
 Valeur_esperance_vie_homme = find (data(:,11) >=0);
 
+// Faire la variance
 mediane_esperance_vie_homme = median(data(Valeur_esperance_vie_femme,11));
 mediane_esperance_vie_femme = median(data(Valeur_esperance_vie_homme,12));
 
+// Faire l'écart type
 variance_esperance_vie_homme = mean(data(Valeur_esperance_vie_femme,11).*data(Valeur_esperance_vie_femme,11))-mean(data(Valeur_esperance_vie_femme,11))^2;
 variance_esperance_vie_femme = mean(data(Valeur_esperance_vie_homme,12).*data(Valeur_esperance_vie_homme,12))-mean(data(Valeur_esperance_vie_homme,12))^2;
 

ex2/scripts/ex2-3.sce

@@ -3,17 +3,22 @@ data = csvRead("data.csv");
 Valeur_esperance_vie_femme = find (data(:,12) >=0);
 Valeur_esperance_vie_homme = find (data(:,11) >=0);
 
+//charger les différents pays
 pays = csvRead("data.csv",",",".","string")(:,1);
 
+// esprérances de vie minimale et maximale homme
 esperance_vie_min_homme = min(data(Valeur_esperance_vie_homme,11));
 esperance_vie_max_homme = max(data(Valeur_esperance_vie_homme,11));
 
+// esprérances de vie minimale et maximale homme
 pays_esperance_vie_min_homme = pays(find(data(:,11) == esperance_vie_min_homme));
 pays_esperance_vie_max_homme = pays(find(data(:,11) == esperance_vie_max_homme));
 
+// esprérances de vie minimale et maximale femme
 esperance_vie_min_femme = min(data(Valeur_esperance_vie_femme,12));
 esperance_vie_max_femme = max(data(Valeur_esperance_vie_homme,12));
 
+// pays correspondant à ces valeurs
 pays_esperance_vie_min_femme = pays(find(data(:,12) == esperance_vie_min_femme));
 pays_esperance_vie_max_femme = pays(find(data(:,12) == esperance_vie_max_femme));
 

ex2/scripts/ex2-4.sce

@@ -1,5 +1,7 @@
 data = csvRead("data.csv");
 
+// histogramme des esperance de vie des hommes des 100 premiers pays avec 20 classes 
+// normalization=%f pour avoir diffrectement le bon nombre de pays pour chaque classe diirectement sur l'histogramme
 histplot(20,data(1:100,11),normalization=%f);
 title("Histogramme des espérances de vie des hommes des 100 premiers pays avec 20 classes");
 xlabel("Espérance de vie (années)");

ex2/scripts/ex2-5.sce

@@ -3,7 +3,11 @@ pays = csvRead("data.csv",",",".","string")(:,1);
 
 [esperanceHomme,indice] = gsort(data(:,11), 'g', 'i');
 
+//Les pays correspondant à l'espérance la plus grande et la plus petite
+
 paysMaxHomme = pays(indice(length(indice)-1));
+// le -1 est pour enlever le pays "Andore" car n'ayant pas de valeur se met à la fin du classement par ordre croissant.
+
 paysMinHomme = pays(indice(1));
 
 mprintf("Pays ayant où l''espérance de vie des hommes est la plus élevé : %s\n", paysMaxHomme);

ex2/scripts/ex2-6.sce

@@ -2,8 +2,13 @@ data = csvRead("data.csv");
 pays = csvRead("data.csv",",",".","string")(:,1);
 esperanceHomme = gsort(data(:,11), 'g', 'i');
 
+// Trouver le 1er et 3eme quartile de l'esperance de vie des hommes 
 quartiles = quart(esperanceHomme);
+
+// trouver l'équart interquartile de l'esperance de vie des hommes
 interquartile = iqr(esperanceHomme);
+
+//Liste des pays avec une esperance de vie inférieur au premier quartile
 Pays_inferieur_premier_quartile = pays(find(data(:,11)<quartiles(1)));
 
 mprintf("Le premier quartile de l''esperance de vie des hommes est : %.0f ans.\n", quartiles(1));

ex2/scripts/ex2-7.sce

@@ -2,18 +2,23 @@ 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) );