chunk_657.json•1.52 kB
{
"id": "chunk_657",
"text": "1190 CONM• O:TONM• O:FONM=O \n1200 FOR 1• 1 \nTO NP \n1210 \nPPC• O • Poids Propre \n1220 FOR J6-l TO 4 • Iteration pour le Poids Propre \n1230 GOSUB 1310 ·!max, Vmax et Mmax \n1240 GOSUB 1690 'Recherche Profile \n1250 NEXT J6 \n1260 GOSUB 1950 \n1270 \nNEXT! \n1280RETURN \n1290REM:----------\n1300 \nREM CaicuJ !max, Vmax et Mmax pour pp donne (PPC) \n1310 \nMMAX-O:FMAX-O:VMAX- 0 \n1320 FOR K· O \nTONK \n1330 X • K jNK'L(l):M • O:F•O:V•O:M1•0:V1• 0:Fl•O \n1340 IF NC(I)• O THEN 1390 \n1350 FORJ1• 1 \nTONC(I) \n1360 GOSUB 1550 'Reactions d'Appui \n1370 GOSUB 2610 • Calcul des Charges Concentrees \n1380 NEXT Jl \n681 \n\n1390 IF NT(I)•O THEN 1430 \n1400 FOR \nJ1•1 TO NT(!) \n1410 GOSUB 2770 ' Calcul des Charges Trapezoidales Partielles \n1420 \nNEXT Jl \n1430 U1•PPC\"X\"(L(I)-X)/2:M•M+COP'U1 :M1•M1 +U1 \n1440 U I•PPC\"X\"(2\"L(l)'X\"X-XA3-L(!)A3)/24:F•F+COP\"UI :FI•FI +UI \n1450 UI\n•PPC\"(L(l)/2-X):V•V+COP\"Ul:Vl•Vl+Ul \n1460 IF M>MMAX THEN MMAX•M \n1470 IF ABS(FI)>ABS{FMAX) THEN FMAX•FI \n1480 IF ABS(V)>VMAX THEN VMAX•ABS(V) \n1490 IF K•O THEN RG(I)•V:RGI(l)•VI",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 657,
"line_start": 23299,
"line_end": 23341,
"has_formulas": false,
"has_tables": false
}
}