交点正反算坐标可计算不对称缓和曲线蓝星

5800交点正反算坐标（可计算不对称缓和曲线）蓝星
FX5800P交点法正反算坐标程序作者:蓝星 QQ群号:
输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。

1、主程序
程序名:1XY-KM
LbI 0:7DimZ:Norm 2:1A::A:X,Y=1，KM,D=2:A: A=1=>Goto
1:A=2=>Goto 2:
::LbI A:Prog:QX::90B::PJ:B:BZLbI 1:Prog :DX
[1]:LbI B::K:Z:Z= -1=>Goto 0:Z=-2=>Goto A: Prog:KM::D: Prog "Z":I+D×COS(Z[2]+Z[1]X: J+D×Sin(Z[2]+Z[1]Y: ,ix 3:: ,=::Locate
6,4,,:: ,,::Locate 6,4,,:Prog:JS::Goto B:
LbI 2:Prog:QX::LbI C::KM:Z:Z=-1=>Goto 0:Z=-2=>Got
o 2: Prog:K:: :XO:X: :Y0:Y:Prog :ZX:: Fix 3:: ,,,::Locate 6,4,,:: ,,::Locate
6,4,,:Goto C
2. 交点法正算子程序(Z)
程序名:Z
22HR24-H(4)2688R(3)A:H2-H(3)240RB:
22((H-N)24RSin(Abs(P))-((H(4)-
N(4))2688R(3))Sin(Abs(PE:(R+A)tan(Abs(P)2)+B-ET:PAbs(P
2W:0M:HC: R+NR24-N(4)2688R(3))tan(Abs(P)
FX5800P交点法正反算坐标程序作者:蓝星 QQ群号:
22)+N2-N(3)240R+EZ[6]: O-T+ΠR×Abs(P)180+H2-N2Z[7]:
If ZO-T:Then Z-OS:GZ[2]:Goto 1: IfEnd: If ZO-T+H:Then Z-O+TS:Prog “HX”:G+WKZ[2]:A-TA:GE:Goto 2:IfEnd:
If ZZ[7]: Then 180(Z-O+RΠS : A+R(1-Cos
2(S))B:H2-H(3) 240R+Rsin(S)A:RM:G+WSZ[2]:
A-TA:GE :Goto 2: IfEnd:
If ZZ[7]+N:Then Z[7]+N-ZS:Z[6]T :NH:Prog “HX”:G+PE:E-WKZ[2]:T-AA:CH:Goto 2:IfEnd: Z-Z[7]-N+Z[6]S:G+PZ[2]:
LbI 1:U+Scos(Z[2])I:V+Ssin(Z[2]J: Return: LbI 2:U+Acos(E)-
WBsin(EI:V+ASin(E)+WBcos(EJ 3. 交点法缓和段子程序(HX)
程序名:HX
22S-S(5)40RH+S(9)3456R(4) H(4A:S(3)
6RH-S(7)336R(3)H(3)+S(11)42240R(5)
2 H(5B:90SΠRHK:RHSM
4. 交点法反算子程序(ZX)
程序名:ZX
FX5800P交点法正反算坐标程序作者:蓝星 QQ群号:
0D:Do:Z+DZ:Prog “Z”:Pol(X-I,Y-J+.000000001:J-Z[2] J:Isin(JS:Icos(JD: If M0:Then Pol(M-WS,D:JMΠ180D: LpWhile Abs(D)>: Z+DZ:SD
5(线路选择子程序(线路选择输0时。

则输曲线参数(QX) 程序名:QX
A:AZ[3]: 1A:”QX:,=0，X1=1”
If
A=0:Then ”JDKM”O:”XJ”U:”YJ”V:”FW”G:”LS1”H:“LS2”,N:“JDZ J”,P:R:IfEnd
6(坐标计算参数矩阵调出子程序(F)
程序名:F
Mat F[1,1]O: Mat F[1,2]U: Mat F[1,3]V: Mat F[1,4]G: Mat F[1,5]H: Mat F[1,6]N: Mat F[1,7]P: Mat F[1,8]R
7(导线点子程序(DX)
程序名:DX
Z[4]K:Z[5]L:“XZ”K:”YZ”L:KZ[4]:LZ[5] 8(线路中线元段判别子程序(KM) 程序名:K
If Z[3]=0:Then Return: IfEnd:If Z[3]=1:Then Prog “X1”:
Return: IfEnd
9:极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名:JS
FX5800P交点法正反算坐标程序作者:蓝星 QQ群号:
X:Y:Z[4]K:Z[5]L:Pol(X-K, Y-L+.0000000001): J<0=>
J+360J: Int(J)+(60Frac(J))+(60Frac(J))
J: Fix 4:” FWJ=”: Locate 6,4,J:
Fix 3:” S=”:Locate 6,4,I
10(数据子程序
程序名:X1(线路1坐标计算要素程序)
If Z:Then [[, , , 9853′″,660,300, 4147′″, ]]Mat F: Prog”F”: Return: IfEnd: If Z:Then [[, , , 14041′″,700,400, ,3931′″,2800]]Mat F: Prog”F”: Return:IfEnd: 说明:If Z《交点HZ点桩号:Then[[交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径]] Mat F: Prog”F”: Return: IfEnd:
注:转角分正负，左偏为负，右偏为正.加粗O为子母..Z[2]值为所计算点切线方位角。

输入部分:
1、:A:X,Y=1，KM,D=2: 选择正反算，输1为正算，输2为反算;
2、XZ, YZ,输入置仪点X、Y坐标
FX5800P交点法正反算坐标程序作者:蓝星 QQ群号:
3、”QX:,=0，X1=1” 选择手工输入参数及调入参数，输0则手工输入交点线元参数，输1则调入子程序X1的线元参数。

4、PJ 路线方向中线向右夹角，默认为90度;
5、JDKM,XJ,YJY,FW,LS1,LS2,JDZJ,R,分别输入:交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径
6、KM, 输入计算段任意点桩号(主程序中输-1，返回选择正反算，输-2，返回选择输入参数、调用参数.
7、D, 距中桩距离，左负，右正，中桩输0。

输出部分:
1、X=*** 正算时，计算得出的所求点的X坐标
2、 Y=*** 正算时，计算得出的所求点的Y坐标
3、FWJ=*** 正算时，计算得出的所求点的至置仪点方位角(显示即是125度32分58秒)
4、S=*** 正算时，计算得出的所求点的至置仪点距离
5、,,=*** 反算时，计算得出的所求点的里程
6、,=*** 反算时，计算得出的所求点的边距附X1子程序中数据的设计图纸。

(红色部分)
FX5800P交点法正反算坐标程序作者:蓝星 QQ群号:
直线、曲线及转角表
第 1 页共 2 页 S11-2-4 工程名称:广州至河源高速公路,惠州段,SJ-2合同段
直线长度及方向交点坐标曲线要素值 (m)曲线主点桩号交点交点桩号转角值备注第一缓和曲线第一缓和曲线终第二缓和曲线起第二缓和曲线缓和曲缓和曲切线曲线直线段交点间号曲线中点N (X)E (Y)半径外距校正值计算方位角起点点或圆曲线起点点或圆曲线终点终点线长度线参数长度长度长 (m)距(m)
2181920
长链:20′″K105+ = 长链: =
相关文档：
•
•
•
•
•
•
•
•
•
•
更多相关文档请访问：。