chunk_113.json•1.44 kB
{
"id": "chunk_113",
"text": "7360 \nNEXTI9 \n7370 UI•UI'L9/3/N8 \n7380 RETURN \n7390REM---\n7400 REM Betons en Section Partiellement Tendue \n7410 IF KL<3 THEN 7500 \n7420 IF lZ-2 AND KL-3 AND Kl•l THEN GOSUB 2100:GOTO 7460 'Calcul de E2 en Ciasse 3 \n7 \n430 IF IZ- 3 AND KL• 3 AND K 1• 1 THEN 7 440 ELSE GOTO 7 460 \n7440 \nE21•E2:GOSUB 2100 \n7450 \nIF E2<E21 THEN E2-E2I \n7460 IF IZ•7 AND KL- 3 AND K1•2 THEN GOSUB 2200:GOTO 7500' Calcul de El en Classe 3 \n7470 IF IZ-6 AND KL• 3 AND K1•2 THEN 7480 ELSE GOTO 7500 \n7480 E21•E1:GOSUB 2200 \n7490 IF E1<E21 THEN E1-E21 \n7500 IF IZ•4 OR IZ-5 THEN GOSUB 5490:GOTO 7770 \n7510 FI•O:F2• 0 \n7520 IF IZ-1 OR IZ• 8 THEN 7760 \n7530 IF EI•E2 THEN X2•JIT:GOTO 7560 \n7540 \nIF Kl-1 THEN X2•D(N6)'E1/(E1-E2) ELSE X2•(liT-D(l))'E2/(E2-EI) \n7550 \nIF X2• 0 THEN 7760 \n7560 \nFOR 11•0 TO N8 \n7570 X7•1ljN8'X2 \n7580 IF Kl-2 THEN X8•liT+X7-X2 ELSE X8-X2-X7 \n7590 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",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 113,
"line_start": 3676,
"line_end": 3710,
"has_formulas": false,
"has_tables": false
}
}