4800曲线交点法坐标计算程序

4800曲线交点法坐标计算程序

曲线交点法坐标计算程序
主程序名称:QXJD
A“A1”:B“KJ”:C“XJ”:D“YJ”:E“A2”:R:G“LO”:E-A>0=>H=1:≠=>H=-1: G=0=>G1注1:  换行
V=(R+G2÷24R)tan Abs((E-A)÷2)+G÷2-G3÷240R2:W= Abs
(E-A)Rπ÷180+G:Rec(V,180+A):M=C+I:N=D+J: Rec(V,E):O=C+I
:P=D+J换行
Lb1  0:Fixm:{K}:K“KI”:K≤B-V=> Goto 1:  K≥B-V+W=> Goto2:
K≤B-V+G=>L=K-B+V:Goto3: K≥B-V+W-G=>L=B-V+W-K:Goto 3:
Goto 5 换行
Lb1 1:F=180+A:Rec(B-V-K,F):X=M:Y=N:F=A:Prog“PI”: Goto 4换行
Lb1 2:Rec(K-B+V-W,E):X=O:Y=P:F=E:Prog“PI”:Goto4换行
Lb1 3:X=L-L5÷40R2G2:Y=L3÷6RG:Pol(X,Y): K≤B-V+G=> Rec(I,A+JH: ≠=> Rec(I,180+E-JH):   K≤B-V+G=>X=M:Y=N: ≠=>X=O:Y=P: 换行
F=180L2÷2RGπ:K≤B-V+G=>F=A+HF:≠=>F=E-HF:   Prog“PI”: Goto 4换行
Lb1 5:L=K-B+V:F=180(2L-G)÷2Rπ:X=RsinF+G÷2-G3÷240R2:Y=R-R
CosF+G2÷24R:Pol(X,Y):Rec(I,A+JH):X=M:Y=N:F=A+HF: Prog“PI”: Goto 4换行
Lb1 4:{S}:S“D÷2”:S=0=> Goto 0:  {T}:T“L-90,R+90”:
Rec(S,F+T):X+I◢ Y+J◢  Goto 4
子程序名称:PI
X=X+I◢ Y=Y+J◢
变量名称
A1?    第一方位角既上一交点计算方位角
KJ?    本交点里程桩号
XJ?    本交点X坐标值
YJ?    本交点Y坐标值
A2?    第二方位角既本交点计算方位角
R?     输入本交点圆曲线半径
LO?    缓和曲线长(圆曲线时输入0.00001小于0.1毫米既可)
J?     为X坐标计算增量值(无需输入)
I?     为Y坐标计算增量值(无需输入)
KI?    所求曲线上任意点的里程桩号(本交点)
X       所求点的X坐标
Y       所求点的Y坐标
D÷2?  所求点的边桩距离(不计算边桩时输0)
L+90,R+90   输入的是与线路交叉的角度左负右正。(可计算斜交角度)
X+I    边桩的X坐标
Y+J    边桩的Y坐标
D÷2?  本次出现为连续计算边桩时输入的距离,转换上层计算时输入0。
注释:1、特殊符号,输入方法为按4800计算器上侧(FUNCTION)键,选择第一项(MATH)翻至第四页的第二个符号。
2、≠=>为一个字符意思是条件转移失败码,O为英文字母欧不为零,其它没有下划线的地方为零。
3、直线计算时输入曲线资料后直接输入桩号就可以 了 。
4、蓝色字为计算边桩是出现,不计算边桩是不出现。
5、D÷2?为线路方向转角,可计算与线路成斜交角度的坐标(一般用于涵洞的坐标计算)。
请多多指教

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

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

117 篇文章

作家榜 »

  1. admin 117 文章
  2. 胡亮 3 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. netbee 1 文章
  6. 秦汉 1 文章
  7. boyving 1 文章
  8. 苏先生 0 文章