该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

主程序坐标正反算

程序名称：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)