4800-4850直线、曲线、螺旋线、匝道中边桩坐标计算程序 直线、曲线、螺旋线、匝道中边桩坐标计算程序 主程序名称(4800-4850) A“XA”:B“YB”:C“CA”:D“RA”:E“RB”:F“DKA”:G“DKB”换行 D≠0=>D=1÷D: 换行 E≠0=>E=1÷E: 换行 Lb1 1:{H,O,R}换行 H“DKI”:O“DL”:R“DR” 换行 Lb1 0 换行 P=(E-D)÷Abs(G-F)换行 Abs(H-F)>Abs(G-F)=>Q= Abs(G-F):≠=>Q= Abs(H-F): 换行 I=P×Q 换行 J=C+(I+2D)×Q×90÷π 换行 M=C+(I÷8+2D)×Q×45÷(4π)换行 N=C+(3I÷8+2D)×Q×135÷(4π)换行 U=C+(5I÷8+2D)×Q×225÷(4π)换行 V=C+(7I÷8+2D)×Q×315÷(4π)换行 K=C+(I÷4+2D)×Q×45÷(2π)换行 W=C+(I÷2+2D)×Q×45÷π 换行 Z=C+(3I÷4+2D)×Q×135÷(2π)换行 X=A+Q÷24×(cosC+4×(cosM+cosN+cosU+cosV)+2×(cosK+cosW+cosZ)+cosJ)换行 Y=B+Q÷24×(sinC+4×(sinM+sinN+sinU+sinV)+2×(sinK+sinW+sinZ)+sinJ)换行 U=X+O×cos(J-90) 换行 V=Y+O×sin(J-90) 换行 W=X+R×cos(J+90) 换行 Z=Y+R×sin(J+90) 换行 Abs(H-F)>Abs(G-F)=> Goto 3: 换行 H“DKI=” ◢ fx4850输入改为 “DKI=”: H ◢ X“X=” ◢ fx4850输入改为 “X=”:X ◢ Y“Y=” ◢ fx4850输入改为 “Y=”:Y ◢ U“XL=” ◢ fx4850输入改为 “XL=”:U◢ V“YL=” ◢ fx4850输入改为 “YL=”:V◢ W“XR=” ◢ fx4850输入改为 “XR=”:W◢ Z“YR=” ◢ fx4850输入改为 “YR=”:Z◢ Goto 1 换行 Lb1 3 换行 A=X:B=Y:D=E:F=G:C=J 换行 {E,G} 换行 E“RB”:G“DKB” 换行 E≠0=>E=1÷E: 换行 Goto 0 计算器显示及输入方法: XA?线型起算点的X坐标。 YA?线型起算点的Y坐标。 CA?线型起算点切线方位角。 RA?第一曲线曲率,输入0。匝道及螺旋线时输入上段曲线半径左负右正。 RB?第二曲线曲率,输入所要计算曲线的半径,左传为负右转为正,直线输0 。 DKA?线型的起点里程。 DKB?线型的终点里程。 DKI?要求点的里程。 DL?输入左边桩的距离。可以0输入。 DR?输入右边桩的距离。可以0输入。 DKI= 显示要求点里程。 X= 显示要求里程点的X坐标。 Y= 显示要求里程点的Y坐标。 XL= 显示要求里程点的左边桩X坐标。 YL= 显示要求里程点的左边桩Y坐标 XR= 显示要求里程点的右边桩X坐标。 YR= 显示要求里程点的右边桩Y坐标 说明: 1、DKI?再次出现输入下一个要求的点的桩号,如果输入数据大于DKB?所输入的数据,则会再次出现RB?这时输入下一段线型的半径,直线输0,DKB?也会随后出现,这次出现输入下一段线型的终点里程桩号。则可以正常运算其它桩号点的坐标。 2、本程序可以反复计算下一线型。 3、上述说明中线型是指曲线上的某一段,例如直缓点到缓圆点则为一段的线型。 如有不足之处请直出 我 只知道这个啊 !