該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

主程序坐標正反算

程序名稱：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↙(輸入任意測點的X、Y坐標)

“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?? QS?? :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↙

子程序數據庫?? 名稱：SJK

if?? K

if…………Prog”JSPB”:Return:Ifend(曲線段分段輸入)↙

補充直線段輸入如下 (只需輸線路的最后一段直線數據)

if K

子程序計算判別 名稱：JSPB

Lb1?? 2 ↙(曲線要素計算)

Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙?? (M1)

Z[7]/2- Z[7]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙?? (M2)

Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙?? (P1)

Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙?? (P2)

總結

以上是生活随笔為你收集整理的坐标反算用计算机怎么算,卡西欧5800计算器坐标正反算程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。