chunk_241.json•1.45 kB
{
"id": "chunk_241",
"text": "IF U(O)<O THEN RELI• 1 :GOTO 9310 \n9100 NCH· NCH+ l:PABRCKN,NCH)• U(O):CAR(KN.NCH)-U(l):CBR(KN,NCH)•U(2) \n9110 WVA(KN.NCH)•U(3):WVB(KN.NCH)•U(4):WELU(KN,NCH)•ELU \n9120 NEXT ICH \n9130ELU•J \n9140 IF IECR•J THEN PRINT:PRINT'E.L.S.\":PRINT'--' \n9150 \nFOR ICH•l TO NTCH \n9160 IFIECR• l THEN9220 \n9170 \nREAD U(O) \n9180 IF U(O)•O THEN 9300 \n9190 READ U(l).U(2) \n9200 \nIF H(KN)>. 1 THEN READ U(3).U(4) \n9210 GOTO 9270 \n9220 IF H(KN)>. l THEN INPUT'N(MN). Ma(MNm). Mb(MNm). Va(MN). Vb(MN) •' ;CL$ \n9230 IF H(KN)<.l THEN INPUT'N(MN) • Ma(MNm) , Mb(MNm)• ';CL$ \n9240 GOSUB 1300 ·Lecture en Format Ubre \n9250 IF U(O)•O THEN 9300 \n9260 IF U(O)<O THEN RELI•l :GOTO 9310 \n9270 \nNCH•NCH+ 1 :PABR(KN,NCH)•U(0):CAR(KN.NCH)=U(l):CBR(KN.NCH)•U(2) \n9280 WVA(KN.NCH)•U(3):WVB(KN.NCH)-U(4):WELU(KN.NCH)•ELU \n9290 \nNEXT ICH \n9300 PABR(KN.NCH+ 1)•0 \n9310RETURN \n9320 \nREM--------------\n9330 REM Tableau des Longueurs de Barres \n9340 REM Donnees: Longueur L9, Diametre D9. Nombre N9. NSEM semelles \n9350 FOR 19• 1 TO 10 \n9360",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 241,
"line_start": 7844,
"line_end": 7877,
"has_formulas": true,
"has_tables": false
}
}