(4800)全线中边桩坐标、高程计算及反算(老叶)

(4800)全线中边桩坐标、高程计算及反算(老叶)

我们搞公路测量放样,做些什么,
1、计算任意点的中桩坐标、高程
2、计算任意点的边桩坐标、高程
3、在施工过程中复核开挖线
4、测量横断面时,坐标反算
我们搞公路测量放样,最烦什么
1、上工地带一大堆图纸,数据慢慢地翻、查找
2、放开挖回填线、复核断面,慢慢地计算、推算,时间慢、烦
我的这个程序帮你都解决了。
包含“坐标计算放样程序”800-900字节
“坐标反算程序"300-400字节
“DATE 1"平曲线要素库
“DATE 2"竖曲线要素库
"DATE 3"边坡要素库
你把程序和数据库录入完毕后,再上工地,带个4850(4800)计算器就OK了,轻松愉快!!
卵形曲线我没有碰到过,不知道适用不?
如有断长链情况,在数据库中进行调整和设置!
在输入过程中,注意字母O和数字0的区别,O为红色,还有复数i也为红色
赶忙去下载吧(最好下载附件,里面有说明)!同时欢迎大家多提宝贵意见!QQ:179122447   EMAL:laoye5403@163.com

坐标计算和边坡放样程序
如果你不需要边坡放样部分,可以不输入(含子程序MM和DATE 3)

