资源描述：
《大地坐标和里程的正反算.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、1、主程序程序名：1XY-KMLbI0:5→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:1→F:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>GotoA:Z=-3=>GotoX:Prog＂KM＂:?D:Prog"Z":I+D×COS(Z[2]+Z[1])→X:J+D×Sin(Z[2]+Z[1])→Y:Ｆix3:＂Ｘ=＂：Locate6,4,Ｘ：＂
2、Ｙ＝＂：Locate6,4,Ｙ：Prog＂JS＂:GotoBLbI2：LbIA:Prog＂QX＂:90→Z[1]：LbIC:2→F:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>GotoA:Z=-3=>GotoX:Prog＂KM＂:?D:Prog＂ZX＂:Fix3:＂ ＫＭ＝＂：Locate6,4,Ｚ：＂ Ｄ＝＂：Locate6,4,Ｄ：GotoC:LbIX:MatF◢Goto02.交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2
3、-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:IfZ≤O-T:ThenZ-O→S:G→Z[2]:Goto2:IfEnd:IfZ≤O-T+H:ThenZ-O+T→S:Prog“HX”:G+WK→Z[2]:Goto4:IfEnd:IfZ≤O-T+ΠR×Abs(P)÷180+H÷2-N÷2:Then180(Z-O+T-0.5H)÷R÷Π→S:A+R(1-Co
4、s(S))→B:H÷2-H∧(3)÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:Goto4:IfEnd:O-T+ΠR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→T:N→H:Prog“HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto3:LbI4:U+(A-T)cos(G)-WBsi
5、n(G)→I:V+(A-T)Sin(G)+WBcos(G)→J:Goto3:LbI2:U+Scos(Z[2])→I:V+Ssin(Z[2])→J:LbI3:C→H3.交点法缓和段转化子程序(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.交点法反算子程序(ZX)程序名：ZXZ:0→D:LbI0:Prog“
6、Z”:Pol(X-I,Y-J):J-Z[2]→J:Isin(J)→S:Icos(J)→I:IfAbs(I)<0.1:ThenZ+I→Z:S→D:Goto2:ElseGoto1:LbI1:IfM=0:ThenZ+I→Z:Goto0:ElesPol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto0:IfEndLbI25．线路选择子程序(线路选择输0时。则输曲线参数（QX）程序名：QX1→A:”QX:？=0，X1=1”?A:A→Z[3]:IfA=0:ThenGoto1:ElseGoto2:IfEnd:LbI1:
7、”JDKM”?O:”XJ”?U:”YJ”?V:”FW”?G:”LS1”?H:?“LS2”？N：“JDPJ”？P:?R:LbI26．坐标计算参数转化子程序（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）程序名：KMI
8、fZ[3]=0:ThenGoto0:ElseIfZ[3]=1:ThenProg“X1”:LbI09：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSX：Y：Z[4]→K：Z[5]→L：Pol(X-K,Y-L):IFJ<0:ThenJ+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.00
