|
說明：1,、簡單,、樸素的5800放樣計(jì)算,；
2、缺陷有二,，反算速度慢,，有待改進(jìn)，請耐心等待反算結(jié)果,；其次,，因不太熟悉5800矩陣應(yīng)用，數(shù)據(jù)庫任沿用4800數(shù)據(jù)庫的組織形式,。 3,、操作步驟同本人過去發(fā)布之4800程序，僅個別變量有所調(diào)整 1-主程序（ZFSXPS） Lb1 6：“1.ZS”:“2.FS”:“N ”?N: “S ”?S : “W= ” ?W : “T ”?T : Prog “SJKU”: If N=1： Then prog “ZS” : Goto 2:Else Prog“FS” : IfEnd: Goto6↙ Lb1 2: “X=”: X◢ “Y=” : Y◢ “F=” : F◢ “XC=“?L :“YC=”?M : Po1((X-L) , (Y-M)) ：“D=” ：I ◢ If J < 0 :J+360→J: Else J→J : IfEnd : “B=”: J DMS◢ GOTO 6 2-正算子程序（ZS） （S-O）/4→C:R-P→D:90/∏→E:QEC→A:CD/H→B↙ G+QE(S-O)(2P+D(S-O)/H)→F↙ G+0.5A(2P+0.5B)→Z[4]↙ G+1.5A(2P+1.5B)→Z[5]↙ G+2.5A(2P+2.5B)→Z[6]↙ G+3.5A(2P+3.5B)→Z[7]↙ G+A(2P+B)→Z[1]:G+2A(2P+2B)→Z(2):G+3A(2P+3B)→Z[3]↙ U+C(cos(G)+4(cos(Z[4])+cos(Z[5])+cos(Z[6])+cos(Z[7]))+2（cos(Z[1])+ cos(Z[2])+ cos(Z[3]))+ cos（F））/6→X↙ V+C(sin(G)+4(sin(Z[4])+sin(Z[5])+sin(Z[6])+sin(Z[7]))+2(sin(Z[1])+ sin(Z[2])+ sin(Z[3]))+ sin(F)）/6→Y↙ X+Wcos(F+T)→X: Y+Wsin(F+T)→Y 3-反算子程序（FS） 0→W:0→Z:“X=”?I: “Y=”?J:↙ (O+Abs((J-V)cos(G-90)-(I-U)sin(G-90))) →S:Lb1 3:Prog“ZS”↙ (J-Y)cos(F-90)-(I-X)sin(F-90)→Z:Z+S→S:Prog “ZS”:If Abs(Z)≤0.001:Then Z+S→S: “S=”:S◢ E1se Goto 3: IfEnd↙ (Y-J)/sin(F-90)→W: “W=”:W◢ 4-數(shù)據(jù)庫（SJKU） Goto 1←┘ LBI 1:ifS ≥500（線元起點(diǎn)里程）：Then125°16°31°→G（線元起點(diǎn)方位角）：500 →O（線元起點(diǎn)里程）：19942.837 →U（線元起點(diǎn)X坐標(biāo)）：28343.561 →V（線元起點(diǎn)Y坐標(biāo)）：269.265 →H（線元長度）：0.0001→P（線元起點(diǎn)曲率）：0→R（線元終點(diǎn)曲率）：0 →Q（線元左右偏標(biāo)志：左負(fù)右正）：IfEnd←┘ LBI 1:ifS ≥******（線元起點(diǎn)里程）:************* IfEnd←┘ 有幾段輸入幾段,曲率為半徑的倒數(shù)(如1/P,1/R),當(dāng)進(jìn)入直線段時,，輸入0即可 |
|
|
來自： 煙雨柳巷 > 《測量技術(shù)》
