资源描述:
《5800交点正反算坐标(可计算不对称缓和曲线)》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、FX5800P交点法正反算坐标程序作者:蓝星QQ:13119703QQ群号:24817026输入图纸中的整个标段交点要素,输入桩号及距中桩距离正算本标段任意点坐标,及极坐标放样的方位角及距离;由输入大概桩号及实测坐标,反算准确桩号及距中桩距离。1、主程序程序名:1XY-KMLbI0:7→DimZ:Norm2:1→A:"A:X,Y=1,KM,D=2"?A:A=1=>Goto1:A=2=>Goto2:LbI1:Prog"DX":LbIA:Prog"QX":90→B:"PJ"?B:B→Z[1]:LbIB:"K"?Z:Z=-1=>Goto0:Z=-2=>Go
2、toA:Prog"KM":?D:Prog"Z":I+D×COS(Z[2]+Z[1]→X:J+D×Sin(Z[2]+Z[1]→Y:Fix3:"X=":Locate6,4,X:"Y=":Locate6,4,Y:Prog"JS":GotoB:LbI2:Prog"QX":LbIC:"KM"?Z:Z=-1=>Goto0:Z=-2=>Goto2:Prog"K":"XO"?X:"Y0"?Y:Prog"ZX":Fix3:" KM=":Locate6,4,Z:" D=":Locate6,4,D:GotoC2.交点法正算子程序(Z)程序名:ZH2÷R÷24-H∧(4)
3、÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:((H2-N2)÷24÷R÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R∧(3))÷Sin(Abs(P→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P→W:0→M:H→C:R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)FX5800P交点法正反算坐标程序作者:蓝星QQ:13119703QQ群号:24817026÷2)+N÷2-N∧(3)÷240÷R2+E→Z[6]:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→
4、Z[7]:IfZ≤O-T:ThenZ-O→S:G→Z[2]:Goto1:IfEnd:IfZ≤O-T+H:ThenZ-O+T→S:Prog“HX”:G+WK→Z[2]:A-T→A:G→E:Goto2:IfEnd:IfZ≤Z[7]:Then180(Z-O+T-0.5H)÷R÷Π→S:A+R(1-Cos(S))→B:H÷2-H∧(3)÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:A-T→A:G→E:Goto2:IfEnd:IfZ≤Z[7]+N:ThenZ[7]+N-Z→S:Z[6]→T:N→H:Prog“HX”:G+P→E:E-WK→Z[
5、2]:T-A→A:C→H:Goto2:IfEnd:Z-Z[7]-N+Z[6]→S:G+P→Z[2]:LbI1:U+Scos(Z[2])→I:V+Ssin(Z[2]→J:Return:LbI2:U+Acos(E)-WBsin(E→I:V+ASin(E)+WBcos(E→J3.交点法缓和段子程序(HX)程序名:HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5→B:90S2÷Π÷R÷H→K:RH÷S→M4.
6、交点法反算子程序(ZX)程序名:ZXFX5800P交点法正反算坐标程序作者:蓝星QQ:13119703QQ群号:248170260→D:Do:Z+D→Z:Prog“Z”:Pol(X-I,Y-J+.000000001:J-Z[2]→J:Isin(J→S:Icos(J→D:IfM≠0:ThenPol(M-WS,D:JMΠ÷180→D:LpWhileAbs(D)>0.001:Z+D→Z:S→D5.线路选择子程序(线路选择输0时。则输曲线参数(QX)程序名:QX1→A:”QX:?=0,X1=1”?A:A→Z[3]:IfA=0:Then”JDKM”?O:”XJ
7、”?U:”YJ”?V:”FW”?G:”LS1”?H:“LS2”?N:“JDZJ”?P:?R:IfEnd6.坐标计算参数矩阵调出子程序(F)程序名:FMatF[1,1]→O:MatF[1,2]→U:MatF[1,3]→V:MatF[1,4]→G:MatF[1,5]→H:MatF[1,6]→N:MatF[1,7]→P:MatF[1,8]→R7.导线点子程序(DX)程序名:DXZ[4]→K:Z[5]→L:“XZ”?K:”YZ”?L:K→Z[4]:L→Z[5]8.线路中线元段判别子程序(KM)程序名:KIfZ[3]=0:ThenReturn:IfEnd:If
8、Z[3]=1:ThenProg“X1”:Return:IfEnd9:极坐放样计算程序(计算放样点至置仪点方位