卡西欧5800多功能实用坐标正反算小程序(附后方交会程序)

合集下载

卡西欧5800坐标正反算万能程序

CASIO5800计算器程序曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。

本程序也可以CASIO fx-5800P计算器计算器上运行。

二、源程序1.主程序(TYQXJS)"1.SZ => XY"："2.XY => SZ"：?N："X0"? U："Y0"? V："S0"? O："F0"? G："LS"? H："R0"? P："RN"? R：?Q←┘1÷P-> C：(P-R)÷(2HPR) -> D：180÷π->EIf N=1：Then Goto1：Else Goto 2：IfEndLbl 1：？S：？Z：Abs(S-O) -> W：Prog "SUB1"："XS"：X◢"YS"：Y◢Goto 1←┘Lbl 2：？X：？Y：X-> I：Y->J：Prog "SUB2"："S"：O+W-> S◢"Z"：Z◢Goto 22. 正算子程序(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+K WD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))-> Y：G+QEW(C+WD)+90-> F：X+ZcosF-> X：Y+ZsinF-> Y3. 反算子程序(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：If Abs(Z) <0.0000001：Then Goto1：Else W+Z ->W：Goto 0：IfEndLbl 1：0 ->Z：Prog "SUB1"：(J-Y)÷sinF-> Z三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

卡西欧5800正反算程序

1.主程序(1-ZB ZFS)Deg:Fix 6Lbl 9:”I”:”2.YOU JIN”:”MI MA =”?C: Goto 1↙”Lbl 4："3.ZH =>BG"：”1.ZH =>XY”2.XY =>ZH "：”3.ZH =>BG 4.TF =>JS ”:"N="?N↙If N =3;Then Prog “BG JS 20M”: IfEnd↙If N =4: Then Prog “4-TFJS”; IfEnd↙If N ≥5: Then Cls:Stop; IfEnd↙Lbl 9:”ZH=”?S:Prog “1.1-ZFS”:If N=1:Then Goto3:IfEnd↙If N=2:Then Goto2:IfEnd↙Lbl3:”Z=”?Z:”J=”?J:Abs(S-O)→W:Prog”1.2-ZFS”:X+Zcos(F +J)→X:Y+Zsin(F+J) →Y↙If Z=0(带下划线的0为数字0):Then “X=”:X◢"Y="：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z=1: Then”(Y)X=”: X◢“(Y)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z=-1: Then”(Z)X=”: X◢“(Z)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z＞1: Then”(Y)X=”: X◢“(Y)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z＜1: Then”(Z)X=”: X◢“(Z)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙Lbl 2：“(Q)X =”？X:“(Q)Y=” ?Y:X →I:Y →J: Prog"1.3-ZFS"：O+W→S：“(SQ)ZH=”：S◢“(SQ)Z=”：Z◢Goto 4↙Lbl 1:If C=1989:Then Goto 4:0→C:Else Stop:IfEnd↙(密码符号段把原来的密码调到后面去了 )2. 正算子程序(1.2-ZFS )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→F3. 反算子程序(1.3-ZFS)G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z：Lbl 0：Prog "1.2-ZFS"：T+QEW(C+WD)→L：(J-Y)cos（L）-(I-X)sin（L）→Z：If Abs(Z)< -6：Then Goto1: Else W+Z→W:Goto 0↙Lb1 1:0→Z:Prog"1.2-ZFS":(J-Y)÷sin (F)→Z↙4. 数据库子程序(1.1-ZFS)If S＜***:Then Cls:Stop:IfEnd(全线路的起点里程桩号如：If S＜1497534.054:Then Cls:Stop:IfEnd小于1497534.054的全部失败)If S〉*****:Then Cls:Stop:IfEnd↙（同上）If S≦***（线元终点里程）:Then***→U（线元起点X）:***→V（线元起点Y）: ***→O（线元起点里程）:***→G（线元起点方位角）: ***→H（线元起点至终点长度）：***→P（线元起点曲率半径,在这里声明下，如果是直线段的话输1.×10+45就是输1. +45）:***→R（线元终点曲率半径同上）: 0或1、-1→Q：Goto 1 :IfEnd ↙If S≦……………………………………………：Goto 1 :IfEnd ↙………………[注意：输入方法：ZH-HY(ZH点注意P输入1.×10+45就是输1.+45，HY R按照曲线要素半径),HY-YH(P和R都按照曲线要素输入半径),YH-HZ(YH P按照曲线要素半径，R输1.×10+45),HZ-ZH(P和R 都输1.×10+45) Q为转角值看曲线上是左转角-1还是右转角1HZ-ZH Q为0]最后结尾记得一定要输入Lbl 1:1÷P→C:(P-R)÷(2HPR)→D:180÷π→E：Return↙5.BG JS 20M (子程序)Deg; Fix3↙Lbl1:”ZH=”?:Prog“BG SJK”:”Z=”?Z↙If Z=0:Then A→D:”(0)BG =>Z”:D◢Goto1: IfEnd↙If Z=1:Then A→D:”(Y)BG =>Z”:D◢Goto1: IfEnd↙If Z=-1:Then A→D:”(Z)BG =>Z”:D◢Goto1: IfEnd↙If Z＞1:Then A+(Z-1)(C/100)→D:”(Y)BG =>Z”:D◢Goto1: IfEnd↙If Z＜-1:Then A+(-Z-1)(-B/100)→D:”(Z)BG =>Z”:D◢Goto1: IfEnd↙6.BG SJK(标高数据库)If S =K: Then H→A:i(Z)→B: i(Y)→C: IfEnd↙注：K 为桩号里程，H为中桩高程，i(Z)为左横坡，i(Y)为右横坡。

卡西欧5800计算器程序全线正反算

FX5800计算器交点法正反算程序1、主程序程序名：1XY-KMLbI 0：7→DimZ：Norm 2:1→A：＂A:X,Y=1，KM,D=2＂?A:A=1=>Goto 1:A=2=>Goto 2:LbI 1:LbI A:Prog＂QX＂:90→B:＂PJ＂?B:B→Z[1]：LbI B:＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A: Prog＂X1＂:?D: Prog "Z":I+D×COS(Z[2]+Z[1]→X: J+D×Sin(Z[2]+Z[1]→Y: Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ：＂Ｙ＝＂：Loca te 6,4,Ｙ：◢Goto B:LbI 2：Prog＂QX＂:＂KM＂?Z：LbI C: Prog＂X1＂: ＂XO＂?X:X=-1=>Goto 0:X=-2=>Goto 2: ＂Y0＂?Y:Prog ＂ZX＂: Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ：＂Ｄ＝＂：Loca te 6,4,Ｄ◢Goto C2. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R÷S in(Abs(P))-((H∧(4)-N∧(4))÷2688÷R∧(3))÷Sin(Abs(P→E:(R+A)tan(Abs(P)÷2)+B -E→T:P÷Abs(P→W:0→M:H→C: (R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+ N÷2-N∧(3)÷240÷R2+E→Z[6]: O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Z[7]:If Z≤O-T:T hen Z-O→S:G→Z[2]:Goto 1: IfEnd: If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z [2]:A-T→A:G→E:Goto 2:IfEnd:If Z≤Z[7]: Then 180(Z-O+T-0.5H)÷R÷Π→S : A+R (1-Cos(S))→B:H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]: A-T→A:G→E :G oto 2: IfEnd:If Z≤Z[7]+N:Then Z[7]+N-Z→S:Z[6]→T :N→H:Prog “HX”:G+P→E:E-WK→Z[2]:T-A→A:C→H:Goto 2:IfEnd:Z-Z[7]-N+Z[6]→S:G+P→Z[2]: LbI 1:U+Scos(Z[2])→I:V+Ssin(Z[2]→J: Return:LbI 2:U+Acos(E)-WBsin(E→I:V+ASin(E)+WBcos(E→J3. 交点法缓和段子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4) ÷H∧(4→A:S∧(3) ÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5) ÷H∧(5→B:90S2÷Π÷R÷H→K:RH÷S →M4. 交点法反算子程序(ZX)程序名：ZX0→D:Do:Z+D→Z:Prog“Z”:Pol(X-I,Y-J+.000000001:J-Z[2]→J:Isin(J→S:Icos(J→D: If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D)>0.001:Z+D→Z:S→D 5．线路选择子程序(线路选择输0时。

卡西欧5800P坐标正反算程序超好用

xx5800P坐标正反算程序超好用5800P坐标正算反算程序U：“XO”起点的X坐标，V：“YO”起点的Y坐标，O：“SO”起点的里程桩号，G：“FO”起点的方位角，H：“LS”计算xx的xx，P：“RO”线元起点的曲率半径，R：“RN”线元终点曲率半径，“Q”线元图形信息（直线段Q=0，左偏Q=-1，右偏Q=1）以道路中线前进方向（即大里程方向）区分左右。

DY=ZB:LC：输入1为正算，既输入里程桩号和偏距算坐标，输入2为反算，既输入坐标算里程桩号和偏距。

S:“LC”？S：待求点的里程桩号，Z:“PJ”？Z：待求点的里程偏距（在中线上取零，左侧取负值，右侧取正值）。

1．当线元为直线时，其起点，终点的曲率半径为无穷大，以10的45次方代替。

2．当线元为圆曲线时，无论其起点，终点与什么线元相接，其曲率半径均等于圆曲线的半径。

3．当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替，与圆曲线相接时，曲率半径等于圆曲线半径。

终点与直线相接时，曲率半径为无穷大，以10的45次方代替，与圆曲线相接时，曲率半径等于圆曲线半径。

4．当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值，与圆曲线相接时，曲率半径等于圆曲线半径，终点与直线相接时，曲率半径等于设计规定值，与圆曲线相接时，曲率半径等于圆曲线半径。

1．坐标正反算主程序A-ZBZS3U：“XO”？U：V：“YO”？V：O：“SO”？O：G：“FO”？G：H：“LS”？H：P：“RO”？P：R：“RN”？R：“Q”？Q：(1÷P)->C:(P-R)÷(2HPR)->D:(180÷Π)->E:N：“DY=ZB:LC”?N:If N=1:Then Goto 1:Else Goto2:IfEnd: Lbl1:S:“LC”？S：Z:“PJ”？Z：Abs（S-O）->W：Prog“SUB1”：“XS=”：X◢“YS=”：Y◢“FS=”：F-90◢Goto 1:Lbl 2:“X”?X:“Y”?Y:X->I:Y->J:Prog“SUB2”:S:“LC=”:O+W->S◢Z:“PJ=”:Z◢Goto 2:2．坐标正算子程序SUB1 0.26->A：0.74->B：0.42->K：0.82->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：3.坐标反算子程序SUB2G-90->T:Abs((Y-V)cos(T)-(X-U)sin(T))->W:0->Z:Lbl0:Prog“SUB1”:T+QEW(C+WD)->L:(J-Y)cos(L)-(I-X)sin(L)->Z:IfAbs(Z)<10^(-3):ThenGoto1:ElseW+Z->W:Goto 0:IfEnd:Lbl 1:0->Z:Prog “SUB1”:(J-Y)÷sin(F)->Z:。

卡西欧5800计算器坐标正反算程序

卡西欧5800计算器坐标正反算程序M = (1.0/Re-1.0/Rs)/Ls;x=∫｛cos(Ta + L/Rs + 0.5*M *L*L)，0，L｝;y=∫｛sin(Ta +L/Rs + 0.5*M *L*L)，0，L｝;a(i)= Ta +L/Rs + 0.5*M *L*LRs:缓和曲线起点半径Re:缓和曲线止点半径Rs，Re （NE坐标系下，右偏为正，左偏为负）Ta:缓和曲线起点的真北方位角Ls:不完整缓和曲线长度。

此公式为缓和曲线在坐标系下任意位置的通用积分公式，能完全适应缓和曲线左偏、右偏、Rs >Re 、Rs <="">Fx-5800计算机程序QXJS-000 主程序Lbl 4:“1.SZ=>NE”:“2.NE=>SZ”:?Q:?S:Prog“QXJS-SUB0”↙Lbl 0:Q=1 => Goto1:Q=2 => Goto2:↙Lbl 1:?Z:？G：Prog“QXJS-SUB1”:“N=”:N◢“E=”:E◢“F=”:F◢Goto4↙Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“QXJS-SUB2”: “S=”:S◢: “Z=”:Z◢: Goto4↙QXJS-SUB0 数据库子程序Goto1↙同时保存多个曲线时的指针Lbl 1IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R:***→L: Return:IfEnd↙………………………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。

卡西欧fx-5800 坐标正算程序

卡西欧fx-5800 坐标正算程序“SO”算方位Lbl 0“D”：Pol(X-A，Y-B) →D◢If J≥0:Then J◢Else “J”:J+360◢IfEnd“ZZ”正算直线坐标A+Rec(Abs(P-K),Q) →XB+J→Y“X”：X+Rec(D,Q+N×90) →X◢“Y”:Y+J→Y◢P?所求桩号 A，B：起点x,y K:起点桩号 Q：方位角D：边桩距离 N？左偏“-1”右偏：“+1”X= Y= 所求点坐标“YY”正算圆曲线坐标Q+C×（P-K）÷S×180÷∏→Z“X”：A+C×S×（Sin(Z)-Sin(Q)）+Rec(D,Z+N×90) →X◢“Y”:B-C×S×（Cos(Z)-Cos(Q)）+J→Y◢P:所求点桩号 A，B：起点x,y K：起点桩号Q：方位角 S：曲线半径 D？边桩距离N？左偏“-1”，右偏“+1”X= y= 所算点坐标 C：线路左转“-1”右转“+1”“H1”正算缓和曲线坐标Abs(P-K) →LT2÷L→HL2×180÷∏÷2÷T2→VQ+C×V→ZL-L∧（3）÷40÷H2+L∧（5）÷3456÷H∧（4）-L∧（7）÷H∧（6）÷599040→EL2÷6÷H- L∧（4）÷336÷H∧（3）+ L∧（6）÷42240÷H∧（5）- L∧（8）÷H∧（7）÷（6×1612800）→FIf C<0：Then-F→F：IfEndA+E×Cos(Q)-F×Sin(Q) →X“X”：X+Rec(D,Z+M×N×90) →X◢B+E×Sin(Q)+F×Cos(Q) →Y“Y”：Y+J◢P？所求点桩号 A，B：起点x,y K:起算点里程桩号Q：前切线方位角 T（是圆曲线要素的A1）=√（根号）缓曲总长×半径C=切线线路方向左转“-1”，右转“+1“M=第一缓曲“+1”，第二缓曲”-1“N：算边桩左偏“-1”，右偏“+1”D：边桩距离坐标正算数据库例子“肇兴隧道右线数据库”Lbl 0“P”?P:“N”？N：“D”？DIf P≥16836.5 And P≤17009.624:Then 66881.803→A：14635.782→B：16836.5→K:280032030.50→Q:902.044→T:1→C: 1→M:Prog“H1”：IfEnd (第一缓曲线)If P≥17009.624 And P≤17529.681:Then 66914.52→A：14465.781→B：17009.624→K:281035049.370→Q:4700→S：Prog“YY”:IfEnd （圆曲线）If P≥17539.681 And 17702.805≥P:Then 67102.343→A：13799.117→B：17702.805→K:108059031.50→Q:902.044→T:-1→C: -1→M:Prog“H1”：IfEnd (第二缓曲线)If P≥17702.805 And P≤19550:Then 67102.343→A：13799.17→B：17702.805→K:288059031.50→Q: Prog“ZZ”：IfEnd （直线）。

卡西欧计算器程序

CASIO fx —5800 计算器工程测量与公路测量程序1、坐标正算＂X0=″X:＂Y0=″Y:＂I= ″I:＂J=″JX+ICos(J)→ U:Y+ISin(J)→ V＂X=″:U （待求点的 X 坐标）＂Y=″:V （待求点的 Y 坐标）说明： X0 Y0 ：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0＂X1=″X:＂Y1=″Y:＂X2=″U:＂ Y2=″V?Pol(U-X,V-Y):?J<0 J+360→ J＂I= ″:I＂J=″:J DMSGOTO 0说明： X1Y1 ：第一点的坐标，X2Y2 第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″X: ＂Y0=″Y:＂ FWJ=″D: ＂ QDHAO=″G: ＂ ZDHAO=″C: ＂ R=″RLbl 1＂DQHAO=″LL<G Or L ＞ C GOTO 2＂P Y=″K180(L- G)÷ ( π R) → E2RSin→ FReC(Abs(F),D+ ：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→ o:o<0 360+o→ 0o＂F WJ=″:o? DMSGoto 1Lbl 2＂END″说明： X0Y0 ：起始点的坐标， FWJ：起始点的方位角， QDHAO ：起点里程， ZDHAO 终点里程，R：半径， DQHAO ：待求点里程， PY ：偏移量4、竖曲线＂QZHAO ″=J:＂H+B″=B:＂I1=″C:＂I2=″D:＂R=″R:＂T=″T:((D-C)÷100)÷Abs((D- C)÷ 100)→ A:Abs(D-C)÷ 100)→ S＂T″:SJ-T→ XJ＋T→ YLbl 0＂DQ=″LIf L<X:Then Goto 1:Else If? L＞Y:Then Goto 1:If End:If End＂GC=″:B+C(L -J)100+A(L÷- J+T)? ÷(2R) →HGoto 0Lbl 1＂END″说明： QZHAO ：曲中点里程， H+B ：曲中点高程， I1：第一坡度， I2：第二坡度， R：半径，T：切线长， DQ：待求点里程。

CASIO5800ZXZFS直线正反算坐标计算程序

CASIO5800ZXZFS直线正反算坐标计算程序CASIO fx-5800P ZXZFS 直线正反算坐标计算程序原理：采用正余弦定理求待求点垂距进行确定里程和偏距。

公式：tan-1((yb-ya)/(xb-xa)) 、√(xB-xA)2+(yB-yA)2、sinα×D、Q÷tan(α)说明：该程序适用于计算器 CASIO fx-5800P，针对直线正反算设计，正算可算直线中边桩坐标及其斜交、反算可推算直线距线路中心的里程偏距。

1、DK(QD)? 输入起点里程2、X(QD)? 输入起点坐标X3、Y(QD)? 输入起点坐标Y4、FWJ? 输入计算方位角5、J? 输入1为正算、输入2为反算6、JSDK? 输入计算里程主程序名：ZXZFSDeg：Fix 4↙＂DK(QD)＂?A：＂X(QD)＂？B：＂Y(QD)＂？C：＂FWJ＂？F↙Lbl 0＂1=>XY.2=>DK＂：＂J＂？W↙If W=1：Then Goto 1：Else If W=2：Then Goto 2：IfEnd↙Lb1 1↙＂JSDK＂？E：＂PJ＂?G：＂PA＂？H↙＂X=＂：B+(E-A) ×cos(F)+G×cos(F+H)→X◢＂Y=＂：C+(E-A) ×sin(F)+G×sin(F+H)→Y◢＂ZJD(X)＂？S：＂ZJD(Y)＂？T↙＂PJ=＂：Pol(X-S，Y-T)：I→M◢＂FWJ=＂：If J<0：Then J+360→N：Else J→N：N▲DMS◢Goto 0↙Lb1 2↙＂X=＂？K：＂Y=＂？L↙Pol(K-B，L-C)：I→D：If J<0：Then J+360→P：Else J→P：IfEnd↙If F<="" p="" p-f→ｏ：else="">Sin(Ｏ)×D→Q↙＂DK=＂：A+Q÷tan(Ｏ)→R◢＂PJ=＂：sin(Ｏ)×D→Q：If F<="" 1×q→q：else="" p=""> Goto 0注：1、◢ 为显示指令。

卡西欧5800计算程序自己编写实用计算程序

1．单圆曲线(YQX1)（张队提供）“KO”?O:“X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号，X0为输入起算点X坐标，Y0为输入起算点Y坐标，JDX输入曲线所在交点X坐标，无输入0，JDY为输入曲线所在的Y坐标，无输入0，FWJ为输入起算点的方位角，F0为输入交点处的转角，带正负号，N为转角方向，线路左转输入+1，线路右转输入-1，R为输入曲线半径）Abs(F)÷2→G◢“T=”：Rtan(G)→T◢（计算切线长）“L=”：GRπ÷90→L◢（计算圆曲线长）“E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离）LbI 1←┘?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角“XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标）“YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标）tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘If U＜0:Then U+360→U:Else U→U:If End←┘“FW=”?U :U DMS◢（计算出的中桩与交点的方位角）?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）“XR=” Z[1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）“OK”？S：If S=1：Then Goto 1：Else“STOP”:Stop（S输入1返回继续计算下一点，输入其他值退出程序）2.YQX-ZB(圆曲线中边桩放样)“R”?R:（圆曲线半径）“P”?P：(线路转角)“F”?F:（起始方位角）“G”?G:（线路转向信息，左转为-1，右转为+1）“ZY-X”?M:?N:(ZY点坐标)“L=”πRP÷180→A◢(曲线弧长)F+90G→F(ZY点的径向方位角)“O-X”:M+Rcos (F) →A◢（圆心X坐标）“O-Y”:N+Rsin (F)→B◢（圆心Y坐标）“ZY-ZH”:?Z(ZY点桩号)Lb1 0:“JM-ZH”:?K: (加密点桩号)K-Z→V: (加密点曲线弧长)180V÷(πR) →U: (加密点曲线弧长所对应的圆心角)F+180+GU→U: (圆心至加密点的方位角)“XP=”:A+Rcos(U) →S◢(加密点中桩X坐标)“YP=”:B+Rsin(U) →T◢(加密点中桩Y坐标)“BZ”:?W: (边桩宽度)“XL=”:S+GWcos(U)◢(左边桩X坐标)“YL=”:T+GWsin(U)◢(左边桩Y坐标)“XR=”:S-GWcos(U)◢(右边桩X坐标)“YR=”:T-GWsin(U)◢(右边桩Y坐标)Goto 0：3．(ZX-ZB) 直线段中边桩放样“QD-X,Y”:?A:?B: (起点坐标（A,B）)“QD-ZH”:?Z: (起算点桩号)“ZD-X,Y”:?C:?D: (终点坐标（C,D）)Pol(C-A,D-B):J<0=>J+360→J: (线路方位角) LbI 0：“ZD-ZH”:?K: (加密点桩号)K-Z→V: (加密点到起算点极径)“XP=”:A+Rec(K,F) →M◢(加密点中桩X坐标)“YP=”:B+J →N◢(加密点中桩Y坐标) “BZ”:?W: (边桩宽度)F-90→U(中桩到边桩向量的方位角)“XL=”:M+Rec(W,U)◢(左边桩X坐标)“YL=”:N+J◢(左边桩Y坐标)“XR=”:M-I◢(右边桩X坐标)“YR=”:N-J◢(右边桩Y坐标)Goto 0：。

卡西欧5800计算器坐标正反算程序

卡西欧5800计算器坐标正反算程序主程序坐标正反算程序名称：ZBZFSLb1 A↙30→Dim Z :"0=ZS,1=FS"?Z ↙If Z=0:Then Goto B:IfEnd↙ (Z=0进入里程点坐标正算）If Z=1:Then Prog"FSLCZ "↙ (Z=1进入反算里程边桩）Lb1 B ↙Prog”ZBZS” ↙子程序反算里程桩名称：FSLCZLb1 1↙"XK="?X:"YK="?Y↙（输入任意测点的X、Y坐标）“K=”?K ↙（试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）Lb1 2↙Prog"SJK ":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos(W)-(X-Z[18])*Sin(W))→S↙If S<0.0001:Then Goto 4:Else Goto 3:Ifend↙Lb1 3↙K+S→K: Prog"SJK":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos W-(X-Z[18])*Sin (W)→Q↙If Q<0.0001 :Then Q→S: Goto 4:Else if Q<S: Then K+Q→K:Goto 2 :Else if Q>S :Then K-Q→K:Goto 2:Ifend:Ifend:Ifend↙Lb1 4↙Pol (X-Z[18],Y-Z[19]:"DP(-Z+Y)=":I◢(偏距）"K=":K+S→K◢（里程）Goto 1↙子程序坐标正算名称：ZBZSLb1 0 ↙“XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y):Pol(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":JDMS◢(后视方位角)Lb1 1↙“K=”?K ：（输入所需计算里程）Prog"SJK "↙XI : Z[18]↙YI: Z[19] ↙Pol(Z[18]-M,Z[19]-N): J<0=>J+360→J↙“PJ=”?P↙ (输入桩与线路夹角)“PD=”?D↙ （输入桩距中线的距离）Z[18]+D*Cos(T+P) →Z[20] ↙Z[19]+D*Sin(T+P) →Z[21] ↙“X=”: Z[20] ◢ （放样坐标X）“Y=”: Z[21] ◢ （放样坐标Y）Pol(Z[20]-M,Z[21]-N):"D=":I◢（放样距）J<0=>J+360→J:"F=":JDMS◢（放样方位角）Goto 1↙子程序数据库名称：SJKif K<本段曲线终点里程And K≥上段曲线终点里程：Then 本段曲线终点里程→Z[1] : 上段曲线终点里程（第一段曲线输起点的里程）→Z[2] ：1→O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 半径→R :曲线偏角→A:第一缓和曲线→Z[6] : 第二缓和曲线→Z[7] : 交点X→B :交点Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : Pr og”JSPB”:Return: Ifend↙if…………Prog”JSPB”:Retur n:Ifend（曲线段分段输入）↙补充直线段输入如下 (只需输线路的最后一段直线数据）if K<本段直线终点里程And K≥本段直线起点里程:Then 本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E: Z[16]+ (K- Z [3])*Cos(E)→Z[18]:Z[17]+ (K- Z[3])*Sin(E)→Z[19] : Return:Ifend ↙子程序计算判别名称：JSPBLb1 2 ↙（曲线要素计算）Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙ （M1）Z[7]/2- Z[7]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙ （M2）Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙ （P1）Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙ （P2）π*A*R/180+0.5*( Z[6]+ Z[7])→Z[25] ↙ （曲线总长）90* Z[6]/(R*π) →Z[14] ↙ （第一缓和曲线总偏角）90* Z[7]/(R*π) →Z[15] ↙（第二缓和曲线总偏角,可以省略）Z[8]＋（R+Z[10])Tan(A/2)-(Z[10]-Z[11] )/Sin( A)→Z[12]↙ (切线T1)Z[9]＋（R+Z[11])Tan(A/2)+(Z[10]-Z[11] )/Sin (A）→Z[13]↙ (切线T2)B+ Z[12]*Cos (E+180)→ Z[16] ↙ （ZH点X）C+ Z[12]*Sin(E+180)→ Z[17] ↙ （ZH点Y）Z[1]- Z[25]→Z[3] ↙ (ZH点里程)Z[3]+ Z[6]→Z[4] ↙ (HY点里程)Z[1]- Z[7]→Z[5] ↙ (YH点里程)Goto 3 ↙LB1 3 ↙(判断里程点与曲线关系)if K≤Z[3] And K> Z[2] : Then Goto 4 : Ifend ↙if K≤Z[4] And K> Z[3] : Then Goto 5 : Ifend ↙if K≤Z[5] And K> Z[4] : Then Goto 6 : Ifend ↙if K≤Z[1] And K> Z[5] : Then Goto 7 : Ifend ↙Lb1 4 ↙（里程小于直缓点直线独立坐标）K- Z[3] →Z[23] : 0→Z[24] : E→T : Goto 8↙Lb1 5 ↙（第一缓和曲线独立坐标）K- Z[3] →H ↙H-H^5/(40*R^2* Z[6]^2)+H^9/(3456*R^4* Z[6]^4) →Z[23] ↙H^3/(6*R* Z[6])-H^7/(336*R^3* Z[6]^3) →Z[24] ↙90*H^2/( R*π* Z[6]) →T ↙if O>0 ：Then T +E→T : Eles E-T →T : T<0=>360+T→T : Ifend ↙Got o 8 ↙Lb1 6 ↙（圆曲线独立坐标）K- Z[4] →H ↙H*180/( R*π)+ Z[14]→T ↙R*Sin(T)+ Z[8]→Z[23] ↙R*(1-Cos(T))+ Z[10]→Z[24] ↙if O>0 ：Then T +E→T : Eles E-T →T : T<0=>360+T→T : Ifend ↙Goto 8 ↙Lb1 7 ↙（第二缓和曲线独立坐标）Z[1] -K →H ↙H-H^5/(40*R^2* Z[7]^2)+H^9/(3456*R^4* Z[7]^4) →U↙H^3/(6*R* Z[7])-H^7/(336*R^3* Z[7]^3) →V ↙90*H^2/( R*π* Z[7]) →T ↙Z[13]Cos(A)+ Z[12]-U*Cos(A)-V*Sin(A)→Z[23] ↙Z[13]*Sin(A)-U*Sin(A)+V*Cos(A)→Z[24] ↙if O>0 ：Then F-T→T : T<0=>360+T→T : Else F+T →T : Ifend ↙Goto 8 ↙Lb1 8if O<0 : Then - Z[24]→Z[24] : Ifend ↙Z[16]+Z[23]*Cos(E) -Z[24]*Sin（E）→Z[18] ↙Z[17]+Z[23]*Sin(E)+Z[24]*Cos(E)→Z[19] ↙Return↙此程序大约占计算器2900字节！此程序本人已亲自验算，无误！！子程序反算里程桩名称：FSLCZLb1 1↙"XK="?X:"YK="?Y↙（输入任意测点的X、Y坐标）“K=”?K ↙（试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）Lb1 2↙Prog"SJK ":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos(W)-(X-Z[18])* Sin(W))→S↙If S<0.0001:Then Goto 4:Else Goto 3:Ifend↙Lb1 3↙K+S→K: Prog"SJK":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos W-(X-Z [18])*Si n (W)→Q↙If Q<0.0001 :Then Q→S: Goto 4:Else if Q<S: Then K+Q →K: Goto 2 :Else if Q>S :Then K-Q→K:Goto 2:Ifend:Ifen d:Ifend↙Lb1 4↙Pol (X-Z[18],Y-Z[19]:"DP(-Z+Y)=":I◢(偏距）"K=":K+S→K◢（里程）Goto 1↙Lb1 4↙Pol (X-Z[18],Y-Z[19]:------------差个撒样"DP(-Z+Y)=":I◢(偏距）"K=":K+S→K◢（里程）Goto 1↙。

CASIO5800坐标正反算计算程序

CASIO 9860/5800 坐标正反算计算程序1. 坐标正算主程序（命名为ZBZS）第1 行：Lbl 0: ” K= K: ” BIAN=” Z: ” a =” B第2 行：Prog “ A”第3 行：” X仝：N+Zcos（F+B）丄第4 行：” 丫仝:E+Zsin（F+B）丄第5行：” F=” :F丄第6 行：Goto 0K――计算点的里程BIAN --- 计算点到中桩的距离（左负右正）a ---- 取前右夹角为正2. 坐标反算桩号和偏距主程序（命名为ZBFS）第1 行：” X1=” C: ” 丫1=” D: ” K1=” K第2 行：Lbl 0:Prog“A”第3 行：Pol(C-N,D-E)第4 行：List Ans[1]T I第5 行：List Ans[2]T J第6 行：Icos(F-J) T S:K+S T K第7 行：Abs(S)>=>Goto 0第8行：” K仁”：K丄第9 行：” BIAN=” ：lsin（J-F）Z JX1——取样点的X坐标Y1——取样点的Y坐标K1――输入时为计算起始点（在线路内即可），输出时为反算点的桩号Z――偏距（左负右正）3. 计算坐标子程序（命名为XYF）为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1 行：K-A T S：（Q-P）- L T I第2N+/ (cos(F+X(2P+XI) X 90-n ),0,S) T N行：第3E+/ (sin(F+X(2P+XI) X 90-n ),0,S) T E行：第4F+S(2P+SI) X 90-nT F行：4. 数据库(命名为A)第1 行：K< =>Stop第2 行A: T N: T E:92 ° 26' 40 F:0 f P:1/240 f Q: f L:KC A+L =>GoTo 1 (第一缓和曲线，圆半径为240)第3 T A: T N:T E: 100 °50'"T F: 1/240 T P:1/240 T Q:T L: K C A+L =>Goto 1 (第圆曲线，半径为240)第4 T A: T N:T E: 118 °15'"T F: 1/240 T P: 0 T Q:f L: K C A+L =>Goto 1 （第二缓和曲线，圆半径为240）第5 T A: T N:T E:124 °50'"T F:0 T P:-1/180 T Q:T L:K C A+L=>Goto 1:Stop （第一缓和曲线，圆半径为180）第6 行：Lbl 1:Prog “ XYF”A――曲线段起点的里程N 曲线段起点的x坐标E 曲线段起点的y坐标F ---- 曲线段起点的坐标方位角P――曲线段起点的曲率（左负右正）Q曲线段终点的曲率（左负右正）L――曲线段长度（尽量使用长度，为计算断链方便）说明：（1 ）在9860中，程序中所有公式和部分函数结果均存储在List Ans列表数组中,要想多次调用最好随公式取出结果，并赋给变量。

卡西欧5800公路坐标正反算程序

目录一、坐标正算基本公式………………………………………………………０２二、坐标反算原理 (04)三、高程数据库录入变换 (05)四、计算器程序………………………………………………………０7 ０1、ZBZS(坐标正算)………………………………………………………０702、ZBFS(坐标反算)………………………………………………………０803、ＧＣJF(高程积分） (09)04、PＪFＹ(坡脚放样)………………………………………………………1０05、ＪFCＸ（积分程序) (11)0６、ZＢFY(坐标放样)………………………………………………………１１０７、ＤT(递推） (12)08、H P(横坡） (13)０9、LK(路宽)………………………………………………………１410、SJK1(平面数据库) (14)11、SＪK２(纵面数据库)………………………………………………1４12、SJK3(左路宽度数据库） (15)１3、SＪＫ4(右路宽度数据库) (15)1４、SJＫ5(横坡数据库)......................................................1６１5、SＪK６(下边坡数据库) (16)16、SJK7(左上边坡数据库)………………………………………………1７17、ＳＪK８（右上边坡数据库）………………………………………………1８五、后记 (19)CASIO 58０0计算器公路工程测量程序一、正算所涉及得计算公式 X R i d XαβBd Y d l d βI图表错误!不能识别的开关参数。

在图1中,A 点为回旋曲线起点,B 点为回旋曲线止点,I 点为所求坐标点。

设: Ａ点得X 坐标为X A ,Y 坐标为Y Ａ ,Ａ点得切线方位角为α,A 点得曲率为ρＡ,A 点得里程为ＬＡ，B 点得曲率为ρＢ,Ｂ点得里程为L Ｂ,I 点得曲率为ρI ,Ｉ点得里程为ＬI 。

卡西欧5800测量坐标计算程序

一．使用说明：1.规定：（1）以道路中线的前进方向区分线路的左右偏转方向，线路左偏Q=-1，线路右偏Q=1，直线Q=0。

（2）当所求点位于线路中线时，Z=0；当位于左侧时，Z取负值；当位于右侧时，Z取正值。

（3）当线元为直线时，其起终点的曲率半径为无穷大，取10的45次方代替。

（4）当线元为圆曲线时，起终点曲率半径为圆曲线半径。

（5）当线元为缓和曲线时，起终点曲率半径与直线相接取10的45次方代替，与圆曲线相接取圆曲线半径。

2.输入与显示说明：（1）输入部分：N？：选择计算方式，输入1表示由里程边距计算坐标，输入2表示由坐标计算里程边距。

X0？线元起点X坐标。

Y0？线元起点Y坐标。

S0？线元起点里程。

F0？线元起点切线方位角。

LS？线元长度。

R0？线元起点曲率半径。

RN?线元终点曲率半径。

Q？线元左右偏标志（左偏=-1，右偏=1，直线=0）S?正算时所求点里程。

Z？正算时所求点距中线边距。

位于线路左侧输入负值，在右侧输入正值。

AR?斜交角度。

（为线路右角，在0-180度之间）X?反算时所求点X坐标。

Y？反算时所求点Y坐标。

（2）显示部分：XS=计算结果，所求点X坐标。

YS=计算结果，所求点Y坐标。

FS=计算结果，所求点切线方位角。

S=计算结果，反算时所求点里程Z=计算结果，反算时所求点边距。

二．程序清单1（用于任意曲线元的坐标计算）1.主程序(TYQXJS)″1.SZ=>XY″:″2.XY=>SZ″:?N:″X0″?U:″Y0″?V:″S0″?O: ″F0″?G:″LS″?H:″R0″?P:″RN″?R:?Q:1÷P→C:(P-R) ÷(2HPR) →D:180÷π→E:If N=1: THEN Goto 1:Else Goto 2:IfEnd:Lbl 1:?S:”D(Z-，Y+)=”?Z:90→T:”O=”?T:Abs(S-O) →W:Prog ″SUB1″:″XS″:X◢″YS″:Y◢″FS″:F◢Goto 1:Lbl 2:?X:?Y:I→X:J→Y:Prog ″SUB2″:″S″:O+W→S:◢″Z″:Z◢Goto 22.正算子程序(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) →F:X+Zcos(F+T) →X:Y+Zsin(F+T) →Y3.反算子程序(SUB2)G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z:Lbl 0:Prog ″SUB1″:T+QEW(C+WD) →L:(J-Y)cos(L)-(I-X)sin(L)→Z:IF Abs(Z)<1E-6 :Then Goto 1:Else W+Z→W:Goto 0 : IfEnd:Lbl 1:0→Z:Prog ″SUB1″:(J-Y)÷sin(F)→Z 三．用于提前将曲线元要素输入子程序，计算时只输入里程桩号与边距。

卡西欧5800计算器程序坐标正反算（含高程）

卡西欧5800计算器程序坐标正反算（含高程）功能:坐标正反算(含高程),把要素内置化(无需改程序文件,即可更换路线,同时存两条线要素)另含两个边仰(一个横向坡,一个纵向坡)坡放样模块.帮助文件未完成程序浏览:FileName:RESET 初始化程序Norm 1:50→C:12345→J"RESET PW"I:I=J=>500→DimZ 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量50→Z[C+22]"PASSWORDS"I:I→Z[C+39] 重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50→C"PASSWORDS"I:Cls:I≠Z[C+39]=>StopFileName:SHELL(外壳程序)50→C ;在扩充变量预留前50个给别的程序用。

如不够就适量加大。

RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致Z[C+35]→I:"STATION-N"I:I→Z[C+35] 设置测站N坐标Z[C+36]→I:"STATION-E"I:I→Z[C+36] 设置测站E坐标Z[C+44]→I:"STATION-Z"I:I→Z[C+44] 设置测站Z坐标Z[C+45]→I:"STATION-HI"I:I→Z[C+45] 设置仪高Z[C+41]→I:"GC-DH"I:I→Z[C+41] 放样点高差常数Norm 1Z[C+23]→N 当前分段要素N坐标Z[C+24]→E 当前分段要素E坐标Z[C+25]→M 当前分段要素起点桩号Z[C+26]→H 当前分段要素起点方位角（正北）单位：弧度Z[C+27]→A 当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[C+28]→R 当前分段要素终点曲率有左偏负右偏正（注意不半径）Z[C+29]→L 当前分段要素长度Z[C+3]→WZ[C+32]→I:"DAT1 2 3"I:I→Z[C+32] 平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值)0→IZ[C+4]→I:"1 2 3"I:I→Z[C+4] 选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到) Lbi 1Z[C+4]→II=1=>Prog"TURNZH"I=2=>Prog"HXBYP"I=3=>Prog"ZXBYP"Lbi ADeg:Norm 1:ClsZ[C+1]→G:"ZH"G:G→Z[C+1] ;G桩求桩号Z[C+2]→B:"JL"B:B→Z[C+2] ;B横向距离，左正右负Lbi BProg "ZBJS" ;坐标正算Prog "GCJS" ;高程计算Fix 3:Cls ;设置三位小数"ZH＝":Locate 4,1,G ;第一行显示桩号"X＝":Locate 3,2,X ;第二行显示X(N)坐标"Y＝":Locate 3,3,Y ；第三行显示Y(E)坐标Prog "GCJS" ;高程计算"Z":Locate 2,4,Z+Z[C+41] ；第四行显示Z坐标Locate 10,4,Z[C+2] ；第四行显示横向距离Do:I+1→I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27) ;锁定键盘，并在几十秒后自动返回Getkey=57=> Goto 1Z+Z[C+41]+Z[C+49]-Z[C+44]-Z[C+45]→Z[C+48]Pol(Z[C+35]-X,Z[C+36]-Y)Cls:"DL":Locate 3,1,I:Locate 12,1,Z[C+45]"DH":Locate 3,2,Z[C+48]:Locate 12,2,Z[C+49]"FWJ"J<0=J+360→J:J◤DMS◢J→Z[C+46]I→Z[C+47]Goto 1FileName：ZBJS 坐标计算程序Prog"READDAT"RadG-M→QIF AR=0 :Then If A=R :Then 1→J:Else 3→J :IfEnd:Else If A=R :Then 2→J:Else 3→J:IfEnd:IfEndIf J=1 :Then H→F:N+QCos(H)→X:E+QSin(H)→Y:IfEnd 直线段直接计算If J=2 :Then H+QR→F:Rec(Abs(2Sin(Abs)÷R),H+QR÷2):N+I→X:E+J→Y:IfEnd 圆弧段直接计算If J=3 :Then Goto 5 :IfEndX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnLbi 5 用五点通用坐标计算计算缓和段(R-A)÷L→KKQ2→J→P:H+IP+JP2→U→P:H+IP+JP2→V→P :H+IP+JP2→D→P:H+IP+JP2→F→P:H+IP+JP2→T→I→J→ON+Q(ICos(U)+JCos(V)+OCos(D)+JCos(F)+ICos(T))→XE+Q(ISin(U)+JSin(V)+OSin(D)+JSin(F)+ISi n(T))→YH+AQ+KQ2→FX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnFileName:TURNZH(坐标反算)Norm 1Z[C+37]→I:"DQD-N"I:I→Z[C+37] 输入待求点N坐标I=-1=>Prog"INFWJDLDH"Z[C+38]→I:"DQD-E"I:I→Z[C+38] 输入待求点E坐标0→B：M+L÷2→G：Prog"ZBJS"Lbi S:RadZ[C+37]-X→I:Z[C+38]-Y→JIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F):J→Z[C+2]G+I→G:IF Abs(I)> :Then Prog"ZBJS":Goto S↙G→Z[C+1]FileName：INFWJDLDH 实测坐标（用方位角，距离，高差）输入程序Deg:Norm 1:ClsZ[C+46]→J:"DQD-FWJ"J:J→Z[C+46]Z[C+47]→I:"DQD-DL"I:I→Z[C+47]Z[C+48]→K:"DQD-DZ"K:K→Z[C+48]Z[C+49]→P:"RHT"P:P→Z[C+49]Rec(I,J)Z[C+35]+I→Z[C+37]Z[C+36]+J→Z[C+38]Z[C+44]+Z[C+45]+K-P→Z[C+43]FileName:HXBYP 横向边仰坡放样程序Cls:Norm 1Z[C+40]→I:"QPD-DL"I:I→Z[C+40] 输入起坡点与中桩距离常数Z[C+41]→I:"QPD-DZ"I:I→Z[C+41] 输入起坡点与中桩高差常数Z[C+42]→I:"i"I:I→Z[C+42] 输入边仰坡坡度，左仰坡(路堑)为正，右仰坡(路堑)为负，左边坡为负，右边坡为正Cls:Z[C+43]→I:"DQD-Z"I:I→Z[C+43] 输入实测高程Prog"TURNZH"Prog "GCJS"(Z[C+43]-Z-Z[C+41])Z[C+42]+Z[C+40]→BFix 3:B-Z[C+2]◢显示与上一次测点的偏差B→Z[C+2]FileName:ZXBYP 纵向仰坡放样程序(隧道进口使用)Cls:Norm 1:Z[C+33]→I:"QPD-ZH"I:I→Z[C+33] 输入起坡点桩号Z[C+34]→I:"QPD-Z"I:I→Z[C+34] 输入起坡点高程Z[C+42]→I:"i"I:I→Z[C+42] 仰坡时(隧道进出口仰坡)，进口为正，出口为负)Cls:Z[C+43]→I:"DQD-Z"I:I→Z[C+43] 输入实测高程Prog"TURNZH"Z[C+42](Z[C+43]-Z[C+34])+Z[C+33]→GFix 3:G-Z[C+1]◢显示与上一次测点的偏差G→Z[C+1]FileName:SET 设置程序Lbi SNorm 150→C50→Z[C+22]0→KZ[C+5]→I:"1 Or 2"I:I→Z[C+5] ;选择1线或者2线180Z[C+3]÷π→J:"XZJJ"J:Jπ÷180→Z[C+3] ;斜桩夹角If I=1:Then Z[C+8]→Z[C+6]:Z[C+9]→Z[C+7]Z[C+12]→Z[C+16]:Z[C+13]→Z[C+17]:Z[C+18]→Z[C+20]Else Z[C+10]→Z[C+6]:Z[C+11]→Z[C+7]Z[C+14]→Z[C+16]:Z[C+15]→Z[C+17]::Z[C+19]→Z[C+20]Z[C+7]+3→Z[C+31]0→I:"1PQX,2SQX,3YSDS"I ;1输入平曲线要素，2输入竖曲线要素，3输入1、2线夹平竖曲线交点(变坡点)数量以让程序规划内存建立要素数据为，其它值退出本程序I=1 => Goto 1:I=2 => Goto 2:I=3 => Goto 3I≠0=>Prog"DATLOCK"Prog"SETPFDYS"StopLbi 1 ;平曲线要素输入部分Z[C+6]→D-1→Z[D+3]For 1→J T o Z[C+16]Cls:"PQX":Locate 9,1,JZ[D+1]→I:"N"I:I→Z[D+1] ;请输入N坐标Z[D+2]→I:"E"I:I→Z[D+2] ;请输入E坐标Z[D+3]→I:"R"I:I→Z[D+3] ;请输入半径RZ[D+4]→I:"LS1"I:I→Z[D+4] ;请输入缓和曲线1长度Z[D+5]→I:"LS2"I:I→Z[D+5] ;请输入缓和曲线2长度Next1→Z[D-2]Goto SLbi 2 ;竖曲线要素输入部分Z[C+7]→D-1→Z[D+3]For 1→J T o Z[C+17]Cls:"SQX":Locate 9,1,JZ[D+1]→I:"BPDZH"I:I→Z[C+1] ;请输入变坡点桩号Z[D+2]→I:"BPDGC"I:I→Z[C+2] ;请输入变坡点高程Z[D+3]→I:"R"I:I→Z[C+3] ;请输入半径RD+3→DNext1→Z[D]Goto SLbi 3 ;要素点数输入部分Z[C+12]→I:"1PQXDS"I:I→Z[C+12] ;输入1线平曲线点数,最小值为3Z[C+13]→I:"1SQXDS"I:I→Z[C+13] ;输入1线竖曲线点数,最小值为3Z[C+18]→I:"1JDZH"I:I→Z[C+18] ;输入1线平曲线第一个交点的交点桩号Z[C+14]→I:"2PQXDS"I:I→Z[C+14] ;输入2线平曲线点数,最小值为3Z[C+15]→I:"2SQXDS"I:I→Z[C+15] ;输入2线竖曲线点数,最小值为3Z[C+19]→I:"2JDZH"I:I→Z[C+19] ;输入2线平曲线第一个交点的交点桩号C+Z[C+22]→Z[C+8] 1线路平曲线要素指针偏移基数Z[C+8]+5Z[C+12]→Z[C+9] 1线路竖曲线要素指针偏移基数Z[C+9]+3Z[C+13]→Z[C+10] 2线路平曲线要素指针偏移基数Z[C+10]+5Z[C+14]→Z[C+11] 2线路竖曲线要素指针偏移基数Z[C+11]+3Z[C+15]→Z[C+21] 要素数据库结束指针Z[C+21]+1→Z[C+30]Z[C+21]→DimZ 增加额外变量-1→KGoto SFileName:SETPFDYS 交点要素=>分段要素Norm 150→CRadZ[C+6]+5→DZ[C+21]+1→FF+6→DimZ-1→Z[F] ; 设置分段要素开始标志Z[C+20]→V ; 从数据库读入当前线第一个平曲线交点桩号0→GPol(Z[D+1]-Z[D-4],Z[D+2]-Z[D-3]) ；计算第一条直线的距离I，计算方位角JJ→HZ[D-4]→Z[F+1] 直线段Z[D-3]→Z[F+2]V-I→Z[F+3]For 1→G T o Z[C+16]-2Pol(Z[D+1]-Z[D-4],Z[D+2]-Z[D-3]) ；计算第本交点与下一交点的距离I，计算方位角JI→W:J→HPol(Z[D+6]-Z[D+1],Z[D+7]-Z[D+2])J-H→K ；计算转角K，负值是左转角，正值是右转角IF Abs(K)>π:Then If K>0:Then K-2π→K:Else K+2π→K:IfEnd:IfEndZ[D+3]→R ;从数据库读入半径RZ[D+4]→L ;从数据库读入缓和曲线1长度Z[D+5]→M ;从数据库读入缓和曲线2长度L÷2÷R→B ;计算缓和曲线1的B0角M÷2÷R→O ;计算缓和曲线2的B0角(Abs(K)-B-O)R→P ;计算圆曲线长度L2÷24÷R-L^(4) ÷2384÷R^(3) →Q ;内移值计算方法2L÷2-L^(3) ÷240÷R2→S ;切线增长值计算方法2M2÷24÷R-M^(4) ÷2384÷R^(3) →J ;内移值计算方法2M÷2-M^(3) ÷240÷R2→I ;切线增长值计算方法2Abs(π÷2- Abs(K)) →ARtan(Abs(K÷2))+S+J÷Cos(A)-QTan(A)→T ;计算切线1Rtan(Abs(K÷2))+I+Q÷Cos(A)-JTan(A)→U ;计算切线2H<0=>H+2π→HK<0 =>-1→AH→Z[F+4]0→Z[F+5]0→Z[F+6]F+6→FF+6→DimZRec(T,H) 缓和段1 Z[D+1]-I→NZ[D+2]-J→EN→Z[F+1]E→Z[F+2]V-T→Z[F+3]L=0=>Goto AH→Z[F+4]0→Z[F+5]A÷R→Z[F+6]F+6→DimZLbi A 圆弧段0→I:0→JL=0=>Goto BPol(L-L^(3)÷40÷R2,L2÷6÷R-L^(4)÷336÷R^(4)) Lbi B Rec(I,H+AJ)N+I→NE+J→EN→Z[F+1]E→Z[F+2]V-T+L→Z[F+3]H+AB→Z[F+4]A÷R→Z[F+5]A÷R→Z[F+6]F+6→FF+6→DimZM=0=>Goto C 缓和段2 Rec(2RSin÷R),H+AB+AP÷R÷2) N+I→NE+J→EN→Z[F+1]E→Z[F+2]V-T+L+P→Z[F+3]H+AB+AP÷R→Z[F+4]A÷R→Z[F+5]0→Z[F+6]Lbi CF+6→FF+6→DimZRec(U,H+K)Z[D+1]+J→Z[F+1]Z[D+2]+I→Z[F+2]V-T+L+P+M→Z[F+3]V-T+L+P+M-U+I→VD+5→DNextH+K→Z[F+4]0→Z[F+5]0→Z[F+6]F+9→DimZ1→Z[F+7]V→Z[F+9] 要素终点桩号DegFileName：READDATZ[C+32]→II=3=>Prog"READDAT3"If GM+L :Then ;验证要素是否可用，否则重设要素I=1=>Prog"READDAT1"I=2=>Prog"READDAT2"Prog"REALDAT3"IfEndFileName:READDAT1 平曲线分段要素读取程序1Z[C+30]→F0→JLbi 1 搜索要素If G<z[f+3]:then< p="">-1=Z[F]=>Goto E:F-6→F:-1→J:Goto 1Else 1=Z[F+1]=>Goto E:-1=J=>Goto 2:1→J:F+6→F:Goto 1 IfEndLbi 2F→Z[C+30]Z[F+1]→Z[C+23] 当前分段要素N坐标Z[F+2]→Z[C+24] 当前分段要素E坐标Z[F+3]→Z[C+25] 当前分段要素起点桩号Z[F+4]→[C+26] 当前分段要素起点方位角（正北）Z[F+5]→Z[C+27] 当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[F+6]→Z[C+28] 当前分段要素终点曲率有左偏负右偏正（注意不半径）</z[f+3]:then<>。

卡西欧5800坐标计算程序(通俗易懂版)

卡西欧5800道路坐标测量程序（通俗易懂版）主程序（自己给取个名吧）2→Dimz“1.SZ＝﹥XY2.XY＝﹥SZ”◢“N=”?NIf N=1:Then Goto 1:Else Goto 2:IfEndLbl 1“S=”?S“Z=”?Z“J=”?TIf S﹤0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉)1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E:Abs(Abs(S)-O)→W:Prog “SUB1”“QJ=”:Z[1]◣DMS◢“X=”:X◢“Y=”:Y◢Goto 1Lbl 2“S=”?SIf S<0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉) 90→T1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E“X=”?X“Y=”?YX→I:Y→JProg “SUB2”O+W→S（红色加粗加下画线为字母，常规为零）“S=”:S◢Z→Z“Z=”:Z◢Goto 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))+Bcos(G+QEFW(C +FWD))+Acos(G+QEMW(C+MWD)))→XV+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+F WD))+Asin(G+QEMW(C+MWD))) →YG+QEW(C+WD)→Z[1]Z[1]+T→FX+Zcos(F)→XY+Zsin(F)→YReturn子程序(SUB2)G-90→Z[2]:Abs((Y-V)cos(Z[2])-(X-U)sin(L)→W:0→ZLbl 0Prog “SUB1”Z[2]+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)<10(-6):Then Goto 1:EIse W+Z→W:Goto 0:IfEndLb1 10→Z:Prog “SUB1”(J-Y)÷sin(F)→ZReturn数据库（SYR）If S>29599.031(本段线元计算范围起点里程) And S≤29759.031(本段线元计算范围终点里程):Then 3311072.206(本段线元起点X坐标)→U:502909.1014(本段线元起点Y坐标)→V: 29599.031(本段线元起点里程)→O:256-25-59.11(本段线元起点方位角)→G:160(本段线元长度)→H:1400(本段线元起点半径)→P:10(45)(本段线元终点半径)(直线段为10的45次方)→R:-1(线元转向标识)(左偏为-1,右偏为1,直线为0)→Q:IfEnd输入说明正算 1 输入 N:输入1进入计算坐标模式S:里程桩号Z:偏距J:与线路角度2 显示 QJ:切线方位角X:X坐标Y:Y坐标反算 1 输入 N:输入2进入坐标反算里程偏距模式S:输入相近里程X:输入X坐标Y:输入Y坐标2 显示 S:反算出的里程桩号Z:反算出的偏距。

卡西欧5800公路坐标正反算程序

卡西欧5800公路坐标正反算程序卡西欧5800公路坐标正反算程序是一种用于测量和计算公路坐标的工具，可以帮助测量员准确地确定公路上的位置和坐标。

本文将详细介绍卡西欧5800公路坐标正反算程序的功能、使用方法以及相关注意事项。

一、功能介绍卡西欧5800公路坐标正反算程序具有以下主要功能：1. 坐标正算：根据已知的起点坐标、方位角和距离，计算出目标点的坐标。

2. 坐标反算：根据已知的起点坐标和目标点坐标，计算出方位角和距离。

3. 坐标转换：支持不同坐标系之间的转换，如高斯投影坐标系、经纬度坐标系等。

4. 坐标纠正：根据已知的控制点坐标和实测点坐标，进行坐标纠正和校正。

二、使用方法1. 坐标正算：步骤1：进入卡西欧5800公路坐标正反算程序。

步骤2：输入起点坐标（经度、纬度）、方位角和距离。

步骤3：点击计算按钮，程序将自动计算并显示目标点的坐标。

2. 坐标反算：步骤1：进入卡西欧5800公路坐标正反算程序。

步骤2：输入起点坐标（经度、纬度）和目标点坐标（经度、纬度）。

步骤3：点击计算按钮，程序将自动计算并显示方位角和距离。

3. 坐标转换：步骤1：进入卡西欧5800公路坐标正反算程序。

步骤2：选择需要转换的坐标系类型。

步骤3：输入待转换的坐标信息。

步骤4：点击转换按钮，程序将自动进行坐标转换并显示结果。

4. 坐标纠正：步骤1：进入卡西欧5800公路坐标正反算程序。

步骤2：输入已知的控制点坐标和实测点坐标。

步骤3：点击纠正按钮，程序将自动进行坐标纠正和校正，并显示结果。

三、注意事项1. 在使用卡西欧5800公路坐标正反算程序之前，确保已正确安装和配置软件，并且设备连接正常。

2. 在进行坐标计算和转换时，输入的坐标信息应准确无误，以确保计算结果的准确性。

3. 在进行坐标纠正时，应选择合适的控制点和实测点，并确保其坐标信息准确无误。

4. 在使用过程中，如遇到问题或需要进一步了解功能细节，可以参考使用手册或联系卡西欧客服进行咨询。

卡西欧5800计算程序

5800计算程序本程序使用高斯四节点法为计算内核,可以计算任意里程偏距坐标,反算里程和边距,计算任意点高程,分正常计算和设计计算,支持多条线路.支持两种以中线为旋转轴的超高方式,支持加宽,支持带绿化带,支持开口线和坡脚线计算.本程序仅提供大家参考,计算器主程序：ZHU-CHENG-XULbi0:“1，ZS=FS，2ZS，3FS，4XY＝＞SG，5。

”？U:U=1＝＞Prog”ZS=FS”:U=2＝＞Porg”ZS”:U=3＝＞Porg”FS”: U=4＝＞Porg”XY＝＞SG”:…………Goto0://计算器总的主程序，进入选择各种分支计算程序。

1为公路三维计算，2为普通正算，3为普通反算，4为大地坐标转施工坐标。

选择错误重新选择。

公路三维部分正反算选择程序：ZF=FS“1LZ＝＞XY，2XY＝＞LZ,3BIANPO-FY”？U： //正反算选择，正算选1，反算选2If U=1: ThenProg”ZS-XH”:IfEnd://进入正算循环主程序IfU=2:Then Prog”FS-XH”:IfEnd: //进入反算循环主程序IfU=3:ThenProg”BIANPO-FY”:IfEnd://进入边坡开挖主程序正算循环主体程序ZS-XH“1PT-2SJ”？W：//普通计算和设计边距计算选择“XL-XZ“？U //选择线路1～NIfW=1: Then //运行普通计算模式边踞自由输入Lbi0:”L=”?L:”Z=”?Z: //输入桩号和边距Porg”ZS-XH-1“：Goto0:IfEnd:运行正算循环子程序IfW=2:Then //运行设计计算模式边距按设计输入Lbi1:”L=”?//输入桩号Porg”0。

5LUKUAN”://录入公路加宽后，左右侧设计边距Porg”ZS-XH-1“：Goto1:IfEnd:运行正算循环子程序正算循环子程序ZS-XH-1Prog”PM-XL-XZ”: //进入平面线路选择程序对线路线元进行选择Prog”CHAOXIAN-CL” //里程超限处理Prog”GL-ZS”: //进入坐标正算程序Prog”GL-BZ-ZS” //进入公路边桩正算程序Prog”GC-XL-XZ”: //进入高程线路选择程序对线路线元进行选择Prog”GC”://进入高程部分提取中桩高程IfW=1:ThenProg”B-H”://普通计算时进入边桩高程部分提取边桩高程ElseZ[3] →Z: //按设计计算时候代入减去半边绿化带后的路基边距Prog”ZS-XS”: //进入正算显示程序，提取正算三维结果反算循环主体程序FS-XH“XL-XZ”？U：//选择线路 1～NLbio：“L”？L：“X=”？T：“Y=”？S： //输入起算假定桩号，实测X YProg”GL-FS”: /进入公路反算程序Prog”FS-XS”:Goto0: //进入反算显示程序坐标正算程序GL-ZS.1739274226→I:.3260725774→J:.0694318442→K:.3300094782→E //四节点法计算系数录入1-E→F：1-K→M：Q+KrO(C+KD) →K: 数据库要用X、Y、Q作为起点坐标方位角Q+ErO(C+ED) →E:Q+FrO(C+FD) →F:Q+MrO(C+MD) →M:X+O(ICos(K)+JCos(E)+JCos(F)+ICos(M)) →X: //计算出X坐标Y+O(ISin(K)+JSin(E)+JSin(F)+ISin(M)) →Y: //计算出Y坐标Q+Or(C+D) →Q： //计算出算点方位角边桩坐标计算程序ZS-BZX+Zcos(Q+90) →G //计算出边桩X坐标Y+ZSin(Q+90) →M //计算出边桩Y坐标公路反算程序GL-FS20→V: //V值设置为20，为第一次反算控制Do:Porg”PM-XL-XZ”://进入平面线路选择程序Porg:”CHAOXIAN-CL”://里程超限处理程序IfV＞10: // V越小反算速度可能越慢，但是半径过小有可能算不出来，10为建议值Then Porg”GL-JY-ZS”://进入公路简易正算二节点程序Else Porg”GL-ZS”: //进入公路正算4节点程序IfEnd:T-X→I:S-Y→J: //试算点与测点X，Y距离差Pol(I,J):J-Q→J: //方位角转换为接近试算点到测点的值：Rec(I,J): //计算出X差和Y差（X里程，J边）I+(1-CJ-2DJ) →V //计算出里程大致差距（此公式为加速反算）L+V→L：//修改后的里程Abs(V) →V: //修改值的绝对值LpWhile V＞1m: //小于一毫米通过，大于一毫米循环计算中桩高程计算程序GCIf I-J＜0:Then1→H:IfEnd: //开口向上部分赋值IfI-J=0:ThenGoto1: IfEnd: //无竖曲线部分赋值IfI-J＞0:Then-1→IfEnd: //开口向下时赋值(L-C)I+K+(L-C)^2/(2E)H→I：//计算得出竖曲线部分中桩高程Goto2:Lbi1:K+(L-C)I→I: Lbi2: //计算得出无竖曲线部分中桩高程边桩高程计算程序B-H（L-C）/（D-C）→P: //计算点占本线元长比例3P^(2^(S))-2P^(3^(S)) →P: //计算得线性和高次抛物线系数F+P（T-F）→E： //初步计算计算点横坡If V=1:Then If N= -1:Then //直线和直缓，缓直,曲线左偏时Z＜0：ThenIfE＞Z[4]:ThenZ[4]→E: IfEnd : //计算左侧时，横坡大于一般横坡取一般横坡I+Abs(Z)E→O: IfEnd : //左侧高程IfZ＞0:Then I+ZF→O:IfEnd: //右侧高程得数If N=1:Then IfZ＜0:Then I+Abs(Z)E:IfEnd: //曲线右偏时，左侧高程得得IfZ＞0:Then If E＞Z[4]:Then Z[4]→E:IfEnd //右侧高程横坡大于一般横坡，取一般横坡I+ZE→O:IfEnd: IfEnd: IfEnd: //右侧高程得数IfV=2:ThenIf Z＞0:Then I+ZE→O:IfEnd://圆曲线全超高和S曲线超高渐变部分右侧高程得数IfZ＜0:ThenI-Abs(Z)E→O:IfEnd:IfEnd: // 圆曲线全超高和S曲线超高渐变部分左侧高程得数设计标准路面宽度子程序 CHANGSHU12→Z[1]：//选择12米为路面半宽度，根据设计修改1.5→Z[2]：//选择1.5米为绿化带半宽-0.02 →Z[4] //一般横坡录入路面宽度子程序 0。

卡西欧计算器fx-5800正反算超欠挖程序.

5800正反算、隧道超欠挖程序.doc正算主程序(ZSLb1 0FIX4:?S:?Z:Prog “PM-SJ”:Abs(S-O → W:Prog "SUB1":"XS=":X◢-"YS=":Y◢F-90→F(需要时可以让他显示,不要时不必输入:Pro g“SQX-SJ”: Prog“SQX”:“H=”:H◢Goto 0反算主程序(FSLb1 0FIX4: ?S:?X:?Y:Prog“PM-SJ”:X→ I:Y→ J:Prog "SUB2":"S=":O+W→S◢"Z=":Z◢Prog“SQ X-SJ”:Prog“SQX” :“H=”:H◢Goto 0隧道3心圆放样主程序(SD-3XYLb1 0:Prog“FS”:1.5→A:1.65→B:0.89→G:2.27→C:3.3→D:2.41→E:0.51→J:“H1”:F:ifF≤H+A:then E-AbsZ→W:IfEn d:ifF>H+A AndF≤H+A+B:then√(D²-(F-H-A²-G-AbsZ→W:IfEn d:ifF>H+A+B:then√(C²-(F-H-A-J²-AbsZ→W:IfEn d:“W=”:W◢(水平方向的超欠挖:正为欠,负为超Goto0正算子程序(SUB11÷P→ C:(P-R÷(2HPR → D:180÷π→ E: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+F WD+Asin(G+QEMW(C+MWD → Y:G+QEW(C+WD+90→F:X+ZcosF→X:Y+ZsinF→ Y反算子程序(SUB2G-90→T:Abs((Y-VcosT-(X-Usin(T → W:0→ Z:Lbl 0:Prog "SUB1":T+QEW(C+WD →L:(J-YcosL-(I-XsinL → Z:ifAbsZ<1E-6:thenGoto1: ElssW+Z → W:Goto 0:IfEnd←┘Lbl 1:0→ Z:Prog "SUB1":(J-Y÷sinF→ Z子程序(平面线形数据库PM-SJ-ifS≥500(线元起点里程AndS<769.256(线元止点里程:Then19942.837→U(线元起点X坐标:28343.561→V(线元起点Y坐标:500→O(线元起点里程:125°16°31°→G(线元起点方位角:269.265→H(线元长度: 10^(45→P(线元起点曲率半径:10^(45→R(线元终点曲率半径:0→Q (线元左右偏标志:左负右正:IfEnd←┘ifS ≥769.256(线元起点里程AndS<806.748(线元止点里程:Then19787.34→U(线元起点X坐标:28563.378→V(线元起点Y坐标:769.256→O(线元起点里程:125°16°31°→G(线元起点方位角:37.492→H(线元长度: 10^(45→P(线元起点曲率半径:221.75→R(线元终点曲率半径:-1→Q (线元左右偏标志:左负右正:IfEnd←┘ifS ≥806.748(线元起点里程AndS<919.527(线元止点里程:Then19766.566→U(线元起点X坐标:28594.574→V(线元起点Y坐标:806.748→O(线元起点里程:120°25°54.07°→G(线元起点方位角: 112.779→H(线元长度:221.75→P(线元起点曲率半径:221.75→R(线元终点曲率半径:-1→Q(线元左右偏标志:左负右正:IfEnd←┘ifS ≥919.527(线元起点里程AndS<999.812(线元止点里程:Then19736.072→U(线元起点X坐标:28701.893→V(线元起点Y坐标:919.527→O(线元起点里程:91°17°30.63°→G(线元起点方位角:80.285→H(线元长度:221.75→P(线元起点曲率半径:9579.228→R(线元终点曲率半径: -1→Q(线元左右偏标志:左负右正:IfEnd←┘ifS ≥999.812(线元起点里程:Then19744.038→U(线元起点X坐标:28781.659→V(线元起点Y坐标:999.812→O(线元起点里程:80°40°50°→G (线元起点方位角:100→H(线元长度:10^(45→P(线元起点曲率半径: 10^(45→R(线元终点曲率半径:0→Q(线元左右偏标志:左负右正:IfEnd←┘-子程序(竖曲线数据库SQX-SJifS≤999.812(竖曲线终点里程:then0.0357(前坡度:上坡正下坡负→E: 0.0227(后坡度:上坡正下坡负→F:600→R(竖曲线半径:780→G(变坡点里程:110→C(变坡点高程:IfEnd←┘子程序(竖曲线计算公式SQXE-F→J:ifJ>0:then-R→R:ElssR→R:Abs(R*J÷2→T:IfEnd←┘ifS≤G-T:thenG-S→L:C-LE→H:IfEnd←┘ifS>G-T And S≤G:thenG-S→L:(S+T-G²÷2÷R→N:C-LE+N→H: IfEnd←┘ifS>G And S≤G+T:then S-G→L:(G +T- S²÷2÷R→N:C+LF+N→H: IfEnd←┘ifS>G+T :thenS-G→L: C+LF→H:IfEnd←┘三、使用说明1、规定(1 以道路中线的前进方向(即里程增大的方向区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。

卡西欧5800计算器坐标正反算程序(带详细说明)

卡西欧5800程序完整版＂ZS=1,FS=2＂？N: 1÷P →C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfE nd←┚LbI 1:1 →I:0 →Z：Abs(K-Ｏ) →W: Prog＂ZS＂←┚F-90→F←┚＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：X+Lcos(F+K) →Z[3]◢＂ZY=＂: Y+Lsin(F+K) →Z[4]◢＂QXFWJ=＂:F DMS◢Abs(Z) →Z:Goto 8←┚LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+W→K◢＂FSJL=＂:Z◢Lbl 8正算子程序（ZS）（不运行）1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E←┚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+ZcosF→X：Y+ZsinF→Y3反算子程序（FS）（不运行）G-90→T：Abs（（Y-V））cos（T）-（X-U）sin（T）→W：0→Z←┚Lbl 0←┚prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001: Then Goto1：E lse W+Z→W：IfEnd :Goto 0←┚Lbl 1：0→Z：Prog＂ZS＂：（J-Y）÷sinF→ZZX-WN（运行主程序，该程序适用于匝道，对全段完整非对称曲线计算太过麻烦）＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）LbI 0: ＂K＂?K: If K≤126.9（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K ＞259.562: Then Goto D：IfEnd:IfEnd:IfEnd:IfEnd←┚LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Goto WLbI B:91990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Pr og ＂WN＂:Goto WLbI C:91947.609→U:8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P:150 →R:+1→Q:Pr og ＂WN＂:Goto WLbI D:91867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H:150 →P: 10^(45) →R:+1→Q: Prog ＂WN＂:Goto WLbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+）If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚LbI V:＂JJ1＂? O←┚（左右边桩再偏夹角，用180°减去路线夹角）＂X1=＂: Z[3]+Tcos（F+N+ O）→U◢＂Y1=＂:Z[4]+Tsin（F+N+ O）→V◢U→Z: V→M: GotoP←┚LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚＂JL=＂:I◢（仪站至测点的距离）＂FWJ=＂:J DMS◢（仪站至测点的方位角）Goto0备注：1．规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：当元线为直线时，Q=0。