chunk_100.json•1.5 kB
{
"id": "chunk_100",
"text": "4020 \nIF U(2)•14 mEN AP(NP)=100/IOOOOOO!\"U(l) \n4030 \nIF U(2)•1S THEN AP(NP)-139 /IOOOOOO!\"U{l) \n4040 IF U(2)•16 THEN AP(NP)•lSO/IOOOOOO!\"U(l) \n40SO SP(NP)•U(3):SECP=SECP+ AP(NP) \n4060 \nGOTO 3940 \n4070RETURN \n4080REM---------------------\n4090 REM Va!eurs de Base \n4100 DI•-FSjE9:D2•F9\"HS/E9 \n4110 IF IPIEU>O THEN DS•D2\"CADM ELSE DS•D2 \n4120 \nVIK•(VIB-D(N6))/VlB \n4130 V2K•(D(I)-VIB)/(HT-VlB) \n4140 D7•(DI-DS)/VlK+DS \n41SO D8•VlK\"(D2-DS)+D5 \n4160 D9•(D2-DS)\"V2K+D5 \n393 \n\n4170 IF ELU<l.l AND IPIEU<1 THEN D8•100:D9•100 \n4180 D10•(Dl-D5)/V2K+D5 \n4190 AT6-Hr(D2-D5)/D2 \n4200 IF ELU> I. I THEN 4230 \n4210 IF JPIEU<l THEN 4230 \n4220 IF AT6>VIB THEN AT6•VIB \n4230 AT7=HT'(D2-D5)/D2 \n4240 \nIF ELU> I. I THEN 4270 \n4250 IF IPIEU<l THEN 4270 \n4260 \nIF AT7>(HT-VIB) THEN AT6=HT-VIB \n4270 RETURN \n4280 REM---------------\n4290 REM Calcul des Tableaux N, M. x \n4300 K!•1:KN2--I \n4310 GOSUB 9410 · Ecritures Communes \n4320 JZ•I 'Sections Entierement Tendues Pivot !A \n4330 IF JMPR<3 AND SORTI=2 THEN PRINT:PRINT'Section Entierement Tendue Pivot lA\"",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 100,
"line_start": 3238,
"line_end": 3277,
"has_formulas": false,
"has_tables": false
}
}