chunk_617.json•1.52 kB
{
"id": "chunk_617",
"text": "2 \nTHEN,.,,. A,..., 12 u1 :GOTO 680 \n660 If JET-l<Lr\"U.J • \n0 12-U(l):Ul- U(2) \n67 OR 13-11 TO 12 \n~: ~13)-P<I3)+INT(Ul'l000+.4)/10001f , Charges en kN \n700NEXT13 \n71\noGOT0620 \n72oRETURN __________________ ___ \n730REM \nREM J 1-No du Noeud \n740 Kl• lNT((J1-1)/NX> 'NodeUgne-1 \n~~ K\n2\n•Jl-Kl'NX • No de Colonne \nX l •LG<K\n2\n) • \nAbscisse du Noeud \n~~~ X l B• LG<NX+Kl+l ) 'Ordonnee du Noeud \n790 RETURN -----\n800 REMM Calcul des Termes de Ia Matrice des Reactions R \n810RE \n820 FOR J 1• 1 TO NX'NY \n830 GOSUB 750 \n840Q•l \n850 XK 1• X'K(3):XK2-XK( 4) \n860 \nFOR J\n2\n•\n1 \nTO NX · Pour Charge Unite J2 sur LX \n870\nJ\n3\n•Kl' NX+J2 'Nod e NoeudCharge \n880 X2· LG(J2) \n890 \n16\n•Kl + l +NX:L•LX:Xl-Xl(l6) 'No de Ligne \n900 GOSUB 2920 • Fleche F pour Charge Unite \n910 \nA(Jl.J3)• F \n920NEXTJ2 \n930 Xl•XlB \n940 XKI·XK(l):XK2-XK(2) \n950 FOR J2•1 TO NY \n960 J3•(J2-l)'NX+K2 ·No de Noeud Charge \n970 X2·LG(J2+NX) \n980 L•LY:XI-XI(K2) \n990 \nGOSUB 2920 ' Fleche P pour Charge Unite \n1000 A (Jl,J3)· F+A(J l ,J3) \n1010 A (Jl.NX'NY+ l )•F'P(J3)+A (Jl.NX'NY+ I)",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 617,
"line_start": 21977,
"line_end": 22032,
"has_formulas": false,
"has_tables": false
}
}