2.2.2现场使用:根据计算机提示输入相关数据即可。提示情况如下:
K 公里桩号如 312,启动程序出现一次。
L 细部里程桩号如 518.如采用渐进只出现一次,否则逐桩输入。过千米桩时需输入1000确认。
O 渐进长度,如20米一点,取O =20,公里桩号也自动渐进。否则O=0,启动程序出现一次。
Y 断链条件,执行输0不执行默认 ,不输入【 】以内的程序,Y不出现。
E 边线角度,法线为90度,分正负值,输E=0此后则不在出现计算边线的过程。
D 边线点至中线点的距离
图---2
V W 输出的边线1的大地坐标
X Y 输出的边线2和中线的大地坐标,
2.3逐桩坐标计算程序
主程序:XLZB(线路坐标)
L1 Lbl 0:L≥1000=>=P+1:L=L-1000⊿
L2 O=0 => prog FJJ⊿ L=L+O: prog LYYD:
progXSZB: E≠0 => progBX ⊿Goto 0
子程序:FJJ (非渐进)
{L}:L=L
子程序:LYYD (路由引导)
N=(P“K”+L/1000)×1000:【X=0:Y=6】
N≥***.*** =>prog 1: prog PQX: prog ZJ⊿
N≤***.*** =>prog 2: prog PQX: prog YJ⊿
N≥***.*** =>prog 3: prog PQX: prog ZJ⊿
N≥***.*** =>prog 4: prog PQX: prog YJ⊿
N≤***.***=> prog 5: prog PQX: prog YJ⊿
N≥*** ……
……progZB
子程序:PQX(单圆曲线及带缓和曲线的平曲线)
L1 B=Z+Q-S:H=Z+Q:A=S/2-S3/240 R2: T=A+(R+ S2/24 R)tan(F/2)
L2 N≤Z =>V=N-Z:W=0:I=0:Goto 1⊿
L3 U=N-Z:N≤(Z+S)=>V=U-U5/40R2S2:W=U7/336 R3S3-U3/6RS:I=90U2/πRS:Goto 1⊿
【L*{Y}:Y=0=>U=U+X⊿】
L4 N≤B =>I=90(2U-S)/πR:V=RsinI+A:W=RcosI-R- S2/24R:Goto 1⊿
L5 N≤H =>U=H-N:C= U-U5/40R2S2:G= U3/6RS-U7/336 R3S3:
V=(T-C)cosF-GsinF+T:W=(C-T)sinF-GcosF:I=F-90U2/πRS:Goto 1⊿
L6 N≥H =>V=T+(T+N-H)cosF:W=(H-T-N)sinF:I=F:Goto 1⊿
L7 Lbl 1
子程序:YJ(右角)
W=-W: I=K+I
子程序:ZJ(左角)
I=K-I
子程序:ZB(坐标)
X=J+VcosK-WsinK : Y=M+VsinK+WcosK
子程序:XSZB(显示坐标)
O≠0=> L=L:pause 5⊿ X=X ◢Y=Y◢
子程序:BX(边线)
{DE}:I=I+E:V=X+DcosI ◢ W=Y+DsinI ◢
{DE}:I=I+E:X=V+DcosI ◢ Y=W+DsinI ◢
2.4数据库:( 每一组曲线占用一个子程序)
1 K=***:F=***:R=***:J=***:M=***:Z=***: Q=***:S= ***:
2 K=***:F=***:R=***:J=***:M=***:Z=***: Q=***:S= ***:【N≥***.*** =>X=*.**】 |