chunk_7.json•1.5 kB
{
"id": "chunk_7",
"text": "DVar(1) = 4 * K2(1): E(1) = 2 * K2(1) \nFOR I = 2 TO NumberOfSpan \nDVar(I) = 4 * (K2(I - 1) + K2(I)) \nE(I) = 2 * K2(I) \nNEXT I \nDVar(NumberOfSpan + 1) = 4 * K2(NumberOfSpan) \nE(NumberOfSpan + 1) = 0 \nRETURN \nREM *************************************************** \n5000 REM ********* Subroutine to calculate fixed end moments \nFOR I = 1 TO NumberOfSpan \nFLeft(I) = 0: FRight(I) = 0 \nIF NumberOfLoads(I) = 0 THEN 5120 \nFOR J = 1 TO NumberOfLoads(I) \nW = WD(I, J): A = LoadStart(I, J): C = LoadCover(I, J): L = Length(I) \nS = A + C / 2: T = L - S \nFL = W * (S * T ^ 2 + (S - 2 * T) * C ^ 2 / 12) / L ^ 2 \nFR = W * (T * S ^ 2 + (T - 2 * S) * C ^ 2 / 12) / L ^ 2 \nFLeft(I) = FLeft(I) + FL \nFRight(I) = FRight(I) + FR \nNEXT J \n5120 NEXT I \nRETURN \nREM *************************************************** \n6000 REM Subroutine for slope deflection equations - R.H.S. \nFVar(1) = -(FLeft(1)) + CL \nFOR I = 2 TO NumberOfSpan \nFVar(I) = FRight(I - 1) - FLeft(I) \nNEXT I \nFVar(NumberOfSpan + 1) = FRight(NumberOfSpan) - CR \nRETURN",
"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": 7,
"line_start": 174,
"line_end": 204,
"has_formulas": false,
"has_tables": false
}
}