• 紅星儀器
  • 廣州紅星儀器
  • 廣州紅星
  • 土工建築
  • 氣象儀器
  • 環保儀器
  • 測量儀器
  • 百葉箱
  • 氣壓表
  • 全站儀
新聞中心

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

作者:詹秋林來源:紅星儀器 日期:2013年1月30日 10:02

 

卡西歐5800曲線測量自動程序(僅供參考)

CIRLAY (主運算程序)

1→WLOAD?W :IF W=1:THENZJ?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 ProgCON DAT: IFEND

 

Lb1 1:DK+M?Z:IF W1:THEN ProgCIR DAT: IFEND

 

M=Z-DM: ProgCENTER

 

X=”:X

Y=”:Y

WL?O:IF O=2:THEN  OUT L?L:OUT ANGLER:XW=:X+LCos(P+R)→X

YW=:Y+L Sin(P+R)→Y

ENDIF

 

W-QH?K:IF K=3:THENQH L?S:OUT ANGLE?T:XW=:X+SCos(P+R+T+180)→X

YW=:Y+SSin(P+R+T+180)→Y

ENDIF

 

FW=:PDMS

Pol(X-U,Y-V)

IF JO:THEN J=J+360: ENDIF

 

J=:JDMS

L=:I◢

Goto 1

 

 

CENTER  (子程序)

3→DimZ:(ABл)÷180+C→Z[1]:C2÷(24B)-C4÷(1688B3)→Z[2]:(B+Z[2])Tan(A÷2)+C÷2-C3÷(240B2)→Z[3]:-1→N:IF MZ[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(1- Cos (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:Y=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

     (一直將曲線要素數據輸入完)

Lb1 1

 

 

CON DAT (子程序 導線控制點庫)

IF Q=編號(自定):THEN U=導線控制點X坐標:V=導線控制點Y坐標

      (一直將導線控制點數據輸入完)

 

主程序運用(CIRLAY)

LOAD?

當爲交點號時,調用數據庫;當爲1時,手動輸入。

OPP NAME?

輸入控制點編號;當爲1時,手動輸入測站點坐標。

DK+M?

輸入待測點裏程

WL?

當爲2時,計算外移值。

OUT L?

輸入外移值平距,距離用正負判斷左右(左爲-,右爲+

OUT ANGLE?

輸入外移值與線路中心夾角(右角值)

Q-QH?

當爲3時,計算外移值。

QH L?

輸入外移值平距,距離用正負判斷左右(左爲-,右爲+

OUT ANGLE?

輸入右角值

 

所屬類別: 行業動態

該資訊的關鍵詞爲:卡西歐5800曲線測量自動程序