chunk_106.json•1.51 kB
{
"id": "chunk_106",
"text": "5430 AD3-(AD2-AD1)/N9 \n5440 FOR Jl•N9-NO TO 0 STEP -1 \n5450 E2•ADl+J l \"AD3 \n5460 GOSUB 7390 ' Beton + Acier Tendus \n5470 NEXT Jl \n5480RETURN \n5490 \nREMI----\n5500 REM Aciers et Beton Entierement Comprimes \n5510 IF IZ<4 OR IZ>5 THEN 5660 \n5520 \nFl• O:F2• 0 \n5530 FOR 16• 1 TO N6 \n5540 U2• D(I6) \n5550 E4•E1 +(E2-EltU2/ HT \n5560 \nGOSUB 8070 ' Sigma s \n5570 F1•Fl +F4\"£(16) \n5580 F2• F2+F4\"E(I6tD(I6) \n5590 N£XTI6 \n5600 X2• HT:GOSUB 7550 \n5610 \nIF E1•E2 THEN W4• 999.99:GOTO 5640 \n5620 \nIF E1 <E2 THEN W4•E2\"HT/(E2-E1):GOTO 5640 \n5630 \nIF E1>E2 THEN W4• E1\"HT/(E1-E2) \n5640 IF BP>O THEN GOSUB 6960 'Colcul des Sollicitations dues a Ia Precxmtrainte \n5650 GOSUB 8000 \n5660RETURN \n5670REM \n5680 REM Determination des Aciers en Section Circulaire \n5690 PHIA•PHIP-2\"ENR \n5700 DAL• 2\"PI/N6:D(l)•ENR \n5710 FOR I • I TO N6:E(I)•AIRA:NEXT I \n5720 FOR 1• 2 TO N6/ 2 \n5730 ALP·(l-IYDAL \n5740 D(I)• ENR+PHIA/2\"(1-GOS(ALP)) \n5750 \nIl•N6/2+1-1 \n5760 D(ll)• D(I) \n5770 NEXT! \n5780 FOR 17•1 TO N6:DIT(17)•DIAC:NEXT 17 \n5790 D(N6)•PHIP-ENR \n5800RETURN",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 106,
"line_start": 3413,
"line_end": 3457,
"has_formulas": false,
"has_tables": false
}
}