5800公路坐標正反算程序(線元法數(shù)據(jù)輸入)

5800公路坐標正反算程序(線元法數(shù)據(jù)輸入)5800公路坐標正反算程序(線元法數(shù)據(jù)輸入)5800公路坐標正反算程序(線元法數(shù)據(jù)輸入)5800公路坐標正反算程序(線元法數(shù)據(jù)輸入)編制僅供參考審核批準生效日期地址：電話：傳真:郵編:坐標正反算程序程序變量說明：D：選線。E、F:置儀點坐X、Y。K：待算點樁號。B：待算點距離。Q：待算點與線路交角（以順時針方向）。L：線元起點至待算點長度。O：待算點方位角。S：線元長度。U：線元起點半徑。V：線元終點半徑。X、Y：正算結(jié)果。Z、計算序列。C、I、J、T：內(nèi)部運算。A、G、H、M、N、P、R、W未用變量。坐標正反算主程序(GLZB-ZFS)Deg:Norm2Z[1]→Z:”兩個空格ZS=1OrFS=2”ZIfZ≠1AndZ≠2:ThenCls:Locate5,2,”NO1Or2”:Locate6,3“!Stop!”:Stop:ElseZ→Z[1]:IfEndZ[10]→D:“四個空格XL→1→2→3九個空格XLN=N”DIfD≠1AndD≠2AndD≠3:ThenCls:Locate5,2,”XL→1→2→3”:Locate5,3“!Stop!”:Stop:ElseD→Z[9]:IfEndIfD=Z[10]:ThenCls:Do:Locate3,1,”[EXE]GO!GO!”:Locate8,2,9-Intg(Z/7)Locate4,3,”10S→DAT.”:Locate12,3,D:IszZ:Z=70=>Goto1:LpwhileGetkey≠47:Goto2:IfEndLbl1D=1=>Prog””:D=2=>Prog””:D=3=>Prog””:D=X=>Prog””D→Z[7]:For1→ZToZ[7]-1Cls:Locate9,2,Z[7]-ZZ[10Z+11]-Z[10Z+1]→LProg”TQSJ”:NextLbl2Z[9]→Z[10]Cls:Z[1]=2=>Prog”FS”Z[2]→E:“(X)=”E:E→Z[2]:Z[3]→F:”(Y)=”F:F→Z[3]:Prog”ZS”正算子程序1（ZS）Lbl0:Norm2“k0+000=”K:”+Xm=”B:”α=”Q0→Z:Prog“TQSJ”Rec(B,O+Q)X+I→X:Y+J→YPol(X-Z[2],Y-Z[3])Cls:Fix3“X=”:Locate5,1,X“Y=”:Locate5,2,Y“=--=”:Locate5,3,I“=＞＜=”:Locate5,4,JoGoto0反算子程序2（FS）Lbl0:Norm2Z[4]→E:“Xp”E:Z[5]→F:”Yp”F:”k0+000m=”KK=0=>Z[1]→K:E→Z[4]:F→Z[5]Do:0→Z:Prog”TQSJ”Pol(Z[4]-X,Z[5]-Y)Rec(I,O-J)K+I→K:LpwhileAbs(I)＞0.01Cls:Fix3“ZH=”:Locate5,1,K“JL=”:Locate5,2,JGoto0數(shù)據(jù)調(diào)用子程序3(TQSJ)IfZ[10]≠0:ThenDo:IszZ:LpwhileK≥Z[10Z+1]:DszZ:K-Z[10Z+1]→L:IfEndZ[10Z+2]-1→UZ[10Z+3]→OZ[10Z+4]→XZ[10Z+5]→YZ[10Z+12]-1→VZ[10Z+11]-Z[10Z+1]→SProg“JS”O(jiān)+90L2(U-V)/(πS)-180UL/π→OIfZ[10]≠0:ThenReturn:IfEndO＞360=>O-360→OO＜0=>O+360→OOO→Z[10Z+13]X→Z[10Z+14]Y→Z[10Z+15]坐標運算子程序4(JS)IfU≠V:ThenAbs(S/(U-V))→CCU→D(U-V)/Abs(U-V)→EEL-D→FF+D-(F5+D5)/(40C2)+(F9+D9)/(3456C4)→I(F3+D3)/(6C)-(F7+D7)/(336C3)+(F11+D11)/(42240C5)→JO-90ED2/(πC)→CX+EIcos(C)-Jsin(C)→XY+EIsin(C)+Jcos(C)→YReturn:IfEndIfUV=0:ThenX+Lcos(O)→X:Y+Lsin(O)→Y:Return:IfEndO-180LU/π→CX+(sin(O)-sin(C))/U→XY-(cos(O)-cos(C))/U→Y數(shù)據(jù)庫子程序59→DimZ:13→D:10D+10→DimZ99O51’”→Z[13]:→Z[14]:→Z[15]8800→Z[11]:×1045→Z[12]→Z[21]:×1045→Z[22]→Z[31]:600→Z[32]→Z[41]:600→Z[42]→Z[51]:×1045→Z[52]→Z[61]:-600→Z[62]→Z[71]:-600→Z[72]→Z[81]:×1045→Z[82]→Z[91]:×1045→Z[92]→Z[101]:-625→Z[102]→Z[111]:-625→Z[112]→Z[121]:×1045→Z[122]→Z[131]:×1045→Z[132]數(shù)據(jù)庫子程序69→DimZ:13→D:10D+10→DimZ紅色加粗的數(shù)量根據(jù)參數(shù)多少需更改。數(shù)量為Z[131]中的13數(shù)據(jù)庫子程序79→DimZ:13→D:10D+10→DimZ程序運行內(nèi)容說明：開機運行程序后，1、進入GLZB-ZFS主程序，選擇正算或反算，1為正算，2為反算。2、選擇線路，1為第線。2為第線。3為第線等等。3、如果上一次計算過的話提示是不更新數(shù)線路參數(shù)，十秒鐘不操作更新，按EXE不更新。如果上一次不是計算現(xiàn)在要計算的線路的話直接更新數(shù)據(jù)庫（數(shù)據(jù)庫更新會倒計時提示）。3、正算。提示入入置儀點坐標。提示輸入待算點樁號。提示輸入離中樁距離。提示輸入與線路方向夾角。結(jié)果：坐標X、Y。距置儀點距離和方位角。再次提示輸入待算點樁號。反算。提示輸入實測點坐標X、Y。結(jié)果：待算點樁號程距中樁距離。再次提示輸入實測點坐標X、Y。程序特點：1、輸入?yún)?shù)少，只要輸入線路起點的樁號、半徑、方位角、XY坐標以及各線元的樁號和半徑(左+右-直線×1045)即可。2、調(diào)用變量少，本程還有A、G、H、M、N、P、R、W字母變量未使用，可以用于其它程序而不會和本程序產(chǎn)生沖