Prog"DATE1"
L=Z-D:V=1
L>S-U=>L=S-L:V=-1:C=U:G=G+HA:T=O(字母)△
R=90÷BCπ:O=K+.02:A=LO÷C
L≤0=>I=L:J=0:P=0:Q=0:M=.02:N=M:Goto 1△
L≤C=>P=RL^2:I=L-L^5÷40B^2C^2:J=L^3÷6BC-L^7÷336B^3C^3:Q=LQ÷C:M=H(A-.02:N=-M:L≤.04C÷O=>M=.02-.5A(1-H:N=.02-.5A(1+H:△Goto 1△
L≤S-U=>P=RC(2L-C):I=BsinP+C÷2-C^3÷240B^2:J=B(1-cosP)+C^2÷24B:Q=Q:M=HK:N=-M:Goto 1△
Lbl 1
I=VI:J=HJ:R=(I+J)(cosG+isinG)
E=E-VT(cosG+isinG):X=E+R:W=G+HVP    (到此坐标计算完成)
V=6+Q(1+H)÷2
U=6+Q(1-H)÷2                        (计算路宽完成)
Prog"DATE 2"
S=Z-A+T:S>T=>S=2T-S:D=-E△
B=B-DT+DS
S≥0=>B=B+FS^2÷2R△                 (计算高程完成)
S=W
Lbl 2:"Z:F=-1,Y:F=1":{F}             (你需要显示的内容,中、边桩)
F=0=>"ZHONG X Y P H":X◢
W→DMS
B◢                                   (显示中桩坐标、方位角、高程)
Lbl 3△
H=1=>K=M:D=.02△
H=-1=>K=.02:D=N△
L≤0=>K=.02:D=K△                       (判断横坡值)
Lbl 4:{U,V}
F=1=>U=V:Q=B-M(V-.75)-.75K△
F=-1=>U=U:Q=B-N(U-.75)-.75D△
R=S-90F:K=U
"X Y H=":O=X+KcosR+iKsinR◢
Q◢                                  (计算显示边桩坐标、高)
Lbl 5:{KT}:K
T"GC":L=T-Q
Prog "MM"
"PJ":M◢
Abs (M-K)≥.1=>Goto5△
"OK-OK"◢
"PJ=":M◢
"GC=":T=T-Q◢                            (该段边坡开挖、回填放样用,不需要就不输入)

子程序  MM
Defm 10:Prog "DATE 3":M=0:A=0:N=1:Z[1]=0:Z[2]=0
Lbl 1:M=M+Z[2N-1]Z[2N]:A=A+Z[2N]:N=N+1:L=L-A
L>Z[2N]=>Goto 1△
M=U+.75+M+LZ[2N-1]+1.5(N-2)
W=Z[2N-1]

数据库  DATE 1
Z≤*********=>A=****:B=***:C=***:U=***:D=***:E=***:G=***:H=***:Q=***:K=***:Goto 2△
Z≤*********=>A=****:B=***:C=***:U=***:D=***:E=***:G=***:H=***:Q=***:K=***:Goto 2△
Z≤*********=>A=****:B=***:C=***:U=***:D=***:E=***:G=***:H=***:Q=***:K=***:Goto 2△
Z≤*********=>A=****:B=***:C=***:U=***:D=***:E=***:G=***:H=***:Q=***:K=***:Goto 2△
·
·
·
·
Lbl 1:U=C
Lbl 2
T=.5C-C^3/240B^2+(B+U^2/24B-(B+C^2/24B)cosA)/sinA
0=.5U-U^3/240B^2+(B+C^2/24B-(B+U^2/24B)cosA)/sinA
S=πAB/180+.5(C+U)
说明:
*********为缓直点桩号,如K10+100写成10100,桩号从小到大
A----转角
B----半径
C----第一缓和曲线长
U----第二缓和曲线长
D----直缓点桩号
E----交点坐标,格式E=X+Yi如666666+99999i,i为复数的i
G----直缓点方位角,曲线的起始方位角
H----曲线转向,右转为1,左转为-1
Q----加宽值
K----超高最大横坡
注意:若为对称曲线,U=***,不输入,Goto 2改成Goto 1

数据库  DATE 2
Z≤********=>A=***:B=***:D=***:R=***:E=***:Goto 1△
Z≤********=>A=***:B=***:D=***:R=***:E=***:Goto 1△
Z≤********=>A=***:B=***:D=***:R=***:E=***:Goto 1△
Z≤********=>A=***:B=***:D=***:R=***:E=***:Goto 1△
·
·
·
Lbl 1
F=Abs (E-D)/(E-D)
T=Abs (R(E-D)/2
说明:
********为竖曲线终点桩号
A---曲线起点桩号
B---起点高程
D---起始段坡度,上为正,下为负
R---曲线半径
E---下一段坡度,上为正,下为负

数据库  DATE 3
Defm 10
L<0=>"TIAN"◢
L=-L:U=U-.75:Z[3]=***:Z[4]=***:Z[5]=***:Z[6]=***:Z[7]=***:Z[8]=***:Goto 1△
Z≤*****=>Z[3]=***:Z[4]=***:Z[5]=***:Z[6]=***:Z[7]=***:Z[8]=***:Goto 1△
Z≤*****=>Z[3]=***:Z[4]=***:Z[5]=***:Z[6]=***:Z[7]=***:Z[8]=***:Goto 1△
Z≤*****=>Z[3]=***:Z[4]=***:Z[5]=***:Z[6]=***:Z[7]=***:Z[8]=***:Goto 1△
Z≤*****=>Z[3]=***:Z[4]=***:Z[5]=***:Z[6]=***:Z[7]=***:Z[8]=***:Goto 1△
·
·
·
Lbl 1
说明
Z[3]---第一级坡度
Z[4]---第一级高度
Z[5]---第二级坡度
Z[6]---第二级高度
Z[7]---第三级坡度
Z[8]---第三级高度
如果你的级数多,自行增加,扩展变量同时增加

坐标反算程序
输入坐标直接得到桩号和偏距,前提是你必须知道该点在哪个曲线范围,你首先输入该范围内任一桩号
Defm 2:Prog "DATE 1"
V=1:Z[2]=D:{I}:I"X+Yi"
Lbl 1
P=(I-E)(cosG-isinG)+VT:M=Rep P:N=VHImp P:P=M:J=M+Ni:M=VM
X=.5C+C^3÷240B^2+i(B+C^2÷240B^2)
F=Arg (X-J)
M≤0=>T=-N:Goto3△
F≤90+90C÷πB=>Goto2△
F≤90+A-90U÷πB=>T=Abs (X-J)-B:M=.5C+πB(F-90)÷180:Goto 3△
F>90+A-90U÷πB=>V=-1:T=O:G=G+HA:D=Z[2]+S:C=U:Goto 1△
lbl 2
W=90M^2÷πBC:L=M^5÷40B^2C^2:R=M^3÷6BC-M^7÷336B^3B^3
Z[1]=(N-R)sin W-(L-P)cos W
Z[1]≤.001=>T=H(N-R)÷cosW:Goto 3:≠=>M=M+Z[1]:Goto 2△
Lbl 3
"Z HAO":Z=M+D◢                          显示桩号
"P JV":W=T◢                             显示偏距

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

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

117 篇文章

作家榜 »

  1. admin 117 文章
  2. 胡亮 3 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. netbee 1 文章
  6. 秦汉 1 文章
  7. boyving 1 文章
  8. 李晓明 0 文章