4800任意坐标计算

4800任意坐标计算

坐标计算(任意三个交点坐标计算待测点坐标)
文件名 1
Defm 2↙
XYD“X1”:E“Y1”:F“X2”:G“Y2”:H“X3”:V“Y3”:RL“LS”W↙
I=D-F:J=E-G:Prog“3”:O=J:I=H-F:J=V-G:Prog“3”:U=J↙
M = O - J:M < 0 => M = M + 360 △ M < 180 => M = 180 – M : C = 1 :≠> M = M – 180 : C = - 1 △↙
P=L2÷(24R) : Q =L÷2-L^3÷(240R2) : T =Q+(P+R) tag (M÷2):
S=RMπ÷180+L:S▲Prog“2” ↙
文件名 2
LbI 0 : Z : Fixm : {KB}:I=K-W+T : J=Z : B↙
I<S-L => I ≤ 0 => M = I + Bcos Z : N=BsinZ : Goto 2 △ C=1 => J = 180-Z △ I ≤L => Prog“4”:≠> Prog“6”△ LbI 2 :J = O :Prog“7”:Goto 0 △ I = S – I ↙
I ≤ 0 => M = I – Bcos Z :N= - B sin Z :≠> C≠I => J = 180-Z △Prog“4”:N=-N △ J=U:Prog“7”:Goto 0↙
文件名 3
PoL(I,J):J<0=>J=J+360△↙
文件名4
A=RL: M=I-I^5÷(40A2):N=I^3÷(6A)-I^7÷(336A^3): A=90I2÷(πA ): Prog “5” ↙
文件名 5
A=A-J:M=M-CbcosA :N=CN-BsinA ↙
文件名6
A=90÷(πR)×(2I-L):M=R sin A+ Q :N=P+R(1-cos A):Prog“5” ↙
文件名7
A= cos J:J = sin J :I = F + T A - M A+ N J:J = G + T J – M J – N A:M=I:N=J↙
I=I-X:J=J-Y↙
Prog“3”:J ▲ Fix 3 :I ▲ Norm↙
Prog“8” ↙
文件名8
Z[1]=X + I cos J :Z[1]▲
Z[2]=Y + I sin J :Z[2]▲Norm↙
文件名9
LbI 9↙
XY↙
{ST}:M=S-X :O=T-Y :POL(M,O) : I ▲ J↙
J<0 =>J=J+360▲
I▲
XY↙
{ST}: POL(S-X,T-Y) ↙
J≤ 0=>J+360△
J▲I
说明:本程序需输入X,Y(测站点坐标),路线交点坐标X1,Y1、X2,Y2、X3,Y3(连续输入)以及输入X2,Y2交点半径R,缓和曲线长度LS、桩号W。然后输入待测点交角Z(与待测点交角)、及K(待测点桩号)、边桩距中距离B(左-右+),求出待测点坐标Z(N,E)及方位角J,与I(测站点至待测点水平距离)
X?Y?----测站点坐标
X1,Y1---输入第1交点坐标
X2,Y2---输入第2交点坐标
X3,Y3---输入第3交点坐标
R-----------输入第2交点半径
LS----------输入第2交点缓和曲线长度
W-----------输入第2交点桩号
Z------------输入与待测点交角
K------------输入待测点桩号
B------------输入与待测点距离
J-------------显待测点方位角
I-------------显示测点与待测点水平距离
Z[1、2]----显示待测点坐标

  • 发表于 2018-11-05 13:49
  • 阅读 ( 19 )
  • 分类:4800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

117 篇文章

作家榜 »

  1. admin 117 文章
  2. 胡亮 3 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. 秦汉 1 文章
  6. boyving 1 文章
  7. 雷神 0 文章
  8. 张峰 0 文章