pfe.gc.0231
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
10 REM<br />
20 REM<br />
25 REM<br />
30 REt1<br />
35 REM<br />
40 REM<br />
50 REM<br />
60 RH!<br />
70 REI1<br />
80 RHl<br />
90 REM<br />
100 INPUT<br />
105 DIM<br />
110 PRIIH<br />
CALCUL D'EPAISSEUR DE CHAUSSEE<br />
METHODE DU P.C.A. (Portland Cement Association)<br />
DEFINITION DES<br />
VARIABLES<br />
MR. Module de rupture du beton<br />
K. Module de reaction du support de la dalle<br />
FSC. Facteur de securite<br />
TRAFIC<br />
"combien de classe de charges disposez-vous? "; N<br />
PIN) : DIM NP(N) :DIM NAIN) : DIM DOM(N): DIM CIN)<br />
"Pour chaque classe de charges donner la limite superiore<br />
et sa frequence"<br />
120 FOR 1=1 TO 1'1<br />
130 INPUT "tHARGE Cli) ";CII) "FREQUENCE NPli) = ";NPIII<br />
140 NEXT 1<br />
150 REM<br />
160 PRINT "Autres caracteristiques a entrer"<br />
165 PRINT<br />
170 INPUT "Module de rupture du beton MR ";MR<br />
175 INPUT "Module de reaction , ameliore au besion (voir le tableau 1 et 2)";K<br />
IBO PRINT<br />
IB5 PRINT "Choisir le facteur de securite approprie"<br />
190 PRINT" 1.0 pour trafic de camions faible"<br />
195 PRINT" 1.1 pour trafic de camions moyen"<br />
200 PRINT" 1.2 pour trafic de camions eleve "<br />
205 PRINT<br />
210 INPUT "entrer la valeur retenue de FSC ";FSC<br />
214 REM<br />
215 REM CALCUL D'EPAISSEUR<br />
220 REM<br />
230 INPUT "choisir une epaisseur d'essai ";E<br />
235 FOR 1 = 1 TON<br />
240 P = Cil): P = PHSC : P (1) = P<br />
241 PRINT "voir fig.7 et 8 lire les efforts induits dans la dalle"<br />
242 FOR 1 = ! TO 1'1<br />
243 PRINT<br />
244 PRINT<br />
245 PRINT<br />
246 PRINT<br />
247 INPUT<br />
250<br />
251 NEXT 1<br />
" Pour une charge de P = " ; P ( 1)<br />
u<br />
Pour un module K = Il ;K<br />
" Pour une epaisseur d'essai de E " Il; E<br />
" Entrer 1a contrainte 1 ue t ( i ) " " ; Til )<br />
T = Til ) RI 1) = T/MR<br />
252 FOR 1 =! TO 1'1<br />
253 IF R(I) ).5 GOTO 260<br />
254 DOI1