(嘘~~群内共享,切勿泄漏)卡西欧5800测量用计算程序.docVIP

CASIO Fx-5800P 实用小程序（写了一个上午，希望认真学习） 编辑：军 开机按MODE SETUP 进入选择计算模式。 选择 5：PROG(编程) 进入菜单如下： 1.NEW（新建）2.RUN(运行)3 EDIT(编辑)4 DELETE（删除） 如果新建程序 选择1 新建。 输入名称后按EXE 后选择 1COMP计算 后 即可进行程序编辑状态。 认真输入下述程序即可。 一些符号都在 FUNCTION – PROG 里面 CASIO Fx-5800P 平曲线坐标计算程序 （备注：文件名称可命名为 PQX（即平曲线） ，当然你也可以随便写） 个别符号我已写上批注。 ?A:?R:?C:?D C2÷24÷R－C^(4) ÷2688÷R^(3)→P C÷2-C^(3) ÷240÷R2→Q C×90°÷π÷R→B 〞〞 〞〞 〞〞 D-T→G:G+C→H:G+L÷2→I:G+L→M:G+L-C→K ?N:?E:?F:?J If A0:Then -1→S:Else 1→S:IfEnd F+A÷2+90°S→U W+R→V N+Vcos(U) →B E+Vsin(U) →O ?Z Z≤G=Goto 1:Z≤H=Goto 3:Z≤K=Goto 4:Z≤M=Goto 6:ZM=Goto 7 Lbl 1 T+G-Z→L:F+180°→V:F→U 〞〞 〞〞 Goto 5 Lbl 2 ?W:?Q 〞〞 〞〞 Goto 8 Lbl 3 Z-G→L L-L^(5) ÷90°÷R2÷C2→V 30°S÷π÷R÷C×L2→L F+180°→P:F+L→Q:F+3L→U 〞〞 〞〞 Goto 5 Lbl 4 F+A÷2+180°+90°S+(Z-I)÷R÷π×180°S→L L+90°S→U 〞〞 〞〞 Goto 5 Lbl 6 M-Z→L L-L^(5)÷90°(RC) 2→V 30°S÷π÷R÷C×L 2→L F+A→P:F+A+180°-L→Q:F-3L+A→U 〞〞 〞〞 Goto 5 Lbl 7 Z-M+T→L:F+A→U:U→V 〞〞 〞〞 Goto 5 Lbl 5 If J=1:Then Goto 2:Else Goto 8:IfEnd Lbl 8 〞〞 A 线路偏角（左为负，又为正） R 半径 C 缓和曲线长度 D 交点桩号 T 切线长 W 外矢距 L 曲线总长 N 交点坐标X E 交点坐标Y F 直缓点的方位角 J 是否计算边桩 是按 1 否按 0 Z 待求点的里程桩号 如需计算边桩，需输入下列要素： W 边桩至中桩距离（左为负，右为正） Q 边桩与路线夹角 CASIO Fx-5800P 竖曲线坐标计算程序 （备注：文件名称可命名为 SQX（即竖曲线） ，当然你也可以随便写） Lbl 1 ？R:?D:?M:?C:?F 〞〞 0.5T2÷R→E (F-C) ÷Abs(F-C) →V ?L L≤D=Goto 2:LD=Goto 3 Lbl 2 If D-L≤T:Then M-(D-L)C+V(T-D+L) 2÷2÷R→H:Else M-(D-L)C→H:IfEnd Goto 4 Lbl 3 If L-D≤T:Then M+(L-D)F+V(T-L+D) 2÷2÷R→H:Else M+(L-D)F→H:IfEnd Goto 4 Lbl 4 〞〞 备注： R 竖曲线半径 计算出竖曲线切线长T D 边坡点里程桩号 M 边坡点高程 C 输入变坡点后段坡率 以路线前进方向 F 输入变坡点前段坡率 以路线前进方向 E 外矢距 L 待求点里程桩号 H 待求点高程 Function – 3.prog –第一页中 Function – 3.prog –第一页中 红色键ALPHA-√￣ Function – 3.prog –第一页中 Function – 3.prog –第一页中 Function – 3.prog –第一页中 Function – 3.prog –第三页中 Function – 3.prog –第一页中 Function – 3.prog –第一页中