卡西欧5800隧道测量程序2

卡西欧5800隧道测量程序2

卡西欧5800隧道测量程序2.txt你出生的时候，你哭着，周围的人笑着；你逝去的时候，你笑着，而周围的人在哭！喜欢某些人需要一小时,爱上某些人只需要一天,而忘记一个人得用一生XFS(反算子程序)

90→S:X→U: Y→V: 0→W: C-90→L: (Y-B)cos L-(X-A)sin L→Q?

Lbl1:Prog“XZS”:L+（I+2D）Q×90÷π→J:

(V-Y)cosJ-(U-X)sinJ→O:IfAbs(O)<10^(-6):ThenGoto2:Else Q+O→Q:Goto 1 :IfEnd? Lbl 2: 0→W: Prog "XZS" (V-Y)÷sinJ→W?

SQX1(竖曲线计算子程序)

******************************************************

A---转坡点里程 B---转坡点高程 R---竖曲线半径

I---第一坡度 J---第二坡度 T---切线长

说明：转坡点要素从小里程到大里程依次输入，顺序不得颠倒。

******************************************************

?P:123600→A:1066.010→B:-40000→R:1.08÷100→I:-0.531÷100→J:0.5(J-I)R→T：If P≤A+T:Then Goto4:IfEnd?

124570→A:1060.862→B:-42000→R:-0.531÷100→I:-2.4÷100→J:0.5(J-I)R→T：IfP≤A+T:ThenGoto4:IfEnd?

Lb4: If P≤A-T: Then (P-A)I+B→D:Else If P≤A+T:Then B+((P-A)+0.5R(I+J))2÷2÷R-0.5RIJ→D: Else (P-A)J+B→D IfEnd:IfEnd?

“SJGC=”:D◢

说明

A：线圆起点X坐标、B：线圆起点Y坐标、C：方位角

D:起点曲率半径、R:终点曲率半径、F:起点里程、 G：终点里程

Z：待求点里程：S要求的角度：W偏距：

（1）当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。??????(2) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。??????(3) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。?????? (4) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。(5)、曲线曲率半径左（-）右（+）