chunk_3.json•1.46 kB
{
"id": "chunk_3",
"text": "GOSUB 4000: REM ******* Subroutine for slope deflection equations -- L.H.S \nREM No. of load patterns = NP \nNP = NumberOfSpan + 1 \nIF CantileverLeft(1) + CantileverLeft(2) > 0 THEN NP = NP + 1 \nIF CantileverRight(1) + CantileverRight(2) > 0 THEN NP = NP + 1 \nREM ********************* Analysis for each load pattern \nLP = 0 \n680 LP = LP + 1 \nGOSUB 9000: REM ***Subroutine to calculate design loads \nGOSUB 5000: REM ****** Subroutine for fixed end moments \nGOSUB 6000: REM ******* Subroutine for slope deflection equations - R.H.S. \nGOSUB 7000: REM Subroutine for sol'n of eq'ons and c'tion of end moments \nGOSUB 8000: REM Subroutine for span shear and moments \nGOSUB 10000: REM Subroutine to sort for shear and moment envelopes \nIF LP < NP THEN 680 REM *** Sort for maximum sagging moment and its \nposition FOR I = 1 TO NumberOfSpan FOR K = 1 TO 21 IF MP(I, K) > MM(I) \nTHEN MM(I) = MP(I, K): SM(I) = Length(I) * (K - 1) / 20 \nNEXT K \nNEXT I \nREM *********************** Printout of data and results",
"metadata": {
"book_id": 34887,
"title": "BASIC-STRUCTURAL-227171226-Casio-Fx-880p-Continuous-Beam-Analysis-Qbasic-Freebasic-Structural-Analysis-Civil-Engineering",
"authors": "user",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 11261,
"chunk_index": 3,
"line_start": 92,
"line_end": 112,
"has_formulas": false,
"has_tables": false
}
}