卡西歐5800 曲線測量自動程序

卡西歐 5800 曲線測量自動程序 (修改魏甲儒) CIRLAY (主運算程序) 1→W ： ＂ LOAD ＂ ?W :IF W=1:THEN ＂ ZJ ＂ ?A: ＂ R ＂ ?B: ＂ L0 ＂ ?C: ＂ ZH KM ＂ ?D: ＂ JDX＂?E: ＂JDY＂?F: ＂A0＂?G: ＂1 R,-1 L＂?H:IFEND↙ ＂OPP NAME＂?Q: IF Q=1:THEN

＂X0＂?U: ＂Y0＂?V:ELSE Prog＂CON DAT＂: IFEND↙ Lb1 1:＂DK+M＂?Z:IF W≠1:THEN Prog＂CIR DAT＂: IFEND↙ Z-D→M: Prog＂CENTER＂↙ “X=” ◢ ：X “Y=” ◢ ：Y “LR”?O:IF O=2:THEN ＂LD＂?L:＂RA＂？R:“XW=”:X+LCos(P+R)→X◢ “YW=”:Y+LSin(P+R)→Y◢ IFEND↙ “QH”?K:IF K=3:THEN“QH-LD”?S:＂RA＂?T:“XQ=”:X+SCos(P+R+T+180)→X◢ “YQ=”:Y+SSin(P+R+T+180)→Y◢ IFEND↙ “FW=”:P▼DMS◢ Pol(X-U,Y-V) ↙ IF J＜O:THEN J+360 →J :IFEND↙ ＂J=＂:J▼DMS◢ ＂L=＂:I◢ Goto 1 CENTER (子程序) 4 3 3→DimZ:(ABл)÷180+C→Z[1]:C2÷(24B)-C ÷(2688B )→Z[2]:(B+Z[2])Tan(A÷2)+C÷2 -C3÷(240B2)→Z[3]:-1→N:IF M＞Z[1]-C:THEN Z[1]-M→M: 1→N:IFEND↙ IF M≤0:THEN M→X:0→Y:0→P: Goto 1: IFEND↙ IF M≤C:THEN M-M5÷(40B2C2)→X :M3÷(6BC)-M7÷(336×B3×C3)→Y:90M2÷(ЛBC)→P: Goto 1:IFEND↙ IF M≤Z[1]-C:THEN 180(M-C)÷(ЛB)+90C÷(ЛB)→P:BSin(P)+C÷2-C3÷(240B2)→X :B(1Cos (P))+Z[2]→Y: IFEND↙ Lb1 1:IF N=1:THEN A-P→P:X→I:Y→J:Z[3]+(Z[3]-I) Cos (A)-J Sin( A)→X:(Z[3]-I) Sin (A)+J Cos(A)→Y: IFEND↙ X→I:HY→J:E+Z[3]Cos(180+G)+ICos(G)-JSin(G)→X:F+Z[3]Sin(180+G)+ISin(G)+JCos(G) →Y:G+HP→P↙

CIR DAT(子程序 曲線要素庫) IF W=交點號:THEN 轉向角→A:半徑→B:緩和曲線長→C:直緩點里程→D:交點 X 坐標→E: 交點 Y 坐標→F:切線方位角→G:左或右偏(1,-1)→H:GOTO1:IFENG↙ (一直將曲線要素數(shù)據(jù)輸入完) Lb1 1

CON DAT (子程序 導線控制點庫) IF Q=編號(自定):THEN U=導線控制點 X 坐標:V=導線控制點 Y 坐標⊿ (一直將導線控制點數(shù)據(jù)輸入完) 主程序運用(CIRLAY) LOAD? 當為交點號時，調用數(shù)據(jù)庫；當為 1 時，手動輸入。 OPP NAME? 輸入控制點編號；當為 1 時，手動輸入測站點坐標。 DK+M? 輸入待測點里程 LR? 當為 2 時，計算外移值。 LD? 輸入外移值平距，距離用正負判斷左右（左為-，右為+） RA? 輸入外移值與線路中心夾角（右角值） QH? 當為 3 時，計算外移值。 QH-LD? 輸入外移值平距，距離用正負判斷左右（左為-，右為+） RA? 輸入右角值



卡西歐5800 曲線測量自動程序—學習資料共享網(wǎng)是一個在線免費學習平臺、通過收集整理大量專業(yè)知識，，職業(yè)資料、考試資料,考試復習指導,試題資料等給大家分享;同時提供學習互動交流;更好的幫助大家學習。

點擊搜索更多“卡西歐5800 曲線測量自動程序”相關的內容
下載《卡西歐5800 曲線測量自動程序》

本文編號：21539