竖曲线计算程序.docVIP

CASIOfx4500pa小程序 Created by: honestman Created on: CREATEDATE 2004-3-11 13:19 PAGE 1 / NUMPAGES 2 竖曲线标高计算及其程序 图1 一、问题分析及求解 已知：变坡点W的里程Z和高程H，坡率I和J，半径R，凹凸曲线标志K值，凹曲线时K值取-1，凸曲线时K值取1。 求：纵断面上任一里程点P的设计高程。 解题思路：以里程作横轴，以高程为竖轴，建立直角坐标系。纵曲线在变坡点处一般采用纵向圆曲线过渡，故可由圆方程求解此问题，如图1，圆上任点P距圆心之距离为R，即,即 二、编程 程序名： 程序清单： 以下为注释： 提示输入基本数据 按坡率计算后方竖直角A 按坡率计算前方竖直角B 折角（相当于平曲线的偏角） ◢ 切线长 ◢ 外距 W到A的竖向方位角 W到B的竖向方位角 竖曲线起点A的里程 竖曲线起点A的标高 竖曲线终点B的里程 竖曲线终点B的标高 变坡点W到圆心O距离 变坡点W到圆心O距离 圆心里程 圆心高程 0 跳转语句入口 里程设为变量 ◢ 当输入里程在圆曲线起点A之前时 0⊿ 跳转到Lbl 0处 ◢ 当输入里程在圆曲线终点B之前时 0⊿ 跳转到Lbl 0处 ◢ 当输入里