data = csvRead("../data.csv")
natalite = data(:, 4)
mortalite = data(:, 5)
taux_accroissement_min=min(natalite-mortalite)
taux_accroissement_max=max(natalite-mortalite)
taux_accroissement=natalite-mortalite
PaysAccroissementNegatif=find(taux_accroissement < 0)
AccroissementMoyen=mean(taux_accroissement)

TauxNataliteAfrique=cumsum(data(1:57,4))(57)
TauxMortaliteAfrique=cumsum(data(1:57,5))(57)
AccroissementMoyenAfrique=mean((TauxNataliteAfrique-TauxMortaliteAfrique)/1000)

TauxNataliteAmeriqueN=cumsum(data(58:86,4))(29)
TauxMortaliteAmeriqueN=cumsum(data(58:86,5))(29)
AccroissementMoyenAmeriqueN=mean((TauxNataliteAmeriqueN-TauxMortaliteAmeriqueN)/1000)

TauxNataliteAmeriqueS=cumsum(data(87:99,4))(13)
TauxMortaliteAmeriqueS=cumsum(data(87:99,5))(13)
AccroissementMoyenAmeriqueS=mean((TauxNataliteAmeriqueS-TauxMortaliteAmeriqueS)/1000)

TauxNataliteAsie=cumsum(data(100:150,4))(51)
TauxMortaliteAsie=cumsum(data(100:150,5))(51)
AccroissementMoyenAsie=mean((TauxNataliteAsie-TauxMortaliteAsie)/1000)

TauxNataliteEurope=cumsum(data(151:193,4))(43)
TauxMortaliteEurope=cumsum(data(151:193,5))(43)
AccroissementMoyenEurope=mean((TauxNataliteEurope-TauxMortaliteEurope)/1000)

TauxNataliteOceanie=cumsum(data(194:207,4))(14)
TauxMortaliteOceanie=cumsum(data(194:207,5))(14)
AccroissementMoyenOceanie=mean((TauxNataliteOceanie-TauxMortaliteOceanie)/1000)

TauxAccroissementParContinent=[AccroissementMoyenAfrique, AccroissementMoyenAmeriqueN, AccroissementMoyenAmeriqueS, AccroissementMoyenAsie, AccroissementMoyenEurope, AccroissementMoyenOceanie]
bar(1:6, TauxAccroissementParContinent)