chunk_216.json•1.46 kB
{
"id": "chunk_216",
"text": "50 IF PM(I5)>PPMAX THEN PPMAX•PM(I5) \n3 \n60 IF pMJ(l5)<PPMIN THEN PPMIN•PMI(I5) \n38\n870 \nIF pMAS(I5)<PMXS THEN PMXS•PMAS(l5) 'Maxi ELS \n3 'MiniELS \n3880 IF pMIS(I5)<PMIS THEN PMIS·PMIS(I5) \n'MaxiELU \n'MiniELU \n3\n890 NEXTI5 \n3900 \nSIGPOT•PMAIPA(KN)I\nPB(KN) \n3910RETURN \n3920 \nREM----------. \n3930 \nREM Verification Soulevement des Pieux \n3940 IF NP•1 TIIEN 4000 \n3950 \nIF PPMIN>O AND PMIS>O THEN 4000 \n3960 FOR 1•1 TO NP \n970 IF PMlS(l)<O TIIEN U1·PMIS(l):U$•\"ELS\":GOSUB 4010 \n~980 IF PMI(l)<O TIIEN UI• PMI(I):U$•\"ELU\":GOSUB 4010 \n3990 NEXT! \n:~~ =USING\"Semelle \\ \\ , Pieu #II. Souleve de l#ilil.ililil MN\"; NOM$(KN);l;UI; \n4\n020 \nLPRINT' en \";U$; \n4\n030 \nLPRINT USING\", pour un Entraxe El •1#11.#11 m';EI; \n4\n040 \nIF NP>2 TIIEN LPRINT USING' et E2 •11#.1111 m ';E2 ELSE LPRINT \n4050RETURN \n4060REM------------\n4070 REM Semelle sur 3 Pieux \n4080 GOSUB 30 10 • Dimensions et Charges \n4090 GOSUB 4170 ' Calcul de ACERC \n4100 AINFX•.2\"ACERCIB:AINFY•AINFX\"BI A \n'\nQuadrillage \n4110 GOSUB 4660 • Torsion",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 216,
"line_start": 7094,
"line_end": 7139,
"has_formulas": true,
"has_tables": false
}
}