chunk_567.json•1.49 kB
{
"id": "chunk_567",
"text": "870 IF KR(I)•O lllEN 900 ELSE KR(I)•lll / KR(I) \n880 IF ICT(I)• O lllEN 900 ELSE KT(I)•lii/ KT(I) \n890 KT(I)•-KT(I) \n900NEXTI \n910PRINT \n920 PRINT\"Charges':PRINT\"-' \n930 PRINT\"no Abscisse Charge Concentree Couple Concentre• \n940 PRINT\" m MN MNm' \n950 FOR I• I TO NC \n642 \n960 \npRJNT USING'illl ilil.ililil llililil.ililililil ililllil.ililllilii';I;XC(I);P(I);T(I) \n970NEXTI \n980 PRINT \n990 JNPUT'OK\";IOK \nJQOOPRIN'f \n10 !0 rurrtJRN \n1020 \nREMI-----------\n1030 REM Resolution d'un Systeme de MM Equations a MM Inconnues par GAUSS \n1040 \nREM Les eonstantes donnees et 1es Resultats son! dans Ia Colonne MM+ 1 \n1\n050 \nFOR 18•1 TO MM \n1060 K8•18 \n107\no IF A(K8.18)<>0 TIIEN 1100 \n!080 K8•K8+ 1:1F K8<•MM lllEN 1070 \n1\n090 pRJNT'I)eterminant \nA •O':END \n1100FORJ8•1 TOMM+1 \n11 JO SWAP A(I8,J8),A(K8,J8) \n1120 NEXT J8 \n1130FORJ8·MM+1 T018STEP-1 \n1140 A(I8.J8)•A(I8,J8)/ A(l8,18) \n1150 NEXT J8 \n!160 IF 18•MM TIIEN 1220 \n1170 FOR M9•18+ I TO MM \n1180 FOR J9·MM+ 1 TO 18 STEP -1 \n1190 A(M9,J9)•A(M9,J9}-A(M9,18)'A(I8,J9) \n1200NEXT J9",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 567,
"line_start": 20077,
"line_end": 20119,
"has_formulas": false,
"has_tables": false
}
}