5800(交点法)坐标计算及反算

合集下载

5800交点法正反算程序

If N=1: T hen Goto 5: Else prog
“ Z：SXH”
Goto 6: If end ↙
LbI5: “ X” ?M: “ YP”rog?Z “ FSXH” : Goto 7: If en↙d选择反算后输入测点的 X,Y 假设里程与正算输入一起，无需另输入 LbI6 ： “ W” ?W求边桩输入边距左=”◢:X显示所求 X 值 Y+WSin(P+90) → Y: “ Y=”◢ :Y显示所求 Y 值 P<0 => P+360 → P: “ FW=◢” :P显示所求点切线方位角 Goto 4 LbI7: “ KCD=” :◢K 显示反算出的里程 “ W=” :W◢ 显示反算出的边距 Goto 4↙
子程序 “C” X+Z[1]*cos( O) →Ｘ↙ Y+Z[1]*sin( O) →Ｙ↙ Return↙
圆曲线要素计算子程序 “D” L*180 ÷ ( ∏ R) →↙Ｎ 2R*sin(N ÷ 2) → Z[1↙] P+(Abs(S) ÷ S)(N ÷ 2O)↙→ P+Abs(S) ÷ S→↙Ｐ Return↙。。。。。
反算循环子程序 “FSXH” LbI 0: prog “ ZSX↙H” PoL((M-X),(Z-Y)) ↙ I*cos(J- P) →Ｎ↙ I*sin(J- P) →Ｗ↙ If N<0.00 1: Then N+K → K:Return: Else K+N → K:Goto 0: If e↙nd Return↙
主程序 “ZS FS”
20→ Dim Z
“ 1→ NEW,2→ OLD”？ Z ↙
IF Z=1:Then Goto 1: Else Goto 2 if end ↙ 选择输入选一手动输入曲线要数选二提取数据库

5800计算坐标

2、坐标反算：
Lbl 0
“XA”?X:“YA”?Y:“XB”?N:“YB”?E
Pol(N-X，E-Y)
If J<0:Then J+360→J
“JL=”:I◢
“FWJ=”:J ◆DMS◢
Goto 0
说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角。
Fx-5800计算机程序
QXJS-000 主程序
Lbl 4:“1.ZS=>NE”:“2.NE=>ZS”:?Q:?Z:Prog“QXJS-SUB0”
Lbl 0:Q=1 => Goto1:Q=2 => Goto2:
Lbl 1:?S:Prog“QXJS-SUB1”:“N=”:N◢:“E=”:E◢:“FWJ=”:F◢: Goto4
1、坐标正算：
“XA”?A:“YA”?B
Lb1 0:“JL”?C:“FWJ”?D
COS(D)×C+A→X
SIN(D)×C+B→Y
“X=”:X◢
“Y=”:Y◢
Goto 0
说明：XA,YA 为A 点坐标；JULI 为AB 两点的水平距离；FWJ 为A 点到B
点的方位角；XB,YB 为求出的B 点坐标。
5、第二缓和曲线：
〝QD〞?O：〝QDX〞?C：〝QDY〞?D：〝QDFWJ〞?N：〝BJR〞?R：〝BJR〞?R：〝HHL〞?L：〝ZYZ〞?P：〝ZYQ〞?Q
Lbl 0
〝DQ〞?Z:〝BJL〞?U:〝BJD〞?K
O-Z→S:30S2÷(πRL)→V:S-Sˇ(5)÷(40R2L2)→W:S(3)÷(6RL)-Sˇ(7)÷(336Rˇ(3)Lˇ(3))→M:√(W2+M2)→G:(N-3PV)→A

5800直线、圆曲线缓和曲线、坐标计算程序

