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

卡西歐5800計算器坐標正反算程序

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

主程序   坐標正反算
程序名稱:ZBZFS
Lb1   A↙
30→Dim Z :"0=ZS,1=FS"?Z ↙
If   Z=0:Then   Goto B:IfEnd↙     (Z=0
進入裏程點坐標正算)
If   Z=1:Then   Prog"FSLCZ "↙   (Z=1進入反算裏程邊樁)
Lb1 B   ↙
Prog”ZBZS” ↙

子程序反算裏程樁 名稱:FSLCZ
Lb1   1↙
"XK="?X:"YK="?Y↙
(輸入任意測點的XY坐標)
“K=”?K ↙(試算裏程,任意輸入標段內裏程點即可,也可以輸入大致的估算裏程加快速度)
Lb1   2↙
Prog"SJK ":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos(W)-(X-Z[18])*Sin(W))→S↙
If   S<0.0001:Then   Goto   4:Else   Goto 3:Ifend↙
Lb1   3↙
K+S→K: Prog"SJK":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos W-(X-Z[18])*Sin (W)→Q↙
If   Q<0.0001 :Then Q→S: Goto   4:Else if   Q<S: Then   K+Q→K: Goto   2 :Else if Q>S   :Then K-Q→K:Goto   2:Ifend:Ifend:Ifend↙
Lb1   4↙
Pol (X-Z[18],Y-Z[19]:
"DP(-Z+Y)=":I◢(
偏距)
"K=":K+S→K◢(裏程)
Goto 1↙

子程序坐標正算 名稱:ZBZS

Lb1   0 ↙
“XHS="?G(
後視點X):"YHS="?L(後視點Y):"XZJ="?M(置鏡點X):"YZJ="?N(置鏡點Y):Pol(G-M,L-N):"DH=":I(後視距)◢J<0=>J+360→J:"FH=":JDMS◢(後視方位角)
Lb1   1↙
“K=”?K
:(輸入所需計算裏程)Prog"SJK "↙
XI : Z[18]↙ 
YI: Z[19] ↙ 
Pol(Z[18]-M,Z[19]-N): J<0=>J+360→J↙
“PJ=”?P↙      (
輸入樁與線路夾角)
“PD=”?D↙    
(輸入樁距中線的距離)
Z[18]+D*Cos(T+P) →Z[20] ↙
Z[19]+D*Sin(T+P) →Z[21] ↙
“X=”: Z[20] ◢     
(放樣坐標X
“Y=”: Z[21] ◢      (放樣坐標Y
Pol(Z[20]-M,Z[21]-N):"D=":I◢(放樣距)J<0=>J+360→J:"F=":JDMS◢(放樣方位角)
Goto 1↙

所屬類別: 行業動態

該資訊的關鍵詞爲:卡西歐5800計算器