5800計(jì)算器公路全線坐標(biāo)正、反算計(jì)算程序.doc

5800計(jì)算器公路全線坐標(biāo)正、反算計(jì)算程序 ，Excel函數(shù)。
歡迎下載！
5800計(jì)算器公路全線坐標(biāo)正、反算計(jì)算 程序 時(shí)間:2010-01-3014:17:07 來(lái)源:本站作者:zhaoguocheng我要投稿我要收藏投稿指南 正算主程序(ZS) Lb10 FIX4：?S：?Z：Prog“PM-SJ”：Abs(S-O)→ W：Prog"SUB1"： "XS="：X "YS="：YF-90→F(需要時(shí)可以讓他顯示，不要時(shí)不必輸入)：Prog“SQX-SJ”: Prog“SQX”：“H=”：H Goto0 反算主程序(FS) 正算子程序(SUB1)： (P-R)÷(2HPR)→ D： 180÷π→ E： 0.1739274226→ A： 0.3260725774→ B： 0.0694318442→ K： 0.3300094782→ L： 1-L→ F：1-K→ M： U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos( G+QEMW(C+MWD)))→ X： V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin( G+QEMW(C+MWD)))→ Y： G+QEW(C+WD)+90→ F： X+ZcosF→ X： Y+ZsinF→ Y反算子程序(SUB2)： Abs((Y-V)cosT-(X-U)sin（T）)→ W： 0→ Z：Lbl0：Prog "SUB1"： T+QEW(C+WD)→L： (J-Y)cosL-(I-X)sinL→ Z：ifAbsZ<1E-6：thenGoto1：ElssW+Z→ W：Goto0：IfEnd←┘： 0→ Z：Prog"SUB1"： (J- Y)÷sinF→ Z子程序（平面線形數(shù)據(jù)庫(kù)）PM-SJ 1÷P→ C G-90→T Lbl1 ifS≥500（線元起點(diǎn)里程）AndS＜769.256（線元止點(diǎn)里程）：Then19942.837 →U（線元起點(diǎn)X坐標(biāo)）：28343.561→V（線元起點(diǎn)Y坐標(biāo)）：500 →O（線元起點(diǎn)里程）：125°16°31°→G（線元起點(diǎn)方位角）：269.265 →H（線元長(zhǎng)度）：10^（45）→P（線元起點(diǎn)曲率半徑）：10^（45）→R（線元終點(diǎn)曲率半 徑）：0→Q（線元左右偏標(biāo)志：左負(fù)右正）：IfEnd←┘ ifS≥769.256（線元起點(diǎn)里程）AndS＜806.748（線元止點(diǎn)里程）：Then19787.34 →U（線元起點(diǎn)X坐標(biāo)）：28563.378→V（線元起點(diǎn)Y坐標(biāo)）：769.256→O（線元起點(diǎn)里 程）：125°16°31°→G（線元起點(diǎn)方位角）：37.492→H（線元長(zhǎng)度）：10^（45）→P（ 線元起點(diǎn)曲率半徑）：221.75→R（線元終點(diǎn)曲率半徑）：- 1→Q（線元左右偏標(biāo)志：左負(fù)右正）：IfEnd←┘ ifS ≥806.748（線元起點(diǎn)里程）AndS＜919.527（線元止點(diǎn)里程）：Then19766.566→U（ 線元起點(diǎn)X坐標(biāo)）：28594.574→V（線元起點(diǎn)Y坐標(biāo)）：806.748→O（線元起點(diǎn)里程）：1 20°25°54.07°→G（線元起點(diǎn)方位角）：112.779→H（線元長(zhǎng)度）：22