chunk_94.json•1.43 kB
{
"id": "chunk_94",
"text": "IF F5>2'F7 / 3 THEN FS-F7'2/ 3 \n2720RETURN \n2730 \nREMi-----------\n2740 REM Lecture des Donnees Generales et Geometriques \n2750 IF IECR- 2 THEN READ ELU:GOTO 2770 \n2760 INPUT'Calcul \nen ELS-I , en ELU-2 :';ELU \n2770 GOSUB 2490 ' Caracteristiques des Materiaux \n2780 IF IECR-2 THEN READ FORME:GOTO 2840 \n2790 PRIN1\"Forme \nde Ia Section :' \n2800 PRIN1\" 1 -Circulaire.\" \n2810 PRIN1\" 2 -Rectangulaire,\" \n2820 PRINr 3 -Quelconque' \n2830 INPU1\"-';FORME \n2840 \nIF BP>O TIIEN IPIEU-O:GOTO 2870 \n2850 \nIF IECR- 2 TIIEN READ IPIEU:GOTO 2870 \n2860 INPUT'Est-ce \nun Pieu: Oui-1, Non-0 -\";IPIEU \n2870 IF FORME> 1 THEN 2920 \n2880 IF \nIECR-2 TIIEN READ PH!P,ENR:GOTO 2910 \n2890 INPUT'Diametre \n(m)-';PHIP \n2900 INPUT'Enrobage a !'Axe des Aciers (cm)-';ENR \n2910 ENR-ENR/ 100: GOTO 3160 \n2920 IF FORME-3 \nTHEN 2990 \n2930 \nIF IECR-2 THEN READ BOJ.C<1J:GOTO 2960 \n2940 INPUT'Lcngetu \nb (m) - ·;B(1) \n2950 INPU1\"Hautetu Totale h (m) -·;C(l) \n2960 A(l )-B( 1) \n2970 N7-1 \n2980 GOTO 3160 \n2990 \nIF !ECR-2 THEN READ N7:GOTO 3100",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 94,
"line_start": 3032,
"line_end": 3072,
"has_formulas": false,
"has_tables": false
}
}