CASIO5800综合曲线坐标计算程序.pdf

CASIO fx-5800P 若有疑问请咨询邮件：ceo@ [正确] CASIO fx-5800P 综合曲线坐标计算程序 说明：该程序适用于计算器 CASIO fx-5800P，可计算线路中心的缓和曲线、圆曲线、直线段，中、 边桩坐标及切线方位角。 1、A? 输入转角:左转为负，右转为正 2、R? 输入圆曲线半径 3、LS? 输入缓和曲线长度 4、JD (DK)? 输入交点里程桩号 5、X (JD)? 输入本交点X 坐标 6、Y (JD)? 输入本交点Y 坐标 7、FWJ? 输入待求点切线方位角 9、J? 输入0 程序计算中桩，输入1程序计算边桩 10、Z? 输入里程桩号 程序名：ZHQX ?A:?R: ＂LS ＂?C: ＂JD (DK) ＂?D↙ C∧2÷24÷R-C∧（4）÷2688÷R∧（3）→P↙ C÷2-C∧（3）÷240÷R∧2→Q↙ 90×C÷兀÷R→B↙ ＂T= ＂:(R+P)tan(Abs(A)÷2)+Q→T◢ ＂W= ＂:(R+P)÷cos(A÷2)-R→W◢ ＂L= ＂:(Abs(A)-2×B)兀R÷180+2×C→L◢ ＂ZH= ＂:D-T→G◢ ＂HY= ＂:G+C→H◢ ＂QZ= ＂:G+L÷2→I◢ ＂YH= ＂:G+L-C→K◢ ＂HZ= ＂:G+L→M ◢ ＂X(JD) ＂?N: ＂Y (JD) ＂?E: ＂FWJ ＂?F: ?J↙ If A＜0:Then -1→S:Else 1→S:IfEnd↙ （……本行中0 为数字） F+A÷2+90×S→U↙ W+R→V↙ N+V×cos(U)→B↙ E+V×sin(U)→O↙ （……本行中O 为字母） 本程序由【陈超】编辑 更多程序请访问： CASIO fx-5800P 若有疑问请咨询邮件：ceo@ Lbl 1↙ ?Z↙ If Z≤G:Then T+G-Z→L↙ F+180→V↙ ＂FWJ= ＂:F→U◢ Goto 2↙ IfEnd↙ If Z≤H :Then Z-G→L↙ L-L∧(5)÷(90×R∧2×C∧2)→V↙ 30×L∧2×S÷(兀RC)→L↙ F+180→P↙ F+L→Q↙ ＂FWJ= ＂:F+3×L→U◢ Goto 4↙ IfEnd↙ If Z≤K:Then F+A÷2+90×S+180+180 (Z-I)×S÷R÷兀→L↙ ＂FWJ= ＂:L+90×S→U◢ Goto 5↙ IfEnd↙ If Z≤M :Then M-Z→L↙ L-L∧(5)÷(90×R∧2×C∧2)→V↙ 30×S×L∧2÷(兀RC)→L↙ F+A→P↙ F+A+180-L→Q↙ ＂FWJ= ＂:F-3×L+A→U◢ Goto 4↙ IfEnd↙ If ZM:Then Z-M+T→L↙ F+A→U↙ U→V↙ Goto 2↙ Lbl 2↙ ＂X= ＂:N+L×cos(V)→X◢ ＂Y= ＂:E+L×sin(V)→Y◢ Goto 6↙ IfEnd↙ 本程序由【陈超】编辑 更多程序请访问： CASIO fx-5800P 若有疑问请咨询邮件：ceo@ Lbl 3↙ ?W↙ ＂XL= ＂:X+W×cos(U-90) →P◢ ＂YL= ＂:Y+W×sin(U-90) →Q◢ ＂XR= ＂:X+W×cos(U+90) →P◢ ＂YR= ＂:Y+W×sin(U+90) →Q◢