5800直线、圆曲线缓和曲线、坐标计算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=″?VPol(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=″?R Lbl 1＂DQHAO=″?LL<G Or L＞C GOTO 2＂PY=″?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o＂FWJ=″: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(0.5R(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：待求点里程。

5800交点正反算坐标(可计算不对称缓和曲线)

1、主程序程序名：1XY-KMLbI 0:5→DimZ：Norm 2:1→A：＂A:X,Y=1，KM,D=2＂?A:A=1=>Goto 1:A=2=>Goto 2:LbI 1：Prog ＂DX＂:LbI A:Prog＂QX＂:90→B:＂PJ＂?B:B→Z [1]：LbI B:1→F:＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X :Prog＂KM＂:?D: Prog "Z":I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ：＂Ｙ＝＂：Locate 6,4,Ｙ：Prog＂JS＂:Goto B LbI 2：LbI A:Prog＂QX＂:90→Z[1]：LbI C:2→F:＂KM＂?Z:Z = -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X :Prog＂KM＂“X0”? X:”Y0”?Y:?D:Prog ＂ZX＂: Fix 3:＂ＫＭ＝＂：Locate 6, 4,Ｚ：＂Ｄ＝＂：Locate 6,4,Ｄ：Goto C:LbI X:Mat F◢Goto 02. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R）÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R ∧(3)) ÷Sin(Abs(P))→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Ab s(P) →W:0→M:H→C:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 2: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEnd:If Z≤O-T+ΠR×Abs(P)÷180+H÷2-N÷2: 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]:Goto 4: IfEnd:O-T+ΠR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P) ÷2)+N÷2-N∧(3) ÷240÷R2+E→T :N→H:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSi n(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3:LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3:C→H3. 交点法缓和段转化子程序(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)程序名：ZXZ:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEndLbI 25．线路选择子程序(线路选择输0时。

Casio5800交点法与线元法(积木法)匝道坐标正反算放样程序

颜色文字Casio5800交点法与线元法（积木法）匝道坐标正反算放样程序（XUFENG 2011.2.14）本人一直以来想找一个交点法与线元法相结合的坐标正反算程序，在网上找了很久很久，没能找到一个较为满意的，有幸在测量空间看到大歪哥的《Casio5800交点法程序》与《线元法（积木法）匝道坐标正反算放样程序》，根据歪哥意见“需要的自行修改结合XY框架自己修改为数据库反算程序等”，本人不才，采用最笨的办法将两个程序综合了一下，使之能既能进行交点法正反算，又能进行线元法正反算。

在此特别感谢大歪哥！将程序发上来，愿与大家一同交流学习欢迎大家吐口水，只要能进步就行！程序由一个主程序ZBZFS和8个子程序（JS、XY-A、XY-B、JDYS、1、2、3、4）构成，运行时只需运行主程序即可！本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标正反算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并能对单一线元进行坐标正反算。

1主程序名：ZBZFS（功能：进入计算主程序）65→Dimz↙Deg:Fix 3↙＂1.JD ZFS 2. ZHADAO ZFS＂? I: I→Z[61]: ＂1.ZHONG SHU JS 2. JS＂? I↙If I=1: Then Goto1: Else Goto2:IfEnd↙LbI 1 :If Z[61]=1: Then Prog＂JDYS＂:Else Cls:＂K0＂?A:＂KN＂?L :＂X0＂?U :＂Y0＂?V :＂F0＂?W :＂R0＂?P :＂RN＂?Q:＂ZX:-1,+1,0＂?G:IfEnd↙LbI 2 :Prog＂JS＂2子程序名：JS（功能：选择正算或反算模式）Cls:＂XC＂?H:＂YC＂?Z↙Cls:＂1.ZS 2.FS＂? I: I=2=>Goto 3↙LbI 1 : Cls: If Z[61]=1: Then＂JD ZS KX+XXX＂?K :Prog＂4＂: Else ＂ZHAD AO ZS KX+XXX＂?K :IfEnd↙LbI 2: Cls:90→B: Cls:＂RJ Or 0 To K＂?B:B=0 =>Goto 1:＂Z＂?T↙Prog ＂XY-A＂↙X+Tcos(M+B)→X↙Y+Tsin(M+B)→Y↙360Frac((M+360)÷360→M↙Pol(X-H,Y-Z : 360Frac((J+360)÷360→J↙2→O: Prog ＂XY-B＂:Goto 2↙LbI 3 : Cls: If Z[61]=1: Then＂JD FS KN+＂?K:＂X＂?C:＂Y＂?D:Prog＂4＂:El se Cls: ＂ZHADAO FS＂:＂X＂?C:＂Y＂?D:IfEnd↙LbI 4 :Prog ＂XY-A＂↙(D-Y)sin(M)+(C-X)cos(M)→H↙If Abs(H)＞X10-3 :Then K+H→K:Goto 4:IfEnd↙(D-Y)÷cos(M)→T↙3→O: Prog ＂XY-B＂:Goto 3↙3子程序名：XY-A（功能：坐标计算程序）5→N: G(Q-1-P-1)÷Abs（L-A）→F: Abs（K-A）÷N→R: 90R÷π→S:W+(FNR+2GP-1)NS→M:1→E↙U+R÷6×(Cos (W)+Cos (M) +4∑（Cos (W+((E+0.5)FR+2GP-1)×(E+0.5)S),E,0,(N-1)）+2∑（Cos (W+((EFR+2GP-1)ES,E,1,(N-1))）→X ↙V+R÷6×(sin (W)+sin (M) +4∑（sin (W+((E+0.5)FR+2GP-1)×(E+0.5)S),E,0,(N-1)）+ 2∑（sin (W+((EFR+2GP-1)ES,E,1,(N-1))）→Y↙4子程序名：XY-B（功能：显示正算或反算结果）If O=2:Then↙Cls :＂K×××=＂:＂Z=＂:＂X=＂:＂Y=＂: Locate 6,1, K : Locate 4, 2, T : Locat e 4,3, X : Locate 4,4, Y◢If T=0 :Then Cls :＂QF(Z)=＂: Locate 8,1, M:M▼DMS◢IfEnd↙Cls :＂K×××=＂:＂S=＂: Locate 6,1, K : Locate 4, 2, I :＂F=＂:J:J▼DMS◢IfEnd↙If O=3:Then ＂X=＂:＂Y=＂:＂K×××=＂:＂Z=＂: Locate 4,1,C: Locate 4, 2, D : Locate 6,3,K :Locate 4,4,T◢IfEnd:Cls↙5子程序名:4（功能：将交点参数转为线元计算参数）LbI 1: IF Z[48]＜0 :Then -1→Z[62] : Else:1→Z[62]:IfEndLbI 2: If K≥Z[57]:Then Z[57]→A :Z[1]→L :Z[23]→U :Z[24]→V : Z[31]→W : 1 0^45→P :10^45→Q : 0→G:IfEnd↙LbI 3:If K≥Z[1]:Then Z[1]→A : Z[2]→L : Z[19]→U : Z[20]→V :Z[29]→W : 10 ^45→P :Z[46]→Q : Z[62]→G: IfEnd↙LbI 4:If K≥Z[2]:Then Z[2]→A : Z[4]→L :Z[25]→U : Z[26]→V :Z[32]→W : Z[4 6]→P : Z[46]→Q : Z[62]→G: IfEnd↙LbI 5:f K≥Z[4]:Then Z[4]→A : Z[5]→L : Z[27]→U :Z[28]→V : Z[33]→W : Z [46]→P : 10^45→Q : Z[62]→G: IfEnd↙LbI 6:If K≥Z[5]:Then Z[5]→A : Z[5]+1000→L :Z[21]→U : Z[22]→V : Z[30]→W :10^45→P : 10^45→Q : 0→G : IfEnd↙6子程序名：JDYS（功能：输入交点要素、显示交点要素及主点坐标）Cls : ＂BP＂?H:H→Z[57]：＂K（JD）＂?K:K→Z[41] :＂X（JD）＂?X :X→Z[4 2]:＂Y（JD）＂?Y:Y →Z[43]:＂LS1＂?B:B→Z[44] :＂LS2＂?C:C →Z[45]: ?R:R →Z[46]:＂（ZH）FWJ°＂?M:M→Z[47] : ＂α（Z-,Y+）°＂?O:O→Z[48] : Z[47]+Z [48]→Z[49]: Prog ＂1＂:Prog ＂2＂↙Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1, Z[50] : Locate 4,2, Z[51]: L ocate 4,3, Z[52] : Locate 4,4, Z[53]◢Cls :＂E=＂: Locate 7,1, Z[54]Cls :＂K（QD）=＂: ＂X=＂: ＂Y=＂: ＂FWJ=＂Locate 7,1,Z[57] :Locate 7,2, Z[2 3] :Locate 7,3, Z[24] :Locate 7,4, Z[31] ◢Cls :＂K（ZH）=＂: ＂X=＂: ＂Y=＂: ＂FWJ=＂:Locate 7,1,Z[1] : Locate 7,2, Z [19] :Locate 7,3, Z[20] :Locate 7,4, Z[29]◢Cls : ＂K（HY）=＂: ＂X=＂: ＂Y=＂: ＂FWJ=＂: Locate 7,1,Z[2] : Locate 7,2, Z[25] :Locate 7,3, Z[26] :Locate 7,4, Z[32]◢Cls :＂K（QZ）=＂: Locate 7,1,Z[3]◢Cls :＂K（YH）=＂: ＂X=＂: ＂Y=＂: ＂FWJ=＂: Locate 7,1,Z[4] : Locate 7,2, Z[27] :Locate 7,3, Z[28] :Locate 7,4, Z[33]◢Cls :＂K（HZ）=＂: ＂X=＂: ＂Y=＂: ＂FWJ=＂: Locate 7,1,Z[5] : Locate 7,2, Z[21] :Locate 7,3, Z[22] :Locate 7,4, Z[30]◢7子程序名：1（功能：计算交点要素）If Z[48]＜0 :Then -1→Z[55] : Else 1→Z[55] : IfEnd : Z[55]* Z[48]→Z[56] ↙Z[44] 2 ÷24÷Z[46]- Z[44]^(4)÷2688÷Z[46] ^(3) →Z[6] ↙Z[45] 2 ÷24÷Z[46]- Z[45]^(4)÷2688÷Z[46] ^(3) →Z[7] ↙Z[44]÷2-Z[44]^(3)÷240÷Z[46]2 →Z[8] ↙Z[45]÷2-Z[45]^(3)÷240÷Z[46]2 →Z[9] ↙Z[8]+(( Z[46]+Z[7]-( Z[46]+Z[6])cos(Z[56]))÷sin(Z[56]))→Z[50]↙Z[9]+(( Z[46]+Z[6]-( Z[46]+Z[7])cos(Z[56]))÷sin(Z[56]))→Z[51]↙Z[46]* Z[56]π÷180+( Z[44]+ Z[45]) ÷2→Z[52]↙Z[46]* Z[56]π÷180-( Z[44]+ Z[45]) ÷2→Z[53]↙(Z[46]+(Z[6]+Z[7])÷2)÷cos(Z[56]÷2)- Z[46]→Z[54]↙Z[41]-Z[50]→Z[1] ↙↙Z[1]+Z[44]→Z[2] ↙↙Z[2]+Z[53]÷2→Z[3]↙Z[1]+Z[52]-Z[45]→Z[4]↙Z[4]+Z[45]→Z[5]↙8子程序名：2（功能：计算主点坐标及切线方位角）Z[42]-Z[50]cos(Z[47])→Z[19]: (直缓坐标)Z[43]-Z[50]sin(Z[47])→Z[20]↙Z[47]→Z : 360Frac((Z+360)÷360→Z[29] （方位角）Z[42]+Z[51]cos(Z[49])→Z[21]: (缓直坐标)Z[43]+Z[51]sin(Z[49])→Z[22]↙Z[49]→Z: 360Frac((Z+360)÷360→Z[30] （方位角）Z[1]-Z[57]→L↙（H→Z[57]为前直线起点桩号）Z[42]-( Z[50]+L)cos(Z[47])→Z[23]↙(前直线起点坐标)Z[43]-( Z[50]+L)sin(Z[47])→Z[24]↙Z[47]→Z : 360Frac((Z+360)÷360→Z[31]↙（方位角）Z[44]→Z[12]:Z[44]→Z[13]:Prog＂3＂↙Z[4]-Z[1]→L:90(2L-Z[44])÷Z[46]÷π→Z[11]↙Z[46]sin(Z[11])+Z[8]→Z[14]:Z[46](1-cos(Z[11]))+Z[6]→Z[15]↙Z[19]+Z[14]cos(Z[47])-Z[55]Z[15]sin(Z[47])]→Z[27]↙（圆缓点坐标）Z[20]+Z[14]sin(Z[47])+Z[55]Z[15]cos(Z[47])]→Z[28]↙Z[47]+Z[55]Z[11]→Z: 360Frac((Z+360)÷360→Z[33]↙（方位角）Z[2]-Z[1]→L:90(2L-Z[44])÷Z[46]÷π→Z[58]↙Z[46]sin(Z[58])+Z[8]→Z[14]:Z[46](1-cos(Z[58]))+Z[6]→Z[15]↙Z[19]+Z[14]cos(Z[47])-Z[55]Z[15]sin(Z[47])]→Z[25]↙（缓圆点坐标）Z[20]+Z[14]sin(Z[47])+Z[55]Z[15]cos(Z[47])]→Z[26]↙Z[47]+Z[55]Z[58]→Z: 360Frac((Z+360)÷360→Z[32]↙（方位角）9子程序名：3（主点坐标计算辅助程序）If Z[12]=0 :Then 0→Z[14]: 0→Z[15]:Else↙Z[12]- Z[12]^(5)÷40÷(Z[46]*Z[13])2+ Z[12]^(9)÷3456÷(Z[46]*Z[13])^(4) →Z[14]↙Z[12]^(3)÷6÷(Z[46]*Z[13])-Z[12]^(7)÷336÷(Z[46]*Z[13])^(3)+ Z[12]^(11) ÷42240÷(Z[46]*Z[13])^(5)→Z[15] ↙IfEnd↙程序说明：1、进入程序：1.JD ZFS 2. ZHADAO ZFS? 选1为交点法正反算（以后操作均为交点法计算），选2为线元法正反算（以后操作均为线元法计算）2、ZHONG SHU JS 2. JS?选1重输参数，选2直接进入交点法或线元法正反算（参数为已输过的参数）3、参数输入：一、交点法已知数据输入：BP？上一交点ZH桩号K（JD）?交点桩号X（JD）?交点X坐标Y（JD）?交点Y坐标LS1 ?第一缓和曲线长度LS2 ?第二缓和曲线长度R ? 圆曲线半径（ZH）FWJ°?交点前（即前交点至本交点也即ZH点）的正切线方位角α（Z-,Y+）?本交点处线路转角（左转为负，右转为正，度分秒输入）交点法计算要素显示：T1=第一切线长T2=第二切线长L=曲线总长LY=圆曲线长E=曲线外距K(ZH)=直缓点桩号K(HY)=缓圆点桩号K(QZ)=曲中点桩号K(YH)=圆缓点桩号K(HZ)=缓直点桩号二、线元法已知数据输入：K0？KN? R0? RN?F0?X0? Y0?ZX? 分别为线元起点桩号、终点桩号、起点半径、终点半径、起点切线方位角、起点X坐标、起点Y坐标、线元转向。

5800交点法计算中边桩坐标程序

交点法正反算程序主程序JD—NELBI 1："JDk="？C："JDμ="？D："Li"？L："R="？R："JDX="？U："JDY="？V："JDA="？A："（+1R，-1L）"？M："Z（+R，—L）"？B："K="？P：Prog："JD—NE1"："X="？X"▲Y="？Y▲"F="？F▲Goto 1↙子程序JD—NE1（（R+L²÷（24R））tan（D÷2）+L÷2—L³÷（240R²）→T↙C—T→I↙I+L→J↙J+πDR÷180—L→H↙H+L→K↙If P＜I：Then U+（C-P）cos（A+180°）+Bcos（A+90°）→X ↙V+（C-P）sin（A+180°）+Bsin（A+90°）→Y↙A→F：Return：IfEnd↙If P＞I And P＜J ：Then A+M×30°×（P—I）²÷（πRL）→O↙（P—I）—（P—I）²÷（90R²）→G↙U+Tcos（A+180°）+Gcos（O）→X↙V+Tsin（A+180°）+Gsin（O）→Y↙90°×（P—I）²÷（πRL）→W↙X+Bcos（A+MW+90°）→X↙Y+Bsin（A+MW+90°）→Y↙A+MW→F：Return：IfEnd↙If P＞J And P＜H ：Then A+M×90°×（L+P—J）÷（πR）→O↙2Rsin（（P—J）×90°÷（πR））→G↙U+Tcos（A+180°）+（L—L³÷（90R²））cos（A+M（30°×L）÷（πR））+Gcos（O）→X↙V+Tsin（A+180°）+（L—L³÷（90R²））sin（A+M（30°×L）÷（πR））+Gcsin（O）→X↙90°×（P—J）÷（πR）→W↙X+Bcos（O+MW+90°）→X↙Y+Bsin（O+MW+90°）→Y↙O+MW→F：Return：IfEnd↙If P＞HAnd P＜K ：Then A+MD+180°—M×30°×（P—K）²÷（πRL）→O↙K—P—（K—P）³÷（90R²）→G↙U+Tcos（A+MD）+Gcos（O）→X↙V+Tsin（A+MD）+Gsin（O）→Y↙（P—K）²×90°÷（πRL）→W↙X+Bcos（A+MD—MW+90°）→X↙Y+Bsin（A+MD—MW+90°）→Y↙A+MD—MW→F：Return：IfEnd↙If P＞K ：Then U+（T+P—K）cos（A+MD）+Bcos（A+MD+90°）→X↙V+（T+P—K）sin（A+MD）+Bsin（A+MD+90°）→Y↙A+MD→F：Return：IfEnd↙变量说明：JDk——交点桩号CJDμ——交点转角DLi——缓和曲线长度LR——圆曲线半径RJDX——交点X坐标UJDY——交点Y坐标VJDA——交点方位角A（+1R，—1L）——偏向MZ（+R，—L）——（边桩到中桩距离）BK——待求桩号PX——待求点X坐标Y——待求点Y坐标F——待求点的方位角本程序已经测试通过，第二缓和曲线起点附近有时会有1公分误差，是公式简化过程中产生的。

卡西欧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计算器全线坐标计算放样正反算程序

5800计算器全线坐标计算放样正反算程序（定稿）彭赐明主程序坐标正反算程序名称：ZBZFSLB1 A↙Cls : Fix 4 : 30→Dim Z :"0=ZS,1=FS"?Z ↙If Z=0:Then Goto B:IfEnd↙(Z=0进入里程点坐标正算）If Z=1:Then Prog"FSLCBZ ": Goto A:IfEnd↙(Z=1进入反算里程边桩）Lb1 B ↙“K=”?K ：（计算里程）Prog"SJK1 ":Prog”ZBFY” :Goto A↙子程序数据库 SJK1IF 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 : Prog”XLZBJSCX”:Return: IFEND↙IF…………Prog”XLZBJSCX”:Return: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子程序坐标正算，名称：XLZBJSCXLB1 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 : ELSE E-T →T : T<0=>360+T→T : IFEND ↙GOTO 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 : ELSE 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*S IN 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 ↙LLb1 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↙子程序反算里程边桩，名称：FSLCBZLb1 1↙"XK="?X:"YK="?Y↙（输入任意测点的XY坐标）:“K=”?K （试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）↙Lb1 2↙Prog"SJK1 ":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"S JK1":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:G oto 2:Ifend:Ifend:Ifend↙Lb1 4↙Pol (X-Z[18],Y-Z[19]:"DP(-Z+Y)=":I◢(偏距）（由于该程序不能准确判断边桩左右方向，暂作修改，取消左右边判定）"K=":K+S→K◢（里程）Return↙子程序坐标放样：ZBFYLB1 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=":J→DMS◢(后视方位角) “QXJ=” :T◢（计算里程点切线方位角，可以不显示）“XI=” : Z[18] ◢（中线X）“YI=” : Z[19] ◢（中线Y）Pol(Z[18]-M,Z[19]-N):"DI=":I（中桩放样距）◢J<0=>J+360→J:"FI=":J→DMS◢（中桩放样方位角）“PJ=”?P◢(输入边桩与线路夹角，左-右+)“PD=”?D◢（输入边桩距）Z[18]+D*COS(T+P) →Z[20] ↙Z[19]+D*SI N(T+P) →Z[21] ↙“XP=”: Z[20] ◢（边桩X）“YP=”: Z[21] ◢（边桩Y）Pol(Z[20]-M,Z[21]-N):"DP=":I◢（边桩放样距）J<0=>J+360→J:"FP=":J→DMS◢（边桩放样方位角）Return↙。

卡西欧5800坐标正反算程序

卡西欧5800坐标正反算程序卡西欧5800坐标正反算程序1.主程序(TYQXJS)Lb1 4:“1.SZ=>XY”：“2.XY=>SZ”:？N:？S:Prog“SUB0”↙1÷P→C：（P-R）÷（2HPR）→D：180÷π→E:N=1=>Goto 1:Goto 2: ↙Lb1 1:?Z:Abs(S-O) →W: Prog“SUB1”:“XS=”：X◢“YS=”:Y◢F-90→F:“FS=”F▲DMS◢ Goto 4↙Lb1 2:?X:?Y:X→I:Y→J:Prog“SUB2”：O+W→S:“S=”：S◢“Z=”:Z◢Goto 4↙2.正算子程序（SUB1）0.1739274226→A:0.3260725774→B:0.0694318442→K:0.330 0094782→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+MW D)))→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. 反算子程序（SUB2）G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z:Lb1 0:Prog“SUB1”:T+QEW(C+WD) →L:(J-Ycos(L)-(I-X)s in(L) →Z:If Abs(Z)〈0.000001：Then 0→Z:Prog“SUB1”:(J-S)÷sin(F) →Z:Else W+Z→W:Goto 0:IfEnd↙4. 数据库子程序（SUB0）Goto1↙同时保存多个曲线时的指针Lb1 1:If S〈 000.000（线元终点里程）：Then 000.000→G(线元起点方位角)：000.000→O （线元起点里程）：000.000→U(线元起点X坐标)：000.000→Y（线元起点Y坐标）：000.000→P(线元起点曲率半径)：000.000→R（线元终点曲率半径）：000.000→H（线元起点至终点长度）：0或1、-1→Q：Eeturn:IfEnd↙Lb1 1:If S〈 000.000（线元终点里程）：Then 000.000→G(线元起点方位角)：000.000→O （线元起点里程）：000.000→U(线元起点X坐标)：000.000→Y（线元起点Y坐标）：000.000→P(线元起点曲率半径)：000.000→R（线元终点曲率半径）：000.000→H（线元起点至终点长度）：0或1、-1→Q：Eeturn:IfEnd↙………………….为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lb1，每增加一个工程增加一个文件。

5800 坐标正算程序、坐标反算程序

CASIO FX-5800 P坐标正算反算
坐标正算
Lbl 0: “X0=”?S:“Y0=”?K
“FWJ=”?F:“JL=”?D
“JSZB X=”:S+Dcos(F)→X◢
“JSZB Y=”:K+Dsin(F)→Y◢
Goto 0
坐标反算
Lbl 0：“X1=”?Z：“Y1=”?W
“X2=”?X：“Y2=”?Y
X－Z→A：Y－W→B
“JULI D”：√（A²+B²）→D◢“FWJ”：cos-1(A÷D) →J
IF B≥0：Then J→J：J►DMS◢
Else 360－J→J：J► DMS◢
IfEnd
Goto 0
坐标正算说明：
1.已知一个点的坐标X、Y，方位角和距离，计算未知点坐标
2.计算中桩是用靠近待求点的小里程的X、Y坐标，方位角，以及待求点到已知点的距离，
计算出待求点X、Y坐标
3.计算边桩坐标时，先求出待求点的坐标，然后输入待求点（要计算的里程）的X、Y坐
标，计算时距离输入永远为正值，左侧用计算里程方位角－90°，如果出现负值，则再加上360°（即方位角－90°＋360°）；右侧则直接用方位角+90°
坐标反算说明：
1.已知两个点的X、Y坐标，计算出两点间的距离和方位角
2.输入时先输入小里程的X、Y坐标再输入大里程方向的X、Y坐标，与先输入大里程后
输入小里程的坐标，计算结果为相反方向！。

5800坐标计算及反算

5800坐标计算及反算交点法是一种常用的地理坐标计算方法，通过已知的两个点的坐标和与x轴的夹角来计算第三个点的坐标。

同时，我们也可以通过已知两个点的坐标和第三个点的坐标，反过来计算与x轴的夹角。

以直角坐标系为例，假设已知两个点A(x1,y1)和B(x2,y2)，并假设与x轴的夹角为θ1与θ2、现在我们要计算第三个点C的坐标。

根据三角函数的知识，我们可以得到：∆x = AC = BC * cos(θ1)∆y = BC * sin(θ2)因此：x3 = x2 + ∆x = x2 + BC * cos(θ1)y3 = y2 + ∆y = y2 + BC * sin(θ2)反算坐标的过程与上述相反，假设我们已知三个点A,B和C的坐标，以及与x轴的夹角θ1和θ2、我们要计算BC的长度。

通过画图，我们可以得知：BC=√(∆x^2+∆y^2)其中∆x=x2-x1∆y=y2-y1在实际应用中，交点法常用于测量仪器的校准和数据处理。

例如，若已知两个点A(3,4)，B(6,8)，且与x轴的夹角θ1=30°和θ2=60°。

我们可以使用交点法计算点C的坐标。

∆x = BC * cos(θ1) =BC * cos(30°)∆y = BC * sin(θ2) = BC * sin(60°)根据已知条件x3 = 6 + BC * cos(30°)y3 = 8 + BC * sin(60°)进一步，我们可以通过三角函数的性质，确定BC的长度：BC=√(∆x^2+∆y^2)=√((x2-x1)^2+(y2-y1)^2)将具体数值代入计算可以得到最终结果。

交点法在实际中的应用十分广泛，如测量地面上其中一点到两个已知点的距离，计算建筑物或地理地点在地图上的坐标等等。

fx-5800p全线坐标放样（交点法）正反算程序

fx-5800p全线坐标放样（交点法）正反算程序fx-5800p全线坐标放样（交点法）正反算程序【QXFYZFS】（主程序名）20→Dim?〝1.ZS.2.FS〞？J：J≠1?Goto2：90→H：〝X（CZ）〞？U：〝Y（CZ）〞？V?Lbi1：〝Kp＝〞？P：〝Z-Y+〞？D：Prog〝SUJUKU〞：M+O→N：Prog〝SUBA〞：Prog〝SUBB〞：F-Dcos(Z-H)→F：G-Dsin(Z-H)→G：〝X=〞〝Y=〞〝〞Z?DMS◢U=0?Goto1:Pol(F-U,G-V):J＜0?360+J→J：〝DH〞〝〞J?DMS◢Goto1?Lbi2：〝GAILUE(Kp＝)〞?P:〝X=〞？U:〝Y=〞?V?Lbi3：Prog〝SUJUKU〞:M+O→N:Prog〝SUBA〞:Prog〝SUBB〞:Z-90→A:(V-G)cos(A)-(U-F)sin(A)→H:IfAbs(H)＞0.0001：ThenH+P→P:Goto3:IfEnd:(G-V)÷sin(A)→D〝=〞〝〞Goto2?使⽤说明：20→Dim：扩展额外变量寄存器〝1.ZS.2.FS〞：选择正反算（正算=1反算≠1）90→H：边桩与线路正交〝X（CZ）〞〝Y（CZ）〞：输⼊测站点X、Y坐标值〝Kp＝〞、〝Z-Y+〞：输⼊所求点桩号和距中（左-右+中0）〝GAILUE(Kp＝)〞：反算时，输⼊所求点概略桩号〝X=〞〝Y=〞：反算时，输⼊所求点X、Y坐标值〝X=〞〝Y=〞〝〞：显⽰所求点X、Y值及所求点切线⽅位⾓。

〝DH〞〝〞：显⽰所求点放样距离及放样⽅位⾓（放样）。

10.〝〞〝〞：反算时，显⽰所求点桩号及距中（左-右+中0）。

〝U=0?Goto1〞〝〞〝〞【SUBA】⼦程序AIfO＜0:Then-1→W:Else1→W:IfEnd:WO→A?B2÷24÷R-B^(4)÷2688÷R^(3)+B^(6)÷506880÷R^(5)→Z[6]:C2÷24÷R-C^(4)÷2688÷R^(3)+C^(6)÷506880÷R^(5)→Z[7]:B÷2-B^(3)÷240÷R2+B^(5)÷34560÷R^(4)→Z[8]C÷2-C^(3)÷240÷R2+C^(5)÷34560÷R^(4)→Z[9]Z[8]+(R+Z[7]-(R+Z[6]cos(A))÷sin(A)→S:Z[9]+(R+Z[6]-(R+Z[7]cos(A))÷sin(A)→T:ARπ÷180+（B+C）÷2→L:L-B-C→Q：（R+(Z[6]+Z[7])÷2）cos(A÷2)-R→E：K-S→Z[1]:Z[1]+B→Z[2]:Z[1]+L-C→Z[4]:Z[4]+C→Z[5]【SUBB】⼦程序BX–Scos（M→F:Y-sin(M→G:P＞Z[1]?Goto1:X→F:Y→G:P-K→Z[16]:0→Z[17]:M→A:M→Z:Goto5?Lbl1:P＞Z[2]?Goto2:P-Z[1]→L:L→Z[14]:B→Z[15]:Prog〝SUBC〞:WZ[17]→Z[17]:M→A：M+90WL(BRπ→Z：Goto5:Lbl2:P＞Z[4]?Goto3:P-Z[1]→L:90(2L-B)÷R÷π→A:Rsin(A)+Z[8]→Z[16]:W(R(1-cos(A))+Z[6]→Z[17]:M+WA→Z:M→A:Goto5:Lbl3:P＞Z[5]?Goto4:Z[5]-P→L:L→Z[14]:C→Z[15]:Prog〝SUBC〞:X+Tcos(N→F:Y+Tsin(N→G:-Z[16]→Z[16]:WZ[17]→Z[17]:N→A:N-90WL2÷(CRπ→Z:Goto5:Lbl4:X→F:Y→G:P-Z[5]+T→Z[16]:0→Z[17]:N→A:N→Z:Goto5:Lbl5:F+Z[16]cos(A)-Z[17]sin(A→F:G+Z[16]sin(A)+Z[17]cos(A→G:Z＜0?360+Z→Z【SUBC】⼦程序CIfZ[14]=0:Then0→Z[16]:0→Z[17]:ElseZ[14]-Z[14]^(5)÷40÷(RZ[15])2+Z[14]^(9)÷3456÷(RZ[15])^(4)→Z[16]:Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]:IfEnd 【】IfP＜1000:Then522.056→K：5683.105→X：1447.559→Y:183°17°55.68°→M:-19°37°25.5°→O:2500→R:0→B:0→C:Return：IfEnd?IfP＜2000:Then1182.2→K：5317.799→X：868.262→Y:337°0°1.8°→M:10^(-50)→O:1→R:0→B:0→C:Return：IfEnd?IfP＜3000:Then……0→B:0→C:Return：IfEnd?1182.2→K”。

5800（交点法）坐标计算及反算

5800（交点法）坐标计算及反算5800(交点法)坐标计算及反算程序清单：1、JDF1J-PQXYS(交点法1-平曲线要素)5→Dimz↙“JD”?A↙“JD X”?B↙“JD Y”?C↙“FWJ”?F↙“L(a-),R(a+)”?O↙(字母O)“R”?R↙“LS1”?E↙“LS2”?K↙If E<1:Then 1*10^(-9) →E:IfEnd↙If K<1:Then 1*10^(-9) →K:IfEnd↙E2 ÷(24R)- E^(4)÷(2688R^(3))→Z[1]↙E÷2-E^(3)÷(240R2)+E^(5)÷(34560R^(4))→Z[2]↙((E2-K2 )÷(24R))÷Sin(Abs(O))→X↙(字母O)“T1=”：(R+E2÷(24R)-E^(4)÷(2688 R^(3)))tan(Abs(O) ÷2)+E÷2-E^(3)÷(240R2)+E^(5)÷(34560R^(4))-X→Z[3] ◢(字母O) “T2=”：(R+K2÷(24R)-K^(4)÷(2688 R^(3)))tan(Abs(O) ÷2)+K÷2-K^(3)÷(240R2)+K^(5)÷(34560R^(4))+X→Z[4] ◢(字母O) “L=”：Abs(O)πR÷180+(E+K)÷2→L◢(字母O)“LY=”:L-(E+K)→Y◢tan-1（（R+Z[1]）÷(Z[3]-Z[2]))→J↙“E=”:(R+Z[1])÷sin(J)-R→X◢A-Z[3]→X：X+E→Y↙If E<1：Then “ZY=”：X◢:El se “ZH=”：X◢IfEnd↙“HY=”：Y◢“QZ=”：X+E+(L-K-E)÷2→Y◢X+L-K→Y：X+L→X↙If K<1：：Then “YZ=”：X◢:Else “YH=”：Y◢IfEnd↙“HZ=”：X◢Prog“JDF2J-JSMS”↙2、JDF2J-JSMS(交点法2-计算模式) LbI 0↙“1 KD=>XY,2 XY=>KD”？Z↙If Z=1:Then Goto 1:IfEnd↙If Z=2:Then Goto 2:IfEnd↙LbI 1↙“JS K”?P:“BZ(m)”?D:“BJ(°)”?W↙Prog“JDF3JPZS”↙“X=”:X◢“Y=”:Y◢If Z=1: Then Goto 1：Goto 1：IfEnd↙LbI 2↙“X”?X:“Y”?Y:“BJ(°)”?W↙Prog“JDF4JPFS”↙“JS K”:P◢“BZ(m)=”:D◢If Z=2: Then Goto 2:Goto 2:IfEnd↙3、JDF3JPZS (交点法3平曲线正算) LbI 1↙F→J↙B-Z[3]cos（F）→X↙C-Z[3]sin（F）→Y↙E→G↙If P≤A-Z[3]:Then A-Z[3]-P→I:-I→M:0→N:F+W→H: Goto5：IfEnd↙(数字0)If P≤A-Z[3]+E:Then P-A+Z[3]→I:90I2÷(REπ)→H: O<0=>-H→H：(前面为字母0，后面为数字0)H+W+F→H: Goto 3: IfEnd↙If P≤A-Z[3]+L-K:Then P-A+Z[3]-E→I: Goto 4:Else Goto2: IfEnd↙LbI 2↙B+Z[4]cos(F+O)→X↙(字母0)C+Z[4]sin(F+O)→Y↙(字母0)F+O+180→J↙(字母0)K→G↙If P≤A-Z[3]+L:Then A-Z[3]+L-P→I:90I2÷(RKπ)→H: O>0=>-H→H：(前面为字母0，后面为数字0)H+J+W+180→H: Goto 3 :Else P-A+Z[3]-L→I:-I→M:0→N:（数字0)J+W+180→H: Goto 5：IfEnd↙LbI 3↙I-I^(5)÷(40(RG)2)→M↙I^(3)÷(6GR)-I^(7)÷(336(RG)^(3))→N↙G oto 5↙LbI 4↙(E+2I)×90÷(πR)→H↙Rsin(H)+Z[2]→M↙R(1-cos(H))+Z[1]→N↙O<0=>-H→H↙(前面为字母0，后面为数字0)J+H+W→H↙Goto 5↙LbI 5 ↙If P≤A-Z[3]+L-K:Then O<0(前面为字母0，后面为数字0)=>-N→N:Else O>0(前面为字母0，后面为数字0)=>-N→N: Goto 6: IfEnd↙LbI 6 ↙X+Mcos(J)-Nsin(J)+Dcos(H)→X↙Y+Msin(J)+Ncos(J)+Dsin(H)→Y↙4、JDF4JPFS(交点法4平曲线反算)X→U:Y→V:0→D:F-W→J↙(数字0)A+(Y-C)cos(J)-(X-B)sin(J)→P↙LbI 1↙Prog“JDF3JPZS”↙H-180→J↙(V-Y)cos(J)-(U-X)sin(J)→I↙If Abs(I)<10^(-4):Then Goto 2:Else P+I→P: Goto1: IfEnd↙LbI 2↙(V-Y)÷sin(H)→D↙程序简介本套程序共有1个主程序，3个子程序，适用于CASIO-5800用户。

5800公路线路坐标正反算程序

5800公路线路坐标正反算程序一单交点对称：本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！本程序适用于单交点对称型、不对称型、有无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！主程序名：JD24→Dimz↙Cls :＂K（JD）＂?K :＂X（JD）＂?X :＂Y（JD）＂?Y :＂LS1＂?B :＂LS2＂?C : ?R :＂（ZH）FWJ＂?M : ＂α（Z-,Y+）＂?O : M+O→N :Prog ＂JDA＂↙Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,Q◢Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1] ◢Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5] ◢◢LbI 0 : ＂JSLC＂?P : ＂(-L,Z=0,+R)＂?D : If D≠0 :Then ＂RJ＂?H : IfEnd : Prog ＂JDB＂↙If D＜0 :Then Cls : ＂X(L)=＂:＂Y(L)=＂: Locate 6,1,F : Locate 6,2,G◢◢Goto 0 : IfEnd↙If D=0 :Then Cls : ＂X(Z)=＂:＂Y(Z)=＂: Locate 6,1,F : Locate 6,2,G ◢＂QXFWJ(Z)=＂: Z▼DMS◢Goto 0 : IfEnd↙If D＞0 :Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢Goto 0 : IfEnd↙子程序1名： JDAIf O＜0 :Then -1→W : Else 1→W : IfEnd : WO→A ↙B2 ÷24÷R-B^(4)÷2688÷R ^(3) →Z[6] ↙C2 ÷24÷R-C^(4)÷2688÷R ^(3) →Z[7] ↙B÷2-B^(3)÷240÷R2 →Z[8] ↙C÷2-C^(3)÷240÷R2 →Z[9] ↙Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S↙Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T↙RAπ÷180+(B+C) ÷2→L↙RAπ÷180-(B+C) ÷2→Q↙(R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E↙K-S→Z[1] ↙↙Z[1]+B→Z[2] ↙↙Z[2]+Q÷2→Z[3]↙Z[1]+L-C→Z[4]↙Z[4]+C→Z[5]↙子程序2名： JDBX-Scos(M)→Z[19]:Y-Ssin(M)→Z[20]↙X+Tcos(N)→Z[21]:Y+Tsin(N)→Z[22]↙If P＞Z[1]:Then Goto 1 :IfEnd↙Z[1]-P→L↙X-(S+L)cos(M)+Dcos(Z+H)→F↙Y-(S+L)sin(M)+Dsin(Z+H)→G↙M→Z : Goto 5↙LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙P-Z[1]→L:L→Z[12]:B→Z[13]:Prog＂JDC＂↙Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+90WL2 ÷(BRπ)→Z↙Goto 5↙LbI 2 : If P＞Z[4]:Then Goto 3 :IfEnd↙P-Z[1]→L:90(2L-B)÷R÷π→Z[11]↙Rsin(Z[11])+Z[8]→Z[14]:R(1-cos(Z[11]))+Z[6]→Z[15]↙Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+WZ[11]→Z↙Goto 5↙LbI 3 : If P＞Z[5]:T hen Goto 4 :IfEnd↙Z[5]-P→L:L→Z[12]:C→Z[13]:Prog＂JDC＂↙Z[21]-Z[14]cos(N)-WZ[15]sin(N)+Dcos(Z+H)→F↙Z[22]-Z[14]sin(N)+WZ[15]cos(N)+Dsin(Z+H)→G↙N-90WL2 ÷(CRπ)→Z↙Goto 5↙LbI 4 : P-Z[5]→L↙X+(T+L)cos(N)+Dcos(Z+H)→F↙Y+(T+L)sin(N)+Dsin(Z+H)→G↙N→Z↙Goto 5↙Lb I 5 : 360Frac((Z+360)÷360)→Z↙子程序3名： JDCIf Z[12]=0 :Then 0→Z[14]: 0→Z[15]:Else↙Z[12]- Z[12]^(5)÷40÷(RZ[13])2+ Z[12]^(9)÷3456÷(RZ[13])^(4) →Z[14]↙Z[12]^(3)÷6÷(RZ[13])-Z[12]^(7)÷336÷(RZ[13])^(3)+ Z[12]^(11) ÷42240÷(RZ[13])^(5)→Z[15] ↙IfEnd↙程序说明：已知数据输入：XC ? 测站X坐标YC ? 测站Y坐标K（JD）?交点桩号X（JD）?交点X坐标Y（JD）?交点Y坐标LS1 ?第一缓和曲线长度LS2 ?第二缓和曲线长度R ? 圆曲线半径（ZH）FWJ°?交点前（即前交点至本交点也即ZH点）的正切线方位角α（Z-,Y+）?本交点处线路转角（左转为负，右转为正，度分秒输入）K×+×××? 待求桩号Z ?待求桩号距中距离（左负值，右正值，中为0）RJ ?斜交右角（线路切线前进方向与边桩右侧夹角）计算结果显示：T1=第一切线长T2=第二切线长L=曲线总长LY=圆曲线长E=曲线外距K(ZH)=直缓点桩号K(HY)=缓圆点桩号K(QZ)=曲中点桩号K(YH)=圆缓点桩号K(HZ)=缓直点桩号X= Y=待求点的坐标（其中：L-左 Z-中 R-右）QXFWJ(Z)=待求点的中桩切线方位角（当求中桩坐标时显示）二非对称线路坐标正反算通用程序(中边桩)GAUSSLE坐标正反算fx－5800程序源程序1.正算主程序Lbi 0：“G”？K：“Z=-1，Q=0，Y=1”？AIf A=-1:Then Prog “ZX”:Prog “GSZS”:IfEndIf A=1:Then Prog “YX”:Prog “GSZS”:IfEndIf A=0:Then Prog “QX”:Prog “GSZS”:IfEnd“X=”:X◢”Y=”:Y◢Goto 0说明：K 正算时所求点的里程A 选择线路，左幅=-1，右幅=1，整体式=0正算子程序 GSZS((P-R)÷(2(H-O)PR))→D：“JIAODU”?M:”JULI(-Z +Y)” ?L(Abs(K-O)) →J：Prog"SUB1"：(F-M) →FReturn2. 反算主程序 GSFSLbi 0：?X：?Y：X→Z[2]：Y→Z[3]：“QDXO”？I："QDY0"?S:"QDLC"?O:"QDFWJ "?G："ZDLC"?H："QDR"?P："ZDR"?R：”Q(Z=-1 ZX=0 Y=1)” ?Q:( (P-R)÷(2(H-O)PR)) →D:（Abs((Y-S)cos(G-90)－(X-I)sin(G-90)) ) →J：0→L：90→M:Lbl 1：Prog "SUB1"：((Z[3]-Y)cos(G-90+QJ(1÷P+JD)×180÷π)-(Z[2]-X)sin(G-90+QJ(1÷P +JD) ×180÷π)) →L：If:AbsL<10-6 Then Goto2：Else J+L→J：Goto 1:←┘Lbl 2：0→L：Prog "SUB1"：((Z[3]-Y)÷sinF)→L:”K=”: O+J→k◢”L=”:L→L◢Goto 03. 反算，正算子程序(SUB1)0.1184634425→A:0.2393143352→B: 0.2844444444→Z[4]:0.0469100770→C: 0.2307653449→E: 0.5→Z[1]:(I+J(Acos(G+QCJ(1÷P+CJD)×180÷π)+Bcos(G+QEJ(1÷P+EJD)×180÷π)+Z[ 4]cos(G+QZ[1]J(1÷P+Z[1]JD)×180÷π)+Bcos(G+Q(1-E)J(1÷P+(1-E)JD)×1 80÷π)+Acos(G+Q (1-C)J(1÷P+(1-C)JD) ×180÷π))) →X:(S+J(Asin(G+QCJ(1÷P+CJD)×180÷π)+Bsin(G+QEJ(1÷P+EJD)×180÷π)+Z[ 4]sin(G+QZ[1]J(1÷P+Z[1]JD)×180÷π)+Bsin(G+Q(1-E)J(1÷P+(1-E)JD)×1 80÷π)+Asin(G+Q (1-C)J(1÷P+(1-C)JD) ×180÷π))) →Y：(G+QJ(1÷P+JD) ×180÷π+M) →F：(X+LcosF)→X：(Y+LsinF) →Y4. 曲线元要素数据库：ZX/YX/QXIf K<(起点里程):Then Goto 2：IfEndIf K<（ ZDLC）: Then QDXO →I：QDY0→S:QDLC→O:QDFWJ →G：ZDLC→H：QDR→P：ZDR→R：Q(Z=-1 ZX=0 Y=1)→Q: Goto 3：IfEnd……….(注：如有多个曲线元要素继续添加入数据库ZX/YX/QX中)Lbl 2:”NO”Lbl 3:Return说明：一、程序功能及原理1.功能说明：本程序由两个主程序——正算主程序(GSZS)、反算主程序(GSFS)和两个子程——正算子程序(SUB1)、线元数据库(DAT-M)构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、终点里程、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

FX5800计算器公路全线坐标正、反算计算程序

5800计算器公路全线坐标正、反算计算程序FX5800全线贯通万能正、反算程序（一体化、超好用、短小、易懂）FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU主程序"1.ZS,2.FS" ?→Q←┘输入1正算，输入2反算“NEW=0,OLD≠0”?Z←┘IfZ=0:Then“X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto 2←┘Lbl1 :“KM=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?L←┘LblZ:Z=1=> Prog“01”：Z=2=> Prog“02”←┘选择数据库文件，可增加H- F→X:0.5(E-D)÷(G-F)→N←┘C+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→P←┘-A+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→U←┘B+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→V←┘Q=2=>Goto4：Cls：Fix 3←┘"Xn=":Locate4，1，U："Yn=": Locate5，2，V：“FWJ=”：PDMS◢Norm 2：Cls：Goto1←┘Lbl2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S←┘“KMDG=”？H ：90→O:0→L：GotoZ←┘（H线路范围内的任意桩号）Lbl4:Pol（R-U，S-V）：J<0 => J+360→J←┘Whileabs（Icos（J-P））≤0.001:P-J>180=> J+360→J： P-J<-180=> P+360→P:If P-J>0:then -I→L:else I→L :Ifend:Goto3: Whileend：H+Icos（J-P）→H:GotoZ←┘Lbl3:Cls：Fix 3←┘“KM=”: Locate4，1，H：“PY=”: Locate4，2，L◢Norm 2：Cls：Goto2←┘01（数据库子程序）If H<=第一曲线终点桩号：then第一曲线起点X→A：第一曲线起点Y→B：第一曲线起点方位角→C：起点曲率→D：终点曲率→E：起点桩号→F：终点桩号→G：return：ifend ……………程序说明：1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）任意桩号的坐标（正算，输入1），也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入2）；2、（NEW=0，OLD≠0）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、2、3…代替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素X0：曲线起点X坐标；Y0：曲线起点Y坐标；C0:曲线起点方位角；R0-1、 RI-1:曲线起点、终点曲率，直线为0，曲线左偏输入负值，右偏输入正值；SP、 EP：曲线起点桩号，终点桩号；KM：待求点桩号；PJ：正斜交的设定；PY：偏中距离，线路上的点输入0，右偏输入+值，左偏输入-值；3、正算显示坐标及切线方位角；反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏中距离；4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。

卡西欧5800交点法坐标计算程序

交点法坐标计算JDFZBJS第一种：单一交点法计算任意里程位的坐标。

程序如下:待求段的交点X坐标→V:待求段的交点Y坐标→W:前一段的交点X坐标→M:前一段的交点Y坐标→N:直缓点ZH的里程→Q:缓直点HZ的里程→Z:待求段圆曲线半径→R:待求段缓和曲线长度→U:待求段的切线长度→T:待求段转向方向（左转取-1，右转取+1）→P:待求段转向偏角→A:10→DimZ:Cls:“KM=”?L: 待求点里程“L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1“PJ=”?S: 待求点到线路设计中心的平距Lbl 0:Pol(V-M,W-N):J→Z[1]:Rec(T,Z[1]+180):V+I→Z[2]:W+J→Z[3]:Lbl 1:If L≤Q:Then Rec(Q-L,Z[1]+180):Else Goto 2:IfEnd:Z[2]+I→Z[4]:Z[3]+J→Z[5]:If K=1:Then Rec(S,Z[1]+90):Else Rec(S,Z[1]+270):IfEnd:Goto 6:Lbl 2:Abs(Q-L)→Z[6]:If U≥Z[6]:Then Pol(Z[6]-Z[6]ˆ(5)÷(40R2U2)+Z[6]^(9)÷(3456(RU)^(4)),Z[6]^(3)÷(6RU)-Z[6]^(7)÷(336(RU)^(3))+Z[6]^(11)÷(42240(RU)^(5))):Else Goto 3:IfEnd:J→Z[7]:Rec(I,Z[1]+Z[7]P):Z[2]+I→Z[4]:Z[3]+J→Z[5]:Z[1]+Z[7]P+60PZ[6]2÷(RUπ)+90→Z[10]:If K=1:Then Rec(S,Z[10]):Else Rec(S,Z[10]+180):IfEnd:Goto 6:Lbl 3:Abs(Q-L)→Z[6]:If L≤Z-U:Then Pol(Rsin(90(2Z[6]-U)÷(Rπ))+U-Rsin(90U÷(Rπ))-U^(3)÷(40R2),R-Rcos(90(2Z[6]-U)÷(Rπ))+U2÷(24R)):Else Goto 4:IfEnd:J→Z[7]:Rec(I,Z[1]+Z[7]P):Z[2]+I→Z[4]:Z[3]+J→Z[5]:Z[1]+90P(2Z[6]-U)÷(Rπ)+90→Z[10]:If K=1:Then Rec(S,Z[10]):Else Rec(S,Z[10]+180):IfEnd:Goto 6:Lbl 4:If L≥Z-U And L≤Z:Then Z[1]+AP→Z[1]:Else Goto 5:IfEnd:Rec(T,Z[1]):V+I→Z[2]:W+J→Z[3]:Z→Q:-P→P:-K→K:Z[1]+180→Z[1]:Goto 2:Lbl 5:If L≥Z:Then Z[1]+AP→Z[1]:IfEnd:Rec(T,Z[1]):V+I→Z[2]:W+J→Z[3]:Rec(L-Z,Z[1]):Z[2]+I→Z[4]:Z[3]+J→Z[5]:If K=1:Then Rec(S,Z[1]+90):Else Rec(S,Z[1]+270):IfEnd:Goto 6:Lbi 6:Z[4]+I→Z[8]:Z[5]+J→Z[9]:Cls:Fix 3:“Xp=”: 计算的X坐标“Yp=”: 计算的Y坐标Locate 7,1,Z[8]: X坐标显示在第一行Locate 7,2,Z[9]◢Y坐标显示在第二行Stop注解:在本程序中考虑了ZH点前和HZ点后的直线情况。

5800交点法正反算程序(成安渝)

L:tan((R+Z[1])÷(Z[3]-Z[2])→J:(R+Z[1])÷sin(J)-R→X←┚5800放样正反算程序+JS （放样模式主程序）“X C ”？Q ：“Y C ”？S:“1-ZS,2-FS,3-RS”←┚Lb1 0:“MS”？Z:Z =1=>Goto 1: Z =2=>Goto2: Z=3=>Goto5：Cls ←┚Lb1 1:“K”? P : P =0=>Goto 3:P=1=>Goto 4:Prog“SUB”: Prog“×P”: “L”?D: “ANG”? W: Prog“÷Z”: “X=”: X ◢ “Y=”: Y ◢Prog “FY”:“L=”: I◢“ANG=”:J► DMS ◢ Goto 1←┚Lb1 2 :“X”?X: “Y”?Y: 90->W:Prog“-F”:“K=”:P ◢“L”: D ◢ Goto2←┚Lb13:“L”? D :“ANG”? W: Prog“FY -1”:“X=”X ◢“Y=”Y ◢Goto 1←┚Lb1 4:“X”?X:“Y”?Y: Prog“FY”:“(CZ -SC)JL=”:I ◢“(CZ -SC)FWJ=”:J► DMS ◢ Goto 1←┚Lb1 5: Prog“×P”:“K”? P←┚P =0=>Goto 3←┚P=1=>Goto 4: “L”? D:“ANG”? W: Prog“÷Z”:“X=”: X ◢“Y=”: Y ◢Prog “FY”←┚“L=”: I◢ “ANG=”: J► DMS ◢Goto 5←┚×P(数据输入子程序)6→DimZIf Z=3:Then Goto7:Else Goto 8:IfEnd←┚LbI 7←┚“JDZH”? A:“JDX”? B :“JDY”? C:“FWJ”? F :“A0:-Z ，+Y”? O:“R”?R:“LS1”? E: “LS2”? K←┚LbI 8←┚E<1=>E=1×10^（-9）←┚K<1=>K=1×10^（-9）←┚EE÷(24R)-(EEEE)÷(2688RRR)→Z[1]:KK÷(24R)-(KKKK)÷(2688RRR)→Z[5]:E ÷2-(EEE)÷240÷(RR)→Z[2]:K÷2-(KKK)÷240÷(RR)→Z[6]:（R+Z[1]）×tan(Abs(O ÷2))+(Z[5]- Z[1])÷sin(Abs O ))+Z[2]→Z[3]:(R+ Z[5]) tan(Abs(O ÷2))+(Z[1]- Z[5])÷sin(Abs(O ))+ Z[6]→Z[4]:Abs(O )πR÷180+(E+K)÷2→-1÷Z （平曲线正算子程序）LbI 1：F→J:B -Z[3]cos(F) →X:C -Z[3]sin(F)→Y:E→G←┚If P≤A -Z[3]:Then A-Z[3]-P→I:-I→M:0零→N:F+W→H:Goto5←┚Else If P≤A -Z[3]+E:Then P-A+Z[3]→I:90II÷(RπE)→H←┚If O <0:Then-H→H:IfEnd:H+W+F→H:Goto3←┚Else If P≤A -Z[3]+L-K:Then P-A+Z[3]-E→I:Goto 4:Else Goto 2:IfEnd←┚ LbI 2:B+ Z[4]cos(F+O )→X:C+Z[4]sin(F+O )→Y:F+O +180→J:K→G←┚ If P≤A -Z[3]+L: Then A-Z[3]+L-P→I:90(II)÷(REπ)→H←┚If O >0:Then -H→H:IfEnd:H+J+W+180→H:Goto3:Else P -A+Z[3]-L→I:-I→M: 0→N:J+W+180→H:Goto5:IfEnd←┚LbI 3:I-I^(5) ÷ 40 ÷ (RG)^(2)+I^(9) ÷ 3456 ÷ (RG)^(4) → M:I^(3) ÷ 6 ÷(GR)-I^(7)÷336÷(RG)^(3)+I^(11)÷42240÷(RG)^(5)→N:Goto 5←┚LbI 4:(E+2I)×90÷(πR)→H:Rsin(H)+Z[2]→M:R(1-cos(H))+Z[1]→N:If O<0:Then -H→H:IfEnd:J+H+W→H:Goto 5←┚LbI 5:If P≥A-Z[3]+L-K And O>0:Then -N→N:Goto 6←┚Else If P≤A-Z[3]+L-K And O<0:Then -N→N:Goto 6:IfEnd←┚LbI 6:X+Mcos(J)-Nsin(J)+Dcos(H)→X:Y+Msin(J)+Ncos(J)+Dsin(H)→Y←┚-F（平曲线反算子程序）X→U:Y→V:0→D:F-W→J:A+(Y-C)cos(J)-(X-B)sin(J)→P←┚LbI 1:Prog“SUB”: Prog“×P”:Prog“÷Z”:H-180→J:(V-Y)cos(J)-(U-X)sin(J)→I←┚If Abs(I)<1×10-4:Then Goto2:Else P+I→P:Goto 1:IfEnd←┚LbI 2:(V-Y)÷sin(H)→D←┚FY(放样计算子程序)Pol(X-Q,Y-S: J<0=>J=J+360FY-1(放样计算子程序)Q+Rec(D,W→X: S+J→YSUB(数据库)If P≥起点或下一交点直缓点** And P≤下一交点直缓点**:Then **→A:**→B:**→C:**→F:**→O:**→R:**→E:**→K:IfEnd←┚（格式）以下红色数据为直曲线表内数据。

卡西欧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。