14.02.2017 Views

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!