fx5800程序(支持不对称型).docVIP

卡西欧fx5800程序 主线坐标计算 主程序 A01ZB (子程序名 B0ZB) 10→DimZ （K待求点桩号） Lbl 9:Norm 1:”K”?K:Prog”B0ZB”:F-T→A:A+S→B:A+W→D: D-Z→C If KC:Then U→H:J→J:-1→O:T→T:Else V→H:-J→J:1→O:I→T:Ifend: N+OTcos(H)→Z[1]:E+OTsin(H)→Z[2]:Goto 0: Lbl 0 （K待求点桩号） KA=Goto 1: KB=Goto 2: KC=Goto 3: KD=Goto 4: K≥D=Goto 5: Lbl 1:0→Z[3]:H+JZ[3]→Z[4]:(K-A)cos(H)→Z[7]:(K-A)sin(H)→Z[8]: Goto 6 Lbl 2:30(K-A)^2/R/S/→Z[3]:H+3JZ[3]→Z[4] (K-A)-(K-A)^(5)/90/R^2/S^2→Z[10] Z[10]cos(H+JZ[3])→Z[7]:Z[10]sin(H+JZ[3])→Z[8]:Goto 6 Lbl 3:90S/R/+180(K-B)/R/→Z[3]:H+JZ[3]→Z[4] Rsin(Z[3])+S/2-S^(3)/240/R^2→Z[9] R(1-cos(Z[3]))+S^2/24/R→Z[10] Z[9]cos(H)-JZ[10]sin(H)→Z[7]: Z[9]sin(H)+JZ[10]cos(H)→Z[8]:Goto 6 Lbl 4 30(K-D)^(2)/R/Z/→Z[3]:H+3JZ[3]→Z[4] (D-K)-(D-K)^(5)/90/R^(2)/Z^(2)→Z[10] - Z[10]cos(H+JZ[3])→Z[7]:- Z[10]sin(H+JZ[3])→Z[8]:Goto 6 Lbl 5 0→Z[3]:H-JZ[3]→Z[4]:(K-D)cos(H)→Z[7]:(K-D)sin(H)→Z[8]:Goto 6 Lbl 6 边桩坐标 Norm 1:”HR=”:Z[4]DMS 显示中线的方位角(度分秒 ) Fix 3:”X=”:Z[1]+Z[7]→X “Y=”:Z[2]+Z[8]→Y Norm 1:”HJ”?Q:”DL”?P:Fix 3:”XL=”:X+Pcos(Z[4]-Q)→Z[5] “YL=”:Y+Psin(Z[4]-Q)→Z[6] Norm 1:”DR”?L Fix 3:”XR=”:X+Lcos(Z[4]-Q+180)→X ”YR=”:Y+Lsin(Z[4]-Q+180)→Y Norm 1:”10x K(+,-)”?G:K+10G→K:Goto 9 主程序完 子程序 (数据库，输入方法范例) B0ZB If K≤ 5491.752 :Then 2261.857 →F: 4071637.716 →N: 503054.9294 →E: -1 →J: 5596 →R: 0 →S: 0 →Z: 1558.817 →T:1558.817→I: 3040.5543 →W: 186°25′47.8″ →U: 155°17′55″ →V:Ifend (2) If K 5491.752 :Then 5835.603 →F: 4068320.948 →N: 504580.5701 →E: 1 →J: 5600 →R: 0 →S: 350 →Z: 343.851 →T: 503.665 →I: 846.6609 →W: 155°17′55″ →U: 162°10′14.3″ →V:Ifend (3) If K 6688.413 :Then 7080.791 →F: 4067134.749 →N: 504962.0879 →E: -1 →J: 5600 →R: 350 →S: 0 →Z: 742.378 →T: 576.31 →I: 1314.6514 →W: 162°10′14.3″ →U: 150°30′37.5″ →V:Ifend …… F=交点里程 N=交点坐标X E=交点坐标Y J=转向 左=-1，右=1 R=半径 S=前缓和曲线全长 Z=后缓和曲线全长 T=前切线长 I=后切线长 W=曲线总长 U=前方位角 V=后方位角 全线要素可全部输入 要素表见电子表 0123456789 数字 ABCDEFGHIJKLMNOPQRSTUVWXYZ 字母 ⊿转移结束符号 显示结果命令 DimZ、=、→、DMS 、Lbl、If、Then、Else、Ifend、Goto、Norm、Fix均为一个整体 高程主程序 A02GC (子程序名 B0GC 竖曲线要素，HP1、HP2横坡数据，V=-1为左半幅横坡，其他为右半幅) 2→DimZ Lbl 0:?K: