chunk_67.json•1.49 kB
{
"id": "chunk_67",
"text": "2050 IF 18•MM THEN 2090 \n2060 \nFOR K8•!8+ 1 TO MM \n2070 A(I8,MM+ l)•A(I8,MM+ 1}-A(I8.K8)\"A(K8,MM+ 1) \n2080NEXTK8 \n2090NEXTI8 \n2100 RETURN \n2110 REM------------\n2120 REM Ecriture du Titre \n2130 IF IPE>2 THEN 2170 \n2140 PRINT:PRINT' Cote Fleche Rotat. Moment Eff.Tr. Contr.Sol\" \n2150 PRINT\" m mm rd/1000 kNm kN kPa\" \n2160 \nPRINT \n2170 IF IPE<2 THEN 2210 \n2180 \nLPRINT:LPRINT' Cote Fleche Rotat. Moment Eff.Tr. Contr.Sol\" \n2190 LPRINT\" m mm rd/1000 kNm kN kPa\" \n2200 \nLPRINT \n2210 RETURN \n2220 REM----\n2230 REM Ecriture des Resultats ala Cote Absolue X2, Relative XI \n2240 UH•O:BE= 1 :MTl•O:VTl•O:J2•MM+ 1 \n2250 \nFOR IC•l TO NC · Recherche du No de Couche \n2260 UH=UH+HC(IC) \n2270 IF UH>X2 THEN IND· IC:GOTO 2290 \n2280 \nNEXTIC \n2290 Kl•KC(IND) \n2300 Xl=X2-UH+HC(IND):Ll•Xl 'Cote Relative \n2310 LA=(Kl\"B/4ii/D)A.25# \n2320 REM Colcul dey, y', M, V. Sigma a Ia Cote XI \n2330 Ul·EXP(LA\"Ll):U2•COS(LA\"Ll):U3- SIN(LA\"Ll) \n2340 \nFOR !1•1 TO 4 \n2350 IF !1 >2 THEN UD•2\"D ELSE UD· l \n2360 \nW(ll)•O: Jl•l \n2370 IF!l• l THENGOSUB 1310 'Fleche",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 67,
"line_start": 2092,
"line_end": 2132,
"has_formulas": false,
"has_tables": false
}
}