chunk_574.json•1.51 kB
{
"id": "chunk_574",
"text": "110 DIM U(l5),UMY(l5),B(30),H(30).B0(30).H0(30),AlR(30),XIT(30),XIN(30) \n120 INPU'iVoulez-Vous Entrer les Donnes au Clavier•]. en DATA-2 •\";lET \n130 IF lET-1 THEN 200 \n140 H•O:BO•O:H0-0 \n150READB \n160 IF s-o rnEN 370 \n170 READ H.BO \n180 IF BO>O rnEN READ HO \n190GOT0260 \n200 IF NJ•O THEN PRINT'Ecriture des Donnees en Format Ubre : 1es zeros en Fin de Ugne' \n210 IF NJ-0 rnEN PRINT'peuvent etre oublles\" \n220 INPUT\"b. h. bo. ho (Fin•O)•\";CL$ \n230 GOSUB 520 • Format Ubre \n240 IF U(O)• O THEN 370 \n250 B•U(O):H•U(l):BO•U(2):HO-U(3) \n260 \nNJ•NJ+1 \n270 B(NJ)• B:H(NJ)• H:BO(NJ)•BO:HO(NJ)•HO \n280 IF BO\"HO>O rnEN E• BO:GE•H-.75f\"HO \n290 IF BO'HO•O rnEN E•B:GE•H \n300 GOSUB 830 • Coefficient k2 \n310 XlT(NJ)• XlT(NJ)+ XK2\"EA3\"GE \n646 \nlf BO'HO>O THEN E• HO:GE•B:GOSUB 830:XIT(NJ)•XIT(NJ)+XK2'EA3\"GE \n3\n20 \nG()SUB 41 o • Aire et Inertle de Flexion \n~~ Affi{NJ>-AIR(NJ)+AlR \n50 XJN(NJ)•XIN(NJ)+XIN \n3 \nGOTO \n130 \n360 \nGOSUB 720 • Ecriture des Resultats \n370 \n380 END·-------··---\n390 REM F1 :-\n400 REM Aire et Inertie de eXlon \n410",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 574,
"line_start": 20333,
"line_end": 20371,
"has_formulas": true,
"has_tables": false
}
}