fx5800平曲线竖曲线程序

PQX(5800平曲线程序) 算左、中、右任意角度及结构物坐标
1、Lb1 0：Deg：Prog“A”
2、E－D→J
3、Arg (cos（J)+ i sin(J))→J
4、Abs (J)÷J→H
5、S 2
÷(24R)-S
4
÷(2268R
3)程序中有两个括弧+ i(S÷2-S3÷(240R2 ))→P
6、JH÷2→M
7、90÷(Rπ) →N
8、（R+ReP (P)）tan(M)+ImP (P)→T
9、M÷N+S →L
10、C-T →U
11、A-T(cos(D)+ i sin(D))→B
12、If K<U:Then C-K→I:0→F:A-I(cos(D)+i sin(D))→X:Goto1:Else If
K<U+S:Then K-U→W:Goto2:Else If K<U+L-S:Then GotoA:Else If K<U+L:Then U+L-K →W:Goto2:Else GotoB :IfEnd: IfEnd: IfEnd: IfEnd
13、Lbl 2:NW 2
÷S→F:W-W
5
÷(40R2S
2)+W9÷(3456R6S6)
程序中有两个括弧+ i(W3÷
(6RS)-W 7
÷(336R
4
S
4
)程序中有两个括弧→I: If K<U+S:Then Goto3:Else GOto4: IfEnd
14、Lbl 3:B+Abs(I)(cos(D+H Arg(I))+ i sin(D+H Arg(I))→X:Goto1
15、Lbl A:K-U-S→W:2NW+NS→F:R sin(F)+Imp (P)+i(R-R cos(F)+Rep (P)) →
I:Goto3
16、Lbl B:K-U-L→W: 0→F:A+(W+T)(cos(E)+ i sin(E))→X:E→D:Goto1
17、Lbl4:E-HArg(I)→V:E→D:-H→H:A+T(cos(E)+i sin(E))-Abs(I)(cos(V)+i sin(V))
→X:Goto1
18、Lbl 1:D+HF+Z→Q:“X+Y i=”:X+G(cos(Q)+i sin(Q))+Ｏ（cos(Q-Y)+i sin(Q-Y)）
→X ▲
19、Goto 0
A(数据库)PQX子程序
1、“DK”？K: “L-R”?G: “XJ”?Z:? Ｏ:?Y
2、If K<141216.781(第二曲线起点)：Then 1300(半径) →R: 165 (缓和曲线长) →S:
73688.363+61082.739i(交点坐标X+Y i) →A: 140083.413(交点桩号)→C: 297 51 48.67（与前一交点方位角）→D: 236 24 44.84(与后一交点方位角) →E: Return:If End
例题：
1、”DK”?K:”L-R”?G:”XJ”?Z:O:?Y
2、If K<424.235:Then 1000→R:120→S:43812.504+48756.851i→A:-33.942→C：103°3°30°→D:91°8°38°→E:Return:IfEnd
3、If K<1663.769:Then 1000→R:120→S:43797.960+49485.331i→A:693.821→C：91°8°38°→D:114°48°17°→E:Return:IfEnd
4、If K<3972.554:Then 2000→R: 0→S:43277.777+50610.861i→A:1927.535→C：114°48°
17°→D:99°46°44°→E:Return:IfEnd
5、If K<6129.653:Then 3000→R:0→S:42846.791+53111.511i→A:4462.027→C：99°46°44°→D:118°18°43°→E:Return:IfEnd
6、If K<7223.231:Then 1000→R:120→S:41916.431+54838.510i→A:6415.133→C：118°18°43°→D:80°12°52°→E:Return:IfEnd
SQX(5800竖曲线程序)
1、Lbl 0:Prog“B”
2、(B-C)R÷200→T
3、If K<J-T:Then H-0.01B(J-K) →X:Else If K<J+T:Then K-J+T→D:H-0.01B(T-D)-D2
÷(2R) →X:ElseH+0.01C(K-J) →X:IfEnd:IfEnd：
4、X-0→X:Prog“Z”:“Z+Xi=”：X+Z+Xi→Z▲
“Y=”：X+Y→Y▲
4、Goto 0
B（数据库）
1、“DK”？K：If K≦140815（下一个竖曲线起点）：Then -1000(半径凸 +，凹 -)→R:
-2.2(前一纵坡坡度) →B:2.9(后一纵坡坡度)→C: 140200（边坡点桩号）→J:
219.755（边坡点高程）→H: Return:IfEnd
例子：
“DK”？K：If K≦2241.25：Then 8000→R: -0.4 →B: -2→C: 1920→J:31→H: Return:IfEnd If K≦2857：Then-5000→R: -2→B:0.35→C: 2300→J:23.4→H: Return:IfEnd
If K≦2939.44：Then18000→R: 0.35→B:-0.35→C: 2650→J:24.625→H: Return:IfEnd If K≦3296.165：Then-10000→R: -0.35→B:0.861→C: 3000→J:23.4→H: Return:IfEnd If K≦3560：Then5000→R:0.861→B:-1.692→C: 3360→J:26.5→H: Return:IfEnd
If K≦4117.9：Then-5000→R: -1.692→B:0.714→C: 3620→J:22.1→H: Return:IfEnd
If K≦4955.317：Then12000→R:0.714→B:-0.321→C:4180→J:26.1→H: Return:IfEnd
If K≦5255.341：Then-7000→R: -0.321→B:1.527→C: 5020→J:23.4→H: Return:IfEnd If K≦5594.478：Then4500→R: 1.527→B:-1.347→C:5320→J:27.98→H: Return:IfEnd If K≦5876.658：Then-7000→R: -1.347→B:0.525→C: 5660→J:23.4→H: Return:IfEnd If K≦6000：Then15000→R:0.525→B:-0.32→C: 5940→J:24.87→H: Return:IfEnd
Z (5800超高程序)
1、Prog“C”:“B”?V
2、0.04S÷(0.02+C) →D:A-T→E:E+D→F:E+S→G:G+L→I:I+S→M:M-D→J
3、If K<E:Then -0.02V→Z:Z→Y::Goto1:Else If K<F:Then Goto2:Else If K<G:Then H((0.02+C)V(K-E)÷S-0.02V→Z:-Z→Y:Goto1:Else If K<I:Then HVC→Z:-Z→Y:Goto1：Else If K<J:Then H((0.02+C)V(M-K)÷S-0.02V→Z:-Z→Y:Goto1:Else If K<M:Then Goto3:Else -0.02V→Z:Z→Y:Goto1:IfEnd: IfEnd: IfEnd: IfEnd: IfEnd: IfEnd
4、Lbl 2:IfH<0（零）:Then0.02VH→Z:(0.02+C)V(K-E)/S-0.02V→Y:Else(0.02+C)V(K-E)/S-0.02V→Z:-0.02VH→Y: IfEnd: Goto1
5、Lbl 3:IfH<0:Then0.02VH→Z:(0.02+C)V(M-K)/S-0.02V→Y:Else(0.02+C)V(M-K)/S-0.02V→Z:-0.02VH→Y: IfEnd: Goto1: Lbl 1
C程序
If K≦141216.781：Then 140083.413→A:0.03→C:-1→H:130→S:1229.28→L:855.675→T: Return:IfEnd
If K≦142472.319：Then 141700.107→A:0.03→C:1→H:130→S:608.144→L:483.326→T: Return:IfEnd
If K≦143839.524：Then 142976.487→A:0.02→C:-1→H:105→S:634.484→L:504.168→T: Return:IfEnd
If K≦145570.280：Then 144509.787→A:0.02→C: 1→H:105→S:928.816→L:670.263→T: Return:IfEnd
If K≦148062.26：Then 146191.812→A:0.02→C:-1→H:105→S:822.148→L:621.531→T: Return:IfEnd
PQXZFS平曲线正反算( 主程序)
Lbl 4：“1.SZ=>XY”: “2.SZ=>XY”:?N:?S:Prog “SUB0”
1/P→C:(P-R)/(2HPR) →D:180/兀→E:N=1=>Goto1:Goto2:
Lbl 1：？Z:Abs(S-O) →W: Prog “SUB1”: “XS=”:X▲
“YS=”:Y▲
F-90→F: “FS=”:F▲DMS▲
Goto4
Lbl 2:?X:?Y:X→I:Y→J: Prog “SUB2”:O+W→S: “S=”:S▲
“Z=”:Z▲
Goto4
正算子程序SUB1
0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C +MWD))) →X:V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C +MWD))) →Y:G+QEW(C+WD)+90→F:X+Zcos(F) →X:Y+Zsin(F) →Y
反算子程序SUB2
G-90→T:Abs((Y-V)cosT-(X-U)sinT) →W:0 （零）→Z: Lbl 0: Prog “SUB1”:T+QEW(C+WD) →L:(J-Y)cosL-(I-X)sinL →Z:IfAbs(Z)<1**10-6：Then0 →Z: Prog “SUB1”:(J-Y)/sinF →Z:ElseW+Z→W:Goto0:IfEnd
数据库子程序SUB0
Goto1
Lbl 1：If S<***(线元终点里程)：Then***→G(线元起点方位角)：***→O（线元起点里程）：***→U（线元起点X）：***→V（线元起点Y）：***→P（线元起点曲率半径）：***→R（线元终点曲率半径）：***→H（线元起点至终点长度）：0或1、-1→Q：Return：IfEnd
Lbl 1：If S<***(线元终点里程)：Then***→G(线元起点方位角)：***→O（线元起点里程）：***→U（线元起点X）：***→V（线元起点Y）：***→P（线元起点曲率半径）：***→R（线元终点曲率半径）：***→H（线元起点至终点长度）：0或1、-1→Q：Return：IfEnd ………………
使用说明：
1、一道路中线的前进方向（即里程增大的方向）区分左右，当线元往左偏时，Q=-1；当线
元往右偏时Q=1；当线元为直线时Q=0
2、当所求点位于中线时，Z=0；当所求点位于中线左侧时Z取负值；位于右侧时Z取正直
3、当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替
4、当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧半径
5、当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；
当与圆曲线相接时，曲率半径等于圆曲线的半径。

