| 卡西歐5800程序（坐標正反算） |
所有程序輸完后退出進(jìn)行擴展變量：5→Dimz按EXE出現Done就OK了. [color=Red]出售卡西歐5800計算器帶（支持貨到付款，全路段主線(xiàn)坐標正反算（正交/斜交）、匝道全段坐標正反算（正交/斜交)、全路段中邊樁高程（帶超高）、有電子版的范例，初學(xué)者包教會(huì )，使用簡(jiǎn)單，快捷.讓你短時(shí)間成為一個(gè)熟練的測量者（支持貨到付款）QQ:24727276:郵箱：wglover0821@sina.com:電話(huà)：13098601898 WN(不運行） ＂ZS=1,FS=2＂？N: 1÷P →C:(P-R)÷(2HPR)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd←┚ LbI 1:1 →I:0 →Z：Abs(K-Ｏ) →W: Prog＂ZS＂←┚ F-90→F←┚ ＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：X+Lcos(F+K) →Z[3]◢ ＂ZY=＂: Y+Lsin(F+K) →Z[4]◢ ＂QXFWJ=＂:F DMS◢ Abs(Z) →Z:Goto 8←┚ LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+W→K◢ ＂FSJL=＂:Z◢ Lbl 8 正算子程序（ZS）（不運行） 1÷P→C:(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 3反算子程序（FS）（不運行） G-90→T： Abs（（Y-V））cos（T）-（X-U）sin（T）→W： 0→Z←┚ Lbl 0←┚ prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001: Then Goto1：Else W+Z→W：IfEnd :Goto 0←┚ Lbl 1： 0→Z：Prog＂ZS＂：（J-Y）÷sinF→Z ZX-WN（運行主程序，該程序適用于匝道，對全段完整非對稱(chēng)曲線(xiàn)計算太過(guò)麻煩） ＂CZX＂?S(儀站X坐標):＂CZY＂?W（儀站Y坐標） LbI 0: ＂K＂?K: If K≤126.9（第1條單一曲線(xiàn)的終點(diǎn)下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K＞259.562: Then Goto D： IfEnd:IfEnd:IfEnd:IfEnd←┚ LbI A:92094.336（起點(diǎn)X坐標）→U:8287.962（起點(diǎn)Y坐標）→V:0起點(diǎn)樁號→O:145°11＇54＂（方位角）→G:126.9（曲線(xiàn)長(cháng)度）→H:10^(45) （起點(diǎn)半徑）→P:10^(45) （止點(diǎn)半徑）→R:+1（路線(xiàn)左右偏，左負右正，直線(xiàn)輸0）→Q:Prog ＂WN＂:Goto W LbI B:91990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂WN＂:Goto W LbI C:91947.609→U:8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P:150 →R:+1→Q:Prog ＂WN＂:Goto W LbI D:91867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H:150 →P: 10^(45) →R:+1→Q:Prog ＂WN＂:Goto W LbI W:＂PJ1＂?T←┚（該項是只左右邊樁再左右偏距，輸0為不再左右偏，可以直接出方位角、距離，適用于橋梁橋臺、蓋梁、涵洞八字墻等放樣，以路線(xiàn)前進(jìn)方向，前-，后+） If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚ LbI V:＂JJ1＂? O←┚（左右邊樁再偏夾角，用180°減去路線(xiàn)夾角） ＂X1=＂: Z[3]+Tcos（F+N+ O）→U◢ ＂Y1=＂ :Z[4]+Tsin（F+N+ O）→V◢ U→Z: V→M: GotoP←┚ LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚ ＂JL=＂:I◢（儀站至測點(diǎn)的距離） ＂FWJ=＂:J DMS◢（儀站至測點(diǎn)的方位角） Goto0 備注： 1． 規定以道路中線(xiàn)前進(jìn)方向（即里程增大的方向）區分左右；當線(xiàn)元往左偏時(shí)Q=-1；當元線(xiàn)往右偏時(shí)，Q=1：當元線(xiàn)為直線(xiàn)時(shí)，Q=0。 2． 當線(xiàn)元為直線(xiàn)時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無(wú)窮大，以10的45次方代替。 3． 當線(xiàn)元為圓曲線(xiàn)時(shí)，無(wú)論其起點(diǎn)、止點(diǎn)與什么線(xiàn)元相接，其曲率半徑均等于圓弧的半徑。 4． 當線(xiàn)元為完整的緩和曲線(xiàn)時(shí)，起點(diǎn)與直線(xiàn)相接時(shí)，曲率半徑為無(wú)窮大，以10的45次方代替。與圓曲線(xiàn)相接時(shí)，曲率半徑等于圓曲線(xiàn)的半徑，止點(diǎn)跟直線(xiàn)相接時(shí)，曲率半徑為無(wú)窮大，以10的45次方代替；與圓曲線(xiàn)相接時(shí)，曲率半徑等于圓曲線(xiàn)的半徑。 5． 當線(xiàn)元為非完整緩和曲線(xiàn)時(shí)，起點(diǎn)與直線(xiàn)相接時(shí)，曲率半徑等于設計規定的值；與圓曲線(xiàn)銜接時(shí)，曲率半徑等于圓曲線(xiàn)的半徑。止點(diǎn)與直線(xiàn)相接時(shí)，曲率半徑等于設計規定的值；與圓曲線(xiàn)銜接時(shí)，曲率半徑等于圓曲線(xiàn)的半徑。 二、運行跟輸入與顯示說(shuō)明 1.運行：ZX-WN 2.顯示“CZX”輸入測站：X坐標，顯示“CZY”輸入測站：Y坐標 3.顯示：“K”輸入所計算的樁號 4、顯示“ZS=1,FS=2”，選擇計算方式，輸入1正算；輸入2反算 5.輸1開(kāi)始正算 6.顯示“JJ”正交輸90，斜交輸跟路線(xiàn)的夾角 7.顯示“PJ”輸入邊樁偏距，左負右正，中樁輸0 8.顯示“ZX=”所求點(diǎn)的X坐標 9.顯示“ZY=”所求點(diǎn)的Y坐標 10.顯示“QXFWJ”所求點(diǎn)的切線(xiàn)方位角 11.顯示“PJ1” 所求點(diǎn)再騙距離，輸0為不再左右偏，可以直接出方位角、距離，本項適用于橋梁橋臺、蓋梁、涵洞八字墻等放樣，以路線(xiàn)前進(jìn)方向，左+，右-。只限于直線(xiàn)） 12. 顯示“JJ1”再偏輸入夾角（正交輸90，） 13. 顯示“X1”所求點(diǎn)X坐標 14. 顯示“Y1”所求點(diǎn)Y坐標 15. JL=儀站與測點(diǎn)的距離 16. FWJ=儀站與測點(diǎn)的方位角 17. 反算時(shí)輸入：顯示“顯示“ZS=1,FS=2”，選擇計算方式，輸入2反算 18. 顯示“X？”輸入反算時(shí)所求點(diǎn)的X坐標 19. 顯示“Y？”輸入反算時(shí)所求點(diǎn)的Y坐標 20. 顯示FSZH=反算時(shí)，計算得出的所求點(diǎn)的里程 30. 顯示FSJL=反算時(shí)，計算得出的所求點(diǎn)的邊距（負為左偏，正為右偏） 在本網(wǎng)站下載曲線(xiàn)要素表，在我的新浪博客里面有明細的說(shuō)明，匝道貫通任意點(diǎn)坐標正反算，歡迎大家指導！網(wǎng)址：  出售5800計算器(支持貨到付款）帶主線(xiàn)正反算（正交/斜交），匝道全段正反算，全段高程（超高、加寬）中邊樁 出售5800計算器帶程序 1、全路段主線(xiàn)坐標正反算（正交/斜交） 2、匝道全段坐標正反算（正交/斜交) 3、全路段中邊樁高程（帶超高） 有電子版的范例，初學(xué)者包教會(huì )，使用簡(jiǎn)單，快捷.讓你 |
聯(lián)系客服
