4800p,4850p竖曲线高程计算程序.doc

竖曲线高程计算程序（验算正确） 前言：本“竖曲线高程计算程序”更新增加了计算边桩设计高程的功能、自动判断计算桩号是否超出（起止里程）范围动能,新增了三个（前坡值+后坡值- 型凸曲线/前坡值-后坡值- 型凸曲线/凹曲线）程序算例、屏幕提示、详细操作步骤、注意事项等 一．计算程序 （主程序名：SQXGCJS 竖曲线高程计算） 适用于（CASIO f x—4800p） Lbl 0：Fixm：{RABCG}:R：A〝I1〞：B〝I2〞: C〝BPD-GC〞:G〝BPD-DK〞 D=A-B: T〝T=〞 =Abs（R÷2×D）◢ L=2T: E〝E=〞=T^2÷2R◢ F〝DKA=〞:=G-T◢ J〝DKB=〞=G+T◢ R=-R Lbl 1：Fixm：{ISP}:I〝DKS〞: I=0= Goto 0: ≠Goto 2 Lbl 2: S〝HPZ〞: P〝B-JL〞:I≤G= Goto 3: ≠ Goto 4 Lbl 3:I≥F= Goto 6: ≠ Goto 5 Lbl 4:I≤J= Goto 7: ≠ Goto 5 Lbl 5: 〝K-OVER〞: Goto 1 Lbl 6:L=I-F:N=(T-L)×A:M=C-N:Y=L^2÷2R: H〝H=〞=M-Y◢ K〝HP=〞 =H+SP◢ Goto 1 Lbl 7:L=I-G:N=LB:M=C+N:Y=(T-L)^2÷2R: H〝H=〞=M-Y◢ K〝HP=〞 =H+SP◢ Goto 1 适用于（CASIO f x—4850p） Lbl 0：Fixm：{RABCG}:R：A〝I1〞：B〝I2〞: C〝BPD-GC〞:G〝BPD-DK〞: D=A-B:〝T=〞:T= Abs（R÷2×D）◢ L=2T：〝E=〞:E=T^2÷2R◢ 〝DKA=〞:F=G-T◢ 〝DKB=〞:J=G+T◢ R=-R Lbl 1：Fixm：{ISP}:I〝DKS〞: I=0= Goto 0: ≠Goto 2 Lbl 2: S〝HPZ〞: P〝B-JL〞:I≤G= Goto 3: ≠ Goto 4 Lbl 3:I≥F= Goto 6: ≠ Goto 5 Lbl 4:I≤J= Goto 7: ≠ Goto 5 Lbl 5: 〝K-OVER〞: Goto 1 Lbl 6:L=I-F:N=(T-L)×A:M=C-N:Y=L^2÷2R: 〝H=〞:H=M-Y◢ 〝HP=〞:K=H+SP◢ Goto 1 Lbl 7:L=I-G:N=LB:M=C+N:Y=(T-L)^2÷2R: 〝H=〞:H=M-Y◢ 〝HP=〞:K=H+SP◢ Goto 1 二． 算例及相关操作说明 例1 已知数据：半径（R）=32000 切线长（T）= 400 变坡点里程K（JD）=K3+450.00 变坡点点高程H(JD)=392.340 i1=1.8﹪ i2=- 0. 7﹪（前坡值+后坡值- 型凸曲线） 1. 屏幕提示及操作步骤： R? 提示输入竖曲线半径R 输入格式：-32000（特别提示：凸曲线半径输入负值，凹曲线半径输入正值） I1? 提示输入竖曲线前坡度值I1 输入格式：0.018（特别提示：请连带符号输入） I2? 提示输入竖曲线后坡度值I2 输入格式：-0.007（特别提示：请连带符号输入） BPD-GC? 提示输入竖曲线变坡点（JD）高程 H 输入格式：392.340 BPD-DK? 提示输入竖曲线变坡点（JD）里程 K 输入格式：3450 T=400 显示竖曲线切线长 便于复核设计数据 E=-2.5 显示竖曲线外矢距 便于复核设计数据 DKA=3050 显示竖曲线起点里程 便于复核设计数据 DKB=3850 显示竖曲线终点里程 便于复核设计数据 DKS? 提示输入所求点里程 输入格式：3060(特别提示：DKS值输入0时，程序重新运算，即可进行下一线元计算) HPZ? 提示输入所求点里程对应的横坡度值 输入格式：-0.02（-2﹪）或0.02（2﹪） B-JL? 提示输入所求点里程对应的外移点至中桩的距离 输入格式：10 H=385.318 显示竖曲线所求点的设计高程 请将计算结果与设计数据对比验证 HP=385.118 显示竖曲线所求点里程对应的外移点设计高程 2. 计算结果：（本例题计算结果与设计数据完全吻合） K=3060 H=385.318 K=3090 H=385.835 K=3185 H=387.285 K=3240 H=387.996 K=3420 H=389.661 K=3530 H=390.180 K=