简洁一个交点计算坐标及反算桩号程序.doc

Deg：Defm4Lb0:Q：Q0=L：L： GOTO1VH：L=0：V“XA”：H“YA”Lb1：N=1Lb2：Fixm：Prog“JD”:U=E：M=F N=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:AbsU180=U=U-360AbsUUD=UAbsU：M=S2-S3240R2P=S224R-S42688R3：=A224R-A42688R3 第二缓曲内移量Abs（S-A）0=T=（-P）（2tg0.5U）+0.5(P+2R)tg0.5U+MZ3=（P）（2tg0.5U）0.5(P2R)tg0.5U+A2-A3240R2:=T=(R+P)Abstg0.5U+M：Z3=T=AbsU(180)R+(S+A)2 曲线全长LZ+-T=C=0:K=G:X=L（Z+-T）Z3：Y=Q：=LZ-T+-A=W=Z-T-L+:C=Z3：S=A:K=G-180:Prog“LU”：Y=-Y：=LZ-T+S=C=T：K=J：W=L-ZT:Y=D（P+R-Rec（R-DQ，（W-0.5S）R(180：X=M+J：=LZ-T=W=TLZ:C=T：K=J:Prog“LU”：=C=T:K=J:X= LZT ：Y=QPol（X-C，Y：J=JKX=E+Rec（I，J：Y=J+FPol（Z1-X，Z2-YQ0=X“XK”Y“YK”I“JL” J“FWJ”=180+JGOTO 0Pol(V-X,H-YLZ+-T=K=K：=LZ-T+-A=K=K-180-DZ4：=LZ-T+S=K=K180D（W-0.5S）R：=LZ-T=K=KDZ4：=K=K=Icos（J-KAbs0.005=L“ZH HAO”=L+“B K”=Isin(J-K =L=L+：GOTO 11 此程序约780字节。如果要进行极坐标放样，应先把测站坐标X、Y输入计算器寄存器Z1 、Z2。2 如要计算线路高程可在J“FWJ”=180+J和“B K”=Isin(J-K 后面运行子程序Prog“SU”3 当半宽Q输入数字“0”时，程序将根据输入的坐标XA、YA求算桩号L+及半宽“B K”；当半宽Q输入数字非“0”时，则以输入的桩号L、Q计算线路坐标XK YK与测站坐标的距离I“JL”及方位角 J“FWJ”=180+J4 U=G-J 转角左“-”，右“+”。 T 第一切线长度 Z3 第二切线长度5 区别阿拉伯数字0与英文字母O； Z1 Z2 测站坐标X、Y；6 V“XA”:H“YA”需要求算桩号及半宽的坐标；L 所求桩号； Q 所求半宽7 D=UAbsU 运算符号及自行判断左右拐左“-1”右“+1”； T第一切线长度；8 LZ+-T 缓直点桩号； LZ-T+-A圆缓点桩号； LZ-T+S缓圆点桩号9 Z-T直缓点桩号； K180D（W-0.5S）R 对应曲线长度切线方位角LU Z4=W22RS180：X=W-W540R2S2-W93456R4S4-DQsin Z4Y=DW36RS-DW7336R3S3+Qcos Z4JD N=1=E=23535.019：F=11333.96N=2=Z=121112.164：E=19114.638：F=13055.709：R=4500：S=320 A=320N=3=E=12357.419：F=10728.347N=1只输入线路第一交点“前直线段”任意中心桩号点坐标E、F即可N=2输入交点参数N=3终点只输入线路终交点的“后直线段”任意中心桩号坐标E、F即可Z 交点桩号； EF交点坐标； R 半径； S 第一缓和曲线长度LS1；A 第二缓和曲线长度LS2； 如果无缓和曲线则S=0、A=0；如果等缓和曲线则S=LS1、A=LS1、SU LQZ：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-CLI+T=GoTo2LI-T=U=(T-Abs(L-I)22RLI=N=D:=N=CH“G CH”=N(L-I)+Abs(D-C)U(D-C)+J：1 此程序既可作为子程序配合主程序，也可单独使用2 LZ 实测点或所求点的桩号、高程； 3 T 切线长； C 第一段坡度； D 第二段坡度； H “G CH”设计高程；SD W=1=I=5970:J=622.59W=2=I=6160:J=625.1:R=11000略竖曲线数据I 竖曲线变坡点桩号； J竖曲线变坡点高程； R 竖曲线半径；W=1及W=终点与平曲线子程序“JD”中的“N=1及N=终点”的原理类同缓和曲线中的任意坐标求算桩号及半宽KGEFTMRLb0：XYZ：XYZ： N=0.001Lb1：S=N22GR180A=N-N540G2R2+N93456G4R4B=K（N36GR-N7336G3R3C=E+Rec（Pol（A，B），T+J：D=F+JPol（XC，YD L=Icos（J-T-KS：AbsL0.005=N=N+L：GoTo1L=NMQ= Isin（J-T-KSGoTo0G 缓和曲线长度L0EF ZH点或HZ点平面坐标M ZH点或HZ点桩号 R 半径XYZ 实测三维坐标K 判断符号左拐=“-1”右拐=“+1” 以HZ点或ZH点往JD点为方向LQ 所求点的桩号及半宽当从ZH点往JD点计算时，输入方位角T应输入从ZH点往JD点的方位角当从HZ点往JD点计算时，输入方位角T应输入从JD点往HZ点的方位角编后感：优秀的测量放样程序数不胜收，而且各有利弊、各有千秋，而根据自己的认知能力、水平去编写一些自己得心应手、随心所欲的程序不也是一种享受和乐趣吗？本人自2005年8月入浙江省温州诸暨永嘉诸永高速正式接触高速公路至2006年5月转福建省泉州三明泉三高速公路以来，对中铁系统和水电系统在公路、隧道中的测量放样中的异同感触颇深。值此，我现在的工地因变更而已停工月余，而萌发对自己自2004年接触等级公路以来所编写的公路测量放样程序进行系统的归纳总结、整合优化的想法，以达到程