pfe.gc.0231
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
10 REM CALCUL D'EPAISSEUR DE CHAUSSEE<br />
20 REM METHODE DE W. J. LIDDLE<br />
30 REM<br />
40 REM ,DEFINITION DES VARIABLES<br />
50 REM<br />
60 REM SN "indice d'epaisseur" Pt "indice de viabilite terminale"<br />
70 REM R "facteur regional" W"trafic equivalent en essieu standard"<br />
80 REM AI "coeff. d'equivalence pour revetement en beton bitumineux"<br />
A2 "coeff. d'equivalence pour couche de base en graves naturelles"<br />
A3 "coeff. d'equivalence pour couche de fondation en graves sableuses"<br />
90<br />
100<br />
lOS<br />
110<br />
115<br />
120<br />
125<br />
1·3(1<br />
135<br />
140<br />
145<br />
ISO<br />
160<br />
170<br />
180<br />
190<br />
200<br />
210<br />
220<br />
230<br />
240<br />
250<br />
260<br />
270<br />
280<br />
290<br />
300<br />
310<br />
320<br />
330<br />
340<br />
350<br />
360<br />
370<br />
. 380<br />
390<br />
400<br />
410<br />
420<br />
REM<br />
REM<br />
REM<br />
REM<br />
REM<br />
1<br />
PRINT<br />
PRINT<br />
PRINT<br />
PRINT<br />
PRINT<br />
PRINT<br />
PRINT<br />
PRINT<br />
PRINT<br />
PRINT<br />
PRINT<br />
INPUT<br />
INITIALISATION<br />
1 = 0<br />
SN 1 = • 1 : SN2 =.1 : SN3 = .1<br />
"Donner la valeur du trafic equivalent<br />
INPUT<br />
INPUT "Donner l'indice de portance de la couche de base<br />
INPUT "Donner l'indice de portance de la fondation<br />
INPUT "Donner l'indice de portance du sol support<br />
INPUT "Donner le coeff. d'equiv. pour beton bitumineux<br />
INPUT "Donner le coeff. d'equiv. pour couche de base<br />
INPUT "Donner le coeff. d'equiv. pour fondation<br />
INPUT "Donner l'indice de viabilite terminale<br />
INPUT "Donner le facteur regional<br />
X = SNI : Y = SI : GOSUB 1000<br />
IF<br />
W1 = A<br />
WI8 > WI THEN SNI = SNI +.1 GOTO 170<br />
X = SN2 : Y = S2 : GOSUB 1000<br />
W2 = A<br />
IF WI8 > W2 THEN SN2 = SN2 +.1 GOTO 200<br />
X = SN3: Y = S3 : GOSUB 1000<br />
W3 = A<br />
IF W18 > W3 THEN SN3 = SN3 +.1 GOTO 230<br />
AFFICHAGE DES<br />
RESULTATS<br />
= 1 + 1<br />
TAB(15l "***** VOICI LES RESULTATS DU DESIGN *****"<br />
TAB(25) " CHAUSSEE NO. " ; 1<br />
WI8<br />
Si 1<br />
Si2<br />
Si3<br />
AI<br />
A2<br />
A3<br />
Pt<br />
R<br />
DI = SNI/AI D2 = (SN2-SNll/A2 : D3 = (SN3-(SNI+SN2l)/A3<br />
TAB(25l "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"<br />
TAB(25l " Epaisseur du revetement DI = " ; DI<br />
TAB(25)<br />
u<br />
Epaisseur de la couche de base D2 = " ;D2<br />
TAB(25) " Epaisseur de la fondati on D3 = " ;D3<br />
".,<br />
WI8<br />
". SI<br />
". S2<br />
". S3<br />
".,<br />
AI<br />
".,<br />
A2<br />
".,<br />
A3<br />
".,<br />
PT<br />
".,<br />
R<br />
TAB(25) "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"<br />
"Taper 0 pour fair le design d'une autre chaussee si non une autre to<br />
uche ";0$<br />
430<br />
440<br />
1000<br />
lOlO<br />
1020<br />
1030<br />
1040<br />
1050<br />
1060<br />
1070<br />
1080<br />
IF(O$<br />
END<br />
= "0" OR 0$ = "0"<br />
) THEN GOTO 120<br />
REM SOUS PROGRAMME<br />
Xl = X+I : YI = Y-3 : X2 = XI A5.19<br />
'ASMI = 4.065*LOG(Xll<br />
ASM2 = .4343*LOG(4.2-PTl/2.7)<br />
ASM3 = .4 + 1094/X2<br />
ASM4 = .372*YI-.4343*LOG(RI<br />
B = ASMI + ASM2/ASM3 + ASM4 -.2<br />
A = llYB<br />
RETURN
Change language