求：卡西欧FX_4800p道路放样编程

Question

如题所述

Answer 1

卡西欧4850/4800P全线坐标计算程序 平曲线全线坐标计算程序 主程序清单 A〝ZW〞(LC, 说明代表的里程桩号可随意命名) A＜HZ (每段曲线HZ点里程) =>Prog〝ZXC1(〞子程序名可随意命名): ≠> GOTO A Lb1 A A＜HZ (每段曲线HZ点里程) =>Prog〝ZXC2〞(子程序名可随意命名): ≠> GOTO B Lb1 B A＜HZ (每段曲线HZ点里程) =>Prog〝ZXC3〞(子程序名可随意命名): ≠> GOTO C Lb1 C ……………………………. 循环编辑 ZCX1～n(子程序清单） A≤ZH(里程) =>GOTO A: ≠> GOTO E Lb1 A L=A-LC (LC直线上已点为起点的里程桩位) G=α (直线上起始方位角) H=X0+L×COS G I=Y0+L×SIN G P〝1,2〞:Q〝BJ〞 P=1=> GOTO B: ≠> GOTO C Lb1 B O=Q×COS(G-90°):F=Q×SIN(G-90°) GOTO D Lb1 C O=Q×COS(G+90°):F=Q×SIN(G+90°) GOTO D Lb1 D 〝N=〞:(H+O) ◢ (H+O) 〝N=〞◢ 〝E=〞:(I+F) ◢ –(fx4850输入法) (I+F) 〝E=〞◢ –(fx4800输入法) 〝END〞: GOTO T GOTO T〝END〞 Lb1 E A≤HY(里程) =>GOTO F: ≠> GOTO J Lb1 F L=A-ZH(里程) B=L-L5÷(40R2L02):C= L3÷(6R L0)- L7÷(336 R3L03):D=tan-1 (C÷B):J=√(C2+B2) (R曲线半径 L0缓和曲线长) G=α±D (α直线上起始方位角;曲线左转为－，右转为+) H=XZH+J×COS G I=YZH+J×SIN G (XZH ,YZH----ZH点X,Y坐标) P〝1,2〞:Q〝BJ〞 Z=G±2D (曲线左转为－，右转为+) P=1=> GOTO G: ≠> GOTO H Lb1 G O=Q×COS(Z -90°):F=Q×SIN(Z -90°) GOTO I Lb1 H O=Q×COS(Z +90°):F=Q×SIN(Z +90°) GOTO I Lb1 I 〝N=〞:(H+O) ◢ (H+O) 〝N=〞◢ 〝E=〞:(I+F) ◢ –(fx4850输入法) (I+F) 〝E=〞◢ –(fx4800输入法) 〝END〞: GOTO T GOTO T〝END〞 Lb1 J A≤YH (里程) =>GOTO K: ≠> GOTO O Lb1 K L=A-HY(里程) M= L0×180°÷(2R×π):B=α±M:S=90°×L÷(R×π) (α直线上起始方位角，B=α±M曲线左转为－，右转为+) U=2R×SIN (S) G=B±S (曲线左转为－，右转为+) H=XHY+U×COS G I=YHY+U×SIN G (XHY ,YHY----HY点X,Y坐标) P〝1,2〞:Q〝BJ〞 Z=G±S (曲线左转为－，右转为+) P=1=> GOTO L: ≠> GOTO M Lb1 L O=Q×COS(Z -90°):F=Q×SIN(Z -90°) GOTO N Lb1 M O=Q×COS(Z +90°):F=Q×SIN(Z +90°) GOTO N Lb1 N 〝N=〞:(H+O) ◢ (H+O) 〝N=〞◢ 〝E=〞:(I+F) ◢ –(fx4850输入法) (I+F) 〝E=〞◢ –(fx4800输入法) 〝END〞: GOTO T GOTO T〝END〞 Lb1 O A≤HZ (里程) =>GOTO P: ≠> GOTO T Lb1 P L=Abs(A- HZ ) (HZ里程) B=L-L5÷(40R2L02):C= L3÷(6R L0)- L7÷(336 R3L03):D=tan-1 (C÷B):J=√(C2+B2) G=(α±β)+180°±D (α直线上起始方位角, β曲线转角;D曲线左转为－，右转为+;曲线此时为反向走与前面输入正、负相反) H=XHZ+J×COS G I=YHZ+J×SIN G (XHZ,YHZ----HZ点X,Y坐标) P〝1,2〞:Q〝BJ〞 Z=G±2D (曲线左转为－，右转为+;曲线此时为反向走与前面输入正、负相反) P=1=> GOTO Q: ≠> GOTO R Lb1 Q O=Q×COS(Z +90°):F=Q×SIN(Z +90°) GOTO S Lb1 R O=Q×COS(Z -90°):F=Q×SIN(Z -90°) GOTO S Lb1 S 〝N=〞:(H+O) ◢ (H+O) 〝N=〞◢ 〝E=〞:(I+F) ◢ –(fx4850输入法) (I+F) 〝E=〞◢ –(fx4800输入法) 〝END〞: GOTO T GOTO T〝END〞 Lb1 T 说明：主程序与子程序分开编写，主程序以子程序名相连接。 括号内的说明部分即为使用时所需输入的曲线要素部分即一些输入方式等；匝道不能计算。 啊念，还有那里不清楚的Q我。