MXK(CASIO5800P) 五种竖曲线高程计算.docVIP

竖曲线高程计算 1. fx5800p全线高程计算 SQXDeg：Fix 3 Lbl 1: ?K:“BJ”?B:“JGC”?G Porg “SQXSJK” If K≤A:Then C+(D-K)×E-G→H：Goto 2:Else K≤D =＞“H”C+(K-A)÷2÷R+(D-K)×E-G→H：Goto 2:If K≤I：Then C-(I-K)2÷2÷R+(K-D)×F-G→H：Goto 2Lbl 2:B？“SJGC=”:H◢Goto 1“BZGC=”:H-B×横破比ReturnSQXSJKLbl 0If K≤曲线终点:Then曲线起点→A:交点高程→C:交点桩号→D:前坡比→E:后坡比→F:曲线终点→I:半径→R（EF下坡正上坡负）K=桩号，BJ=边距，JGC=结构层厚度公路路线高程通用程序（CASIO5800）?? 公路路线高程通用程序（CASIO5800）??????????????????????????????????作者：李艳阳Fx-5800路线高程程序GCQX-000??????????????主程序Lbl 1: Prog“GCQX-SUB000” If R10^8: Then B+(S-A)(D-B) ÷(C-A)→H: Goto2: IfEnd↙Pol(D-B,C-A):J-Sin-1(I÷2÷R)→F:B+R Cos(F+9