chunk_66.json•1.49 kB
{
"id": "chunk_66",
"text": "1750 IF J6•2 THEN GOSUB 1380 ' Rotation \n1760 IF \nJ6•3 THEN GOSUB 1450' Moment \n1770 IF J6•4 THEN GOSUB 1520 ' Effort Trcmchcmt \n1780 NEXT J7:NEXT J6 \n1790 RETURN \n1800 REM \n------------------\n!81 0 REM Resolution d'un Systeme de MM Equations a MM Inconnues par GAUSS \n1820 REM Les Constcmtes donnees et Jes Resultats sont dans Ia Colonne MM + 1 \n1830 FOR 18• 1 TO MM:FOR J8•1 TO MM+ 1 \n1840 A(I8,J8)•I)(I8,J8) \n1850 \nNEXT J8:NEXT 18 \n1860 FOR 18•1 TO MM \n1870 K8•18 \n1880 \nIF A(K8 .18)<>0 THEN 1910 \n1890 K8• K8+ \nl:IF K8<•MM THEN 1880 \n1900 \nPRINT'Determincmt A •O\":END \n1910FORJ8=1 TOMM+l \n1920 SWAP A(I8,J8),A(K8,J8) \n1930 NEXT J8 \n1940 FOR J8•MM+l TO I8 STEP -1 \n1950 A(I8,J8)•A(l8,J8)/ A(l8,18) \n1960 NEXT J8 \n1970 IF 18-MM THEN 2030 \n1980 \nFOR M9•!8+ 1 TO MM \n378 \n1990 FOR J9•MM+1 TO I8 STEP -1 \n2000 A(M9.J9)• A(M9 ,J9}-A(M9,I8)\" A(I8,J9) \n2010NEXT J9 \n2020NEXTM9 \n2030NEXT18 \n2040 \nFOR I8•MM TO 1 STEP -1 \n2050 IF 18•MM THEN 2090 \n2060 \nFOR K8•!8+ 1 TO MM \n2070 A(I8,MM+ l)•A(I8,MM+ 1}-A(I8.K8)\"A(K8,MM+ 1) \n2080NEXTK8",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 66,
"line_start": 2053,
"line_end": 2096,
"has_formulas": false,
"has_tables": false
}
}