chunk_112.json•1.52 kB
{
"id": "chunk_112",
"text": "*****·*** \n*****·*** \n*****·*** \n**'**·*** \n*****·*** \nIF E1>•0 AND E2>•0 THEN UH•liT \n7030 \nDS2•-El-(E2-E1)'DP(Il3)/UH \n7040 U7•AP<ll3)'(G6+DS2'EIO'CPS) \n~: IF ELU>l.l THEN 7100 \nFl•Fl-U7 \n707\n° F2•F2-U7'DP(ll3) \n7\n080 \nGOTO 7160 \n7090 \nGOSUB 8420 · Deformation Acler Q6 pour Contlainte G6 \n~~~ IF ABS(DS2)>.01 THEN DS2-.01'SGN(DS2) \n0 E4• Q6+DS2 \n~ ~~O GOSUB 8170 · Contrainte Acie r F4 pour une Deformatio n E4 \n7140 \nFl•Fl-AP<Il3)'F4 \n71 \nSO F2• F2-AP(l13)'F4'DP(l13) \n71\n60 ~Tl13 \n7170 RIITURN \n7180 REM -------\n7190 REM Largeur B3 de la Section a Ia Profondeur X8 \n7200 IF X8>•PHIP THEN B3~0:GOTO 7220 \n7210 \nIF PHIP>O THEN B3• 2'SQR(X8'(PHIP-X8)):GOTO 7300 \n7220 Ul- 0 \n7230 \nFOR 112-1 TO N7 \n7240 UI• U1+C(ll2) \n7250 \nIF X8>U1 THEN 7290 \n7260 U2•U1-C(l12) \n7270 \nB3· A(ll2)+(B(ll2)-A(ll2))'(X8-U2)/ C<ll2) \n7280 GOTO 7 300 \n7290 NEXT 112 \n7300RETURN \n7310REM\n-------------------------\n7320 REM Simpson \n7330 U1•Y(N8)-Y(0) \n7340 \nFOR 19•1 TO N8 STEP 2 \n7350 U1• UI+4'Y(I9)+2'Y(I9-l) \n7360 \nNEXTI9 \n7370 UI•UI'L9/3/N8 \n7380 RETURN \n7390REM---",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 112,
"line_start": 3624,
"line_end": 3680,
"has_formulas": false,
"has_tables": false
}
}