chunk_466.json•1.54 kB
{
"id": "chunk_466",
"text": "1220 If NT•O THEN 1320 \n584 \n1230 FOR 18•1 TO NT \n1240 IF !DON•l THEN 1280 \n1250 \nREAD Al(0.18).A10.18).Al{2,!8).A1(3.18).Al{4,18) \n1260 IF Al(0.18)•1 THEN READ A1(5.18).A1(~.18) \n1270 GOTO 1310 \n1280 INPUT'Type,Nbre. \nCoef.. d . r (ou a. b. h) •';CL$ \n1290 \nGOSUB 430 \n1300 FOR I2•0 TO 6:Al{I2,I8)•U(I2):NEXT I2 \n1310 NEXT 18 \n1320 RETURN \n1330REM-----------------------\n1340 REM Calcul du Moment Statique de Ia Partie au<lessus du cdg \n1350 S•O:M•O:D•O:UK-1 \n1360 \nIf N•O THEN 1460 \n1370 \nFOR ll·l TON \n1380 A•A(Il):B•B(Il):C=C(Il) \n1390 \nIf V<D THEN 1460 \n1\n400 IF V>• D+C THEN 1430 \n1\n410 B•A+(B-A)\"(V-0)/ C \n1420 C•V-D:LAG=B \n1430 \nGOSUB 2950 \n1440 D\n•D+C \n1450 NEXTil \n1460 \nIf NT•O THEN 1710 \n1470 \nFORI1·1TONT \n1480 GOSUB 2380 'Conversion \n1490 UK•COEF\"NB \n1500 IF 1YP> 1 THEN 1570 \n1510 \nIFV<Dl THEN 1700 \n1520 \nIFV>·Dl+CTHEN 1550 \n1530 B• A+(B-A)\"(V-01)\n/C \n1540 C•V-Dl:LAG•LAG+B\"UK \n1550 \nGOSUB 2950 \n1560 \nGOTO 1700 \n1570 \nG•4/3\"R/PI \n1580 IF 1YP>2 THEN 1620 \n1590 \nIF V<Dl-R THEN 1700 \n1600 \nIF V>•D1 THEN BI•D1-R:B2•D1:GOTO 1690",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 466,
"line_start": 16441,
"line_end": 16500,
"has_formulas": true,
"has_tables": false
}
}