FX5800P计算器 曲线任意里程中边桩坐标正反算

1、卡西欧 fx5800P 计算器 曲线任意里程中边桩坐标正反算一、程序功能本程序由一个主程序 (ZHUCHENXU和几个子程序正算子程序(SUB1、反算子程序 (SUB2、数据库 (SUB3、算方位角程序 (FA、使用方位角算 坐标 (NE、边坡放样程序 (BIANPO、隧道圆心放样程序(SDYX 构成,可以根据 直线、 圆曲线、 缓和曲线 (完整或非完整型 的线元要素 (起点坐标、 起点里程、 起点切线方位角、 线元长度、 起点曲率半径、 止点曲率半径 及里程边距或坐标, 对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量 16DimZ1. 主程序 (ZHUCHENXU"

2、;1.SZ XY,2.XY SZ, 3.SDYX , 4. BIANPO "? N :Lbl 1:”ZHUANGHAO=”?S: Prog "SUB3":N2=>Goto 2:Abs(S-OW:”BIANZHU=”?Z:Prog "SUB1":"XS=”:XX"YS=”:YY"FS=”:(F-90 F:FDMSProg "FA": Goto 1:Lbl 2:”CX=”?X: XI:”CY=”?Y: YJ:”DMG=”?Z7:Prog "SUB2": "S=&q

3、uot;:(O+W S"Z="ZZIf N=3:Then Prog”SDYX”: IfEnd :If N=4:Then Prog”BIANPO”:IfEnd:Goto 22. 正算子程序 (SUB10.1739274226 Z1:0.3260725774B:0.0694318442K:0.3300094782L: (1-L F: (1-KM:U+W(Z1cos(G+QEKW(C+KWD+Bcos(G+QELW(C+LWD+Bcos(G+QEFW(C+FWD+Z1cos(G+QEMW(C+MWD X:V+W(Z1sin(G+QEKW(C+KWD+Bsin(G+QELW(C+L

4、WD+Bsin(G+QEFW(C+FWD+Z1sin(G+QEMW(C+MWD Y:G+QEW(C+WD+90F: X+ZcosFX:Y+ZsinFY3. 反算子程序 (SUB2G-90 Z2: Abs(Y-VcosZ2-(X-UsinZ2 W:0Z:Lbl 0:Prog "SUB1" :Z2+QEW(C+WD L: (J-YcosL-(I-XsinLZ:If Abs(Z<1E-6:Then Goto1:Else W+ZW:Goto 0: IfEndLbl 1:0Z:Prog "SUB1": (J-Y÷sinFZ4. 数据库 (SUB3I

5、f S<226100:Then Cls:Stop: IfEndIf S<226255.833:Then 226100O:99037.9736U:4282.3590V: 201.3266304G:1045P:1045R:253.543H:0Q: Goto 1:IfEnd If S>236005.651:Then Cls:Stop: IfEndLbl 1: 1÷PC:(P-R÷(2HPR D:180÷E:5. 算方位角程序 (FALbI0:“XC=”? A : “YC=”? T :X:Y0J: POI(X-A , Y-T I:“BC=”:I If J

6、 <0 Then 360+JJ:ElseJJ :IfEnd “FW=”:JDMS Goto06. 使用方位角算坐标 (NELbI0:“X=”? X: “Y=”? Y: “L=”? L:“F0”?F:L×Cos(F +XN: “N=”NL×Sin(F +YE: “E=”EGoto07. 边坡放样程序 (BIANPO“QPDJL=”? Z3: “QPDGD=”? Z4: “PG=” ? Z5:2Z6:“P1=” ? Z8:“P2=” ? Z9:“P3=” ? Z10 (没有的话就 删 : Z7-Z4 Z11:If Z11 0 Then AbsZ11 Z11: “T=”:

7、Z11 Else“W=”:Z11 IfEndZ11÷Z5 Z12:If Z121 Then Z8×Z11 Z13:ElseZ8×Z5+Z9×Z5×(Z12-1 Z13:IfEnd: AbsZ-(Z13+Z6 ×Int Z12+Z3Z14:“BP+C-J=”: Z14 说明:Z3= QPDJL 起坡点离中桩距离Z4=“QPDGD” 起坡点设计标高Z5=“PG” 坡高Z6=“PTK” 平台宽度Z7=“DMG” 实测地面高度Z8=“P1” 一级边坡坡度Z9=“P2” 二级边坡坡度Z10=“P3” 三级边坡坡度 (没有的话就删 Z14=“BP

8、+C-J=” 边坡超欠挖宽度(+表超, -表欠8. 隧道圆心放样程序(SDYX IF S<229000:THEN 243.997+0.0205×(S-226520-(S-2273182/2/16000+1.503 Z10:“NGC=”:Z10 ELSE 286.385-0.023×(S-230500-(S-230593.7532/2/165000+1.503Z10:“YLJ=”:Z10 IfEndZ10- Z7 Z15:“+SG,-JD”:Z15 (Z152+(ABS(Z-6.82 Z16: “R=”:Z16 三、使用说明1、规定(1 以道路中线的前进方向 (即里程增

9、大的方向 区分左右; 当线元往左 偏时, Q=-1;当线元往右偏时, Q=1;当线元为直线时, Q=0。(2 当所求点位于中线时, Z=0;当位于中线左铡时, Z 取负值;当位于 中线中线右侧时, Z 取正值。(3 当线元为直线时,其起点、止点的曲率半径为无穷大,以 10的 45次代替。(4 当线元为圆曲线时, 无论其起点、 止点与什么线元相接, 其曲率半径 均等于圆弧的半径。(5 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大, 以 10的 45次代替; 与圆曲线相接时, 曲率半径等于圆曲线的半径。 止点与直线 相接时,曲率半径为无穷大,以 10的 45次代替;与圆曲线相接时,曲

10、率半径等 于圆曲线的半径。(6 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设 计规定的值; 与圆曲线相接时, 曲率半径等于圆曲线的半径。 止点与直线相接时, 曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。 2、输入与显示说明SZ XY,2.XY SZ, 3.SDYX , 4. BIANPON ? 选择计算方式,输入 1表示进行由里程、边距计算坐标 ;输入 2表示由坐标反算 里程和边距。输入 3表示隧道圆心放样和计算实测半径;输入 4表示进行路基边坡放样。3、盖板涵斜交操作说明:(以左前点为例先把盖板涵斜交角度减90后=A再盖板涵左长度 *CosA=B,盖板涵左长度 *SinA=C,盖板涵身宽度 / CosA=D利用 YQXJS 程序计算此桩号正交时B宽度的坐标值,及法线方位角