首页

  1. 首页
  2. 测绘论文
  3. 内容

5800线路坐标正反算

文件名 “TYQXJS”

“1.KD=>XY”:“2.XY=>KD”:”N”?N:”XA”?U:”YA”?V:”DKA”?O:”CA”?G:”LS”?H:”RA”?P:”RB”?R:”Q”?Q:1/P->C:(P-R)/(2HPR)->D:180/ ∏->E:IF N=1:THEN GOTO 1:ELSE GOTO 2:IFEND

Lbl 1:”DKI”?S:”D”?Z:ABS (S-O)->W:PROG “SUB1”:”XS”:X ◢

“YS”:Y◢

GOTO 1

Lbl 2:”X”?X:”Y”?Y:X->I:Y->J:PROG “SUB2”:O+W->S

“S”:S◢

“Z”:Z◢

GOTO 2

 

子程序 “SUB1”

0.1739274226->A:0.3260725774->B:0.0694318442->K:0.3300094782->L:1-L->F:1-K->M:U+W(ACOS(G+QEKW(C+KWD))+BCOS(G+QELW(C+LWD))+BCOS(G+QEFW(C+FWD))+ACOS(G+QEMW(C+MWD)))->X:V+W(ASIN(G+QEKW(C+KWD))+BSIN(G+QELW(C+LWD))+BSIN(G+QEFW(C+FWD))+ASIN(G+QEMW(C+MWD)))->Y:G+QEW(C+WD)+90->F:X+ZCOS(F)->X:Y+ZSIN(F)->Y

 

“SUB2”

G-90->T:ABS((Y-V)COS(T)-(X-U)SIN(T))->W:0->Z:Lbl0:PROG “SUB1”:T+QEW(C+WD)->L:(J-Y)COS(L)-(I-X)SIN(L)->Z:IF ABS(Z)<1*10^(-6):THEN GOTO 1:ELSE W+Z->W:GOTO 0:IFEND

Lbl 1: 0->Z:PROG”SUB1” : (J-Y)/SIN(F)->Z

 

 

说明:输入与显示

输入部分:

1. SZ => XY

2. XY = > SZ

N ? 选择计算方式,输入 1 表示进行由里程、边距计算坐标 ;输入 2

表示由坐标反算里程和边距。

XA ?线元起点的 X 坐标

YA ?线元起点的 Y 坐标

DKA ?线元起点里程

CA ?线元起点切线方位角

LS ?线元长度

RA ?线元起点曲率半径

RB ?线元止点曲率半径

Q ? 线 元左右偏标志 ( 左偏 Q=-1 ,右偏 Q=1 ,直线段 Q=0)

DKI ? 正算时所求点的里程

D ?正算时所求点距中线的边距 ( 左侧取负,值右侧取正值,

在中线上取零 )

X ?反算时所求点的 X 坐标

Y ?反算时所求点的 Y 坐标

显示部分:

XS= ××× 正算时,计算得出的所求点的 X 坐标

YS= ××× 正算时,计算得出的所求点的 Y 坐标

S= ××× 反算时,计算得出的所求点的里程

Z= ××× 反算时,计算得出的所求点的边距

 

 

规定

(1) 以道路中线的前进方向(即里程增大的方向)区分左右;

当线元往左偏时,

Q=-1 ;当线元往右偏时, Q=1 ;当线元为直线时, Q=0 。

(2) 当所求点位于中线时, Z=0 ;当位于中线左铡时, Z 取负值;当位于中线中线右侧时, Z 取正值。

(3) 当线元为直线时,其起点、止点的曲率半径为无穷大,以10 的 45 次代替。

(4) 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。

(5) 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以 10 的 45 次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径为无穷大,以 10 的 45 次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。

(6) 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相 接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。

相关文章

回到顶部
请复制以下网址分享
5800线路坐标正反算
https://m.gc5.com/chgc/chlw/10173386.html