程序编制 一,源程序(sz-xy-sz) " = xy":"2. xy = sz":nu"x0"v"y0"o"s0"g"f0"q:q=0=r=1e-45:≠ r△j=0:m= 1:≠goto 2△←┙ lbl 1:{sz}:" = u+rec(c,f)+zcose◢ y"ys"=v+j+zsine◢ goto 1←┙ lbl 2:w=g+90q:e=u+rec(r,w):f=v+j←┙ lbl 3:{xy}: b:s"s"=o+ dkcosp+ mπrp÷180◢ z"z"=dksinb+mq(r-d)◢ goto 3←┙ 二,使用说明 1.由里程,中边桩计算坐标 启动程序后按以下提示输入数据: n ?1 (n=1,由里程中边桩计算坐标;n≠1,由坐标反算里程及中边桩) x0 ?142.353 (直线或圆曲线起点的x坐标) y0 ?368.166 (直线或圆曲线起点的y坐标) s0 ?155.252 (直线或圆曲线起点的里程) f0 ?60°54′03″(直线或圆曲线起点的切线方位角) q ?-1 (当线元为直线时q=0;当线元为圆曲线且左偏时q=-1;当线元为圆曲线且 右偏时q=1) r ? 100 (圆曲线的半径) s ? 194.016 (中线里程) z ? -5.251 (中线左侧5.251m的边桩;在中线上z=0,在左侧0,在右侧z0) 显示计算结果 xs=172. ys=395. 2.由坐标反算里程,中边桩 启动程序后按以下提示输入数据: n ?2 (n=1,由里程中边桩计算坐标;n≠1,由坐标反算里程及中边桩) x0 ?142.353 (直线或圆曲线起点的x坐标) y0 ?368.166 (直线或圆曲线起点的y坐标) s0 ?155.252 (直线或圆曲线起点的里程) f0 ?60°54′03″(直线或圆曲线起点的切线方位角) q ?-1 (当线元为直线时q=0;当线元为圆曲线且左偏时q=-1;当线元为圆曲线且 右偏时q=1) r ? 100 (圆曲线的半径) x ? 172. (待求里程及中边桩的点的x坐标) y ? 395. (待求里程及中边桩的点的y坐标) 显示计算结果 s=194.016 z=-5.251 三,注意事项 1.本程序主要是针对市政道路工程中的直线和圆曲线而编制的,未考虑缓和曲线等 曲线的计算; 2.程序中"r=1e-45"的意思为10的-45次方,输入程序时切莫输错.