chunk_114.json•1.45 kB
{
"id": "chunk_114",
"text": "7590 IF IZ-4 OR IZ- 5 THEN X8•X7 \n399 \n\n7600 GOSUB 7180 'Largeur Beton-B3 pour Protondeur X8 \n7610 IF Kl• l TifEN EUl=El ElSE EUl•E2 \n7620 IF IZ- 4 OR IZ-5 TifEN E3•El +(E2-El)\"X7/HT:GOTO 7640 \n7630 E3=EU1.X7/X2 \n7640 GOSUB 7780 'Contrainte Beton-F3 \n7650 U1• B3.F3 \n7660 Y(ll)•\nU1 \n7670 Z(IJ)-u1·x8 \n7680 NEXTll \n7690L9=X2 \n7700 \nGOSUB 7310 'Simpson \n7710F1=F1+Ul \n7720 \nFOR 19=0 TO N8:Y(I9)=Z(I9):NEXT 19 \n7730 GOSUB 7310 'Simpson \n7740 F2=F2+U1 \n7750 \nIF IZ=4 OR IZ• 5 TifEN 7770 \n7760 GOSUB 7850 'Aciers Tendus \n7770RETURN \n7780 REM---------------------\n7790 REM Contrainte Beton \n7800 IF ELU<l.l TifEN F3=E3.E9/H5:GOTO 7840 \n7810 F3=F9 \n7820 \nIF E3> .002 TifEN 7840 \n7830 F3=F9.(1-(E3j.002-I )A2) \n7840 RETURN \n7850 REM-------------------------\n7860 REM Aciers Tendus \n7870 IF K1=1 TifEN V4• D(N6) ElSE V4=HT-0(1) \n7880 FOR 113=1 \nTO N6 \n7890 IF Kl=l TIIEN V3=0(113) ElSE V3=0(113)-D(I) \n7900 E4=EI +(E2-E1)\"V3/V4 \n7910 \nGOSUB 8070 \n7920 UO•F4.E(II3) \n7930 F1=F1+UO \n7940 \nF2=F2+uo·D<n3) \n7950 \nNEXT Il3",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 114,
"line_start": 3706,
"line_end": 3753,
"has_formulas": false,
"has_tables": false
}
}