chunk_104.json•1.5 kB
{
"id": "chunk_104",
"text": "60 IF SORTI•2 THEN GOSUB 9560 ' Ecriture Tableaux \n477\n0 \nADI•O:AD2•D2:E1-DI \n47\n80 IF ELU<l.l AND IPIEU>O AND AD2>D10 THEN AD2·D10 \n47\n90 GOSUB 5350 . , \n48\noo JZ-8 ' Section Entierement Tendue Pivot I A \n810 \nIF JMPR<3 AND SORTI-2 THEN PRINT:PRJNT\"Sect::on Entierement Tendue Pivot 1'A' \n!\n82\no IF JMPR> I AND SORTI-2 THEN LPRINT:LPRINT'Section Entierement Tendue Pivot I 'A\" \n4\n830 \nIF SORTI•2 THEN GOSUB 9560 ' Ecriture Tableaux \n484\no AD1•DI:AD2•0:EI·DI \n48\n50 \nGOSUB 5420 \n--------\n4860RETURN \n4870REM \n4880 REM Etude des Differents Pivots \n4890 REM Pivot lA ---\n4900 AD3-CAD2-ADI)/N9 \n4910 FOR JI•O TO N9 \n4920 EI•ADI+JI\"AD3 \n4930 GOSUB 7390 '(Beton) + Acier Tendus \n4940 NEXT Jl \n4950RETURN \n4960 \nREM Pivot lB --\n4970 AD3=CAD2-ADI)/N9 \n4980 FOR Jl• NO TO N9 \n4990 EI•JI\"AD3+ADI \n5000 GOSUB 7390 'Beton + Acier Tendus \n5010 NEXT Jl \n5020RETURN \n5030 REM Pivot 2 --\n5040 AD3•(AD2-AD I)/N9 \n5050 FOR JI•NO TO N9 \n5060 E2-Jl'AD3+ADI \n5070 IF E2>D8 THEN EI=(E2-D5)/V1K+D5 \n5080 GOSUB 7390 'Beton+ Aciers Tendus \n5090 NEXT Jl \n5100 RETURN",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 104,
"line_start": 3326,
"line_end": 3375,
"has_formulas": false,
"has_tables": false
}
}