平曲线+竖曲线+地道超挖(国外英文资料).docVIP

平曲线+竖曲线+隧道超挖(国外英文资料) The main program (TYQXJS) Lbl 4: 1SZ = XY, 2XY = SZ? N:? S: Prog SUB0 ↙ 1 present P - C: (P - R) present (2 HPR) - D: 180 present ∏ - E: N = 1 = Goto1: Goto2: ↙ DZ Lbl 1: ? Z: Abs (S - O) - W: Prog SUB1 : XS : X ◢ YS : Y ◢ Prog SQX (vertical curve program name) F - 90 - F: FS = : F bring DMS ◢ Prog CQW (tunnel overbreak program name) Goto4 ↙ Lbl 2: X? X: Y? Y: X - I: Y - J: Prog SUB2 : O + W - S: S : S ◢ Z : Z ◢ Prog CQW Goto4 ↙ The positive operator (SUB1) 0.1739274226 to A: 0.3260725774 to B: 0.0694318442 to K: 0.3300094782 to L: 1-l to F: 1-k to M G + QEKW (C + KWD), Z, [1] G plus QELW (C + LWD), Z [2] G + QEFW (C + FWD), Z [3] G + QEMW (C + MWD), Z [4] A cross cosine of Z, b0, X? X plus Bcos (Z, b0), X X plus Bcos (Z, b0), X X plus Acos (Z [4]), X U + X WX - Asin [1] (Z) - Y Y plus b sine of Z, b0, Y Y plus b sine of Z, b0, Y Y + Asin (Z [4]) to Y V + WY to Y G + QEW (C + WD) + 90 - F X + Zcos (F) - X Y + Zsin (F) - Y The inverse operator (SUB2) G -90 to T: (y-v) cos (T) - (X - U) sine of T (T) -w: Abs (W), W: 0 to Z Lbl 0: Prog SUB1 T + QEW (C + WD) goes to L: (J - Y) cosine (L) - (I - X) sine (L), Z: IF Abs (Z) 0.000001: Then0 to Z: Prog SUB1 (j-y) sign the sine of F (F) to Z The Else W + Z and W Goto0: IfEnd SUB0 database subroutine Goto1 ↙ Lbl 1: IF the S * * * end mileage (line) : and Then * * * G starting point (line azimuth) : * * * - O starting point range (line) : * * * - U start X (line) : * * * - V Y starting point (line) : * * * - P starting point curvature radius (line) : * * * - R end curvature radius (line) : - H * * * start to finish (line length) : 0 or 1 and 1 Q: Return: IfEnd ↙ Lbl 1: IF the S * * * end mileage (line) : and Then * * * G starting point (line azimuth) : * * * - O starting point range (line) : * * * - U start X (line) : * * * - V Y starting point (line) : * * * - P starting point curvature radius (line) : * * * - R end curvature radius (line) : - H * * * start to finish (line length) :