Pfe GC 0635 PDF
Pfe GC 0635 PDF
Pfe GC 0635 PDF
·1
• 1
JUIN·· 1990
. • , . . 1:
~.li'!I;'~"'."'..
.
,
~
.
..
RËPUBLIOUE DU SÉ~IEGAl
69
il
ÉCOLE POL 'fTEC}-~NIOUE DE THIÈS
P R OJ ET oE F 1 ~l li' ETU0 ES
i
REMERCIEMENTS
ii
SOMMAIRE
de calcul de débit.
Intensités-Durée-Fréquence.
iii
TABLES DES MATIERES
Dédicace i
"
Remerciements ii
Sommaire iii
Tables des matières iv
Listes des annexes ix
Listes des figures x
Listes des tableaux xi
Listes des abréviations xii
CHAPITRE l Introduction 1
pluie-débit au Sahel 16
iv
2.5.1 Situations des données hydrologiques 17
2.5.2 situations des données topographiques 18
2.6 Méthodes de détermination de débit de pointe 19
2.6.1 Formules empiriques utilisant
les caractéristiques du bassin 19
2.6.1.1 Discussion et utilisation 20
2.6.2 Formules faisant intervenir la superficie
et la fréquence 21
2.6.2.1 Formule de Horton 21
2.6.2.2 Formule de Forsaith 21
2.6.2.3 Formule de Fuller 22
2.6.2.4 Formule de Kinnison 22
2.6.2.5 Discussion et utilisation 23
2.6.3 Formules faisant intervenir la précitation
et les caractéristiques du bassin 23
2.6.3.1 Formules ne tenant pas de la fréquence 24
2.6.3.1.1 Formule d "Iskowski 24
2.6.3.1.2 Formule de Posseni 24
2.6.3.1.3 Formule de de Turazza 25
2.6.3.1.4 Discussion et utilisation 26
2.6.3.2 Formules faisant intervenir la
fréquence de la pluie 26
2.6.3.2.1 Méthode Rodier Auvray (ORSTOM) 27
2.6.3.2.1.1 Principes de la méthode 27
2.6.3.2.1.2 Paramètres de la méthode 28
2.6.3.2.1.3 Régimes climatiques 30
v
2.6.3.2.1.4 Discussion et utilisation 31
2.6.3.2.2 Méthode CIER 32
2.6.3.2.2.1 Principes de la méthode 32
2.6.3.2.2.2 Discussion et utilisation 34
2.6.3.3 Formules tenant compte de l'intensité
de la pluie 34
2.6.3.3.1 Introduction. 35
2.6.3.3.2 Méthode rationnelle 36
2.6.3.3.3 Discussion et utilisation 41
2.6.3.3.4 Autres formules du même type 42
2.6.3.3.4.1 Formule de Ziegle 42
2.6.3.3.4.2 Formule de Math 42
2.6.3.3.4.3 J.Cruette et Lemoine 42
2.6.3.3.4.4 Formule découlant de
l'hydrogramme triangulaire 43
2.6.4 Conclusion sur les méthodes ne donnant
que le débit de pointe 44
2.7 Estimatios du temps de concentration 45
2.7.1 Introduction 45
2.7.2 Formule de Ventura 45
2.7.3 Formule de Passini 46
2.7.4 Formule de Kirpich 46
2.7.5 Formule de Richards 46
2.7.6 Formule de Giandotti 49
2.7.8 utilisation 50
vi
2.8 Méthodes permettant l'obtention d'hydrogramme 50
2.8.1 Hydrogramme unitaire 50
synthétiques 52
2.8.2.2 Méthode Snyder 53
2.8.2.2.1 Discussion et utilisation 55
Intensité-Durée-Fréquence 57
3.4 Remarques 68
vii
4.4.1.3 Test de Kolmogorov-simirnov 77
CHAPITRE V APPLICATIONS
ANNEXES
BIBLIOGRAPHIE
viii
LISTES DES ANNEXES
ix
LISTES DES FIGURES
"averse-crue".
x
LISTES DES TABLEAUX
Sahélien et Subdésertique.
forestiers.
xi
ABREVIATIONS
xii
CHAPITRE I: INTRODUCTION
d'eau souterrainne.
primordiale.
1
d'écoulement au niveau des petits bassins versants, nous a pousser
confronter dans certains cas les débits obtenus par les méthodes
cadre d'application.
2
CHAPITRE II: MODELES HYDROLOGIQUES
ruissellement en surface.
- le ruissellement superficiel
3
s'infiltre dans le sol et qui circule dans les horizons supérieurs
antérieurs) .
cipales:
ques.
4
crue ne suivent pas des lois simples et sont difficilement
accessibles à l'analyse.
5
- - - - - - - - ;.....
~ temps
-
III
-al
ln
-
C
al
C pluie
ne Ile
temps de réponse
ruissellement direct
1
.....
.,,---~
,/, ec, retardé
l..-----f--.-+--------------+------l.._ temps
temps de concentration tc
temps de base tb
6
2.3 Transformation hyétogramme-hydrogramme.
coordonnées ( x , y ),
dS à l'exutoire,
q (t) .
eSh
V= dt dS
eSt
7
hydrologiques du sol. On va négliger ce phénomène en supposant
6
V = ---h[ x, y, t-r(x,y)]dt
6t
instant.
k[ x, y, t-r(x,y)]
sous la forme:
k[ x, y, IPA(x,y) , t-r(x,y)]
6
Vr = --h[ x, y, t-r(x,y)].k[ x, y, IPA(x,y), t-r(x,y)]dt dS
6t
8
Toutes les particules d'eau composant ce volume ruisselé ne vont
6
- h dt
6t
re sera:
roo 6
1 k[x,y,IPA(x,y) ,t-r(x,y)]-h[x,y,t-r(x,y)]r(x,y,n)dxdydn
Jn=o 6t
oo r r 6
q(t)= rJOJ xJk[x,y,IPA(x,y)
1 1
y
,t-T (x,y)]-h[X,y,t-T (x,y) ]r(x,y,n)dxdydn
6t
9
2.3.2 complexité de l'équation
fiées.
appropriés.
10
modèles déterministes et modèles stochastiques. Ceux de la première
n'est que vers les années 60 que l'on vit nettement deux approches
[13] .
Il
Ces modèles, appelés aussi modèles conceptuels s'attachent à une
rivière.
12
niveaux.
t ~
~ ... .....
Evaporation 1er Niveau [ ruissellement
1
Surface \
f t
Evaporati0-=--.r-·2e Niveau Ruissellement f---
1
Subsurface Rétardé
1 Remontée !rnfiltration -- 1
+
Infiltration
1 1
t
G 4e Niveau
Nappe Souterrain
1
1
Débit de Base
1
1
EXUTOIRE 1
13
Ces modèles sont aptes à reproduire le régime d'une rivière tout
analogique.
essaye de tenir compte des ces pertes de façon globale, soit pàr
14
distingue les étap~s suivantes:
l'infiltration.
pluie.
Concernant l'étude de la transformation de pluie en débit au
15
consiste à déterminer explicitement la fonction de production et
sahel.
16
d'atteindre l'autosuffisance alimentaire qui est une condition
antérieurement.
suivantes :
ni de série de débit.
17
-La dernière situation rencontrée pour certains bassins est
mentaux
topographiques du bassin.
18
données disponibles. Dans une première partie nous étudierons les
lement.
Comme nous l'avions vu plus haut, le débit de pointe est l'une des
leur design. C'est ainsi qu'un nombre important des modèles a été
bassin.
suivantes [7]:
19
Qm = CAn
n
Qm = CAmA-
CA
Qm = + d.A
(a+bA) m
où Q'=
m débit de crue;
A = superficie du bassin de drainage; et
Exemples.
suivante
Q = O. 200Ao. 906
131. OOOA
Q = où A en km2 et Q en m3/s
m (107+A) 0.78
20
L'analyse de ces équations montre la non prise en compte de termes
qu'on sait qu'à chaque débit correspond une fréquence donnée. Ceci
superficie et la f~équence.
retour.
qui est:
q tr = 4021. 5A-o.StrO.2S
21
OÙ Qtr = crue maximale ( pi3/s) égalée ou dépassée
en moyenne
de 24 H (m3/s)
pentes
22
faibles crues.
où
Qm = débit d'inondation moyen (m3js),
l'exutoire ( m )
le bassin,
23
c'est ainsi que beaucoup de formules ont été développées qu'on
la pluie
pluie.
suivante:
Q = c.m.H.A [m3/~]
où
européens.
24
quelques bassins montagneux italiens la formule suivante:
cHm Ap
Q = (Am + [m3/s]
L 3
CHA
Q =
3,6tc
du bassin en heures
suivant)
25
Signalons que cette formule a été adaptée en Italie.
débit de pointe ,mais non une valeur à utiliser d'emblée dans une
précipitation
26
- La méthode ORSTOM RODIER-AUVRAY permettant la détermination
- La méthode CIEH
Vp = K.H.S
27
cient de ruissellement Kr du bassin à partir des abaques établis
v, = Kr. Vp
M =
Ta
Qmax = a.M =
Ta
Les abaques qui ont été établis par les auteurs et permettant la
28
rocheux ou argileux:
fissurée.
0.1% et 0.2%:
de plaine:
de terrain:
régions de collines:
29
de montagnes.
suivantes:
60 et 110 mm.
tableau 2.1:
sahélien et subdésertique
coefficient a 3 3 3 4.5 4
isohyètes 800 et 1600 mm. Les auteurs incluent aussi les bassins
30
110 et 130 mm.
Pour ces bassins, les auteurs indiquent que l'on peut adopter pour
versants forestiers.
31
Elle fournit pour la plupart des cas des ordres de grandeur
supérieures à 100%.
journalières décénnales.
32
est la suivante:
Q~x = a. Sb1gcKrd
Granites KI = 2300.Pan-0.67
1
1
Grès K2 = 300. Pan- O• 375
1
1
Sables K3 = 2.I0 7pan2 • 2
1
1
Argiles + Marnes K4 = 300. pan- O• 3
1
1
Schistes K5 = 370. pan- O• 375
1
33
Signalons que ces formules ont été traduites par les auteurs sous
forme d'abaques.
pointe.
CIEH, est que leur utilisation doit se faire par des ingénieurs de
la pluie
2.6.3.3.1 Introduction
34
IL est évident que du point de vue de l'écoulement, une
plus grand ou plus petit que tl. D'où donc la nécessité de tenir
h
i = ( mm/mn)
t
Au cours de la pluie l'intensité varie. A partir des résultats
a
i =
(b+t) C
où
a,b,c = coefficients déterminés par ajustementiils
dépendent de la fréquence des événements,
35
2.6.3.3.2 Méthode rationnelle
donner une vue plus générale nous permettant de voir plus claire-
t2=2&t, ... , tn= nbt. Supposons qu'il tombe sur la zone bj ,une
à t=O, Q(O) = 0
à t=bt, Q(tl)= clblI
36
,l'"
. ,~._.- .,
Figure-/·.z;·3 (a)
Bassin de drainage
. r .
, .. ,.
/
/
__ - t l
--0
\)'
.,
,.
,.
. ..
.' .
. • '. r'~
Hydrogramme de ruissellement
de tout le bassin
1à
,,. _ - - -
o t"
TEM PS
- 37 -
Le temps tn est le temps mis par la goutte la plus éloignée
figure 2.3(b)
Q(O) = 0
Q(tl)= clblI
Q(tn+l) = cnbnI
Q(O) = 0
Q(tl)= clblI
j
Q(tj)= ~ ckbkI
k=l
n
Q(tn)= ~ ckbkI
k=l
n
Q(tn+l)= ~ ckbkI
k=2
Q(t2n-l) = cnbnI
38
Nous remarquons alors que pour une averse uniforme d'intensité
n
Q (tn) = ~ cj(bj(I
k=l
D'où:
n
C A =
~ cj(bj(
k=l
avec C un coefficient moyen de ruissellement pour le
bassin
A: l'aire du bassin
connue:
Qm = CIA
39
Couverture du bassin versant
Type de sol
Cultures Pâturages Boi s • forêts
._-
- 40 -
l = intensité moyenne de la précipitation durant le
A = superficie du bassin(m2)
faux.
travers le bassin
carrés seulement.
41
qui sera forcément différent de la somme absolue des débits de
pointe des sous bassins à cause des temps de parcourt des eaux
différents .
2.6.3.3.4.1 Burkli-Ziegler
Qp = A.C.I~~S/A
2.6.3.3.4.2 Mc Math:
~-
Qp = A.C.I.~S/A
où
S = pente (ft/ft)
C = coefficient de ruissellement
42
Q=CIA et de l'intensité de l'averse décénnale mise sous la forme:
cette formule.
avec:
Q= débit en l/s,
A= en hectares,
43
0.28.P(t,T) .C.A.f
Qp(T)=
tc
avec
Qp(T) = débit de pointe pour le temps de retour T(m3/s) ,
de crue
tc = temps de concentration (heures = L/3.6V
L = longueur du cours (km),
V = vitesse moyenne du débit de crue(km/h),
le débit de pointe
l'hydrogramme.
44
doivent être utilisées avec beaucoup de précaution. Leur applica-
uniquement que pour avoir une idée du débit en attendant bien sûre
à utiliser. Pour ce qui est des méthodes ORS TOM et CIEH établies
2.7.1 Introduction
de concentration acceptable.
tc 76.3
45
où:
précédemment
d'eau principal
tc = 0.01947 LO.77r-O.385 (mn)
K
= 9.8
tc + 1 C R p
où
46
tc = temps de concentration en heures
47
k:
0035
0.025
0.015
I~O
48
Le coefficient K est déterminé à partir de la courbe Figure 2.4
tales [ 16 J.
linéaire.
75 (4 {S + 1. 5L)
tc =
où:
tc = temps de concentration en minutes
à l'exutoire
suivante:
L
tc =
3.6 V
où
tc est exprimé en heures
49
Cette vitesse est fonction des caractéristiques
pour des bassins marécageux ayant pour pente 0.5% jusqu'à 5 mis
pour des bassins rochers ayant une pente de 30%. La pente ici est
surface du bassin.
2.7.8 Utilisations
de l'utilisateur.
de crue.
L'hydrogamme unitaire proposé par L.K.Sherman en 1932 est
50
nette de un pouce distribué uniformément sur la surface du bassin
51
6, 8 et 12 heures. Employer un temps de base de 2heures pour une
approximatif du bassin.
à évacuer ou à utiliser ).
52
La dérivation d'hydrogrammes unitaires pour des bassins non jaugés
t p
= Ct (L. Le) 0.3
t p
= le délai du bassin ( intervalle de temps en
heures)
pointe de l'hydrogramme);
53
gravité du bassin versant.
CpA
Qp = 640
tp
Tb =3 + 3t p124
où t r
= durée de la pluie excédentaire en heures pour
pi3/s)
A = superficie du bassin versant en krn2;
en jours
t p = temps de base.
valable que pour une pluie nette d'une durée de tr. Pour toute
t R -t r
4
où
t~ = délai ajusté;
54
t r = durée initiale de calcul;
t R = durée désirée;
tp = délai non corrigé.
valeurs de Ct.
Nous pensons que bien que l'estimation des coefficients soit
55
CHAPITRE III: PLUIES DE PROJET.
du modèle la pluie.
de projet".
56
structure très complexe et difficilement reproductible. Chaque
'pluie de projet'.
lDF.
temporelle de la pluie.
57
conditions de précipitation extrême sur le bassin versant.
a
si l=
a.t
M =
L'orage synthétiques i(t) aura une forme telle que pendant les
courbe lOF.
on a
t at
f i dt lt
o
cette équation nous permet de tirer après dérivation la valeur
58
a[(l-b)t+c]
i =
(t+c) b+1
Dans la réalité ce type d'orage n'est pas observé, c'est ainsi que
t = t b + ta avec
obtient
59
Le choix du paramètre r dépend de l'analyse temporaire des averses
représentatives de la région.
lDF:
1785
1 1785 9 i=
t + 9
2793
2 2793 15 i=
t + 15
3325
5 3325 14 i=
t + 14
3458
10 3458 10 i=
t + 10
3826
20 3826 11 i=
t + 11
4960
100 4960 16 i=
t + 16
Avec i en mm/h et t en mn
60
(l-r) 2 .a.c
En prenant une pluie de durée 6h, nous avons tracer pour chaque
61
l'orage intermédiaire pour la ville de Dakar. ( voir figures)
62
\~
u
,-'
s-,
.::::,. ~
, --- ....•-- -.-.- --.. - .. - - - - - - - - - - - ---- --- - - - - _- .-----------.-.• -- - (:J
CrJ
C/J
C,l
'---1
:---"
s-,..)
Î~"'-- .
\~ ..J'1
\'--..
r- i
l~'""i
CZj
;"1'-"
'·..l"""i
E-,.,
1 _
:-
'''':''k _j
-,
I~';'--'
c/-)
(j).
ï, "
r-~
r' J1<
:~ ÙJ
.:....
":T-·ii ':'---
v-
C<
C)
.-
t:-'--'i
l·,')
,~'-j
".:--:-
-,
';:j
.ql
!/)
C'""'-·,
'.,•..-J
',--)
ç~~ ç,j (") C) -.
'\..~,; (~ (:J (""..) '::::1 c::, c-..l .. )
~ .. ) ..... ~) C") a '0 Cl c-) 0
r.=:::. ,:";; (1) {, (a t() >:~ o:.Y) ç,~ ...., C-J Cl C:.J r.; C:'1 li) '":j ~\l ':',1
-- --
..,.~
62 -
. .-. --.- - .- - ---- --.---- -- _-.--.--..------ --- --- -_.. - --·. ·--·· ---·-------..-·--·-l ·-n- Cl
'd
r O'J
;',-;-'.
Il''
~
i
i-... J
C2y
~""""'-i
ï
1:>'1
~·:t'\-,
:.t:~
!
;~- ...,
1
1
.....
."'/, .:.
, •.J
,.... ill
i
1 .-:,'~.... ..
"
~~
1
1
~:§
1 .,. "tl
1
i ~~) ~~
~
l -·_._.:::'c:::::::---------·-------·---·------------·
------ _-- ---.-
...... -
~'J
ij- ("
f.:'
I :...... i~.1
1 .,(J..;. .~~.
1
\jj
i
:Jl
:j
s,
(.
lJ
Cr)"
r.~
cC4
r''-"
I-l.,
1---..
\-..-.)
,..,~
\~.~)
'......... ),
1-.
'0 û \) () c::.
-
(',)
-
\'"J Cl U ('J () '._'
,~,
,-:.> (":J ~ w (J w
0')
,-
Q)
>--
t -;
.,.-
(0
.,..-
lr) ~*
' .... .... '"- "... .....
C') (;.~ () CJ Q) . -, ,Q lf)
'0
-.:!- ('I~j
Ç"j
r-,
• '< ' .....
':;1 .
.?
P-7"
1..1- .
.
c:::>
ri
cr
- 63 -
•..
•'J
".
ij
._. '- _o.. _ -, __.--.- - -..- -.---.-..-.--.-.-----_. .__ ~_._. ._ _ . __.., ~ _ ,. _ .._. __.,
--- ----~-nl
• J
.:- l.~
C'~l
Il·
1 ._~
~:
lI-
!.•...~ .•.
f" l
t
1,1.-.- '::':.1
ç-r;i
t:_~ li
!r-
[<::..1
. -,
""i"
, -"-C_(
[-
~,-'-i
1 vI
i ,-j
"'-...:,,
;. •. 1
C'...i ::~ ,-j
, r,
co ',.'" .,
<:: -",-
...... ";":'
<r "t
.'
':'-
.~.;.
è
',
--6
.
C< ""
Ü) '\il
E
() - =- -=-......=-_...::::.:-:---_.. _._--~--
(II
i-.
' - - ---·-----·--~--------·--·
- - - . .... - ••• _ _. •• H
~
..~ -l"::.:
~
"j
[~"'i li) ....
..,.;,
~.:.
a('.,
G~
(Ii
""f. Ùl
y- t1
"'-
l' G
---,
1 '-,-
("\
'~ o -nI
,.---,
1
(l')
c.::.
(Q
CcJ l
o-
.~
r.>'1
1......
., ..,
l'-'~''''\ .... ~.
h._..J
C:) --_.-----
( .
-,J
ç) w .
'7:") (""".j .::",.) (:") 0 ~
'c.,) () C:, c) 0 \:)
~ "';j- '>.) -7.) co 0~ co
en ') q .:".] -......
"-7l
)- "*
"- '>--
\.J
,..~
~i) ~;j- o,~
d
>- lI)
::> i--
éJ? :::i
()
W- ~
LI-
~
..-4
d-
- 64 -
'(L
,"
,-
d
;.:.
.j
C··,. '1
'~
1··._---...,
;.......J
r---, J
',,_:)
1
l''~
r- ~.(
(>--1
r
f.~
-.
"-1 "\
1,,· '_.j
1.
r ..--.,
: c-,
'j )
VI
.....W,
~ ~ù
i'" c
, ... 1,....:.
..... d
f:::: ',-'
"cd
,~ '\lJ
_.---'-<'
(~ F
" ~--- _._-----._-~.- ~J ~
~.,.~
_,~ • 0- _..::. . _ ~ _ •• _ _ •
"".,J
_. _•.__._.- •. _--. __ ._---------~---
,..... ,-"
_._~_._--.._---~
;:;w ':::
!:-"1 ..,.. u
1))
f-::~ '",
b
;...
G
-"'-..
\
•1
{
r-"--i
;.- . ..., AI 1
('j
r
1 ~r' "\
\0
h'-l i
:/
Cr'~ ,/i
'""'-i .,,.-'
r~',-"
\'""'-, 1
----~-
i·~·-._ \
J.....)
1 ......----
f--"=-'-'C=f~==-=~::--:-.=:::::::::::-=__T--------::-~----·---·-·-I-·
.
C)
li")
- 65 -
i--··
1
-----
'-r G
....
!
\
1
l
'.::J
-_. Ci
Ci)
1-
w
r;..)
'l..i//UIUt, 'ua LL'
.o ..
..
1-1
(5
- 66 -
'do
\.1
s:
~j
....
(j
('.;
''::-
·····------·'·-'·-·---·---r.....Jr- '-0 Q,
;j
1
1
ii':1' e'J
"
C;
v: ! l l'
\~
ï',;,
l'~
j éJl
1 Ir-
""-"'''...,j
\-.:,)
i. (':\
~~'-'
I 11-- c:,
l'rJ
1 I~'
i:.-'--j
l'
CZ~ r'
r
:-1""
l .. ~I~ ....\
l'
(-'""1
1"_-:>,
1<•.,/
,.
r";-'
V\-'
VI
'i:~ ù)
~~ .~~
5.)1
~~ fOtj
-: ... ;.;
' •.J ':""'- ",ü
(- .;, . "1 ,..:0 ~
,... '"'
s.
:~~ (0
0'1 "1~.~
\'-,J ;:." :::':
,~ "-.''':'
l~,-.! '"
\:ü "\1
..,." ::1)
[ ..,.... ,....
.~.
'...
';
'-'~-j ~-
CC,;
C~~)
t ..,
Il)
,.".
).:!:~
c"r~ .....
,.,,"'-1
,.,(""
I"'-~-I
1·
C.. .\
-'-0,_.'-
-.
-. .,'
'> '.
'J
~:j
'2'~';
':t.:J
C-'
\D
("'.j
':r
ç.J
I~' ,
'.,
(J
':=-':;4
'~J
C"{J
C.J
r:Ü
c:
'~r
Cl
C'.
"._' ,-.
'.,..1
('0
..:) c.:. (J
q
::::,
- 1:0
t C')
('C) (IJ C·./ r-. 1
" (') (. ,1
':'.) ~~
... ..... .... - 'i'
- 67 -
3.4 Remarque sur les orages synthétiques de Dakar
qui n'est logiquement pas vrai. Ces anomalies sont dues peut être
C'est ainsi que l'utilisation de ces courbes doit être faite avec
beaucoup de précautions.
68
CHAPITRE IV: ANALYSE STATISTIQUE DES PRECIPITATIONS
forme de:
69
"pluie-débit".
1
Tr = où Tr= période de récurrence et
p
p= la probabilité d'obtenir un
événement
de grandeur égale ou supérieure.
70
caractéristiques d'un type de série à l'autre.
série annuelle.
Ion qui n'est rien d'autre dans notre cas que d'une série d'obser-
Paramètres de dispersion
définie par:
1
m= x= --p::: xi )
N où les xi représentent les
éléments de N et N sa taille
m = moyenne arithmétique AT
71
Pour ce qui est des paramètres de dispersion on a:
R = Pmax-Pmin
La variance s2
1 N
s2 = - ( •~ (x.-m)
1
2)
N 1=1
tion de la variance :
2. 1 N 1 N
S = ~ (x i - m) 2 = --[~ xv--m
• 1
2
N-1i=1 N-11=1
Le coefficient d'asymétrie
ç = où s est la variance
(N-1) s3 N la taille de l'échantillon
m la moyenne
- si ç = 0 l'échantillon est symétrique ; dans ce cas
72
Par exemple la loi normale.
pour l'ajustement.
importants suivants:
réalité.
Le caractère asymétrique des précipitations maximales jour-
73
nalières annuelles entraîne une certaine sélection de lois de
- Loi LOGNORMALE
- LOI de FRECHET
observé "le plus probable". Pour cela on définit la pr-obab i.Li t.é ou
74
La méthode des moments, consistant à choisir les paramètres de
i
où Fi=fréquence empirique de pi:
N+l
i= rang occupé par pi lors du
classement et N est le nombre
total d'éléments
Fi est la probabilité de dépassement.
75
linéaire en Pi ou en logarithme de Pi suivant les cas. Ainsi on
l'échantillon.
que X suit une loi f x(.) est d'avoir la connaissance d'un échantil-
76
proposé, ceci a été du grâce à la distribution KHI-deux.
empirique.
77
moyen annuel de valeurs journalières supérieures à x, la probabi-
p= [l-h(x)jN]N
tion:
p= exp[-h(x)]
de répartition
F(x) = exp[-exp[-(x-xo)ja]]
et la densité de probabilité:
f(x) =(lja)exp[-(x-xo)ja]exp[-exp[-(x-xo)ja]]
a= B =0,780 s
x o= 0: = m-O,577B
de l'échantillon.
Loi de Frechet
78
Cette loi est obtenue en remplaçant dans la loi de gumbel P par
le Logarithme de P.
1 1 Inx-lna::
f(x) = exp[- ( ) 2 ] O<x<oo
xo 211" 2 0
1 1 Inx-lna::
F(x) = r x exp[- ( ) 2 ] dx
JO XO 211" 2 0
lognomale.
1 N
Lnœ = ~ (l nx i )
N i=l
1 N
02 = ~ ( Inxi-Nlna:: ) 2
N i=l
79
OÙ Xi représentent les éléments de l'échantillon
N la taille de l'échantillon
a'T [x
F (X ) = 1 e -ax x"-, dx
r('r) JO
où r(r) est la fonction eulérienne de seconde espèce.
En faisant un changement des variables ax=y F(x) devient
ry(r)
F(x) =
r(r)
où ry(r) est l'intégrale d'Euler incomplète et le rapport
ry(r)
l (y,r-l) =
r(r)
est donné par les tables de Pearson.
80
c'est pour cette raison qu'un programme d'analyse statistique a
- Acquisition de l'échantillon,
- Tri de l'échantillon,
khi-deux,
et khi-deux.
Application
81
Tableau 4.1: Précipitations journalières maximales annuelles de
Les résultats suivants ont été obtenus pour les lois gumbel,
lognormale et normale:
Climat Sahélien
Région THIES
Période 1918-1987
PARAMETRES DE L'ECHANTILLON
Moyenne (mm) 85
82
Etendue (mm) 201
Variance 1517.22
Xo = 67.37 a = 30.43
70 2
100 3
120 6
150 16
180 41
200 79
2 78.5
5 113.8
10 135.8
20 157.8
50 186.1
70 2
83
100 4
150 16
200 75
5 113.0
10 137.0
20 159.0
50 189.0
m = 85 B = 38.95
100 3
120 5
150 72
5 123.0
10 141. 0
30 167.0
50 183.0
84
à 16.91 }, le résultat de la loi normal est à rejeter.
mm.
jusqu' seuil de 0.05. Pour ce qui est du test de kki-deux ,il est
possitif pour ces deux lois aux seuils respectifs de 0.01 et 0.05
avec 13 classes.
pas d'extrapolation.
85
CHAPITRE V: APPLICATIONS
tuellement en géomatique.
86
Ces problèmes sont de plusieurs ordres:
des couples photos, ceci par manque des courbes de niveau sur la
carte.
87
Compacité de Gravelus = 1.28
Dénivélée = 19 m
sement que sur des bassins dont la superficie est inférieure à 200
Paramètres de la méthode
auteurs.
carte des ishoyètes décénnales établies par les auteurs une pluie
88
décénnale de PlO = 145 mm.
Les écarts entre ces différentes valeurs résultent du fait que les
le temps de base, nous supposons une égalité entre ces deux temps.
89
2.5 0.7 0.145 315 10 6 0.2
= 66.61 m3/s
4000 60
res:
les auteurs.
de:
90
Q10 = 110 m3/s.
suivants:
moyen donné par les formules et non celui donné par les abaques.
3458
i = = 0.86 mm/h
4010 + 10
de notre zone d'étude (145 mm) étant plus grande que celle de Dakar
pour notre zone sera plus grande que celle de Dakar. D'où l'inten-
91
sité trouvée i= 0.86 mm/h doit être corrigée afin d'être utilisée
à:
145
ic = ---( 0.86)= 0.92 mm/h
135
Fuller sont irréalistes. Ils sont très faibles pour un bassin d'une
est trop grand pour cette méthode (toutes les conditions d'appli-
grandeur). Pour ce qui est de la méthode ORS TOM des auteurs ont
démontré qu'elle sous estime les débits des grands bassins. Dans
92
5.2 Bassin de sébikotane ( voir annexes
égale à 0.75.
93
peut prendre un coefficient de pointe a = 4.
Données nécessaires:
Avec Pan = 640 mm < 800 mm, le bassin se trouve dans la catégorie
P2 .
égal à:
donnent:
94
1- Q10 = 295 (84.5)°·653 (4)°·377 (640)-0.726 = 82.75 m3/s
et le temps de concentration: TB = Tc = 32 h .
Et puis nous supposons que les courbes IDF de Dakar sont valable
à 32 h est égale à:
3458
i = = 1. 79 mm/h
32 60 + 10
Le débit décénnal est:
95
CHAPITRE VI: CONCLUSION ET RECOMMANDATIONS
appliquer.
96
risque d'être faite d'une manière arbitraire. Il est délicat à
de terrain poussée.
versants expérimentaux.
méthodes.
97
l'écoulement hypodermique y contribue beaucoup.
98
ANNEXES
CARACTERISTIQUES DU BASSIN DE SEBIKOTANE
-_._.----------------
fHIE:S -
/
/
/
l
Il
N
/
f
"
- 99 -
,
BASSIN REPRESENTATIF d!LSE.lUK0TANE N° de Gode: SEN al
Etal ·.SENEOJJ. ... Baaain hydrographique ;p.A.HE...n OR..(Carn:R) r.nnrdonr,ée9 ( 14· 44 IL.
Nglon : VlIi\AiL . ::ious-bllssin .. ..lUM.t\l.)U~:;;:\~r; géographiques i . .17°.06 ..'f ..
,
1 - OBSERViA,TIONS tr MESURES EFFECTUEES
1
Nom . . . '.1 ....IÙAILC"...NIA1JIE... .a1'1:: - ':.l.f'E .
N" de code SEiL ù1 A 1 ..... 5EILOLB .
P'node de fonctionnement .. 1962 ..... 1962
Superllcle en km'. .. . 2.62 .. . 4} ..
indic. dl! compacité .. ...... 1.,22 . . .. 1.58 ..
long. du rectanqle équivalent en km 2.4- . :: 1.2,6
IIIdlcede pente lp. " .'pp ... O,l32p . .....0.010 .
indice de pente giouol Ig en m.km-I ...................10,8.. .. , -.4.4 .
AJtHudes en m. ,. .25 . 40. ......p.
Ot1entsllon aux vents dominants
- 100 -
BASSIN REPRESENTATIF de S E D l K 0 T. AN E. No de Code .... SEN O~ ..
3 - CLIMAT REGIONAL
aride"
Type de climat Tropic al varian te maritim e, appar-e nt.é au type "somi-
< . 3LOct . Station de référen ce: .. DJ\KAR,. .,TllIES..
Tempér atures en dsC .Jv., L 25 < T.
Jv., F 16 < TH < .. 2l~Jt."Âo(}t
Humidités relatives en % :( 85) < Ux < . ( 98) Evapora tion sur r. ....rich e ..
<U< .() 5)< ~< ... (70) variation mensuel le en rnrn.j". (2 . à .5)
Insolation moyenn e "nnuelle en heures: 3 000. total ennuel en mm : .. ......(1. 350) ..
PRECIPIT A.TIONS
Station de référenc e DAKAH- TIIII!:S
Type do> nluies : ÀVI:rse s.illl1J1" (intluw ,,,,,
Hauteur moyenn e annuelle en nun : 6hO (écart-t ype: 2CXJ .. . ) '"
.
0,
.
60- 50 '"
5. - VEGETATION
o
BASSIN REPRESENTATIF de SEBIKOTANE Il. du CGd, StN.01
6-CARTE DES SOLS
Source: Corh pédologiquc ou l/,uUûO"J.. CAP.-'lfRl
,
1
EchC'llt gpprollimahvc
r-- .---r===", i
2 l , 5km
SfN.'1170
o.hmlJona : tmponence en % :
SI Sols minéraux bruts ct'érosion Bur cuiras6a . felTallitiqu6 délœn....
t.olét: sur grès. 23/ -/21
S 2 Sols calcimorpheB"" renctz.ines - bruns calcaire8 - !lUi' calcaires
on plaquettes et lits de rnarnes 4/6/6
53 Sols ferl'wzineux tropicaux-non ou f'dU lessivés - "diora" sur
colluvions sablo argileuses ·221.,,/19
S. Sola ferrugineux tropicaux - non ou peu lessivés - "dioral/· sur
Mbl115 de tombolo 11./.,,/23----- ---.-
5 s Sols hydrCllU:lrphes à engol-gelWnt tempor.. i '''_:-"_~~,1:.~c.;!_r:.oir~~_
aarll611._e~ -.<J.l:<1l.res nnrœll Y 1'1: ::..:.llulIl.OIlB argilo-BaLJle\lsa~."
S 6 501:1. hyl1roroorphes à· engorgement tot.o.l et perw;af";uÎ, - Bur allu-
rions eab'lo-ar-g i Leusea , .1/-/-
""
102
REFERENCES BIBLIOGRAPHIQUES
et Centrale
Applications.
103
de la décénnie hydrologique
Afrique Occidentale.
Afrique centrale.
octobre 1984.
sahel.
1984-1985.
drainage urbains.
104
13- MICHEL D.J, JOUHET P, Les modèles déterministes de
transformation de précipitations en
page 558.
Ministère de la coopération et du
1981.
probabilités de crues.
Publishers
l'école
105
20- Plan National d'aménagements du teritoire projet
106
PROGRAMME DE CALCUL STATISTIQUE
Program statistique;
USes crt,printer;
TYPE
mat1=Array[1 .. 300l of real;
mat2=Array[1 •• 100l of real;
mat3=Array[1 •• SO, 1•• SOl of real;
mat4=Array[1 •• S0l of integer;
CONST
menO 'Faites votre choix';
men1 '1-Loi lognormale';
men2 '2-Loi normale';
men3 '3-Loi pearson type III';
men4 '4-Loi de gumbel ';
menS 'S-Loi de Frechet à deux parametres';
VAR
nbrane,menu,choix1 ,beta,bibi : integer;
moyenne,variance,ecartype,etendue,
coefvariat,standerror,coefaplat,
coefassymetrie,gumbel1,gumbel2,normale1,
normale2,lognormale1,lognormale2,
frechet1,frechet2,somme,tol,maxm,eul,seuil.
deux,zigma,valeur_max :real;
freFX,logFX,noFX,noFFX,guFX,euFX,
pearFX,FX,FFX,MPFFX,guq,freq,GFFX :extended;
pearson1,pearson2,euler,noq,
LPq,squx,squFX,valeur_min : real;
donmax,donmaxx,da,frequence,valeur,debit :mat2;
donane :mat3;
nbrjrs,nbos :mat4;
good,reponse char;
nom, region, climat, periode : string[80l;
Procedure Station;
begin
cl rscr;
gotoxy(S,2);
write('Nom de la Sation: ');
read l n( nom);
gotoxy(S,4);
write('région: ');
read l n( reg ion);
gotoxy(S,6);
write('Climat: ');
readln(cl imat);
gotoxy(S,8);
write('Période d enrégistrement: ' );
readln(periode);
end;
Procedure TRI;
var
i •comp : integer;
tampon :real;
begin
repeat
comp:=O;
for i:=1 to nbrane-1 do
if donmax[i]>donmax[i+1] then
begin
tampon:=donmax[i];
donmax[i] :=donmax[i+1];
donmax[i+1] :=tampon;
comp:=comp+1 ;
end;
until comp=O;
end;(*tri de l'échantillon*)
procedure gumbel12;
begin
gumbel1:=moyenne-O.450*ecartype;
gumbel2:=ecartype/1.28;
2
end;
3
begin
g1:=(ln(x)-trechetl)/trechet2;
g2:=exp(-g1);
FreFX:=exp(-g2);
end;(*repartition trechet*)
4
end;C*choix*)
Procedure continue;
var
5
q:char;
begin
gotoxy(5,24);
write('Appuez sur une touche pour continuer ');
readln(q);
end;
Procedure eulere;
VAR
some_t,pus, fin, somme1 real;
begin
some_t:=O;
pus:=3;
fin:=0.1 ;
simps2(fin,pus,tol);
Repeat
sOlTllle1:=somme;
simps2(fin,pus,tol);
some_t:=some_t+somme;
pus:=fin;
fin: =0.1*pus;
until abs(somme-somme1)<abs(tol*somme);
fin:=3;
pus:=3.1;
euler:=some_t;
simps2(fin,pus,tol);
euler:=euler+somme;
Repeat
soemel :=somme;
fin:=pus;
pus:=pus+0.5;
sirnps2(fin,pus,tol);
euler:=euler+somme;
until abs(somme-somme1)<abs(tol);
end;(*calcul de euler *)
6
repeat
squareF(x);
x:=x+O.5;
until squFX>fr;
deux:=x; write('deux=' ,deux); delay(1000);
continue;
end;(*calcul de la statistique khi-deux*)
7
repeat
sOlTl1le1:=sonme;
sup:=inf;
i nf: =0.1*sup;
simps2(inf,sup,tol);
sOlTl1le_t:=sonme_t+sonme;
until abs(sonme-sonme1)<abs(tol);
end;
3:begin
simps2(inf,sup,tol);
sOlTl1le_t:=sonme_t+sonme;
repeat
scnme1: =sonme;
sup:=inf;
inf:=0.1*sup;
simps2(inf,sup,tol);
somme_t:=sonme_t+sonme;
until abs(sonme-sonme1)<abs(tol);
end;
2:begin
simps2(fin,sup,tol);
sOlTl1le_t:=sonme_t+sonme;
repeat
somme1:=sonme;
sup:=fin;
fin:=sup-1;
simps2(fin,sup,tol);
somme t:=sonme t+sonme;
until-abs(sonm~-sonme1)<abs(tol);
end;
end; (*case*)
sonmet:=sonme_t;
anK:=abs(sonmet-1/n);
max:=anK;
inf:=m[ll ;
sup:=inf+2;
For j:=2 to n do
repeat
simps2(inf,sup,tol);
sonmet:=sonmet+sonme;
anK:=abs(sonmet-(j-1)/n);
if anK>max then
kIj l l :=anK;
r
max:=anK;
inf:=sup;
sup:=inf+2;
until sup>=m[jl;
inf:=m[1l;
sup:=m[nl;
simps2(inf,sup,tol);
K[nl:=abs(sonme-1);
for i:=1 to n do
if K[il>maxx then
maxx:=K[i] ;
maxm:=maxx; write(maxm); delay(1000);
end;(*statistique Kolm pour log,pearson*)
8
sup:=3;
case menu of
2: begin
simps2(fin,sup,tol);
some_t:=some_t+somme;
repeat
somme1:=somme;
sup:=fin;
fin:=sup-1;
simps2(fin,sup,tol);
some_t:=some_t+somme;
until abs(somme-somme1)<abs(tol);
end
else
begin
simps2(fin,sup,tol);
some_t:=some_t+somme;
repeat
somme1:=somme;
sup:=fin;
fin:=O.1*sup;
simps2(fin,sup,tol);
some_t:=some_t+somme;
until abs(somme-somme1)<abs(tol);
end;
end; (*case*)
fin:=3;
sup:= m[1];
i : =1 ;
For h:=1 to beta do
begin
alfa:=h/beta;
Repeat
simps2(fin,sup,tol);
somme_t:=some_t+somme;
i:=i+1;
sup:=m[i]; write( sup);
if i=n+1 then
begin
somme_t:=alfa;
nb[h]:=n;
end;
until somme_t>=alfa;
if i=2 then
nb[h]:=O
else
if i=n+1 then
nb[n]:=n
else
nb[h] :=i -2;
i:=nb[h];
end;
nbos[1]:=nb[1]; write('nobs=' ,nbos[1]);
for j:=2 to beta-1 do
begin
som:=O;
nbos [j] :=nb[j] -nb[j -1];
write('nbos =', nbos[j]);
for j:=1 to beta-1 do
som:=som+nbos[j];
nbos[beta] :=n-nb[beta-1]; write('nobs=' ,nbos[beta]);
continue;
end;
end;(*kolm-log-pearson*)
9
Procedure Calcul_x_GumbelCvar t: real);
var
hx1:real;
begin
hx1:=-lnC-lnC1-1/t»;
Guq:=gumbel2*hx1+gumbel1;
end;C*calcul de x connaissant frequence-gumbel*)
10
nbos[betal :=n-som;writeC'nbos=' .nbos[betal);
continue;
end;C* calcul de frequences empirique pour test de khi-deux*)
11
end;
end;
3:begin
for i:=l to bibi do
begin
mognormaleF_pearsonF(X[il );
frequence[il :=l/(l-MPFFX);
end;
end;
4:begin
for i:=l to bibi do
begin
gumbelF(x[il);
frequence[il :=ll(l-guFX);
end;
end;
5:begin
for i:= 1 to bibi do
begin
FrechetF(x[il );
frequence [i 1: =1 1( 1- FreFX);
end;
end;
end; (*case*)
end;(*calcul frequence connaissant x *)
12
for i:=1 to bibi do
begin
calcul_x_normale(t[i]);
debit[i]:=noq;
end;
end;
3:begin
for i:=1 to bibi do
begin
calcul_x_log_P(t[i]);
debit [i] :=lpq;
end;
end;
4:begin
for i:=1 to bibi do
begin
calcul_x_gumbel(t[i] );
debi t [i] : =guq;
end:
end:
5:begin
for i:=1 to bibi do
begin
calcul_x_Frechet(t[i] ):
debi t [il: =Freq:
end:
end:
end: (*case*)
end:(*calcul de l'evenement connaissance la recurence*)
Procedure test_kolmogorov:
var
kn: rea l:
begin
Clrscr:
gotoxy(3,2):
writeln('choisissez votre seuil de confiance
parmi les valeurs suivantes :'):
gotoxy(10,S):
writeln('pour le seuil de 0.1, taper: ');
gotoxy( 10,7):
writeln('pour le seuil de O.OS,taper: 2 ');
gotoxy(10,9):
writeln('pour le seuil de 0.01,taper: 3 '):
gotoxy(12,1S):
write('taper le numero du seuil choisi: '):
readln(reponse);
if nbrane>=41 then
begin
Case reponse of
'1':kn:=1.22/sqrt(nbrane):
'2':kn:=1.36/sqrt(nbrane):
'3':kn:=1.63/sqrt(nbrane):
end;
end
else
begin
gotoxy(10,17):
writeln('la taille de votre echantillon
inférieure à 41,entrer à partir'):
gotoxy(10,18):
write('de la table de kolmogorov,la valeur de la
statistique: '):
13
read( lm);
end;
Case menu of
1:Kolm log p(donmax,nbrane);
2:Kolm=log=p(donmax,nbrane);
3:kolm_log_p(donmax,nbrane);
4:kolm_gumbel_frechet(donmax,nbrane);
S:kolm_gumbel_frechet(donmax,nbrane);
end;
if rnaxm>kn then
begin
Clrscr;
gotoxy(S,S);
writeln('le test de kolmogorov-simirnov est négatif ');
gotoxy(7, 7);
writeln('la loi est à rejeter. ');
end
else
Begin
CLrscr;
gotoxy(S,S);
writeln(' le test de kolmogorov-simirnov est positif ');
gotoxy(7, 7);
writeln( 'la loi est acceptée. ');
end;
end;(*test de kolmogorov-simirnov*)
Procedure Affichage_parametres;
begin
CLRSCR;
gotoxy(2,2);
writeln('Les parametres de l echantillon sont :');
gotoxy(6,4);
write('Moyenne: ');
writeln(moyenne:S:O);
gotoxy(6,6);
write('Etendue: ');
writeln(etendue:S:O);
gotoxy(6,8);
write('Valeur maximale: ');
writeln(valeur_max:S:1);
gotoxy(6, 10);
write( 'Valeur minimale: ');
writeln(valeur_min:S:1);
gotoxy(6,12);
write('Variance: ');
writeln(variance:S:2);
gotoxy(6,14);
write('Ecartype: ');
writeln(ecartype:S:2);
gotoxy(6,16);
write( 'Erreur standard: ');
writeln(standerror:S:2);
gotoxy(6,18);
write('coefficient de variation: ');
writeln(coefvariat:S:2);
gotoxy(6,20);
write('coefficient d_assymetrie: ');
writeln(coefassymetrie:S:2);
gotoxy(6,22);
write('coefficient d_applatissement: ');
writeln(coefaplat:S:2);
end;(*affichage parametres de l'echantillon*)
14
begin
Clrscr;
Case menu of
1:begin
lognormale12(donmax,nbrane);
gotoxy(5,2);
writeln('Les parametres de la loi lognormale sont:');
gotoxy(10,4);
write('lognormale1 = ');
writeln(lognormale1:3:2);
gotoxy(10,6);
write('lognormale2 = ');
writeln(lognormale2:3:2);
end;
2:begin
gotoxy(5,2);
writeln('Les parametres de la loi normale sont:');
gotoxy(10,4);
write('~ = ');
writeln(moyenne:3:0);
gotoxy(10,6);
write('o = 1);
writeln(ecartype:3:2);
end;
3:begin
pearson12;
gotoxy(5,2);
writeln('Les parametres de la loi pearson III sont:');
gotoxy(10,4);
write('pearson1 = ');
writeln(pearson1:3:2);
gotoxy(10,6);
write('pearson2 = ');
writeln(pearson2:3:2);
end;
4:begin
gumbel12;
gotoxy(5,2);
write('les parametres de la loi Gumbel sont: ');
gotoxy(10,4);
write('gumbel1 = ');
write(gumbel1:3:2);
gotoxy(10,6);
write('gumbel2 = ');
write(gumbel2:3:2);
end;
5:begin
Frechet12(donmax,nbrane);
gotoxy(5,2);
writeln('Les parametres de la loi de Fechet sont:');
gotoxy(10,4);
write('frechet1 = ');
writeln(frechet1:3:2);
gotoxy(10,6);
write('Frechet2 = ');
writeln(frechet2:3:2);
end;
end; (*case*)
end;(*affichage des parametres des lois*)
procedure Affichage_menu;
begin
Clrscr;
gotoxy(5,2);
writeln(menO);
15
gotoxy(1 0,5);
writeLnCmen1);
gotoxyC10.7);
writeLnC men2);
gotoxYC10,9);
writeLnCmen3);
gotoxYC10,11);
writeLnCmen4);
gotoxyC 10, 13);
writeLnCmen5);
gotoxyC 15. 17);
writeC 'Tapez Le numrero de votre choix: ');
readLnCmenu);
end;C*affichage du menu*)
Procedure InitiaLisation;
VAR
i , j: integer;
begin
nbrane:=O;menu:=O; moyenne:=O;variance:=O;ecartype:=O;
etendue:=O;standerror:=O;coefvariat:=O;coefassymetrie:=O;
coefapLat:=0;gumbeL1:=0;gumbe~2:=0;frechet1:=0;frechet2:=0;
LognormaLe1:=0;LognormaLe2:=0;pearson1:=0;pearson2:=0;euLer:=O;
frefx:=O;Logfx:=O;nofx:=O;noffx:=O;gufx:=O;eufx:=O;pearfx:=O;
fx:=O;ffx:=O;mpffx:=O;guq:=O;freq:=O;gffx:=O;
noq:=O;Lpq:=O;somme:=O;toL:=O;maxm:=O;
For i:=1 to 100 do
begin
donmax [i] : =0;
donmaxx [i] : =0;
end;
For j:=1 to 50 do
nbos [j] :=0;
end;C*initiaLisation des variabLes*)
Procedure Lecture;
Var
i : integer;
verite:char;
Begin
Repeat
CLrscr;
gotoxYC5,5);
writeC'Entrer La taiLLe de votre echantiLLon 1);
readLnCnbrane);
gotoxyC 5,8);
write('Entrer La toLerance pour Le caLcuL d_integraL ');
readLn( tot
ï ,
16
write('donmax[', i , ']= ');
readln(donmax[i]);
end;
write('Desirez-vous corriger vos donnees,o/n ,
si oui tapez 0 : ');
readln(veri te);
until verite<>'o';
end;(* saisi des données de l'échantillon*)
Procedure affichage_tri;
Var
i: integer;
begin
Clrscr;
for i:=1 to nbrane do
begin
gotoxy(5,4+i );
write(donmax[i] :4:0);
end;
end;(*affichage de l'échantillon ordonné*)
Proce<kJre test_khi_deux;
Var
i,p :integer;
khi , h : rea l ;
begin
clrscr;
kh i :=0;
gotoxy(5,2);
write('Entrez votre seuil de confiance ');
readln(seuil);
h:=trunc(nbrane/5);
gotoxy(5,8);
write('Entrer un nombre de classe compris
entre 3 et' , h:2:0 );
readln(beta);
case menu of
1:khi11_log_pearson(beta,nbrane,donmax);
2:khi11_log_pearson(beta,nbrane,donmax);
3:khi11_log_pearson(beta,nbrane,donmax);
4:khi11_gumbel_frechet(beta,nbrane,donmax);
5:khi11_gumbel_frechet(beta,nbrane,donmax);
end; (*case*)
for i:=1 to beta do
khi:=khi+SQR(nbos[i]-nbrane/beta)/(nbrane/beta);
write('khi=' ,khi); delay(1000);
p:=menu;menu:=7;
eulere;eul:=euler;
menu: =6;
calcul_square(seuil);
menu:=p;
if khi<deux then
begin
clrscr;
gotoxy(5,10);
write('le test de khi-deux pour cette loi est possitif');
gotoxy(10,12);
write('La loi est acceptée ');
end
else
begin
clrscr;
gotoxy(5,10);
write('Le test de khi-deux pour cette loi est négatif ');
gotoxy(10,12);
17
write('La loi est à rejeter ');
end;
end;(*test de khi-deux*)
Procedure Affichage_x_frequence;
var
i: integer;
begin
CASE choix1 of
1:begin
gotoxy(10,2);
write('RESULTAT ');
gotoxy(5,5);
writeln('débit periode de retour ');
for i:=1 to bibi do
begin
gotoxy(5,6+i);
write(valeur[iJ :4:1,' ',frequence[iJ :3:0);
end;
end;
2:begin
gotoxy(10,2);
write('RESULTAT');
gotoxy(5,5);
writeln('période de retour débit' );
for i:=1 to bibi do
begin
gotoxy(8,6+i);
write(valeur[iJ :3:0,' 1 ,debit[iJ :4:1);
end;
end;
end; (*case*)
end;(*affichage des résultats de
calcul de période de retour*)
Procedure choix_de_test;
VAR
choix,i:integer;
ch:char;
begin
repeat
Clrscr;
gotoxy(10,5);
writeln('Faites votre choix de test: ');
gotoxy(10,8);
writeln('1-test de kolmgorov-simirnov');
gotoxy( 10, 10);
writeln('2-test de khi deux');
gotoxy(10,12);
write('3-Calcul d_une période de retour ou d_un débit ');
gotoxy(12,15);
write('Taper le numero correspondant à votre choix: ');
readln(choix);
case choix of
1:test_kolmogorov;
2:test khi deux;
3:begin -
cl rscr;
gotoxy(10,5);
write('Faites votre choix :');
gotoxy(12,8);
write('1-Calcul de la periode de retour ');
gotoxy(12,10);
write('2-Calcul du débit connaissant la
periode de retour');
18
gotoxy(14,15);
write('Taper le numéro correspondant à votre choix: ');
readln(choix1);
Clrscr;
write('entrer le nombre d_evenements à calculer:'
readln(bibi) ;
cl rscr;
Writeln('Entrer les periodes de
retour ou les débi ts sui vant le cas: ' );
for i:=1 to bibi do
begin
write( 'valeur[', i, ']= ');
readln(valeur[i]);
end;
calcul_x_frequence(valeur);
clrscr;
affichage_x_frequence;
end;
end; (*case*)
gotoxy( 10,20);
writeln('Voulez vous faire essayer le second test?o/n');
write('si oui taper 0 : ');
readln(ch);
unti l ch<>'o';
end;(* choix du test et calcul de période de retour*)
BEGIN
Initialisation;
station;
lecture;
tri;
Affichage_tri;
continue;
Means(donmax,nbrane);
Affichage_parametres;
continue;
repeat
affichage_menu;
affichage_para_de_loi;
continue;
choix de test;
write('voulez vous assayer une autre loi? oln
si oui taper 0: ');
read(good);
until good<>'o';
END.
19
PROGRAMME DE CACUl DES CARACTERISTIQUES DU BASSINS
Program TEMCOMP;
Uses Crt,printer,dos;
CONST
r;
Resultat='Différents temps de concentration ,
Unite='minutes';
VAR
temps_ventura,temps_passini,temps_Kirpich,temps_Giandotti,
surface, pente,longueur,denivele,vitesse,temps,perimetre,
somme_cours,indice_Horton,indice_Gravelus,indice_miller,
densite_drainage, longueur_rect,largeur_rect,
indice~nte :real;
q :char;
Procedure initialisation;
begin
temps:=O;surface:=O;longueur:=O;denivele:=O;
pente:=O;
vitesse:=O;
end;(*initialisation*)
Procedure SAISI;
Var
reponse :char;
begin
Repeat
Clrscr;
Gotoxy(10,5);
write('Donner la surface du bassin (en km2): ');
readln(surface);
gotoxy(10,7);
write('Donner la longueur du cours d_eau principal (km): ');
readln(longueur);
gotoxy( 10, 9);
write('Donner la dénivélée du bassin (en m): ');
readln(denivele);
gotoxy( 10, 11) ;
write('Donner la pente (en %) si vous avez,sinon taper 0 :');
readln(pente);
gotoxy(10, 13);
write('Donner le perimetre du bassin en (km): ');
readln(perimetre);
gotoxy(10,15);
write('Donner la somme totale des longueurs des cours d_eau:');
readln(somme_cours);
gotoxy( 15,19);
write('Voulez-vous faire des corections? o/n ');
readln(reponse);
until reponse<>'o';
end;(*saisi*)
20
Procedure Gravelus(Var s,p:real);
Begin
indice_gravelus:=0.28*p/sqrt(s);
end;
Procedure indice_global;
begin
indice_pente:= denivele/longueur_rect;
end;
21
End;(*FormuLe de Giandotti*>
Procedure Affichage1;
Begin
CLrscr;
Gotoxy(S,S>;
write(resuLtat>;
gotoxy(7,8>;
write('La formuLe de Ventura donne un temps de:,
temps_ventura:S:O>;
writeLn(unite:8>;
gotoxy(7,10>;
write('La formuLe de Passini donne un temps de .,
temps-Passini:S:O>;
writeLn(unite:8>;
gotoxy(7, 12>;
write('La formuLe de Kirpich donne un temps de:',
temps_Kirpich:S:O>;
writeLn(unite:8>;
gotoxy(7, 14>;
write('La formuLe de Giandotti donne un temps de:',
temps_giandotti:S:O>;
writeLn(unite:8>;
End;(*affichage*>
Procedure Affichage2;
Begin
CL rscr;
GOToxy(S,S>;
write(' Paramétres du bassin versant: '>;
gotoxy(7,8>;
Write('Surface du bassin en km2 ',surface:S:1>;
gotoxy(7, 10>;
write('Compacité de GraveLus ',indice_graveLus:3:2>;
gotoxy(7, 12>;
write('Compacité de Horton ',indice_horton:3:2>;
gotoxy(7, 14>;
write('Compacité de MiLLer ',indice_miLLer:3:2>;
gotoxy(7, 16>;
write('Longueur du rectangLe équivaLent en
km.',Longueur_rect:4:1>;
gotoxy(7,18>;
write('Largeur du rectangLe équivaLent en
km', Largeur_rect:4:1>;
gotoxy(7,20>;
write('lndice de pente gLobal Ig en
m.km-1',indice_pente:4:2>;
gotoxy(7,22>;
write('DénivéLée en ',deniveLe:4:1>;
gotoxy( 7,24>;
write('Densité de drainage en km/km2. ',densite_drainage:4:2>;
End;
BEGIN
initialisation;
saisi;
ventura(surface,Longueur,deniveLe,pente>;
Passini(surface,Longueur,deniveLe,pente>;
Kirpich(longueur,deniveLe>;
Giandotti(surface,Longueur,deniveLe>;
Horton(surface,Longueur>;
Gravelus(surface,perimetre>;
MiLLer(surface,perimetre>;
densite(surface,somme_cours>;
rectangle(surface>;
22
i ndi ce_g loba l;
affichage2;delay(1000>;
gotoxy(5,25>;
write('Appuyer sur une touche pour continuer '>;
read(q>;
aft i chage1;
END.
23