【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=*.**】
[NextPage]2.5注解:
程序XLZB:线路坐标,它是计算逐桩坐标的主程序。
程序:FJJ (非渐进) O≠0时,只需输入起始点桩号如计算为每20米一点时,取O=20,此后则自动渐进,公里桩号也自动渐进。起始桩号应输入第一个计算点桩号减渐进长度。如K36+700输入36+680即可。否则取O=0。每一个点均需输入细部点桩号。当公里桩号发生变化时,如:计算K25+910---K26+110,每20米一点。K25+990完了便是K26+010,此时无需重新输入公里桩号,只需输入一个大于等于1000的桩号,此后则按正常方法输入。
例:K25 +970 K25+990 K25+1000 K26+010 K26+050 ……
程序LYYD:路由引导,段数根据曲线数量确定增减。L≥***·***是曲线间的分界点桩号。用‘≥’选ZH点或ZY点以前的桩号。用‘≤’选HZ点或YZ点以后的桩号。为了做为QLC (已知坐标求里程)的子程序,故于XLZB:(线路坐标)分为两个程序。否则可和二为一。P显示K,为公里桩号,为输入方便,可省略公里桩号中的相同之处,如K315+200--- K395+800,输入公里桩号时,可省略百位的3,只输十位和个位的15---95 即可。L为细部桩号,如+660.318,
程序PQX:(单圆曲线及带缓和曲线的平曲线)
第一行,计算曲线要素,
第二行,计算第一直线段任意点坐标,
第三行,计算第一缓和曲线上任意点坐标,
L* 断链;建议不采用
第四行,计算圆曲线上任意点坐标。