chunk_658.json•1.47 kB
{
"id": "chunk_658",
"text": "•PPC\"(L(l)/2-X):V•V+COP\"Ul:Vl•Vl+Ul \n1460 IF M>MMAX THEN MMAX•M \n1470 IF ABS(FI)>ABS{FMAX) THEN FMAX•FI \n1480 IF ABS(V)>VMAX THEN VMAX•ABS(V) \n1490 IF K•O THEN RG(I)•V:RGI(l)•VI \n1500 IF K•NK THEN R.D(I)•V:RDI(I)•VI \n1510NEXTK \n1520RETURN \n15\n30 REM-------\n1540 REM Recherche de Ia Reaction d'Appui RG ou RD \n1550 N6•LEN(NPOU$(l,JI)) \n1560 UI$•LEFT$(NPOU$(1,JI),N6-I) \n1570 Q(I.JI)•O \n1580 U2$•RIGHT$(NPOU$(I.JI),I) \n1590 \nIF U2$•'G' OR U2$•\"D' THEN 1610 \n1600 Q(I.J \n1 )• V AL(NPOU$(l,J 1 )):GOTO 1660 \n1610 FORJ4•1TONP \n1620 IF NOM$(J4)<>UI$ THEN 1650 \n1630 \nIF U2$•\"G\" THEN Q(I.Jl)•RG!(J4):KPC(I.Jl)=RG(J4)/RG!(J4) \n1640 IF U2$•\"D\" THEN Q(I,Jl)•-RDI(J4):KI'C(I.Jl)•-R.D(J4)/RD!(J4) \n1650 \nNEXT J4 \n1660RETURN \n1670 REM-·----------\n1680 REM Recherche du Profile \n1690 NORE•O:PPMIN•!E+ 10 \n1700 N6•LEN(PROF$(1)) \n1710 Ul$•LEFT$(PROF$(!), I) \n1720 U2$•RIGHT$(PROF$(1).N6-l) \n1730 FOR \n12•1 TO NFT \n1740 If CODE•! THEN MRD•ZZI(l2)/ZZH(12)'2\"U3\"SE:VRD• ZZB(l2)'ZZH(I2)'COV\"SE\"U3",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 658,
"line_start": 23337,
"line_end": 23372,
"has_formulas": true,
"has_tables": false
}
}