卡西欧5800简易编程.doc

《卡西欧5800简易编程.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1、主程序：程序名：ZCX输入：”K”?K←IfK>540980.584(直线起点里程)AndK<=（小于等于符号）541358.301:（直缓点里程）Then2890632.365→A:526217.878→B:79°34′47.8″→F:540980.584→J:Prog”ZX”(A,B,F,J分别为起算点坐标，方位角，里程)Prog”PJ”(运行求偏距的程序)IfEndIfK>541358.301（直缓点里程）AndK<=541488.301：（缓圆点里程）Then2890700.680→A:526589.366→B:79°34′47.8″→F:5413

2、58.301→J:1→G:3500→R:130→L:Prog”HHQX”（A,B,F,J,G,L分别为直缓点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIfK>541488.301（缓圆点里程）AndK<=541694.275:（圆缓点里程）Then2890723.4→A:526717.363→B:80°38′38.4″→F:541488.301→J:1→G:3500→R:Prog”YQX”（A,B,F,J,G,L分别为缓圆点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIfK>541694.2

3、75（圆缓点里程）AndK<=541824.275：（缓直点里程）Then2890762.83→A:527050.912→B:85°04′47.7″→F:541824.275→J:-1→G:3500→R:130→L:Prog”HHQX”（A,B,F,J,G,L分别为缓直点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIfK>541824.275（缓直点里程）AndK<=542167.602：（下一段直缓点里程）Then2890762.83→A:527050.912→B:85°04′47.7″→F:541824.275→J:Pro

4、g”ZX”(A,B,F,J分别为缓直点坐标，方位角，里程)注：以上程序为一段标准曲线（包括直线，缓和曲线，圆曲线，缓和曲线，直线）的主程序，程序名为ZX，HHQX，YQX2、直线程序程序名：ZXA+(K–J)xcos(F)→X:”X0=”:X◢B+(K–J)xsin(F)→Y:”Y0=”:Y◢F→W:”F=”:W◢3、圆曲线程序程序名：YQXA+2xRxSin（90x(K-J)÷∏÷R）XCos(F+90xGx(K-J)÷∏÷R)→X:”X0=”:X◢B+2xRxSin（90x(K-J)÷∏÷R）XSin(F+90xGx(K-J)÷∏÷R)→Y:”Y0=”:Y

5、◢F+180xGx(K-J)÷∏÷R→W:F=”:W◢1、缓和曲线程序程序名：HHQXA+((K-J)-(K-J)5÷(90xR²xL²))xcos(F+30xGx(K-J)²÷∏÷R÷L)→X:“X0=”:X◢B+((K-J)-(K-J)5÷(90xR²xL²))xsin(F+30xGx(K-J)²÷∏÷R÷L)→Y:“Y0=”:Y◢F+90xGx(K-J)²÷∏÷R÷L→W:”F=”:W◢2、偏距程序50→DimZ“Z=”?Z:(Z为偏离线路中线的距离)X+Zxcos(W-90)→U:”XL=”:U◢(左边X坐标)Y+Zxsin(W-90)→V:”YL=”

6、:V◢(左边Y坐标)X+Zxcos(W+90)→D:”XR=”:D◢(右边X坐标)Y+Zxsin(W+90)→E:”YR=”:E◢(右边Y坐标)Return