止点与直线相接时，曲率半径为无穷大，与10的45次代替，与圆曲线相接时，曲率半径等于圆曲线的半径
6、当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲
线相接时，曲率半径等于圆曲线的半径；止点与直线相接时，曲率半径等于设计规定的值，与曲线相接时，曲率半径等于圆曲线的半径
输入与显示说明
N选择计算方式，1正算，2反算
S?正算时所求的里程，反算时为所求的近似里程
X?反算时所求点的X坐标
Y?反算时所求点的Y左标
FS=正算时，所求点对应的中线点的切线方位角
道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通）
程序的特点：
1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写；
2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐；3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。

.二、程序代码
.
.
.
.
.
.
注：路线数据库子程序ROAD－DATA1是根据计算示例项目的直曲表编写，大家使用时应按各自项目的直曲表改写或新建。

.
.例题：
-198.348→D:424.235→E:If P<=(小于等于)E:Then-33.942→K:43812.504→X:48756.851→Y:103º3º30 º→M:-11 º 54 º 52 º→O:1000→R:120→B:120→C:Goto1:IfEnd
E→D:1663.769→E: If P<=(小于等于)E:Then693.821→K:43797.96→X:49485.331→Y: 91º8º38 º→
M:23 º 39 º40 º→O:1000→R:120→B:120→C:Goto1:IfEnd
E→D:3972.544→E: If P<=(小于等于)E:Then1927.535→K:43277.777→X:50610.861→Y: 114º48º17 º→M:-15 º 1 º34 º→O:2000→R:0→B: 0→C:Goto1:IfEnd
E→D:6009.653→E: If P<=(小于等于)E:Then4462.027→K:42846.791→X:53111.511→Y: 99º46º44º→
M:18 º3 1 º59 º→O:3000→R:0→B: 0→C:Goto1:IfEnd
E→D:7223.231→E: If P<=(小于等于)E:Then6415.133→K:41916.413→X:54838.510→Y: 118º18º43 º→M:-38 º 5 º51 º→O:1000→R:120→B:120→C:Goto1:IfEnd
Lbl 1:If P<-198.348 Or P>7223.231:Then Cls:Locate 5,2, “KP ERROR”▲Stop:IfEnd:Return
四、程序变量清单
.
.
五、计算流程示例
1．中桩坐标计算示例
计算任务：计算高速公路K6+100～K6+700段的中桩坐标及切线方位角（桩距20m），并在导线点（2807118.026，474113.687）上架设全站仪，计算各中桩的极坐标放样数据。

使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。

.
.
.
.
2．边桩坐标计算示例
计算任务：计算HY高速公路主线K6+100～K6+700段的边桩（左右各12.25米）坐标（桩距20m）。

使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。

.
.
3．坐标反算计算示例
计算任务：根据前面计算的K6+100的中桩、左右边桩的坐标，反算对应桩号及偏距，并进行验证。

使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。

.。