线路中边桩任意里程坐标正反算改编程序CASIO4850

《线路中边桩任意里程坐标正反算改编程序CASIO4850》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、线路中边桩任意里程坐标正反算改编程序CASIO4850作者：白黑    文章来源：本站原创    点击数：742    更新时间：2006-11-8    含数据库、测站放样计算（第五次修改-正式版）1.加编数据库及计算总调度程序,计算中不必逐项输入"线元要素",提高运算速度，避免现场忙中出错2.可加入多条线路的数据库,内业输入数据,外业一目了然3.计算直观,人性化4.正算直接输入里程和边距,反算输入近似里程便可5.增加了“计算点与测站点”的距离和方位角计算语句，方便直接放样6.愿收获与大家共享,同时也希望大家提出心得和宝贵建议7.核心计算程序摘自“yshf”    一.改动后的程

2、序清单，增设数据库程序,可输入n条线路的数据库   1.(QXZDJS  计算总调度程序)M=1=>Prog"SJK1":Prog"SUBSJK"△←┘...........M=n=>Prog"SJKn":Prog"SUBSJK"△←┘  2.(SJK1  数据库程序)"1.SZ=>XY"："2.XY=>SZ"：｛N,S｝：N：S"DKI"←┘S≤本线元终点里程＝＞U=本线元起点X坐标：V=本线元起点Y坐标：G=本线元起点正切线方位角：P=本线元起点曲率半径：R=本线元终点曲率半径：O=本线元起点里程：H=本线元终点里程：Q=本线元左直右偏向(0或1、-1):Goto0Δ←┘S≤下

3、一线元终点里程=＞O=。。。。。。。。。。。。。。。。：Goto0Δ←┘LB10   3.(SUBSJK  运算主程序){UVGPROHQ}：U"XA"：V"YA"：G"FA"：P"RA"：R"RB"：O"DKA"：H"DKB"：Q←┘Deg:S>H=>GotoAΔD=(P-R)÷2PR(H-O)：N=1=>Goto1：≠>Goto2Δ←┘Lbl1：{Z}：Z：W=Abs(S-O)：Prog"SUB1"："XS="：X◢"YS="：Y◢"QX-FWJ="：F=F-90←DMS◢I=0：J=0：Pol（X-C"XC"，Y-E"YC"）：J<0＝＞J=J+360：Δ“FWJ=”:J←D

4、MS◢“I=”：I◢GotoA←┘Lbl2：{XY}：I=X：J=Y：Prog"SUB2"："S=":S=O+W◢"Z=":Z◢Lbl A                           4.(SUB1  正算子程序)A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：X=U+W(Acos(G+180QKW(1÷P+KWD)÷π)+Bcos(G+180QLW(1÷P+LWD)÷π)+Bcos(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Acos(G+180(1-K)QW(1÷P+(1-K)WD)÷

5、π))：Y=V+W(Asin(G+180QKW(1÷P+KWD)÷π)+Bsin(G+180QLW(1÷P+LWD)÷π)+Bsin(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Asin(G+180(1-K)QW(1÷P+(1-K)WD)÷π))：F=G+180QW(1÷P+WD)÷π+90：X=X+ZcosF：Y=Y+ZsinF   5.(SUB2  反算子程序)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl0：Prog"SUB1"：L=T+180QW(1÷P+WD)÷π：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1÷

6、10^6=>Goto1：≠>W=W+Z：Goto0Δ←┘Lbl1：Z=0：Prog"SUB1"：Z=(J-Y)÷sinF   二.使用说明： 1.把所有相关的”线元要素“依次输入”SJK“，如果有多条线路，可把“SJK”分成SJK1...SJKn等n条线路数据库，然后对应“计算总调度程序”中的M1...Mn备用 2.运算时直接调用“SJK”运行，程序提示输入里程“S”？时，正算直接输入待求点里程，反算输入所求点“近似“里程 3.如果在正算中途想进行反算，重新给”N“？赋值"2"便可 4.程序中“XC、YC”为测站坐标，“I＝”、“FWJ＝”为放样距离和方位角 5.程序中“QX-FW

7、J=”为计算点在中线上的正切线方位角，此方位角在新线路输入数据库时非常重要，我们在每输入完一段曲线元要素后，立即退出返回到“计算总调度程序(SUBSJK)”中，然后输入该段曲线元的终点里程，其计算出来的X，Y中桩坐标应该与设计图纸(当然是经过复查无误的图纸)上的该点中桩坐标一致，否则一定是哪个地方数据输入或者程序有误，这时候我们一定要把该计算点在中线上的正切线方位角“QX-FWJ=”记录下来为下一段曲线元要素数据输入服务，因为它就是下一段曲线元的起点正切线方位角，嘿嘿