缓和曲线中桩坐标和切线方位角计算程序

《缓和曲线中桩坐标和切线方位角计算程序》由会员分享，可在线阅读，更多相关《缓和曲线中桩坐标和切线方位角计算程序（2页珍藏版）》请在金锄头文库上搜索。

1、 缓和曲线中桩坐标和切线方位角计算程序缓和曲线中桩坐标和切线方位角计算程序（PC-E500） - 作者：缓和曲线中桩坐标和切线方位角计算程序（PC-E500） 缓和曲线中桩坐标和切线方位角计算程序（PC-E500） 适用于第一缓和曲线、第二缓和曲线、卵型曲线（R1R2或 R2R1） 。该方法无须知道起点 切线方位角，但要已知终点坐标。如果想用它求起点切线方位角，只要输入的桩号 C 比 A 大1毫米就可以了。1.输入信息A=起点桩号；B=终点桩号；XA，YA=起点坐标；XB，YB=终点坐标；R1=起点半径； R2=终点半径；K=左偏为-1，右偏为1；C=AB 之间任意点桩号，ACB。直缓（缓直）

2、 点半径输1E50；Y$输“Y”，结束，回车继续下一个桩号的计算。2.输出信息XP，YP=桩号为 C 点的坐标；AT=桩号为 C 点的切线方位角（度.分秒） 。3.源程序：10:INPUT“A=“;A:INPUT“B=“;B:INPUT“XA=“;XA:INPUT“YA=“;YA:INPUT“XB=“;XB:INPU T“YB=“;YB15:INPUT “R1=“;R1:INPUT “R2=“;R2:INPUT “K=“;K20:G=ABS (R1*R2*(B-A)/(R1-R2):S=SQR (YB-YA)2+(XB-XA)2) 21:P0=ASN (YB-YA)/S)23:IF (XB-X

3、A)0 AND P00 THEN P0=P0+360 25:IF R126:Z=1:M=G/R1 30:L=B-A:GOSUB 104031:P1=PP35:INPUT “C=“;C:L=C-A40:GOSUB 104050:P2=P1-PP:P3=P0-K*P260:XP=XA+DP*COS P3:YP=YA+DP*SIN P370:P4=180*(M*L+Z*L2/2)/G/PI :AT=P3+K*(P4-PP)80:PRINT “XP=“;XP:PRINT “YP=“;YP:PRINT “AT=“;DMS AT100:INPUT “END?“;Y$110:IF Y$=“Y“ THEN E

4、ND120:GOTO 351040:X=L- L3*(M*M/3+Z*M*L/4+L*L/20)/(2*G2)+L5*(M4/5+Z*M3*L/3+3*M2*L2/14+Z*M*L 3/16+L4/144)/24/G41050:Y1=L2*(M+Z*L/3)/2/G-L4*(M3/2+3*Z*M2*L/5+M*L2/4+Z*L3/28)/12/G31060:Y2=L6*(M5/3+5*Z*M4*L/7+5*M3*L2/8+5*Z*M2*L3/18+M*L4/16+Z*L5/176)/ 240/G51070:Y=Y1+Y21080:DP=SQR (X2+Y2)1090:PP=ATN (Y/X)1095:RETURN