chunk_243.json•1.52 kB
{
"id": "chunk_243",
"text": "9\n690 WB•YJ-YB \n9700 A•SQR((XF-XB)A2+(YF-YB)A2) \n9710 Cl•2\"SQR((XF-XK)A2+(YF-YK)A2) \n9720 \nC•El-2\"YB \n9730 B•\nEl-2\"YH \n9740 C2•XB-XG \n9750 C3•El-2\"YF \n9760 \nUl•WC\"WB \n9770 LFK•Cl/2 \n9780 LKG•SQR((XG-XK)A2+(YG-YK)A2) \n9790 UJ•LFK\"LKG\"2+UI \n9800 C2(KN)•C2:C3CKN>-C3 \n9810 AIRE•(XC-XGr<YC-YG)-Ul \n9820 COFS(KN)• (2\"(A+Cl)+B+C) \n9830 VOLS(KN)•AJRE \n9840 A ·\nINT(JOOO\"A+.9)/1000 \n9850 B•INT(IOOO\"B+.9)/ 1000 \n9860 C•INT(JOOO\"C+ .9)/1000 \n9870 \nCl•INT(IOOO\"CJ+.9)/1000 \n9880 C2•INT(JOOO\"C2+.9)/1000 \n9890 C3•1NT(JOOO\"C3+.9)/1000 \n9900 LARG(KN)• El/E3\"(DIC+.3+(D(l)\"(E3-0JC)+D(3)\"DJC)/2/E3) \n9910 RETURN \n9920 REM Coordonnees de l'lntersection de Deux Droites \n9930 X•(BET2-BETl)/(ALPl-ALP2) \n9940 Y• ALPJ\"X+BETl \n9950RETURN \n9960 REM--------------\n9970 REM Verification des DimEmsions Minimum \n9980 IF El>EMINl-.01 THEN 10030 \n9990 PRINT USING\"Entre Axes des Pieux Lu: El •U.IIU m';EI \n10000 PRINT USING\"Entre Axes Minimum des Pieux •1111.111#11 m';EMINJ \n10010 INPUT'Nouvelle Valeur pour El (sinon • 0) •';UI \n10020 IF Ul>. 02 THEN EI•UJ",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 243,
"line_start": 7928,
"line_end": 7967,
"has_formulas": false,
"has_tables": false
}
}