chunk_619.json•1.51 kB
{
"id": "chunk_619",
"text": "FOR K8•18+ 1 TO MM \n1300 A (I8,MM+ I)•A(l8,MM+ 1)-A(I8.K8)'A(K8.MM+ 1) \n1310NEXTK8 \n1320NEXT18 \n1330 RETURN \n1340REMi--------------------------\n1350 REM: Conversion Lecture Format Libre \n1360 FOR 19• 0 TO 12 \n1370 U(l9)•0 \n1380 NEXTI9 \n1390 n-o \n1400 IF CL$•'' OR CL$--THEN 1500 \n1410 \nJ- 1 \n1420 IF INSill(J.CL$,' ')• J TiiEN J • J+ 1:GOTO 1420 \n1430 CL$• RJGHT$(CL$.LEN(CL$)-J+ 1):19=INSill(l,CL$. • ') \n1440 IF 19• 0 THEN MOT$• CL$:GOTO 1460 \n1450 MOT$•LEFT$(CL$,19-1) \n1460 IF MOT$•\"' TiiEN 1490 \n1470 U(ll)•V AL(MOT$):1l•l1 + 1 :CL$• RJGHT$(CL$.LEN(CL$)-LEN(MOT$)) \n1480 GOTO 1400 \n1490 \nFOR 16-Il TO 12:U(I6)• UMY(I6):NEXT 16 \n1500 FOR 16• 0 TO 12 \n1510 UMY(I6)•U(I6) \n1520 NEXT16 \n1530RETURN \n1540 REMI-------\n1550 REM Calcu! d e V , M . rot. I \n1560FORJ1• 1 TONX'NY \n1570 GOSUB 750 'No de Ugne et Colonne \n1580 XO•Xl \n1590 XKI• XK(3):XK2• XK(4) \n1600 VX•Z:VY• Z:CX• Z:CY•Z:RX• Z:RY• Z:FX• Z:FY•Z \n1610 FOR J2•1 TO NX \n1620 J3•Kl'NX+J2 \n1630 X2• LG(J2) \n164016•Kl+1+NX \n1650 L·LX:X1• XI(I6) \n1660 Q•B(J3) ·Charge",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 619,
"line_start": 22065,
"line_end": 22104,
"has_formulas": true,
"has_tables": false
}
}