chunk_616.json•1.47 kB
{
"id": "chunk_616",
"text": "430 INPUT'Inertie(m4) Parall.a Oy et Ox, Charg.Repart.(kN/m2)•';CL$ \n440 GOSUB 1360 'Format Ubre \n445 XIX-U(0):XIY- U(l):PU-U(2) \n450 PU-INT(PU'l000+.4)/10001f 'Charges en kN/m2 \n460 LX-INT(LX'l000+.4)/10001f \n470 LY• INT(LY'I000+.4)/10001f \n480 E• INT(E'l000+.4)/10001f \n4 90 XIX • INT(XIX'l 0()(}()()()!+. 4) I I 0000001 \n500 XIY- INT(XIY'1000000.+.4)/1000000i \n510 GOSUB 3660 \n520 REM Coett. d 'Encastrement 1- Encastre. 0-ArticuJe, ou Partiellement Encastre \n530 \nIF IET-2 THEN READ XKO).XK(2),XK(3),XK(4):GOTO 570 \n540 FOR !• I TO 4 \n550 PRINT US!NG\"Appu! I , Coet. d'Encastrement •';!;:INPUT XK(l) \n560NEXTI \n570 FOR I • ! TO 4:XK(l)• INT(XK(l)'I000+.4)/ l()()()I:NEXT I \n580 IF NREG• O THEN 620 \n590 FOR I•! TO NX'NY \n600 P(l)• PU'LX'LY/ (NX+ 1)/(NY+!) \n610NEXTI \n620 IF IET• 2 THEN READ II :GOTO 650 \n630 INPUT'Charge P du Noeud 1 a j : l,j,P•';CL$ \n664 \nUB \n136\n0:\n11-U(O) 'Format Ubre \n64° G0S THEN 720 \n650 IF n-o\n2 \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",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 616,
"line_start": 21947,
"line_end": 21981,
"has_formulas": true,
"has_tables": false
}
}