chunk_614.json•1.47 kB
{
"id": "chunk_614",
"text": "Maximum en Valeur Aboolue : \nEff.Tr. \n-48.563 \nleN \nMoment \n-57.805kNm \nRotation \n-\n0.133 milliemes de radian \nFlee he \n-\n0.155mm \n5.4.4. Listing « POUCROI » \n10 REM Prograrrune \"POUCROr de Poutres Crolsees \n20 REM Henry THONIER -Fevner 1993 \n30 ON ERROR GOTO 50 \n40GOT060 \n50 PRINT USING'Erreurilll Ugneii####\";ERR;ERL:STOP \n60 CALL TEXTS!ZE(9):CALL TEXTFONT(4) 'Propre au Macintosh \n663 \n\n70 DEFDBL A-H,L,O-Z \n80 DEFINT 1-K,M ,N \n85 DIM U(l4),UMY(l4) \n90 WIDTH 'LPTl:' , 125 \nIOOCLS \n110 EPS-.0000011 \n12\n0Z-OI \n130 INPUT'Voulez-Vous Entrer les Donnees au Clavier-!. en DATA- 2 -';lET \n135 \nPRINT \n140 IF IET- 2 THEN READ NX.NY.NREG:GOTO 180' NREG• i pour Regulier. sinon - 0 \nISO INPUT'Nombres d e Poutres Parall.a Oy et Ox, Type O • Regulier)•';CL$ \n160 GOSUB 1360 ' Format Ubre \n170 NX- U(0):NY•U{!):NREG• U(2) \n180 1•\nNX+NY+l \n190J•NX'NY+ l \n200 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)",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 614,
"line_start": 21885,
"line_end": 21928,
"has_formulas": true,
"has_tables": false
}
}