(整理)5800计算器全线坐标计算放样程序.

1、精品文档任意桩号坐标及高程一、程序功能本程序由一个主程序(ZHUCHENXU)几个子程序一正算子程序(SUB1)、 反算子程序(SUB2)、 数据库(SUB3)、 曲线要数(SUB4,4-1)、边坡放样程序(BIANPO),可以根据直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标及中桩高程，对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量18f DimZ1. 主程序 (ZHUCHENXU)1.SZ XY, 2.XY SZ, 3.SDYX 4. BIANPO ? N:Lbl 1 : ZH

2、UANGHAO=S: Prog SUB3 : N2=Goto 2: Abs(S-O)-W ” BIANZHU = ?7Z:Prog SUB1 : ProgSUB4: H= HJ XS= ：XXJYS= ：Y-Y,FS= ：(F -90) -F:F?DMSI Goto1Lbl 2 : CX= ?X: XI : CY= ?Y: YJ: DMG= ?Z7 : P rog SUB2 : S=:(O +W) - S,Z=Z-Z, ZZ17 :If N=3:Th en Prog ” SDYX” : IfEnd ： If N=4:Then Prog ” BIANPO” :IfEnd:G oto 22.SUB

3、1(正算子程序名)精品文档0:0.3260725774fB0.06943184427K:0.330009482 7 L1-LF:1-QMG+QEKW(C+KWDZ)1G+QELW(C+LWEZ2G+QEFW(C+FWDZ3G+QEMW(C+MWZ4AX cos(Z1) -X(剩虢可省略)X+Bcos(Z2) -XX+Bcos(Z3) -XX+Acos(Z4) -XU+W5XXAsin(Z1) -YY+Bsin(Z2) -YY+Bsin(Z3) YY+Asin(Z4) YV+WYG+QEW(C+WD)+90X+Zcos(F) XY+Zsin(F) - YG-90fT(Y

4、-V)cos(T)-(X- U)sin(T) -WAbs(WH W：0HzLbI 4:ProgSUB1T+QEW(C+WD)(J-Y)cos(L)-(I- X)sin(L)一工If Abs(Z) 1E-6:Then 0 - Z :ProgSUB1(J- Y) + sin(F)一工Else W+Z W:Goto 4:IfEnd注:1E-6即是10的负6次方，亦即是等於0.000001输入日寺按 SHIFT-log-(-)-64. 数据库 (SUB3)If S226100:Then Cls:Stop: IfEndIf SAnd S236005.651:Then Cls:Stop: IfEndLbl

5、 1: 1C: (P-R) + (2HPR) -D: 180+ 兀-E:精品文档5、曲线主程序:1-E.BG(SUB4)Fix 3:Prog ” Z.EBG” :R Abs(D-C)/2-T:if D-C 0 : Then 1-W:Else -1-W:ifendif S 0 :Then Z+IL H:Else Z+IL+W(T - L)2/2/R H:HS=:H /: Z.EBG(SUB4-1)if S322.599 And KZ6 :P1= ? - Z8 :P2=? 一 Z9 :aP3= ? - Z10(没有的话就删)：Z7-Z4Z11 : If Z110 Then AbsZ11 -Z11:

6、“T= ： Z11 J Else W=：Z11 JIfEnZ11 +Z5 - Z12 : If Z121 Then Z8 XZ11 -Z13:Else Z8 XZ5+Z9 XZ5 x ( Z12-1 ) - Z13 : IfEnd: AbsZ17- (Z13+Z6 XInt (Z12)+Z3) -Z14: BP+GJ=：Z14 /说明：Z3= QPDJL 起坡点离中桩距离Z4= QPDGD 起坡点设计标高Z5=PG 坡高Z6= PTK 平台宽度Z7= DMG 实测地面高度Z8=P1” 一级边坡坡度Z9=P2 二级边坡坡度Z10= P3 三级边坡坡度（没有的话就删）Z14= BP+GJ= 边坡超

7、欠挖宽度（+表超，-表欠）三、使用说明1、规定(1) 以道路中线的前进方向(即里程增大的方向)区分左右；当线元往左偏时，Q=-1 ;当线元往右偏时，Q=1;当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0； 当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。(3) 当线元为直线时，其起点、 止点的曲率半径为无穷大，以 10 的 45 次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替； 与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线

8、相接时，曲率半径为无穷大，以10 的45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明SZ XY, 2.XY SZ, 3.SDYX, 4. BIANPON ? 选择计算方式，输入1 表示进行由里程、边距计算坐标； 输入 2 表示由坐标反算里程和边距。输入 3 表示隧道圆心放样和计算实测半径；输入4 表示进行路基边坡放样。4、SUB嗷据库说明：S待求桩号，OW线起点桩

9、号，U曲线起点X坐标，V曲线起点Y坐标，G曲线起点切线方位角，P曲线起点半径，R曲线终点半径，H二曲线长度，Q转向（直线0,左转 -1 ，右转 1 ）注：本程序是经过本人改编后的，程序起头3.SDYX可以输入也可不输精品文档5800计算器全线坐标计算放样程序“XLZBJSC X /LB1 0 /CLS : FIX 4 : 30DIM Z /“XHS=?G（后视点 X）:YHS=?L（后视点 Y）:XZJ=?M（置镜点 X）:YZJ=?N（置镜点 Y）:Pol（G-M,L-N）:DH=:I（ 后视 距），JJ+36AJ:FH=:J DMSi（后视方位角）LB1 1 /“K= ?K / （计算里程

10、）IF K本段曲线终点里程AND KA上段曲线终点里程：THEN 本段终点里程-Z1: 上段曲线终点里程-Z2 : 1-O（注：左偏曲线输入-1-O,右偏曲线输入1Q :偏角A:半径R: 第一缓和曲线-Z6:第二缓和曲线-Z7:交点X-B :交点Y C :小里程向交点方位角E :交点向大里程方位角fF :GOTO 2 : IFEND / （曲线段分段输入） 补充直线段输入如下IF K本段直线终点里程 AND KA本段直线起点里程：THEN 1-O:本段直线终点里程-Z3:终点 X-Z16:终点 Y-Z17:方位角fE:GOTO 4:IFENDLB1 2 / （曲线要素计算）Z6/2-Z6A3/

11、(240*RA2)+/(M。Z7/2-Z7A3/(240*RA2)+/(M2Z6A5/(34560*RA4)Z7A5/(34560*RA4)-Z8-Z9Z6A2/(24*R)-Z6A4/(2688*RA3)-Z10 /(P1)Z7A2/(24*R)-Z7A4/(2688*RA3)-Z11 /(P2)兀 *A*R/180+0.5*( Z6+ Z7)- S /(曲线总长)90* Z6/(R*兀)-Z14 /(第一缓和曲线总偏角)90* Z7/(R*兀)-Z15 / (第二缓和曲线总偏角，可以省略)Z8+(R+Z10)TAN(A/2)-(Z10-Z11)/SIN2Z12 /(切线 T1)Z9+(R+

12、Z11)TAN(A/2)+(Z10-Z11)/SIN2Z13 /(切线 T2)B+ Z12*COS (E+180) - Z16 /(ZH点 X)C+ Z12*SIN(E+180) - Z17 /(ZH点 Y)Z1- S-Z3 /(ZH 点里程)Z3+ Z6 -Z4 / (HY 点里程)Z1- Z7 f Z5 / (YH 点里程)GOTO 3/LB1 3 /（判断里程点与曲线关系）IFKW Z3ANDIFK Z4ANDIFK Z5ANDIFK Z2 : THENGOTOK Z3 : THENGOTOK Z4 : THENGOTOK Z5 : THENGOTOLB1 4 / (里程小于直缓点直线独

13、立坐标)K- Z3 -X : 0 - Y : E T : PROG “TYZBCX :4 : IFEND /5 : IFEND /6 : IFEND /7 : IFEND /GOTO 1 /LB1 5 / (第一缓和曲线独立坐标)K- Z3 H /H-HA5/(40*RA2* Z6A2)+HA9/(3456*RA4* Z6八4)HA3/(6*R* Z6)-HA7/(336*RA3* Z6A3)- Y /90*HA2/( R* 兀 * Z6)- T /IF O0: THEN T +T : ELSE E- T T :IFEND /PROGTYZBCX : GOTO 1 /X /T360+户 T :

14、LB1 6 / (圆曲线独立坐标)K- Z4 H /H*180/( R* 兀)+ Z14 T /R*SIN T+ Z8 X /R*(1- COS T)+ Z10 Y /IF O0: THEN T +T : ELSE E- T T : T360+TT :IFEND/PROGTYZBCX : GOTO 1 /LB1 7 / (第二缓和曲线独立坐标)Z1 -KH /H-HA5/(40*RA2* Z7A2)+HA9/(3456*RA4* Z7八4)- U/HA3/(6*R* Z7)-HA7/(336*RA3* Z7A3)-V /90+八2/( R* 兀 * Z7)- T /Z13COS A+ Z12-U*COS A-V*S IN AX /Z13*SIN A- U*SIN A+V*COS A Y /IF O0: THEN F-T T : T360+TT : ELSE F+T T :IFEND /PROGTYZBCX : GOTO 1 /子程序：“TYZBC X /（统一坐标计算）IF O0: THEN -力Y : IFEND /“QXJ3 :T，（计算里程点切线方位角，可以不显示）Z16+X*COS E-Y*SIN EZ18 /Z17+X*SIN E+Y*COS EZ19 /“XI=” : Z18）（中线 X）“YI=” : Z19）（中线 Y）Pol（Z18-M,Z19-