chunk_618.json•1.48 kB
{
"id": "chunk_618",
"text": "980 L•LY:XI-XI(K2) \n990 \nGOSUB 2920 ' Fleche P pour Charge Unite \n1000 A (Jl,J3)· F+A(J l ,J3) \n1010 A (Jl.NX'NY+ l )•F'P(J3)+A (Jl.NX'NY+ I) \n1020NEXT J2 \n1030NEXT Jl \n1040RETURN \n1050REM ---\n1060 REM Resolution d'un System e de MM Equations a MM Inconnues par GAUSS \n1070 REM Les Constantes donnees et les Resultats sont dans Ia Co1onne MM+ 1 \n1080 REM du Tableau A(MM,M M + 1), DIM A (MM,MM+ 1) \n1090 FOR 18•1 TO MM \n1100 K8• 18 \n1110 \nIF A(K8.18)<>01f THEN 1140 \n1120 K8• K8+ !:IF K8<-MM THEN 1110 \n1130 PRJNT'Determinant A •O\":END \n1140 \nFOR J8•1 TO MM+ 1 \n1150 SWAP A(I 8.J8),A (K8,J8) \n1160NEXTJ8 \nll70FORJ8•MM+ 1 TOIBSTEP-1 \n1180 A(I8,J8)•A(I8,J8)/ A (!8,18) \n1190 NEXT J8 \n1200 IF 18-MM THEN 1260 \n12JOFOR M9•! 8+1 TOMM \n1220 FOR J9-MM+ I TO 18 STEP -1 \n1230 A(M9 ,J9)• A(M9 .J9)-A(M9.18)' A(I8,J9) \n665 \n\n1240 NEXT J9 \n1250NEXTM9 \n1260 NEXT 18 \n1270 FOR 18•MM TO I STEP - I \n1280 IF 18•MM TiiEN 1320 \n1290 \nFOR K8•18+ 1 TO MM \n1300 A (I8,MM+ I)•A(l8,MM+ 1)-A(I8.K8)'A(K8.MM+ 1) \n1310NEXTK8 \n1320NEXT18 \n1330 RETURN",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 618,
"line_start": 22028,
"line_end": 22069,
"has_formulas": false,
"has_tables": false
}
}