chunk_87.json•1.49 kB
{
"id": "chunk_87",
"text": "890 IF U1>0 TIIEN TOUR• l :IECR• 1:GOTO 570 \n900GOT0980 \n910 FOR ICB• l TO IPCT \n920 PCENT•PCEN(ICB) \n930 GOSUB 3430 ' Colcul d e As et d \n940 TOUR• 2 :GOSUB 8500:GOSUB 9000 'Colcul des Caracteristiques Mecaniques \n950 GOSUB 4280 'Colcul deN, M , x, eo \n960 NEXTICB \n970 GOSUB 11520 ' Dessin des Courbes de 1' Abaque \n980 PRINT'Le Colcul a ete effectue en \"; \n990 EL1$• \"EIS\":EL2$•\"ELU\" \n1000 \nIF ELU> 1.1 THEN EL1$•\"ELU\":EL2$•\"EIS\" \n1010 PRINT \nELl$ \n1020 PRINT'Voulez-Vous Recalculer avec Memes Geometrie el Aciers \"; \n1030 INPUT\": Fin• O, EIS• l , ELU• 2 \";ELU \n1040 \nIF ELU• O TI-I£N 1080 \n1050 IECR• 1 :TOUR• O:NCR• l :EL 12· 1 \n1060 \nIF BP< l TI-I£N GOSUB 2490 ElSE GOSUB 2650' Lecture des Materiaux \n1070 GOTO 550 \n1080END \n1090REM \n1100 REM Beton Preconlraint en EIS \n1110 \nIF COMB(ICM)>O THEN 1160 \n1120 SAD•.6\"F8 \n1130 IF KL-1 TIIEN SAT•-.7\"FT:SATG• SAT:GOTO 1290 \n1140 IF KL• 2 THEN SAT• -1.5\"FT:SATG•-.7\"FT:GOTO 1290 \n1150 IF KL•3 THEN SAT•-100:SATG•-100:GOTO 1290 \n1160IFCOMB(ICM)> 1 TI-J£N 1210",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 87,
"line_start": 2787,
"line_end": 2819,
"has_formulas": true,
"has_tables": false
}
}