chunk_115.json•1.5 kB
{
"id": "chunk_115",
"text": "7930 F1=F1+UO \n7940 \nF2=F2+uo·D<n3) \n7950 \nNEXT Il3 \n7960 IF E1=E2 TifEN W4=999.999:GOTO 8000 \n7970 IF Kl=1 TifEN W4~E1.V4/(E1-E2) \n7980 IF K1=2 TIIEN W4=E2.V4/(E2-E1) \n7990 IF BP>O TifEN GOSUB 6960 'Calcu! des Sollicitations dues a Ia Precontrainte \n8000 F2=F1.V1B-F2 'Moment par Rapport au cdg-\n8010 IF Fl• O TifEN E0-999.99 ELSE EO=F2/FI \n8020 IF W4>999 TifEN W4=999.999 \n8030 KN2=KN2+ I \n8040 TN(KN2,ICB)=FI :TM(KN2.ICB)=F2 \n8050 IF SORT! - 2 TIIEN GOSUB 97 I 0 ' Ecritures \n8060 RETURN \n8070 REM-----------------------\n8080 REM Contrainte Acier \n8090 IF ELU<!.1 TifEN F4• E4·E9:GOTO 8160 \n8100 \nQI•SGN(E4) \n8110 \nE4=ABS(E4) \n8120 IF H1=2 TifEN GOSUB 8170 \n8130 F4•E9.E4 \n8140 IF F4>F5 TifEN F4=F5 \n8150F4=Q1.F4 \n8160 RETURN \n400 \nREM --------\n8170 \"\"'\" Contrainte F4 Acier Ecroui BA ou BP pour Deformation E4 \n8180•=\" \n8\n190 \nEJ9•E4 \nOO IF BP<1 THEN 8260 \n82\n10 \nH2\n•.9.FPEG/ GAMP/E10:E4•ABS(E4) \n82 \nIF E4<• H2 THEN F4• E10.E19:GOTO 8410 \n8220 \n823\n0 G1=.9·FPEG/GAMP \n8240 G3• 1.1.FPEG/GAMP \n8250 \nGOTO 8300 \n82\n60 H2•.7.F5/E9 \n8270 \nE\n4",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 115,
"line_start": 3749,
"line_end": 3801,
"has_formulas": false,
"has_tables": false
}
}