chunk_109.json•1.47 kB
{
"id": "chunk_109",
"text": "E2•Dl:AD1•0:AD2~D2 \n6250 IF ELU<1.1 AND IPIEU>O AND AD2>D7 THEN AD2•D7 \n6260 GOTO 6290 \n6270 \nAD2•D2\"(l-D(N6)/HT):E1• D2:AD1•Dl :GOTO 6290 \n6280 AD2•D5:AD1•0 \n6290 KN2--1 \n6300 ON IPZ GOTO 6310,6320,6330,6340 \n6310 GOSUB 4890:GOTO 6350 \n6320 \nGOSUB 4960:GOTO 6350 \n6330 GOSUB 5030:GOTO 6350 \n6340 GOSUB 5110 \n6350 FOR J2• 1 TO N9 \n6360 J3- J2 \n6370 IF LN(ICM)<TN(J2,1) THEN 6390 \n6380 NEXT \nJ2 \n6390 U1• TN(J3,1):U2• 1M(J3.1):W4• TW(J3,1) \n6400 IF ABS(U1-LN(ICM))<PRN THEN RN•Ul:MSUP•U2:GOTO 6440 \n6410 J4- J3- l \n6420 ADl•ADl +J4\"AD3:AD2•AD1 +AD3 \n6430 GOTO 6290 \n6440 \nREM Cas Pivots l'A, l'B. 2', 3' M oment Minimum \n6450 K1- 2:KN2•-1 \n6460 IZ•7:E2• 0:E1•D1:GOSUB 7390 \n397 \n\n6470 IF LN(!CM)<FI THEN IPZ•8:GOTO 6560 \n6480 IZ•7:E2•D2:E1•D1 \n6490 IF ELU<l.l AND IPIEU>O AND E2>D10 THEN E2• D10 \n6500 GOSUB 7390 \n6510 IF LN(ICM)<Fl THEN IPZ• 7:GOTO 6560 \n6520 IZ• 5:EI•O:IPZ•IZ \n6530 E2• D5+AT7 / (lfr-AT7)\"(D5-EI) \n6540 GOSUB 7390 \n6550 IF LN(ICM)<FI THEN IPZ• 6 \n6560 KN2•-I :IZ•IPZ",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 109,
"line_start": 3524,
"line_end": 3562,
"has_formulas": false,
"has_tables": false
}
}