FX5800P全线任意里程中边桩坐标正反算 曲线任意里程中边桩坐标正反算.doc
《FX5800P全线任意里程中边桩坐标正反算 曲线任意里程中边桩坐标正反算.doc》由会员分享,可在线阅读,更多相关《FX5800P全线任意里程中边桩坐标正反算 曲线任意里程中边桩坐标正反算.doc(36页珍藏版)》请在三一办公上搜索。
1、FX5800P全线任意里程中边桩坐标正反算(加了数据库)本程序非本人原创,结合上传者长处,进行改编,愿收获和大家共享,不足之处多多指教。希望过路神仙把竖曲线加进去带算隧道超欠挖,谢谢曲線任意里程中邊樁坐標正反算5800p本程序由内蒙文哥和师父阿玖哥共同改编完成主程序ZBJSLbl 6:1.SZ XY:2.XY SZ:?S:?N:Prog“SUB0”1PC:(P-R)(2HPR) D:180E:N=1 =Goto 1: Goto 2Lbl 1:?Z: Abs(S-O)W: ProgSUB1:XS=:XYS=:YFS=:F-90 DMS“XC” ?C: “YC” ? E:0I:0J:Pol(X-C
2、,Y-E):“I=”:IIfJ0: Then “J=”: J+360DMSIfEndIfJ 0:Then “J=” :JDMSIfEnd:Goto 6Lbl 2?X:?Y:XI:YJ:ProgSUB2:O+WS:Cls:S=:SZ=:ZGoto 6正算子程序 SUB10.1739274226A: 0.3260725774B: 0.0694318442K: 0.3300094782L: 1-LF: 1-KM:U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)X: V+W(Asin(G+QE
3、KW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) Y:G+QEW(C+WD)+90F: X+Zcos(F)X: Y+Zsin(F)Y反算子程序SUB2 G-90T(Y-V)cosT-(X-U)sin(T) WAbs(W)W:0ZLbl6:Prog SUB1T+QEW(C+WD) L: (J-Y)cos(L)-(I-X)sin(L)ZIF Abs(Z)1E-6:Then0Z:Prog SUB1:(J-Y)sin(F)Z:Else W+ZW:Goto6:IfEnd数据库子程序 SUB0Goto 1(线元可输入多条,
4、分离式可在前多加一位,匝道一样。例:左幅为K129+500,右幅输线元参数里程为1129+500,其他不变,前面1为任意数字,计算机便于区分)Lbl1:IFS线元终点里程:ThenO(线元起点里程) : U(线元起点X坐标):V(线元起点Y坐标):G(线元起点计算方位角):P(线元起点半径):R(线元止点半径):H(线元长度):Q(线元左、右偏标志,左偏-1,右偏1,直线为0):Return:IfEndIFS XY2. XY = SZ S ?选择里程 ,N?,Z?左或右偏距。选择计算方式,1.表示进行由里程、边距计算坐标 ;输入2表示由坐标反算里程和边距。显示部分: XS=正算时,计算得出的所
5、求点的X坐标 YS=正算时,计算得出的所求点的Y坐标 FS=正算时,所求点对应的中线点的切线方位角XC=测站点X值YC= 测站点Y值 I=XXX 测站到放样点距离J=XXX测站到放样点方位角 S=反算时,计算得出的所求点的里程 Z=反算时,计算得出的所求点的边距三算例请到 有算例。注:1.本程序根据空间里程序改编而成,并非本人原创。2.正算跨线元计算正确,反算时跨线元计算第一次结果错误,反应速度比一般输出结果慢,给出结果S=XXX为输入坐标的线元概略里程,在进行计算,显示结果*近似里程*,里程及偏距误差0.001m.,可更改数据(1E-6)改为(1E-3),速度稍快一点。3本程序可进行偏角法放
6、样。4.输入每行数据看数据输完毕没有,输完不要忘记按(EXE)5.使用者需细心输入,有问题在以下网址查找原因。61E-6即是10的負6次方,亦即是等於0.0000017.希望高人指点把此程序改为数据库形式,并加入高程,希望哪位神仙路过指点一下,把程序改为坐标、高程一体的这程序就完美了,程序中不足之处请指点。曲線任意里程中邊樁坐標正反算5800pTYQXJS(主程序名)LbI 0:4Dimz:Cls1.SZXY2.XYSZ?N:ClsXO?U: YO?V: SO?O:FO?G: LS?H: RO?P:RN?R:?Q1PC:(P-R)(2HPR) D:180EN=2=Goto 2LbI 1:Cls
7、:?SS=0=Goto 0(注:當S輸入0時,程序會由LbI 0開始重新運行)?Z:Abs(S-O)WProgSUB1:ClsXS=:XYS=:YFS=:F-90 DMSGoto 1LbI 2:Cls:?XX=0=Goto 0(注:當X輸入0時,程序由會LbI 0開始重新運行)?Y:XI:YJProgSUB2:O+WS:ClsS=:SZ=:ZGoto 2注:紅色部可以不要,亦可以要,它的作用是將S或X輸入0時,程序會重新由頭開始運行,(即是可以計算下段線元)SUB1(子程序名)0.1739274226A:0.3260725774B0.0694318442K:0.3300094782L1-LF:
8、1-KMG+QEKW(C+KWD)Z1G+QELW(C+LWD)Z2G+QEFW(C+FWD)Z3G+QEMW(C+MWD)Z4Acos(Z1)X(剩號可省略)X+Bcos(Z2)XX+Bcos(Z3)XX+Acos(Z4)XU+WXXAsin(Z1)YY+Bsin(Z2)YY+Bsin(Z3)YY+Asin(Z4)YV+WYYG+QEW(C+WD)+90FX+Zcos(F)XY+Zsin(F)YSUB2(子程序名)G-90T(Y-V)cos(T)-(X-U)sin(T)WAbs(W)W:0ZLbI 4:ProgSUB1T+QEW(C+WD)L(J-Y)cos(L)-(I-X)sin(L)ZI
9、f Abs(Z)1E-6:Then 0Z :ProgSUB1(J-Y)sin(F)ZElse W+ZW:Goto 4:IfEnd注:1E-6即是10的負6次方,亦即是等於0.000001輸入時按SHIFT-log-(-)-6亦可直接將If Abs(Z)1E-6寫成If Abs(Z)0.000001注意:本程序是根據yhhf編寫的4800P改寫而成,以下是源程序及算例大家有問題亦可在以下網址查看及向yshf發問曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程正算子程序(SUB1)、反算子程序(SUB2)序构成,可以根据
10、曲线段直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中,用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。 特别申明:(1). 适用于弧长小于2倍半径的各种线元坐标正反算,精度优 于1mm;(2). 在引用该核心计算部分时,请注明来源。二、源程序1.主程序(TYQXJS)1.SZ = XY:2.XY = S
11、Z:N:UX0:VY0:OS0:GF0:HLS:PR0:RRN:Q:C=1P:D=(P-R)(2HPR):E=180:N=1=Goto 1:Goto 2Lbl 1:SZ:SZ:W=Abs(S-O):Prog SUB1:XXS=XYYS=YFFS=F-90Goto 1Lbl 2:XY:XY:I=X:J=Y:Prog SUB2:SS=O+WZZ=ZGoto 22. 正算子程序(SUB1)A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:M=1-K:X=U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QEL
12、W(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD):Y=V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD):F=G+QEW(C+WD)+90:X=X+ZcosF:Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90:W=Abs(Y-V)cosT-(X-U)sinT):Z=0:Lbl 0:Prog SUB1:L=T+QEW(C+WD):Z=(J-Y)cosL-(I-X)sinL:AbsZGoto1:W=W+Z:Goto 0Lbl 1:Z=0:
13、Prog SUB1:Z=(J-Y)sinF三、使用说明1、规定(1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。(2) 当所求点位于中线时,Z=0;当位于中线左铡时,Z取负值;当位于中线中线右侧时,Z取正值。(3) 当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替。(4) 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时
14、,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。2、输入与显示说明 输入部分:1. SZ = XY2. XY = SZ N ?选择计算方式,输入1表示进行由里程、边距计算坐标 ;输入2表示由坐标反算里程和边距。 X0 ?线元起点的X坐标 Y0 ?线元起点的Y坐标 S0 ?线元起点里程 F0 ?线元起点切线方位角 LS ?线元长度 R0 ?线元起点曲率半径
15、RN ?线元止点曲率半径 Q ?线 元左右偏标志(左偏Q=-1,右偏Q=1,直线段Q=0)S ? 正算时所求点的里程Z ?正算时所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零)X ?反算时所求点的X坐标Y ?反算时所求点的Y坐标 显示部分: XS=正算时,计算得出的所求点的X坐标 YS=正算时,计算得出的所求点的Y坐标 FS=正算时,所求点对应的中线点的切线方位角 S=反算时,计算得出的所求点的里程 Z=反算时,计算得出的所求点的边距四、算例某匝道的由五段线元(直线+完整缓和曲线+圆曲线+非完整缓和曲线+直线)组成,各段线元的要素(起点里程S0、起点坐标X0 Y0、起点切线方位角F0
16、、线元长度LS、起点曲率半径R0、止点曲率半径RN、线 元左右偏标志Q)如下: S0 X0Y0F0LS R0RN Q500.00019942.83728343.561 125 16 31.00 269.2561E45 1E45 0769.25619787.34028563.378 125 16 31.00 37.492 1E45 221.75 -1806.74819766.56628594.574 120 25 54.07 112.779221.75 221.75 -1919.52719736.07228701.893 91 17 30.6380.285 221.75 9579.228 -19
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- FX5800P全线任意里程中边桩坐标正反算 曲线任意里程中边桩坐标正反算.doc FX5800P 全线 任意 里程 中边桩 坐标 正反 曲线 doc
链接地址:https://www.31ppt.com/p-2805381.html