漳州长泰北环线S1合同段CASIOfx-5800p程序(三维)

开篇：润墨网以专业的文秘视角，为您筛选了一篇漳州长泰北环线S1合同段CASIOfx-5800p程序(三维)范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！

摘 要：本文利用卡西欧5800计算器编程，进行路线桩号与坐标间快速正反算，同时显示中桩高程。

关键词：线元法；正反算；三维坐标

Abstract: In this paper, the use of Casio 5800 calculator programming, Rapid forward operator route Stake and coordinate, at the same time show the pile in elevation.Keywords: Line element method; positive and negative balance; three-dimensional coordinates

中图分类号： V355.1+1文献标识码：A 文章编号：2095-2104（2012）

在使用本程序前，先分析路线的线元数，例如某路线组成为：直线+缓和曲线+圆曲线+缓和曲线+直线，则有5个线元。程序运行前先按顺序按[MODE]键、4键进入REG模式，在统计串列List X[1]、List Y[1]、List Freq[1]中分别输入路线起点桩号与平面坐标，之后运行主程序XYH。路线线元数为N，则进入REG模式后，从第N+2行开始输入竖曲线参数。直线段时在List X、List Y、List Freq中分别输入直线段终点桩号、高程、直线段坡率。规定坡率上坡为正，下坡为负。曲线段时在List X、List Y、List Freq中分别输入曲线段终点桩号、曲线半径、曲线终点坡率。要求起始段必须为直线段。

主程序：XYH

Goto 1: Deg:FreqOn 第1次计算时需删除本句，正确运行一次后添加本句避免重复询问是否重输参数

"N= "?N: 5N+16DimZ: "QD F="?Z[5] 输入线元数, 定义额外变量, 输入路线起点走向方位角

For 1I To N: "n= ":I

"QD R="?Z[5I－4]: Z[5I－4]=0 =>1×10^(30) Z[5I－4]: "ZD R="?Z[5I－3]: Z[5I－3] =0 =>1×10^(30) Z[5I－3]: "L="?Z[5I－2]: If Z[5I－4]< 1×10^(30) Or Z[5I－3]< 1×10^(30): Then "Z(-1)，Y(1)="?Z[5I－1]:IfEnd: Next 输入起终点半径，直线输0，输入线元长度, 方向角左-1，右1

Lbl T:For 1I To N：List X[I]+ReP(Z[5I－2]) List X[I+1]: List X[I+1] Z: If Z[5I－4]=Z[5I－3] And Z[5I－4]=1×10^(30)：Then 0S:0T: Z[5I－2]D: Prog "SUBQ2－84":Goto 0: IfEnd:If Z[5I－4]=Z[5I－3] And Z[5I－4]

Lbl 0:TZ[5(I+1)]: ReP(U)List Y[I+1]:ImP(U)List Freq[I+1]: Next

Lbl 1:"KXY=1,XYK=2"?Q: If Q=2:Then 2Z[5N+15]:Goto 2:IfEnd: 1Z[5N+15] 正算、反算？

"K="?Z: ZZ[5N+13]: Z< List X[1] Or Z> List X[N+1] =>Goto E 正算，输入桩号

For 1I To N: Z≥List X[I] And Z≤List X[I+1] =>Break: Next:IZ[5N+16]: Z－List X[I] L: If Z[5I-4]= Z[5I-3] And Z[5I－4]=1×10^(30): Then 0S:0T: LD: Prog "SUBQ2-84":1Q:Prog "SUBQ2-85":IfEnd: If Z[5I-4]= Z[5I-3] And Z[5I－4]

Lbl 2: "X="?X:XGoto E: "Y="?Y: "H="?H: HZ[5N+1]: Z[5N+16]I:"I,< 0=>AUTO="?I:I>0=>Goto 3: Prog "IQJ" *文献[1]线元号处理存在缺陷，这里改进为自动精确搜索所在线元号

Lbl 3:If Z[5I-4]= Z[5I-3] And Z[5I－4]=1×10^(30) 反算核心程序参考文献[1],本文加以精简。

Then tan(Z[5I])T: (X+T2List Y[I]-T(List Freq[I]-Y))÷(T2+1) U: U+(Y-(U-X)÷T) iU: Z[5I]T: U-List Y[I]- List Freq[I] iA: List X[I]+Abs(A)Z: Goto Z:IfEnd: If Z[5I-4]= Z[5I-3] And Z[5I－4]Z[5I-3] :Then 2Z[5I-3]R: Else 2Z[5I-4]R:IfEnd: (R2-S2÷4)T: F+T∠GO: sin-1(S÷R÷2)V:πVR÷90J: (ReP(Z[5I-2]-J)÷JP: X+Y i－OV：Arg(V)J: O+R∠JC：Abs(C－U)S: sin-1(S÷R÷2)V:πVR÷90J: List X[I]+J(1+P)Z: Prog "SUBQ2-82": Do:X+Yi-UC:Abs(C)S:Arg(C)J:JJ+360J: J-TJ:JJ+360J: If J>220:Then J-270J:-1F: Else 90-JJ:1F:IfEnd: If Z[5I-4]>Z[5I-3]: Then πJ÷180÷(FZ[5I-1]L÷A2+ S-1)E: Else πJ÷180÷(-FZ[5I-1]L÷A2+ S-1)E:IfEnd: Z+EZ: If Z>List X[I+1]:Then I+1I:Goto 3:IfEnd: Prog "SUBQ2-82": tan(T)×(ImP(U)-Y)+ReP(U)-XC: LpWhile Abs(C)>0.001: "f(LP)=":C