fx5800P程序(曲线任意里程中边距坐标正反算及高程)
FX5800P线路正反算测量程序
M+ZCos(A+SI)-JSin(A+SI)→X
N+ZSin(A+SI)+JCos(A+SI)→Y
A+SI→Q：Goto 1：IfEnd
Lbl 1：Return
程序：ZBFS显示计算坐标和放样数据
√ˉ((X-O)2+(Y-P)2) →G
Cos-1((X-O)÷G) →Z：Y<P=>360-Z→Z
Cls：Return
程序：I缓和曲线局部坐标计算
Z-Z^(5)÷(40R2L2)→G
Z^(3)÷(6RL)-Z^(7)÷(336R^(3)L^(3))→Y
90Z2÷(πRL)→Q：Return
H→L：90(2Z-L)÷(πR)→Q
RSin(Q)+L÷2-L^(3)÷(240R2)→G
R(1-Cos(Q))+L2÷(24R)→Y
E+GCos(A)-SYSin(A)-JSin(A+SQ)→X
F+GSin(A)+SYCos(A)+JCos(A+SQ)→Y
A+SQ→Q：Goto 1：IfEnd
If Z≤πRI÷180+0.5(H-C)+C：Then
“END FSSTART”
程序：QXYS赋值曲线要素
D=1=> Prog“QXLWY”
D=2=> Prog“QX……”
……
Return
程序：QXLWY赋值曲线要素
If K≤缓直点里程：Then
直缓点X坐标→E：直缓点Y坐标→F
直缓点到圆缓点长度→D
fx5800P程序(曲线任意里程中边距坐标正反算及高程)
fx5800P程序（曲线任意里程中边距坐标正反算及高程）TYQXJS(主程序）LbI 6:"1.SZ→XY"↙"2.XY→SZ"?S:?N:Prog"SUB0"↙1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:N=1=＞Goto1:Goto2↙LbI 1:?Z:Abs(S-O)→W↙<LbI1:?K:K-2.35→Z:Abs(S-O)→W↙> Prog"SUB1"↙(红字换成后面的就是以中线）"XS=":X◢↙"YS=":Y◢↙"FS=":F-90▶DMS◢↙Goto 6↙LbI 2:?X:?Y↙X→I:Y→J↙Prog"SUB2":O+W→S:Cls↙"S=":S→S◢↙"Z=":Z◢↙<"Z=":Z-2.35◢↙>(上述中红色均可以换成<...>里的，计算出来的偏距为中线准）(顶点高程)→A:(上导高程）→B:（中导高程）→K:：（下导高程）→T:（仰拱低高程）→L↙(本程序现为3台阶7部法施工设计的，如有不同情做适当修改;同时,上述各高程必须与下面计算的S相对应，就是必须是同一里程的数据）"AH=":A+(<标点里程﹥-S）×1.08％◢↙"BH=":B+(<标点里程﹥-S）×1.08％◢↙"CH=":K+(<标点里程﹥-S）×1.08％◢↙"DH=":T+(<标点里程﹥-S）×1.08％◢↙"EH=":L+(<标点里程﹥-S）×1.08％◢↙"Z=":Z◢↙Goto 6↙SUB1（子程序）0.1739274226→A:0.3260725774→B↙0.0694318442→K:0.330009482→L↙1-L→F:1-K→M↙G+QEKW(C+KWD)→Z[1]↙G+QELW(C+L WD)→Z[2]↙G+QEFW(C+FWD)→Z[3]↙G+QEMW(C+MWD)→Z[4]↙A×cos(Z[1]﹚→X↙X×Bcos(Z[2]﹚→X↙X×Bcos(Z[3]﹚→X↙X×Acos(Z[4]﹚→X↙U+WX→Y↙Asin(Z[1])→Y↙Y+Bsin(Z[2])→Y↙Y+Bsin(Z[3])→Y↙Y+Asin(Z[4])→Y↙V+WY→Y↙G+QEW(C+WD)+90→F↙X+Zcos(F)→X↙Y+Zsin(F)→Y↙SUB2（子程序）G-90→T↙(Y-V)cos(T)-(X-U)sin(T)→W↙Abs(W)→W:0→Z↙LbI 6:Prog"SUB1"↙T+QEW(C+WD)→L↙(J-Y)cos(L)-(I-X)sin(L)→Z↙If Abs(Z)﹤0.000001:Then 0→Z:Prog"SUB1"↙(J-Y)÷sin(F)→Z↙Else W+Z→W:Goto 0:IfEnd↙SUB 0LbI 1:If S＜(元线终点里程）：Then(元线起点里程）→O:（元线起点X 坐标）→U:（元线起点Y坐标）→V:(元线起点计算方位角）→G:(元线起点半径）→P:(元线终点半径）→R:(元线长度）→H:(元线偏向标志-为左+为右）→Q:Return:IfEnd↙.............................................(可无限重复，有多少段就可以输入多少段得要素）注意：显示S代表里程，Z代表偏距，N代表选择（1）正算或（2）反算，X.Y为坐标。
5800P公路路线坐标正反算及高程计算程序
公路路线座标正反算及高程计算程序Fx-5800计算机程序1.FYJS 主程序Fix 3: “1.SZ=>NE:2.NE=>SZ:3.S=>H”:?Q:Q=1 => Goto1:Q=2 => Goto2: Q=3 => Goto3←┘Lbl 1: ＂K＂?S: ＂-B,0,+B＂?Z: “PJ”?M:Prog“5.DAT-SJK”:Prog“2.SUB1”: N+Zcos (F+M) →N:E+Zsin(F+M) →E←┘Prog“4.FY”：Goto 1←┘Lbl 2: “X”?B: “Y”?C:＂K＂?S: Pro g“3.SUB2”: “K=”:S◢“-B,0,+B=”:Z◢Goto 2←┘Lbl 3: ＂K＂?S ：Prog“5.1GCJSCX”: Goto 3＂K＂?S: 所计算点桩号＂-B,0,+B＂?Z: 计算点左右边距左- 右+ 中0“PJ”?M 所计算点斜距的右夹角“X”?B: 反算实测X坐标“Y”?C:反算实测Y坐标＂K＂?S: 反算点附近大概桩号2.SUB1 正算子程序0.5（1÷R-1÷P）÷L→D:S-O(字母 )→X←┘U+∫(cos(A+(X÷P+DX^(2))×180÷π,0,X)→N←┘V+∫(sin(A+(X÷P+DX^(2))×180÷π,0,X)→E←┘A+(X÷P+DX^(2))×180÷π→F←┘3.SUB2 反算子程序Lbl 1:0→Z：1→Q：Prog“5.DAT-SJK”: Prog“2.SUB1” :Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S:Abs(W)>0.0001 => Goto1←┘Lbl 2: 0→Z：Prog“2.SUB1”:(C-E) ÷sin(F+90) →Z4.FY 放样子程序"HS:X"?N:"HS:Y"?E :"CE:X"?G:"CE:Y"?H:Pol(N-G,E-H): J<0=>J+360→J: " FWJ=": J►DMS◢"JL=": I◢"HS:X"?N: 后视点（计算点）X坐标"HS:Y"?E : 后视点（计算点）Y坐标"CE:X"?G: 测站点X坐标"CE:Y"?H: 测站点Y坐标5.1高程计算子程序（5.1GCJSCX）Prog“ 6.SQX-DAT”:Z[6] Abs(Z[2]- Z[1]) ÷2→Z[3]:if Z[2]- Z[1]>θ :Then 1→Z[4]:Else -1→Z[4]:ifendif S<K:Then - Z[1]→T:Else Z[2]→T:ifendAbs (K-S)→Z[5]if Z[5]- Z[3]>θ:Then Z[7]+T Z[5]→Z[8]:“HS=”：Z[8]◢Else Z[7]+T Z[5]+ Z[4] (Z[3]- Z[5])2÷2÷Z[6]→Z[8]: “HS=”：Z[8]◢ifend5.DAT-SJK 数据库子程序Goto1←┘同时保存多个曲线时的指针Lbl 1←┘IF S<476533.296（线元终点里程）:Then31°24'29.07″→A（线元起点方位角）:476088→O（线元起点里程）:4689534.997→U（线元起点X）:479874.003→V（线元起点Y）:1045→P（线元起点曲率半径）:1045→R（线元终点曲率半径）:445.296→L（线元起点至终点长度）: R eturn:IfEnd←┘IF S<476803.296:Then31°45'48.37″→A:476533.296→O:4689913.601→U:480108.413→V:1045→P:12000→R: 270→L: Return:IfEnd←┘IF S<477106.771:Then32°24'28.85→A:476803.296→O:4690142.627→U:480251.404→V:12000→P:12000→R: 303.475→L: Return:IfEnd←┘IF S<477376.771:Then33°51'25.2″→A:477106.771→O:4690396.754→U:480417.272→V:12000→P:1045→R: 270→L: Return:IfEnd←┘IF S<488923.776:Then34°30'05.68→A:477376.771→O:4690619.834→U:480569.372→V:1045→P:1045→R: 11547.005→L: Return:IfEnd←┘IF S<489353.776:Then34°30'05.68″→A:488923.776→O:4700135.844→U:487109.930→V:1045→P:-10000→R:430→L: Return:IfEnd←┘IF S<490817.499:Then33°16'10.99″→A:489353.776→O:4700491.941→U:487350.944→V:-1000 0→P:-10000→R: 1463.723→L: Return:IfEnd←┘IF S<491247.499:Then24°52'59.52″→A:490817.499→O:4701770.051→U:488061.643→V:-1000 0→P:-1045→R: 430→L: Return:IfEnd←┘IF S<509336.037:Then23°39'04.83″→A:491247.499→O:4702162.678→U:488236.961→V:-1045→P:-1045→R: 18088.538→L: Return:IfEnd←┘程序名：(6.SQX-DAT)(高程竖曲线要素子程序)if S<332.599:Then 0.02793→Z[1]:-0.03309→Z[2]:1800→Z[6]:235→K:32.7→Z[7]: goto 1:ifendif S <734.085:Then -0.03309→Z[1]:-0.00485→Z[2]:6000→Z[6]:460→K:25.254→Z[7]: goto 1:ifend-- Lbl 1Z[1]—前坡: Z[2]—后坡: Z[6]—竖曲线半径 K—变坡点桩号: Z[7]—变坡点设计高三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当曲线半径在左时，P、R取负值，当曲线半径在右时，P、R取正值，当曲线半径为无穷大（即直线）时，P、R以10的45次代替。
任意曲线里程中边桩坐标正反算fx5800计算器程序
任意曲线里程中边桩坐标正反算（fx5800计算器）程序一、程序功能本程序由一个主程序（TYQXJS）和3个子程序―――（正算子程序SUB1）、反算子程序（SUB2）构成，可以根据曲线段—直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算,另外也可以将本程序中核心算法部分的两个子程序移植到其他相关的程序中,用于对曲线任意里程中边桩坐标进行正反算.1.主程序(TYQXJS)（5800P正交程序）〝1.SZ=＞XY〞:〝2.XY=＞SZ〞: 〝1，2〞？N:〝K0〞?O: 〝X0〞?U: 〝Y0〞?V: 〝FWJ〞?G: 〝Ls〞?H: 〝+1,-1,0〞?Q:If Q=0:Then 10 ^45->P: 10 ^45->R:Else〝R1〞?P: 〝R2〞?R:IfEnd: 180÷π→E: N=1=＞Goto 1：Goto2↙Lbl 1:〝JS LCH〞?S: 〝P-J〞?Z :Abs(S-O)→W:1÷P→C: (P-R)÷(2HPR)→D:Prog〝SUB1〞:〝XS〞:X◢〝YS〞: Y◢〝FS〞:F-90→F:F ▲DMS ◢Goto1↙Lbl 2: 〝X〞?X:〝Y〞?Y:X→I: Y→J:1÷P→C:(P-R)÷(2HPR)→D:Prog〝SUB2〞:〝S〞:O+W→S◢〝Z〞:Z◢Goto2↙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)))→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↙Lbl 0:Prog〝SUB1〞: T+QEW(C+WD)→L: (J-Y)cos（L）-(I-X)sin（L）→Z↙Abs(Z)﹤10∧（-6）=＞Goto 1: W+Z→W : Goto 0↙Lbl 1: 0→Z:Prog〝SUB1〞: (J-Y)÷sin（F）→Z备注：起点里程→o：起点X坐标→U：起点Ｙ坐标→V：起点方位角→G：曲线元长度→Ｈ：起点半径→Ｐ：终点半径→Ｒ:（右偏+1,左偏-1,直线0）→Q三.使用说明1.(输入、输出角度为度、分、秒形式)(1)以道路中线的前进方向(即里程增大的方向)区分左右;当线元左偏时,Q=-1, 当线元右偏时,Q=1;当线元为直线时,Q=0.(2)当所求点位于中线时,Z=0, 当所求点位于中线左侧时,Z取负值, 当所求点位于中线右侧时,Z取正值.(3)当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次方代替。
FX5800P全线任意里程中边桩坐标正反算 曲线任意里程中边桩坐标正反算
本程序非本人原创，结合上传者长处，进行改编，愿收获和大家共享，不足之处多多指教。
希望过路神仙把竖曲线加进去带算隧道超欠挖，谢谢曲線任意里程中邊樁坐標正反算5800p本程序由内蒙@文哥和师父阿玖哥共同改编完成主程序 ZBJSLbl 6："1.SZ→ XY"："2.XY→ SZ"：？S：？N：Prog“SUB0”1÷P→C：(P-R)÷(2HPR) →D：180÷π→E:N=1 =>Goto 1: Goto 2Lbl 1:?Z: Abs(S-O)→W: Prog"SUB1":"XS=":X◢"YS=":Y◢"FS=":F-90 ►DMS◢“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：Then “J=” ：J►DMS◢IfEnd：Goto 6Lbl 2?X:?Y:X→I:Y→J:Prog"SUB2":O+W→S:Cls:"S=":S◢"Z=":Z◢Goto 6正算子程序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))+Bc os(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X：V+W(Asin(G+QEKW(C+KWD))+Bsi n(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QE MW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y反算子程序 SUB2G-90→T(Y-V)cosT-(X-U)sin(T) →WAbs(W)→W:0→ZLbl6：Prog "SUB1"T+QEW(C+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→ZIF Abs（Z）<1E-6：Then0→Z:Prog "SUB1":(J-Y)÷sin（F）→Z:Else W+Z→W：G oto6:IfEnd数据库子程序SUB0Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。
FX5800P测量程序
CASIO fx[/B]—5800计算器工程测量与公路测量程序[/B](1)[/B]小写o为大写字母“O”，与零区分。
[/B][/B](2)[/B]程序中没有空格符号。
[/B]1[/B]、坐标正算[/B]〝X0=〞?X：〝Y0=〞?Y：〝I=〞?I：〝J=〞?J X+ICos(J)→U：Y+ISin(J)→V〝X=〞：U◢〝Y=〞：V◢说明：X0 Y0：已知点坐标，I：两点的距离，J：方位角[/B]２、坐标反算[/B]Lbl 0-〝X1=〞?X：〝Y1=〞?Y：〝X2=〞?U：〝Y2=〞?VPol(U-X，V-Y)：J<0J+360→J〝I=〞：I◢〝J=〞：JDMS◢Goto 0-说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角[/B]３、圆曲线[/B]〝X0=〞?X：〝Y0=〞?Y：〝FWJ=〞?D：〝QDHAO=〞?G：〝ZDHAO=〞?C：〝R=〞?RLbl 1-〝DQHAO=〞?LL<G Or L﹥CGoto 2〝PY=〞?K180(L-G)÷(πR)→E2Rsin(0.5E)→FRec(Abs(F)，D+0.5E)〝X=〞：X+I+Kcos(D+E+90)→A◢〝Y=〞：Y+J+Ksin(D+E+90)→B◢D+E→o：o<0360+o→o〝FWJ=〞：oDMS◢Goto 1-Lbl 2-〝END〞说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程[/B]，R：半径，DQHAO：待求点里程，PY：偏移量[/B]Abs：绝对值function按键在按1 在按“下”第一个就是abs Cls 编程状态下按FUNCTION，按3，按两次下翻键，按5就可以了小写子母：编程状态下按FUNCTION，下翻按1，就可以输入小写子母和下标字符４、竖曲线[/B]〝QZHAO =〞?J：〝HB〞=?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〞：S◢J-T→XJ＋T→YLbl 0-〝DQ=〞?LIf L<X：Then Goto1：Else If L﹥Y：Then Goto1：If End：If End〝GC=〞：B+C(L-J)÷100+（A(L-J+T)）²平方÷(2R)→H◢）Goto 0-Lbl 1-〝END〞说明：QZHAO：竖曲线中点里程，HB：交点高程（不是交点路面高），I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。
线元法曲线任意里程中边桩坐标正反算(CASIO_fx-5800P计算器)程序(附带高程)
线元法曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序（附带高程）一、功能及原理说明1. 功能说明：本程序由一个主程序(1-MAIN)和七个子程序——正算子程序(1-SUB-ZS)、反算子程序(1-SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。
本程序在CASIO FX-5800P计算器运行。
2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<=0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出反算结果。
3. 程序输入计算器后，请根据统计串列List X，Y，freq[N]在程序中实际可能被使用的维数，将其统计矩阵串列改为包含相应维数的任意数据的矩阵，即在list列表中随机输入相应维数的数据，保证矩阵大小符合维数要求。
4. 本程序正算速度在1-2秒左右，反算比正算慢点，可根据需要调整精度加快速度。
本程序可建立曲线要素数据库及高程变坡点数据库，一次输入整条线路数据，计算时自动调用数据库，实现全线贯通，也可临时手动输入线元计算要素进行计算。
5. 本程序由小骆在前人的基础上改进而成，经个人测试可用。
学识浅薄，不足之处，在所难免，欢迎提出改进意见。
二、源程序1.主程序(1-MAIN)Deg:fix 320→DimZLbl 0:cls：“INPUT(0),ZX(1),YX(2)”?I (选择手动输入计算参数0，还是调用线路数据1,2）If I=0:Then Prog “1-DAT1”:IfEnd“SZ=>XY(1),XY=>SZ(2)”?N（正算，反算）If N=1 :Then Goto 1Else If N=2 :Then Goto 2Else Goto 3IfEnd:IfEndLbl 1:“KP=”?S（输入待求桩号）If S<0:Then Goto 0:IfEnd“JL(m)=”?Z （输入偏距）If Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd （输入斜交右角）If I≠0:Then Prog “1-DAT2”:IfEndS-O→W:If W<0:Then Goto 0:Else If W>H:Then cls:locate 6,2,"KP OUT"◢Goto 0:IfEnd:IfEnd(前半条针对“DAT”情况，后半条针对“INPUT”情况。
5800P编程计算器坐标正反算程序
5800P编程计算器坐标正反算程序一，主程序文件名（TYQXJS）LbI 4:“1.SZ=> XY’’:’’2.XY=>SZ’’︰?N:?S:Prog“SUB0”1÷P→C：(P－R) ÷(2HPR) →D：180÷π→E：N=1=> Goto1:Goto2LbI 1: ？Z:Abs(s－O)→W︰Prog“SUB1”︰“XS=”:X◀“YS=”:Y◀F－90→F:”FS=”:F▶DMS◀Goto 4LbI 2:?X:?Y:X→I:Y→J:Prog”SUB2”:O＋W→S﹕“S=”S◀“Z=”：Z◀Goto 4二:子程序（文件名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＋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＋QEMW(C＋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)Cos(T)－(X－U)Sin(T)→W:0→Z:LbI 0:Prog“SUB1”:T＋QEW(C＋WD)→L:(J－Y)cos(L)－(I－X)sin(L)→Z:IfAbs(Z)＜0.000001:ThenGoto1:Else W＋Z→W:Goto0LbI 1:0→Z:Prog“SUB1”:(J－Y)÷sin(F)→Z:四:数据库(文件名)LbI 1:If S＜止点里程:Then起点方位角→G:起点里程→O:起点X坐标→X:起点Y坐标→Y:起点半径→P:止点半径→R:曲线长→H:左转(-1)右转(1)直线(0)→Q:Return:IfEnd数据库说明:每增加一段曲线就增加以上一句上面的语句，当半径为无穷大时以10的45次方代替，左转输入负1，右转输入正1五:程序输入及显示说明1:输入部分1，SZ=>XY2，XY=>SZN? 选择计算方式输入1表示由里程边距计算坐标(正算)输入2表示由坐标计算里程及边距(反算)S? 正算时输入所求点的里程，反算时为所求点的近似里程(注意反算时的近似里程不能跨曲线，如果跨曲线需要进行两次反算，并以第一的里程结果作为近似里程，否则，反算的里程及边距不对。
(坐标正反算5800[数据库版]
曲线任意里程中边桩坐标正反算及高程、隧道断面超欠挖程序(CASIO fx-5800P计算器)程序(加数据库版)1.正算主程序[KP-XY]"DK="?K:"PJ="?P:Prog"SJK""XS=":X+P cos(Z[4]+90)→X◢"YS=":Y+P sin(Z[4]+90)→Y◢"QX-FWJ=":Z[4]►DMS◢Prog"SQX":O→I:O→J:"XC="?A:"YC="?B:Pol(X-A,Y-B)J<0＝＞360+J→J"FWJ=":J►DMS◢"P=":I◢2.反算主程序[XY-KP]"DK="?K:"X:"?U:"Y:"?VLbl 0Prog"SJK":O→I:O→J:Pol(U-X,V-Y):J<0＝＞J+360→JIcos(J-Z[4])→Z[5]If Abs(Z[5])≥0.001:Then K+Z[5]→K:Goto 0Else Isin(J-Z[4])→P:Ifend"DK=":K◢"PJ=":P◢Prog"SQX"Return3.隧道超欠挖主程序[CQW]Prog"XY-KP"："Q="?QIf Q≥H+6.471:Then "X=":Abs(P）-√(4.26²-(Q-H-4.34)²)→X◢"Y=":Abs(Q-H-4.34)-√(4.26²-P²)→Y◢Eles If Q≥H+2.17:Then "X=":Abs（P）-(√(7.41²-(H+2.77-Q)²)-2.73）→X◢Eles If Q≥H-0.415：Then "X=":Abs（P）-(4.65-(H+2.17-Q)×0.22÷2.58)→X◢"Y=":H-0.42-Q→Y◢Eles If Q≥H-3.2：Then "Y(YG)=":(H+5.2-Q)-√(7.1²-P²)→Y◢IfEnd:IfEnd:IfEnd:IfEnd4.综合洞超欠挖主程序（ZHD)Prog"XY-KP":K-302480→D:"Q="?QIf Q≥H＋4.8:Then "X=":Abs(D)-√(2.5²-(Q-H-4.8)²)→X◢"Y=":Abs(Q-H-4.8)-√(2.5²-D²)→Y◢Else If Q≥H:Then "X=":2.5-Abs(D)→X◢"Y=":H-Q→Y◢说明：302480综合洞里程，2.5半径，4.8总高度5.竖曲线主程序[SQX]0.003(6.984/1000)→I:0.006(-6.4/1000)→J:20000(15000)→R:301420(42350)→L:R Abs(I-J)÷2→Z[2]:RAbs(I-J)÷(I-J)→RIf K≤L-Z[2]:Then 0→Z:Else If K≥L+Z[2]:Then 0→Z:J→I:Else K-L+Z[2]→Z IfEnd:IfEnd"H=":200.621(164.958 )-I(L-K)-Z²÷2÷R→H◢说明：0.003前坡坡度，0.006后坡坡度，20000竖曲线半径，301420竖曲线交点里程，200.621竖曲线交点高程（有竖曲线使用考虑后的高程）0.003→I:0.006→J:0→R:301420→L:RAbs(I-J)÷2→Z[2]:RAbs(I-J)÷(I-J)→RIf K≤L-Z[2]:Then 0→Z:Else If K≥L+Z[2]:Then 0→Z:J→I:Else K-L+T→Z: IfEnd:IfEnd"H=":200.621-I(L-K)→H◢未有竖曲线6.数据库程序[SJK]4500（4500）→R:340（120）→G:157°25′52.55″（220.350722°）→Z:300412.156（43227.29）→F:-23°37′53.48″（6.23477）→O1→Z[1]: 0<0＝＞-1→Z[1]K-F→SIf S≤0:Then S→I:Z+180→J:Z→Z[4]:2953202.491（3678.283）+Icos(J)→X:497703.0998（1696.445）+Isin(J)→Y:Else If S≤G:Then 30Z[1]S²÷(πRG)→W:√((S-S^5÷(40R²G²))²+(S^3÷(6RG))²)→I:Z+W→J:Z+3W→Z[4]:2953202.491（3678.283）+Icos(J)→X:497703.0998（1696.445）+Isin(J)→Y:Else If S≤2196.015（622.3879）-G:Then S-G→S:90Z[1]S÷(πR)→W:2Rsin(Abs(W))→I:Z+90Z[1]G÷π÷R+W→J:J+W→Z[4]:2952890.216（3587.499）+Icos(J)→X:497837.5235（1617.971）+Isin(J)→Y:Else If S≤2196.015:Then 2196.015-S→S:30Z[1]S²÷(πRG)→W:√((S-S^5÷(40R²G²))²+(S^3÷(6RG))²)→I:Z+0+180-W→J:Z+0-3W→Z[4]:2951406.6187（3229.258）+Icos(J)→X:498932.0473（1266.092）+Isin(J)→Y:Else If S＞2196.015:Then S-2196.015→I:Z+O→Z[4]:2951406.6187（3229.258）+Icos(Z[4])→X:498932.0473（1266.092）+Isin(Z[4])→Y:IfEnd:IfEnd:IfEnd:IfEnd:IfEndReturn说明：4500→R曲线半径，340→G缓和曲线长度，157°25′52.55″→Z线路方位角，-23°37′53.48″→O转向角（沿线路方向左负右正），300412.156→F直缓点里程（ZH），2953202.491，497703.0998沿线路方向直缓点坐标（ZH），2196.015曲线长度，2952890.216，497837.5235沿线路方向缓圆点坐标（HY），2951406.6187，498932.0473沿线路方向缓直点坐标（HZ）。
fx5800P测量公式及程序汇总
卡西欧5800P 测量程序汇总CASIO fx5800P公路施工放线测量公式及程序一、已知座标，求平距和方位角(座标反算)：公式：D=√（Xp-Xo）2+（Yp-Yo）2 α=arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M：（Y-B）→N：“D=”：√（M2+N2）⊿ tan-1(N/M) →C:If M＜0:Then “Q=”：180+C →Q ⊿ Else If N＞0: Then “Q=”：C→Q ⊿ Else “Q=”：360+C→Q ⊿ If End : If End : Goto 0 说明：（A，B）为测站点坐标，（X，Y）为所求点坐标。
输出：D为平距，Q为方位角。
二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：X =Xo+LcosQ Y=Yo+LsinQ程序：“A”？→A：“B”？→B：“Q”？→Q：“Z”？→Z：Lbl 1: “P”?→P：“J”？→J：“M”？→M：Abs（M-Z）→W：“X=”：A+W*cos(Q)+P cos(Q+J)→X ⊿“Y=”：B+W*sin(Q)+P sin(Q+J) →Y ⊿Goto 1 说明：（C，D）为直线起点坐标，Q为直线方位角，Z为起点桩号，L为所求坐标点桩号。
“U”为左边距，“T”为右边距，“V”为偏角；U=0时不算边桩坐标。
输出：（X，Y）为中桩坐标，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。
三、已知圆曲线起点坐标（U，V），切线方位角Q，桩号Z和圆半径R，求圆曲线上桩号为 L的点中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：ψ=90L/(лR) (偏角公式） C=2Rsin ψ (对应弧的弦长公式）弦的方位角:Q=Qo±ψ（曲线左转时为“-”）程序：“U”？→U：“V”？→V：“Q”？→Q：“R”？→R：“Z”？→Z：“W=-1，1”：？→W：“ZJ=”：？→Z[1]：“YJ=”：？→Z[2]：“PIAN JIAO”：？→T：Lbl 2: “M”？→M：180*（M-Z）/（2π*R）→J：R*2sin(J)→K:If W=-1:Then“X=”:U+K*cos (Q-J）→X⊿ “Y=”：V+K*sin(Q-J)→Y ⊿“Q=”：Q-180*（M-Z）/（πR）→O⊿ Else If W=1:Then“X=”:U+K*cos(Q+J）→X⊿“Y=”：V+K*sin(Q+J)→Y ⊿ “Q=”：Q+180*（M-Z）/（πR）→O⊿ IfEnd:IfEnd:T=0=＞Goto 2：“XL=”:X+Z[1]*cos(O-T)→F⊿“YL=”：Y+Z[1]*sin(O-T)→P⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]*sin(O+T) ⊿ Goto 2 说明：W=-1时曲线左转, W=1时曲线右转。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
fx5800P程序（曲线任意里程中边距坐标正反算及高程）TYQXJS(主程序）
LbI 6:"1.SZ→XY"↙
"2.XY→SZ"?S:?N:Prog"SUB0"↙
1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:N=1=＞Goto1:Goto2↙LbI 1:?Z:Abs(S-O)→W↙<LbI1:?K:K-2.35→Z:Abs(S-O)→W↙> Prog"SUB1"↙(红字换成后面的就是以中线）
"XS=":X◢↙
"YS=":Y◢↙
"FS=":F-90▶DMS◢↙
Goto 6↙
LbI 2:?X:?Y↙
X→I:Y→J↙
Prog"SUB2":O+W→S:Cls↙
"S=":S→S◢↙
"Z=":Z◢↙<"Z=":Z-2.35◢↙>(上述中红色均可以换成<...>里的，计算出来的偏距为中线准）
(顶点高程)→A:(上导高程）→B:（中导高程）→K:：（下导高程）→T:（仰拱低高程）→L↙(本程序现为3台阶7部法施工设计的，如有不同情做适当修改;同时,上述各高程必须与下面计算的S相对应，就是必须是同一里程的数据）
"AH=":A+(<标点里程﹥-S）×1.08％◢↙
"BH=":B+(<标点里程﹥-S）×1.08％◢↙"CH=":K+(<标点里程﹥-S）×1.08％◢↙"DH=":T+(<标点里程﹥-S）×1.08％◢↙"EH=":L+(<标点里程﹥-S）×1.08％◢↙"Z=":Z◢↙
Goto 6↙
SUB1（子程序）
0.1739274226→A:0.3260725774→B↙
0.0694318442→K:0.330009482→L↙
1-L→F:1-K→M↙
G+QEKW(C+KWD)→Z[1]↙
G+QELW(C+L WD)→Z[2]↙
G+QEFW(C+FWD)→Z[3]↙
G+QEMW(C+MWD)→Z[4]↙
A×cos(Z[1]﹚→X↙
X×Bcos(Z[2]﹚→X↙
X×Bcos(Z[3]﹚→X↙
X×Acos(Z[4]﹚→X↙
U+WX→Y↙
Asin(Z[1])→Y↙
Y+Bsin(Z[2])→Y↙
Y+Bsin(Z[3])→Y↙
Y+Asin(Z[4])→Y↙
V+WY→Y↙
G+QEW(C+WD)+90→F↙
X+Zcos(F)→X↙
Y+Zsin(F)→Y↙
SUB2（子程序）
G-90→T↙
(Y-V)cos(T)-(X-U)sin(T)→W↙
Abs(W)→W:0→Z↙
LbI 6:Prog"SUB1"↙
T+QEW(C+WD)→L↙
(J-Y)cos(L)-(I-X)sin(L)→Z↙
If Abs(Z)﹤0.000001:Then 0→Z:Prog"SUB1"↙
(J-Y)÷sin(F)→Z↙
Else W+Z→W:Goto 0:IfEnd↙
SUB 0
LbI 1:If S＜(元线终点里程）：Then(元线起点里程）→O:（元线起点X 坐标）→U:（元线起点Y坐标）→V:(元线起点计算方位角）→G:(元线起点半径）→P:(元线终点半径）→R:(元线长度）→H:(元线偏向标志-为左+为右）→Q:Return:IfEnd↙.............................................(可无限重复，有多少段就可以输入多少段得要素）
注意：显示S代表里程，Z代表偏距，N代表选择（1）正算或（2）反算，X.Y为坐标。
（替换后K代表偏距）。