简洁一个交点计算坐标和反算桩号程序

《简洁一个交点计算坐标和反算桩号程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Deg：Defm4Lb0:｛Q｝：Q≠0=>｛L｝：L：GOTO1⊿｛VH｝：L=0：V“XA”：H“YA”Lb1：N=1Lb2：Fixm：Prog“JD”:U=E：M=FN=N+2:Prog“JD”：P=E：T=FN=N-1:Prog“JD”Pol(P-E,T-F:G=J：Pol(E-U,F-MU=G-J:AbsU＞180=＞U=U-360AbsU÷U⊿D=U÷AbsU：M=S÷2-S∧3÷240R2P=S2÷24R-S∧4÷2688R∧3：@=A2÷24R-A4÷2688R3第二缓曲内移量Abs（S-A）＞0=〉T=（@-P）÷（2tg0.5U）+0.

2、5(@＋P+2R)×tg0.5U+MZ[3]=（P－@）÷（2tg0.5U）＋0.5(@＋P＋2R)×tg0.5U+A÷2-A3÷240R2:≠=>T=(R+P)Abstg0.5U+M：Z[3]=T⊿@=AbsU÷(180÷π)×R+(S+A)÷2曲线全长L＞Z+@-T=＞C=0:K=G:X=L－（Z+@-T）＋Z[3]：Y=Q：≠=＞L>Z-T+@-A=＞W=Z-T-L+@:C=Z[3]：S=A:K=G-180:Prog“LU”：Y=-Y：≠=＞L>Z-T+S=＞C=T：K=J：W=L-Z＋T:Y=D（P+R-Rec（R-DQ，（（W-0.5S）÷R×(

3、180÷π：X=M+J：≠=＞L＞Z-T=＞W=T＋L－Z:C=T：K=J:Prog“LU”：≠=＞C=T:K=J:X=L－Z＋T：Y=Q⊿⊿⊿⊿Pol（X-C，Y：J=J＋KX=E+Rec（I，J：Y=J+FPol（Z[1]-X，Z[2]-YQ≠0=>X“XK”◢Y“YK”◢I“JL”◢J“FWJ”=180+J◢GOTO0⊿Pol(V-X,H-YL＞Z+@-T=＞K=K：≠=＞L>Z-T+@-A=＞K=K-180-DZ[4]：≠=＞L>Z-T+S=＞K=K＋180D（W-0.5S）÷πR：≠=＞L＞Z-T=＞K=K＋DZ[4]：≠=＞K=K⊿⊿⊿⊿@=I

4、cos（J-KAbs@≤0.005=＞L“ZHHAO”=L+@◢@“BK”=Isin(J-K◢≠=＞L=L+@：GOTO1⊿1此程序约780字节。如果要进行极坐标放样，应先把测站坐标X、Y输入计算器寄存器Z[1]、Z[2]。2如要计算线路高程可在J“FWJ”=180+J◢和@“BK”=Isin(J-K◢后面运行子程序Prog“SU”3当半宽Q输入数字“0”时，程序将根据输入的坐标XA、YA求算桩号L+@及半宽@“BK”；当半宽Q输入数字非“0”时，则以输入的桩号L、Q计算线路坐标XK◢YK◢与测站坐标的距离I“JL”◢及方位角J“FWJ”=180+J◢4U

5、=G-J转角左“-”，右“+”。T第一切线长度Z[3]第二切线长度5@区别阿拉伯数字0与英文字母O；Z[1]Z[2]测站坐标X、Y；6V“XA”:H“YA”需要求算桩号及半宽的坐标；L所求桩号；Q所求半宽7D=U÷AbsU运算符号及自行判断左右拐左“-1”右“+1”；T第一切线长度；8L＞Z+@-T缓直点桩号；L>Z-T+@-A圆缓点桩号；L>Z-T+S缓圆点桩号9Z-T直缓点桩号；K＋180D（W-0.5S）÷πR对应曲线长度切线方位角LUZ[4]=W2÷2RS×180÷π：X=W-W∧5÷40R2S2-W9÷3456R4S4-DQsinZ[4]Y=DW

6、∧3÷6RS-DW∧7÷336R∧3S∧3+QcosZ[4]JDN=1=＞E=23535.019：F=11333.96⊿N=2=＞Z=121112.164：E=19114.638：F=13055.709：R=4500：S=320A=320⊿N=3=＞E=12357.419：F=10728.347⊿N=1只输入线路第一交点“前直线段”任意中心桩号点坐标E、F即可N=2输入交点参数N=3终点只输入线路终交点的“后直线段”任意中心桩号坐标E、F即可Z交点桩号；EF交点坐标；R半径；S第一缓和曲线长度LS1；A第二缓和曲线长度LS2；如果无缓和曲线则S=0、A=0

7、；如果等缓和曲线则S=LS1、A=LS1、SULQZ：Fixm：W=1：U=0Lb2:Prog“SD”C=I:D=JW=W+2:Prog“SD”E=I:F=JW=W-1:Prog“SD”C=(J-D)÷(I-C：D=(F-J)÷(E-I：T=0.5RAbs(D-CL>I+T=>GoTo2⊿L>I-T=>U=(T-Abs(L-I))2÷2R⊿L>I=>N=D:≠=>N=C⊿H“GCH”=N(L-I)+Abs(D-C)U÷(D-C)+J：1此程序既可作为子程序配合主程序，也可单独使用2LZ实测点或所求点的桩号、高程；3T切线长；C第一段坡度；D第二段坡度；H“

8、GCH”设计高程；SDW=1=>I=5970:J=622.59⊿W