卡西欧5800-竖曲线全线高程计算程序
fx5800平曲线竖曲线程序
PQX(5800平曲线程序) 算左、中、右任意角度及结构物坐标1、Lb1 0：Deg：Prog“A”2、E－D→J3、Arg (cos（J)+ i sin(J))→J4、Abs (J)÷J→H5、S 2÷(24R)-S4÷(2268R3)程序中有两个括弧+ i(S÷2-S3÷(240R2 ))→P6、JH÷2→M7、90÷(Rπ) →N8、（R+ReP (P)）tan(M)+ImP (P)→T9、M÷N+S →L10、C-T →U11、A-T(cos(D)+ i sin(D))→B12、If K<U:Then C-K→I:0→F:A-I(cos(D)+i sin(D))→X:Goto1:Else IfK<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: IfEnd13、Lbl 2:NW 2÷S→F:W-W5÷(40R2S2)+W9÷(3456R6S6)程序中有两个括弧+ i(W3÷(6RS)-W 7÷(336R4S4)程序中有两个括弧→I: If K<U+S:Then Goto3:Else GOto4: IfEnd14、Lbl 3:B+Abs(I)(cos(D+H Arg(I))+ i sin(D+H Arg(I))→X:Goto115、Lbl A:K-U-S→W:2NW+NS→F:R sin(F)+Imp (P)+i(R-R cos(F)+Rep (P)) →I:Goto316、Lbl B:K-U-L→W: 0→F:A+(W+T)(cos(E)+ i sin(E))→X:E→D:Goto117、Lbl4:E-HArg(I)→V:E→D:-H→H:A+T(cos(E)+i sin(E))-Abs(I)(cos(V)+i sin(V))→X:Goto118、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 0A(数据库)PQX子程序1、“DK”？K: “L-R”?G: “XJ”?Z:? Ｏ:?Y2、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:?Y2、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:IfEnd3、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:IfEnd4、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:IfEnd5、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:IfEnd6、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:IfEndSQX(5800竖曲线程序)1、Lbl 0:Prog“B”2、(B-C)R÷200→T3、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 0B（数据库）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:IfEndIf 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:IfEndIf K≦4117.9：Then-5000→R: -1.692→B:0.714→C: 3620→J:22.1→H: Return:IfEndIf K≦4955.317：Then12000→R:0.714→B:-0.321→C:4180→J:26.1→H: Return:IfEndIf 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:IfEndZ (5800超高程序)1、Prog“C”:“B”?V2、0.04S÷(0.02+C) →D:A-T→E:E+D→F:E+S→G:G+L→I:I+S→M:M-D→J3、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: IfEnd4、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: Goto15、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 1C程序If K≦141216.781：Then 140083.413→A:0.03→C:-1→H:130→S:1229.28→L:855.675→T: Return:IfEndIf K≦142472.319：Then 141700.107→A:0.03→C:1→H:130→S:608.144→L:483.326→T: Return:IfEndIf K≦143839.524：Then 142976.487→A:0.02→C:-1→H:105→S:634.484→L:504.168→T: Return:IfEndIf K≦145570.280：Then 144509.787→A:0.02→C: 1→H:105→S:928.816→L:670.263→T: Return:IfEndIf K≦148062.26：Then 146191.812→A:0.02→C:-1→H:105→S:822.148→L:621.531→T: Return:IfEndPQXZFS平曲线正反算( 主程序)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▲Goto4Lbl 2:?X:?Y:X→I:Y→J: Prog “SUB2”:O+W→S: “S=”:S▲“Z=”:Z▲Goto4正算子程序SUB10.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反算子程序SUB2G-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数据库子程序SUB0Goto1Lbl 1：If S<***(线元终点里程)：Then***→G(线元起点方位角)：***→O（线元起点里程）：***→U（线元起点X）：***→V（线元起点Y）：***→P（线元起点曲率半径）：***→R（线元终点曲率半径）：***→H（线元起点至终点长度）：0或1、-1→Q：Return：IfEndLbl 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=02、当所求点位于中线时，Z=0；当所求点位于中线左侧时Z取负值；位于右侧时Z取正直3、当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替4、当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧半径5、当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；当与圆曲线相接时，曲率半径等于圆曲线的半径。
卡西欧fx5800标准曲线竖曲线版
卡西欧fx-5800P程序1坐标反算(ST)Lb1 1：＂X1=＂？A：＂Y1=＂？BLb2 2：＂X2=＂？C：＂Y2=＂？D＂S(1-2)=＂：POL(C－A,D－B)→S▲IF J﹥0：Then J→T：Else J+360→T：If End＂T=＂：T→DMS▲＂K=＂？ＫIf K=1：Then Goto1：If EndIf K=2：Then Goto2：If EndIf K=3：Then C→A：D→B：Goto 2：If End 0说明：1、首先输入架站点坐标X0、Y0（O点）。
2、再输入后视点坐标XP、YP（P点）。
3、计算出O―P的边长S和方位角J。
4、当K＝1时，重新输入O、P点的坐标。
5、当K＝2时，以原O点坐标不变，重新输入新P点坐，计算出边长S和方位角J。
6、当K＝3时，以原P点坐标为架站点坐标O（X0、Y0），重新输入新的P点坐标，计算出边长S和方位角J。
2 坐标正算(XY)LbI 0：＂X0=＂？A：＂Y0=＂？B：＂P(1→Z，2→F)=＂？PIf P=1：Then Goto2：Else Goto5：If EndLbI 2：＂XA=＂？C：＂YA=＂？D＂S(0－A)=＂：POL(C－A，D－B)→S▲IF J﹥0：Then J→F：Else J+360→F：If End＂T(0－A )=＂：F→DMS▲Goto6Lb1 5：＂T(0－A )=＂？FLb16：＂S(0－P )=＂？S：＂E(∠AOP=)＂？EE+F→T：＂XP=＂：A+Rec(S，T) →X▲＂YP=＂：B+J→Y▲If T≥360：Then T-360→T：If End＂T(0－P)=＂：T→DMS▲＂K=＂？KIf K=1：Then Goto0：If EndIf K=2：Then Goto6：If EndIf K=3：Then X→A：Y→B：T+180→F：Goto6：If End说明：1、首先输入架站点O（X0、Y0）坐标2、输入判断值P: 当P=1时输入后视点的坐标，计算出到后视点距离＂S(0－A)=＂S和方位角T(0－A )=F; 当P=2时直接输入后视点的方位角T(0－A )=F。
5800平曲线和竖曲线计算程序。以验证过
5800平曲线和竖曲线计算程序。
以验证过5800平曲线程序1.主程序Lbl 4："1.SZ => XY"："2.XY => SZ"：？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◢D:X+DCos(F)→X: "X=":X◢Y+DSin(F)→Y: "Y="：Y◢Goto4↙Lbl 2：？X：？Y：X→I：Y→J：Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢Goto4↙2. 正算子程序(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))+B cos(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+QE MW(C+MW D))) →Y：G+QEW(C+WD)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y2. 反算子程序(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)cos（L）-(I-X)sin（L）→Z：IF Abs （Z）<10-6：T hen Goto1：Else W+Z→W：Goto 0：IfEndLb1 1：0→Z：Prog "SUB1" ：(J-Y)÷sin（F）→ZSUB0 数据库子程序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 ……………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加个工程增加一个文件。
CASIO5800计算器公路竖曲线全线高程计算程序
“SQXJSCX”↙Lb1 1↙CLs:Fix 3↙（这句可以不要）“K=”?k◢ (计算点里程输入)If k<67549.755 AND K≥66894.3 :Then -0.00052→A : 0→B : 67394.3→S : 67.37→G : 600000→R : Goto 2 : IfEnd↙If k<68708.391 AND K≥67549.755 :Then -0.004 8→A : -0.00052→B : 68494.3→S :66.8→G : 100000→R : Goto 2 : IfEnd↙If k<本段竖曲线终点里程 AND K≥前一竖曲线终点里程:Then -0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→竖曲线交点里程S :66.8→交点高程G : 100000→曲率半径R : Goto 2 : IfEnd↙………依次类推，计算原始数据完成输入，坡度换算成小数。
Lb1 2↙S-K→L ：A-B→W : Abs（R*W/2）→T : S-T→C : S+T→D ↙If K≤C : Then G-L*B →H : Goto 5 : Else If K≤S : Then Goto3 : Else If K≤D : Then Goto4 : IfEnd : IfEnd : IfEnd↙Lb1 3↙If W>0 : Then G+(C-K)^ 2/2/R-L*B→H : Goto 5 : Else If W<0 : Then G-(C-K) ^2/2/R-L*B→H : Goto 5 : IfEnd : IfEnd↙Lb1 4↙If W>0 : Then G+(K-D) ^2/2/R-L*A→H : Goto 5 : Else If W<0 : Then G-(K-D)^ 2/2/R-L*A→H : Goto 5 : IfEnd : IfEnd↙Lb1 5↙H-0.304→H↙ (0.304为中心~路肩高差) （H-0→H↙则计算出的为中桩设计高程）“H=”：H◢Goto 1↙If k<本段竖曲线终点里程《指的是本段圆曲线终点》 AND K≥前一竖曲线终点里程《指前一段圆曲线终点》:Then -0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→竖曲线交点里程S :66.8→交点高程G : 100000→曲率半径R : Goto 2 : IfEnd↙。
卡西欧5800测量实用程序（含直线、圆曲线、大地转施工程序）
卡西欧5800测量实用程序（含直线、圆曲线、大地转施工程序）卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)一、直线计算程序0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J →A:If A<0:Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:D+Scos(A) →X:”X=”:X ◢E+Ssin(A) →Y:”Y=”:Y ◢Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值O? 输入边桩与中桩的距离( 左边桩为负值, 右边桩为正值), 如计算中桩坐标输入0S? 输入所求点到直线起点的距离二、圆曲线计算程序0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A →A:IfEnd:sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢R-0.5√(4R2-H2) →Q:”Q=”:Q ◢“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值R? 输入圆曲线半径L:-1 R:1? 圆曲线向左转弯时输入-1, 向右转弯时输入1ZY? 输入起点桩号LN? 输入所求点桩号( 按下exe 键后显示中桩坐标)S? 输入所要求的边桩与中桩的距离L:-90 R:90 要求左边边桩输入-90, 右边边桩输入90( 按下exe 键后显示边桩坐标)三、大地转施工“QK=”？Z:“QX=”？A:“QY=”?B:“ZX=”？O :“ZY=”？Q ↙Pol( O -A,Q-B) ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J→F:“JF=”：F ◆DMS ◢Lb1 0 ↙X:?Y ↙Pol （X-A,Y-B):I→D ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J-F→T:T→G ↙T<0=>T+360→G ↙T>360=>T-360→G ↙Z+Dcos （G)→K:“K=”：K ◢Dsin （G)→C:“C=”：C ◢GoTo 0 ↙说明：QK-- 输入线路起始点里程QX-- 输入线路起始点中桩X 坐标QY-- 输入线路起始点中桩Y 坐标ZX-- 输入线路前进方向中桩X 坐标ZY-- 输入线路前进方向中桩Y 坐标JF=-- 显示线路测量坐标方位角X-- 输入线路附近任意点测量X 坐标Y-- 输入线路附近任意点测量Y 坐标K-- 显示计算结果：里程桩号，即工程X 坐标C-- 显示计算结果：左右偏距，即工程Y 坐标, 中桩=0 ，左偏= 负值，右偏= 正值。
非常实用的5800放线程序(4800转换,增加计算竖曲线标高,增加使用说明)
卡西欧fx-5800p计算道路中、边线坐标放样程序(此程序计算速度快，可以查找桩号和偏中距离)（单园曲线超过半圈后有误差，半径5000米时，在半圈处的计算误差单方向8cm）SUB-10.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:U+W(Acos(G+180QKW(1÷P+KWD)÷π)+Bcos (G+180QLW(1÷P+LWD)÷π)+Bcos (G+180QW(1-L)(1÷P+WD(1-L))÷π)+Acos (G+180QW(1-K)(1÷P+WD(1-K))÷π))→X:V+W(ASIN(G+180QKW(1÷P+KWD)÷π)+Bsin(G+180QLW(1÷P+LWD)÷π)+Bsin (G+180QW(1-L)(1÷P+WD(1-L))÷π)+Asin (G+180QW(1-K)(1÷P+WD(1-K))÷π))→Y:G+180QW(1÷P+WD)÷π→FS—O(放线主程序)Deg:Fix3LbI7:“XC=”？C:“YC=”？E“H=”？TLbI1:“XL=1,2”？NIF N=0:T hen“X0=”?U:“Y0=”?V:“F0=”?G: “R1=” ?P: “R2=” ?R: “DK1=” ?О: “DK2=” ?H:“L(-1),R(+1),Z(0)” ?Q:Prog“SJ”: GOTO2:IfendLbI 0: “ZHUANG HAO=” ?S: IF T≠0:T hen Z=0：Goto 8:Ifend {Z} :Z”KUAN DU”LbI8IF N=0:T hen GOTO2:IfendIF N=1:T hen Prog“1”:GOTO2:IfendIF N=2:T hen Prog“2”:GOTO2:IfendIF N=3:T hen Prog“3”:GOTO2:Ifend ……………………………………………GOTO1LbI2: IF S＜О-0.001: T hen GOTO1: IfendIF S＞H+0.001:T hen GOTO1: Ifend(P-R)÷(2PR(H-О)) →D: Abs(S-О) → W:Prog“SUB-1”IF Z=1000: T hen GOTO 5: IfendIF Z≠0: T hen GOTO 3: IfendIF T≠0:T hen GOTO 9 △“ZX=”:X →X▲“ZY=” Y→Y▲IF F＜0: T hen F+360 →F: Ifend“QX-FWJ=”：F→F▲LbI4: 0→I: 0→J:PoI(X-C,Y-E+0.00001)IF J＜0: T hen J+360→J: Ifend“FWJ=”:J→J▲“HD=”:I→I▲GOTO 0IF T=0: T hen Goto 0: IfendLb1 9: Prog“BG”: ”SXG=” ?E”H△”:G-T+E→J▲Goto 0Lb13: “PJ=”? M: F+M→F: “BX=”： X+ZCosF→X▲“BY=”：Y+ZSinF →Y▲Goto4Lb1 5:Deg0→J: 0→I:PoI(X-C,Y-E+0.00001):IF J＜0: T hen J=J+360: IfendIF Abs(Icos(J-F))＜0.010: T hen Goto6: IfendS-Icos(J-F) →S:Goto8Lb16: 0→Z:”JISUANZH=” :S→S▲IF J-F=0 or J-F=180: T hen”ZX--PT”:I→I▲Goto7: IfendIF J-F＞0 and J-F＜180 or J-F＜-180: T hen”L=m” :I→I▲Goto7: Else ”R=m” :I→I▲Goto7: Ifend竖曲线计算子程序 BGV=4：Y=Z[1]Lb1 0IF S＜Z[1]:T hen Goto2：IfendIF V＞4：ThenA=(Z[V-2]-Z[V-5])/(Z[V-3]-Z[V-6]): B=(Z[V+1]-Z[V-2])/(Z[V]-Z[V-3]):L=ABS(Z[V-1]*tan((tan-1 B- tan-1 A)/2))Y=Z[V-3]+L: IfendA=(Z[V+1]-Z[V-2])/(Z[V]-Z[V-3]): B=(Z[V+4]-Z[V+1])/(Z[V+3]-Z[V]):L=ABS(Z[V+2]* tan ((tan -1 B-tan -1 A)/2))X=Z[V]-L:U=z[v]+LIF A-B＞0:T hen Q=-1：IfendIF A-B＜0:T hen Q=1：IfendW=(S- X)/ Z[V+2]*180/piIF S≥Y and S≤X：T hen ZG=Z[V-2]+A(S-Z[V-3]): Goto 1：IfendIF S≥X and S≤U：T hen ZG= Z[V+1]-L*A +2* Z[V+2]*SIN(W/2)*SIN(SIN-1 A+Q*W/2): Goto 1：IfendIF S＜Y：T hen V=V-3：Goto 0： IfendIF S＞U and Z[V]≠Z[V-3]：T hen V=V+3：Goto 0： IfendIF S＜Z[1]：T hen ZG=0： IfendLbI 2：”MEI YOU SHU JU” ? GLb1 1（标高数据输入程序）SJ1→Ｉ：LbI ０：”BIAN PO DIAN=”I▲”ZHUANG HAO=” ? E:Z[3I-2]=E:”BIAO GAO=” ? E:Z[3I-1]=E:”BAN JING=”? E:Z[3I]=E:IF I＜3:T hen I+1→I：Goto 0:Ifend说明： I为变坡点号，本程序为3个（最少3个），如果增加变坡点，相应增加I＜后的数字，并增加“s-o”程序的Defm后的数字为(I+1)*31 (1为线路名称，预装要素子程序)(线路名称预装要素子程序) 1o=线元起点里程:H=线元终点里程: U=线元起点X坐标:V=线元起点y坐标:G=线元起点方位角:P=线元起点半径(直缓点、缓直点半径为1045)：R=线元终点半径(直缓点、缓直点半径为1045)： Q=(左转为-1，右转为+1，直线为0)IF S≤o and S≥H T hen GOTO 3：Ifendo=线元起点里程:H=线元终点里程: U=线元起点X坐标:V=线元起点y坐标:G=线元起点方位角:P=线元起点半径(直缓点、缓直点半径为1045)：R=线元终点半径(直缓点、缓直点半径为1045)： Q=(左转为-1，右转为+1，直线为0)IF S≤o and S≥H T hen GOTO 3：Ifend 。
卡西欧5800曲线计算
″QSX=″?A:″QSY=″?B:″QSL=″?Q:?F←Lb12:″JSL=″?J:?L:?P←A+(J－Q)cos(F)+Lcos(F+P)→C←″X=″:C◢B+(J－Q)sin(F)+Lsin(F+P)→D←″Y=″:D◢Goto2完！备注：A=起算点X1坐标B=起算点Y1坐标Q=起算点里程F=起算点方位角J=计算点方位角FWJ(反算坐标)Lb10:″X1=″?A:″Y1=″?B←″X2=″?C←″Y2=″?D←PoL(C－A,D－B):cls←J<0=>J+360→J←″s=″:I◢″F(DMS)=″:J◆DMS◢Goto0←完！备注：A=起算点X1坐标B=起算点Y1坐标C=起算点X2坐标D=起算点Y2坐标SQX-1(另外一个竖曲线程序)″S1=″?A:″H1=″?B:?T:″I1=″?C:″I2=″?D:?R←Lb10:?S←S－A→L←B+(L+R×(C+D)÷2)2÷(2×R)－(R×C×D)÷2→E←″H=″:E◢Goto0完！S1变坡点里程H1变坡点高程T切线长R半径（凸曲线为-R凹曲线为+R）CQW(超欠挖)Lb19:?A:?B:?Z:?D←(A－3909081.230)cos(132°44′24.8″)+(B－379097.265)sin(132°44′24.8″)+672900.62→Q←″J=″:Q◢(B－379097.265)cos(132°44′24.8″)－(A－3909081.230)sin(132°44′24.8″)－D→F←″O=″:F◢604.21－0.0057×(Q－673400)→W←″H=″:W◢W+2.12→G←√(F2+(Z－G)2)－6.48→I←″P=″:I◢Goto9完！″QSX=″?A:″QSY=″?B:″HXC=″?H:″QSL=″?Q:?F:?R←Lb14:″JSL=″?J:?L:?P←J－Q→N:N×√((1－(N2)2÷(40R2H2))2+(N2÷(6RH))2)→M←tan-1((20RHN2÷(120R2H2－(N2)2))→K:90N2÷(兀RH)→G←A+Mcos(F+K)+Lcos(F+G+P)→C←″X=″:C◢B+Msin(F+K)+Lsin(F+G+P)→D←″Y=″:D◢F+G→E←″T(DMS)=″:E◆DMS◢Goto4完！只适合第一第二缓和曲线等长度计算第二缓和曲线长度时从后往前计算半径R:左偏-R右偏+RYQX(圆曲线小程序)″QSX=″?A:″QSY=″?B:″QSL=″?Q:?F:?R←Lb13:″JSL=″?J:?L:?P←J－Q→S:90S÷(兀R)→O:√(2Rsin(O))2→I:A+Icos(F+O)→E:B+Isin(F+O)→G←E+Lcos(F+2O+P)→C←″X=″:C◢G+Lsin(F+2O+P)→D←″Y=″:D◢F+180×(J－Q)÷(兀R)→G←″T(DMS)=″:G◆DMS◢Goto3完！YQX-HQX(圆曲线大程序包括缓和曲线和圆曲线)″X0=″?A:″Y0=″?B:″S0=″?P:″R0=″?E:″R=″?F:″T0=″?G:″ZZ－YZ:-1,1=″?H←If H=(-1):Then(-F)→F:(-E)→E:Else F→F:E→E:IfEnd←If E=F:Then Goto5:Else If E>F:Then1→D:″QXYZD:S1″?W:Goto6:Else(-1)→D:″QXYZD:S1″?W:Goto6:IfEnd:IfEnd←Lb15:″S=″?Q←E=F=>A+F×(sin(G+180×(Q－P)÷F÷兀)－sin(G))→M←″XS=″:M◢B－F×(cos(G+180×(Q－P)÷F÷兀)－cos(G))→N←″YS=″:N◢G+(Q－P)×180÷F÷兀→O←″TS=″:O◆DMS◢O<0=>O+360→O◆DMS◢O≥360=>O+360→O◆DMS◢Goto5←Lb16:″S=″?Q←(W－P)×E×F÷(E－F)→C←C<0=>(－C)→C←C÷E→T←T+D×(Q－P)→L←(L－T)－(Lˆ(5)－Tˆ(5))÷(40×Cˆ(2))+(Lˆ(9)－Tˆ(9))÷(3456×Cˆ(4))－(Lˆ(13)－Tˆ(13))÷(599040×Cˆ(6))→U←(Lˆ(3)－Tˆ(3))÷(6×C)－(Lˆ(7)－Tˆ(7))÷(336×Cˆ(3))+(Lˆ(11)－Tˆ(11))÷(42240×Cˆ(5))－(Lˆ(15)－Tˆ(15))÷(9676800×Cˆ(7))→V←G－D×Tˆ(2)×180÷2÷C÷兀→Z←A+D×U×cos(Z)－V×sin(Z)→M←″XS=″:M◢B+D×U×sin(Z)+V×cos(Z)→N←″YS=″:N◢If H=(-1):Then(-F)→F:(-E)→E:(-1)→K:Else F→F:E→E:1→K:IfEnd←If E>F:Then(G－K×180×C÷2÷兀÷E2+K×180×(Q－P+C÷E)2÷2÷C÷兀)→O←Else(G+k×180×C÷2÷兀÷E2－K×180×(－Q+W+C÷F)2÷2÷C÷兀）→O:IfEnd←″TS=″:O◆DMS◢Goto6完！注：本程序内R0=,和R=是输入8个9，而4800程序内是输入9个9，请注意！注：请注意程序里面O和0的区分！程序内←符号在计算器里面是←形状，请注意区分。
CASTO5800全线竖曲线计算程序
子程序：SJKif H≦第二竖曲线起点桩号（158497.5）：Then第一竖曲线交点高程（380.738）→A：第一竖曲线交点桩号（157150）→B：第一竖曲线前坡比（-0.0115）→C：第一竖曲线后坡比（0.0155）→D：第一竖曲线半径（30000）→R：Goto 1： IfEnd ↙if H≦第三竖曲线起点桩号（159375）:Then第二竖曲线交点高程（404.763）→A：第二竖曲线交点桩号（158700）→B：第二竖曲线前坡比（0.0155）→C：第二竖曲线后坡比（0.002）→D：第二竖曲线半径（30000）→R: Goto 1： IfEnd ↙继续添加要素主程序 ZBJSLbl6："1.SZ→ XY"："2.XY→ SZ"：？S：？N：﹖C:Prog“SUB0”Lbl0:( P-R)÷(2HPR) →D：180÷π→E:IF N=1: Then Goto 1:Else Goto 2Lbl 1:?Z: Abs(S-O)→W: Prog"SUB1":"XS=":X◢"YS=":Y◢"FS=":F-C ►DMS◢Prog”GC”0→O：？O:O=0=>Goto 6“JL=”?L“JIAO DU=”?AX+LCOS((F)+A)→O:Y+LSIN((F)+A)→V:Cls:”X1=”:Locate4,1,O:”Y1=”:Loc ate4,2,V:Return:IFend“XC” ?C：“YC” ? E：0→I：0→J：Pol（X-C，Y-E）:“I=”：I◢If J∠0: Then “J=”: J+360►DMS◢IfEndIf J >0：The n “J=” ：J►DMS◢IfEnd：Goto 6Lbl 2?X:?Y:X→I:Y→J:Prog"SUB2":O+W→S:Cls:"S=":S◢"Z=":Z◢Prog”GC”空格0→O：？O:O=0=>Goto 67→Dimz:”SCG=”? →Z〔2〕:”JU Z=”? →Z〔3〕:”GAO CA=” ? →Z〔4〕:“BAN JING=” ? →Z〔5〕:IF Z≤30(左线大于等于-30)：Then”T=”:Abs(Z〔3〕±Z)- Z〔5〕→Z〔6〕◢（分离式路基左为正，右为负)“P=”：Z±Z〔3〕→Z〔1〕◢（分离式路基左为正，右为负)“W=”：( Z〔2〕-G- Z〔4〕)→Z〔7〕◢“CQW=”：√（ Z〔7〕∧2+ Z〔1〕∧2）)- Z〔5〕◢Goto 6：Retunr:IFend正算子程序SUB10.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W(Acos(G+QEKW(1/P+KWD))+Bcos(G+QELW(1/P+LW D))+Bcos(G+QEFW(1/P+FWD))+Acos(G+QEMW(1/p+MWD)))→X：V+W(Asin (G+QEKW(1/P+KWD))+Bsin(G+QELW(1/P+LWD))+Bsin(G+QEFW(1/P+FWD)) +Asin(G+QEMW(1/P+MWD))) →Y：G+QEW(1/P+WD)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y反算子程序 SUB2G-C→TAbs (Y-V)cosT-(X-U)sin(T) →W:0→Z:Lbl0：Prog "SUB1"T+QEW(1/P+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→ZIF Abs（Z）<1E-6：Then Goto1:Else W+Z→W：Goto0:IfEndLbl1:0→Z:Prog "SUB1":(J-Y)÷sin（F）→Z子程序：SJKIf S≦第二竖曲线起点桩号（158497.5）：Then第一竖曲线交点高程（380.738）→A：第一竖曲线交点桩号（157150）→B：第一竖曲线前坡比（-0.0115）→I：第一竖曲线后坡比（0.0155）→D：第一竖曲线半径（30000）→R：Goto 1： IfEnd ↙If S≦第三竖曲线起点桩号（159375）:Then第二竖曲线交点高程（404.763）→A：第二竖曲线交点桩号（158700）→B：第二竖曲线前坡比（0.0155）→I：第二竖曲线后坡比（0.002）→D：第二竖曲线半径（30000）→R: Goto 1： IfEnd ↙继续添加要素数据库子程序SUB0Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
竖曲线全线高程计算程序（数据库模式-精简版）
主程序：ＫSＨ
Lb1 0 :＂K=＂? Ｋ:＂D=＂?D:＂H=＂?Ｈ
Lb1 1:Prog＂ＫSＨ０＂
If Abs(Ｓ-Ｋ)≥Abs(Ｔ):Then Ｐ+Ｉ(Ｋ-Ｓ)→Ｕ：IfEnd
If Abs(Ｓ-Ｋ) < Abs(Ｔ):Then (Ｓ-(Ｔ)-Ｋ)²/(2R)+(P+I(K-S))→Ｕ：IfEnd
Lb1 2 ：Ｕ-D-Ｈ→G
Locate1,1，＂Ｋ=＂: Locaet3,1，Ｋ: Locaet1,2，＂D=＂: Locaet3,2，D: Locaet1,3，＂Ｈ=＂: Locate3,3，Ｈ: Locaet1,4，＂G=＂: Locaet3,4，G◢
Goto 0
数据库Ｋ：KSＨ０
K< 0 => Stop
If K>0:Then 200→S:-12000→R:45.04→P:0.01345→I:62.7→T:If End
If K>262.7:Then 520→S:7000→R:46→P:0.003→I: 94.481→T :IfEnd
If K> ……
输入提示：
If K>前段竖曲线终点里程: Then 本段竖曲线交点里程→S: 曲率半径（凸负凹正）→R: 交点高程→P: 纵坡（上正下负，以小数表示，如0.3%为0.003）→I: 切线长→T : Ifend
符号说明：
K=？: 输入待求桩号；
D=？: 若计算路面高程输入0；若计算路基高程则输入路面与路基的高差；
（如：路面比路基高0.5米，则输入0.5，算出结果就是路基的设计高程。
）
H=？: 计算设计高程则输入0；若计算高差时；则输入实测高程；
G= : 若H输入0，G表示设计高程；若H输入为实测高程，G表示高差（正为填，负为挖）
注：纵坡的设计精度不够会使程序计算出的精度也不够，可以微调纵坡调整（如0.3%的0.003改为0.00301或0.002995），以每段竖曲线的前端来验证，若计算出的高程比设计的高程低，就加大纵坡比，相反则减小纵坡比。