chunk_615.json•1.43 kB
{
"id": "chunk_615",
"text": "200 MM•NX'NY \n210 JJ •2'(NX+NY)+I \n220 DIM Xl(l),XK(5).P(J).A(J,J+ l ).B(J),XE(l).LG(l) \n230 DIM CX(J),CY(J), VX(J). VY(J).RX(J).RY(J),FX(J),FY(J) \n240 DIM VA(Jl).CA(JJ),RA(Jl) \n250 GOSUB 370 'Lecture des Donnees \n260 GOSUB 1880 ' Repetition des Donnees \n270 GOSUB 820 ' Coefficients Matrice \n280 GOSUB 1090 ' Resolution Systeme Equations \n290 FOR 1-1 TO NX'NY \n300 B(l)•A(l,NX'NY+ I) \n310NEXTI \n320 GOSUB 1560 ' CalcuJ de V, M . rot. t \n330 GOSUB 2150 'Ecriture des Resu!tats \n340.END \n350REM-----------------------\n360 REM Lecture d es Donnees \n370 IF IET•2 THEN READ E,LX,LY:GOTO 410 \n380 INPU!Young, Portees (m) Lx (parall.a Ox) et Ly (Parall.a Oy)• ' ;CL$ \n390 GOSUB 1360 ' Format Ubre \n400 E-U(O):LX•U{!):LY• U(2) \n410 IF NREG•J AND IET- 2 THEN READ XIX.XIY,PU:GOTO 450 \n420 IF NREG- 0 THEN 450 \n430 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",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 615,
"line_start": 21924,
"line_end": 21951,
"has_formulas": true,
"has_tables": false
}
}