fx-5800p全线坐标正反算带高程计算程序(线元法
曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序
一、程序功能及原理
1.功能说明：本程序由一个主程序(TYQXJS)和五个子程——正算子程序(SUB-ZS)、反算子程序(SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序在CASIO fx-5800P计算器运行。
2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。
二、源程序
1.主程序(TYQXJS)
Deg:fix 3
119→DimZ
“INPUT(0) Or DATA(Else)”?I
Lbl 0:“1.SZ=>XY,2.XY=>SZ，3.TF=>CK,4.SD=>FY，5.TW=>FY”?N
If N=1 Or N=5:Then Goto 1
Else If N=2 Or N=3 Or N=4:Then Goto 2
Else Goto 3
IfEnd:IfEnd
Lbl 1:“K(m)=”?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 “DAT1”:Else Prog “DAT2”:IfEnd
S-O→W:If W<0:Then Goto 0:Else If W>H:Then Goto 0:IfEnd:IfEnd
Prog “SUB-ZS”:Prog “SUB-GC”
If Z<0:Then“XL(m)=”:X◢
“YL(m)=”:Y◢
If N=5:Then Prog “SUB-TW”:IfEnd
Else If Z>0:Then “XR(m)=”:X◢
“YR(m)=”:Y◢
If N=5:Then Prog “SUB-TW”:IfEnd
Else “X(m)=”:X◢
“Y(m)=”:Y◢
“Hs(m)=”:L◢
“FWJ=”: F►DMS◢
IfEnd:IfEnd
Goto 1
Lbl 2:“X(m)=”?X:If X<0:Then Goto 0:IfEnd
“Y(m)=”?Y
If N=3 Or N=4:Then “H(m)=”?→Z[2]:IfEnd
X→Z[4]:Y→Z[5]:90→M
If I=0:Then Prog “DAT1”
G+QEH(C+HD)→F:1→J:U→Z[8J]:V→Z[8J+1]
G-M→A:F-M→B:Prog “SUB-ZX1”:Goto B
G+M→A:F+M→B:Prog “SUB-ZX1”:Goto B:IfEnd
0→J:Lbl A: Isz J
Z[8J+3]-M→A:Z[8(J+1)+3]-M→B:Prog “SUB-ZX1”
If Z[6]Z[7]<0:Then J→J:Prog“DAT1” :Goto B:IfEnd
Z[8J+3]+M→A:Z[8(J+1)+3]+M→B:Prog “SUB-ZX1”
If Z[6]Z[7]<0:Then J→J:Prog “DAT1” :Goto B:Else Goto A:IfEnd
Lbl B:Prog“SUB-FS”
O+W→S:Prog “SUB-GC”
“K(m)=”:S◢
“Hs(m)=”:L◢
“JL(m)=”:Z◢
If N=3:Then Prog “WIDE”:IfEnd
If N=4:Then Prog “SDFY”:IfEnd
Goto 2
Lbl 3:“TYQXJS→END”
2. 正算子程序(SUB-ZS)
0.1184634425→A: 0.2393143352→B:0.2844444444→Z[1]:0.0469100770→K:0.2307653449→L:0.5→Z[3]
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Z[1]cos(G+QEZ[3]W(C+Z[3]WD))+Bcos(G+QE(1 -L)W(C+(1-L)WD))+Acos(G+QE(1-K)W(C+(1-K)WD)))→X
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Z[1]sin(G+QEZ[3]W(C+Z[3]WD))+Bsin
(G+QE(1-L)W(C+(1-L)WD))+Asin(G+QE(1-K)W(C+(1-K)WD)))→Y
G+QEW(C+WD)+M→F
X+Zcos(F)→X:Y+Zsin(F)→Y
F-M→F:If F<0:Then F+360→F:IfEnd
Return
3. 反算子程序(SUB-FS)
G-M→T:Abs((Y-V)cos(T)-(X-U)sin(T))→W:0→Z
Lbl C:Prog “SUB-ZS”
T+QEW(C+WD)→L:(Z[5]-Y)cos(L)-(Z[4]-X)sin(L)→Z
If Abs（Z）<10-6:Then Goto D:Else W+Z→W：Goto C:IfEnd
Lbl D:0→Z:Prog “SUB-ZS”:(Z[5]-Y)÷cos(F)→Z:Return
4．高程计算子程序（SUB-GC）
Prog “DAT3”
0．5RAbs(0.01(E-D))→T
If E>D:Then 1→C:Else -1→C:IfEnd
If S Abs(A-S)→L If L>T:Then B+WL→L:Else B+WL+C(T-L)2÷2÷R→L:IfEnd Return 5. 垂距计算子程序(SUB-ZX1) (Z[5]-Z[8J+1])cos(A)-(Z[4]-Z[8J])sin(A)→Z[6] (Z[5]-Z[8(J+1)+1])cos(B)-(Z[4]-Z[8(J+1)])sin(B)→Z[7] Return 6.曲线元要素数据库：DAT1(两条线路，可扩充为多条线路) If I=0:Then Goto E: Else If I=2:Then Goto F:IfEnd:IfEnd J=1=>***→Z[8]:***→Z[9]:***→Z[10]:***→Z[11]:***→Z[12]:***→Z[13]:***→Z[14]:*** →Z[15]：IfEnd J=2=>***→Z[16]:***→Z[17]:***→Z[18]:***→Z[19]:***→Z[20]:***→Z[21]:***→ Z[22]:***→Z[23]:IfEnd J=3=>***→Z[24]***→Z[25]:***→Z[26]:***→Z[27]:***→Z[28]:***→Z[29]:***→Z[30]:***→[31]:IfEnd ……………………………………………….. Goto H Lbl F: J=1=>***→Z[8]:***→Z[9]:***→Z[10]:***→Z[11]:***→Z[12]:***→Z[13]:***→ Z[14]:*** →Z[15]：IfEnd J=2=>***→Z[16]:***→Z[17]:***→Z[18]:***→Z[19]:***→Z[20]:***→Z[21]:***→ Z[22]:***→Z[23]:IfEnd J=3=>***→Z[24]***→Z[25]:***→Z[26]:***→Z[27]:***→Z[28]:***→Z[29]:***→Z[30]:***→[31]:IfEnd (注：如有多个曲线元要素继续添加入数据库DAT1中) Goto G Lbl E:“X0=”?U:“Y0=”?V:“S0=”?O:“F0=”?G:“LS=”?H:“R0=”?P:“RN=”?R:“Q=”?Q Lbl G:1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:Return 7．隧道放样子程序：SDFY 5.5→A:8.5→B:L+1.5→C If I=1:Then -1→K:Else 1→K:IfEnd 给左右隧道符号赋值 1.25K→F:4.25K→L:7.25K→K 给各圆心距路线的偏距赋值 Z[2]-C→D 计算测点至圆心的高差D， If D>A:Then Goto 1:Else If D<0:Then Goto 2:IfEnd:IfEnd Z-L→E:Abs(E)→E:√(D2+E2)→W:W-A→T: 计算测点至圆心的平距E，实测半径W “R(m)=”:W◢ “DR(m)=”:T◢ If E≤A:Then D-√(A2-E2)→C:E-√(A2-D2)→L 计算测点水平偏移量L、垂直偏移量C “Dh(m)=”:C◢显示测点垂直偏移量C “DL(m)=”:L◢显示测点水平偏移量L Else E-√(A2-D2)→L “DL(m)=”:L◢ IfEnd:Return Lbl 1 Z-L→E:Abs(E)→E:√(D2+E2)→W:W-A→T: 计算测点至圆心的平距E，实测半径W “R(m)=”:W◢ “DR(m)=”:T◢ If E≤A:Then D-√(A2-E2)→C “Dh(m)=”:C◢ IfEnd:Return Lbl 2:Abs(D)→D:Abs(Z)→Z:Abs(K)→K:Abs(F)→F If Z>K:Then Z-F→E:Else Z+K→E:IfEnd √(D2+E2)→W:W-B→T “R(m)=”:W◢ “Rc(m)=”:T◢ If E≤B:Then D-√(B2-E2)→C:E-√(B2-D2)→L 计算测点水平偏移量L、垂直偏移量C “Dh(m)=”:C◢显示测点垂直偏移量C “DL(m)=”:L◢显示测点水平偏移量L Else E-√(B2-D2)→L “DL(m)=”:L◢显示测点水平偏移量L IfEnd:Return 8．曲线元要素判断数据库：DAT2(两条线路，可扩充为多条线路) If I=2:Then Goto A:IfEnd If S<第一线元终点里程:Then 1→J:Prog “DAT1”:Return Else If S<第二线元终点里程:Then 2→J:Prog “DAT1”:Return Else If S<第三线元终点里程:Then 3→J:Prog “DAT1”:Return Else If S<第四线元终点里程:Then 4→J:Prog “DAT1”:Return IfEnd:IfEnd:IfEnd:IfEnd If S≥第四线元起点里程And S<第五线元终点里程：Then 5→J：Prog “DAT1”：Return ................................. Else If S<第n线元里程：Then n→J：Prog “DAT1”：Return IfEnd:IfEnd:IfEnd:IfEnd Lbl A If S<第一线元终点里程:Then 1→J:Prog “DAT1”:Return Else If S<第二线元终点里程:Then 2→J:Prog “DAT1”:Return Else If S<第三线元终点里程:Then 3→J:Prog “DAT1”:Return Else If S<第四线元终点里程:Then 4→J:Prog “DAT1”:Return IfEnd:IfEnd:IfEnd:IfEnd If S≥第四线元起点里程And S<第五线元终点里程：Then 5→J：Prog “DAT1”：Return Else If S<第n线元里程：Then n→J：Prog “DAT1”：Return IfEnd:IfEnd:IfEnd:IfEnd ................................. 9．高程数据库子程序：DAT3（两条线路，可扩充为多条线路） If I=0:Then Goto A:Else If I=2:Then Goto B:IfEnd:IfEnd If S≤46500:Then 46150→A:361.26→B:40000→R:-0.3→D:-1.2→E:Return Else If S≤47200:Then 46800→A:353.46→B:20000→R:-1.2→D:1→E:Return Else If S≤48400:Then 47500→A:360.46→B:20000→R:1→D:-1.6→E:Return Else If S≤49600:Then 48700→A:341.26→B:10000→R:-1.6→D:2.45→E:Return IfEnd:IfEnd:IfEnd:IfEnd If S>49600 And S≤50300:Then 49840→A:369.19→B:100000→R:2.45→D:2.8→E:Return Else If I=2:Then49800→A:368.21→B:150000→R:2.45→D:2.7→E:Return IfEnd:IfEnd Lbl A:“C PEG(m)=”?→A “C H(m)=”?→B “R(m)=”?→R “I1=”?→D “I2=”?→E Return Lbl B 49800→A:368.21→B:150000→K:2.45→D:2.7→E:Return 10.填方路基宽度检查子程序（WIDE） “WIDTH CHECK”◢ “H→MID(m)=”?→A 起坡点与中桩高差常数 “DIST→MID(m)=”?→B 起坡点与中桩距离常数 “i=”?→C 路基填筑坡度 CAbs(Z[2]-L+A)→D Abs(Z)-B-D→E “DL(m)=”:E◢显示实有宽度与应有宽度之差值Return 11.坡口坡脚线坐标计算子程序:SUB-TW “TIANWA LINE”◢ “DIST→MID(m)=”?A 起坡点与中桩距离常数 “H→MID(m)=”?B 起坡点与中桩高差常数 “T(1) Or W(Else)=”?C 填方边坡为1，其它为挖方边坡 “i=”?E 填方或挖方边坡坡度 Abs(Z)-A→D: DE→K If C=1:Then L-B-K→W:Else L+B+K→W:IfEnd “JS H(m)=”:W◢计算出应有高程 “SC H(m)=”？→D 输入实测高程 D-W→T “GC(m)=”:T◢显示实测高程与计算高程的差异Return 三、使用说明 1、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 (2) 当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值；当位于中线中线右 侧时，Z取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。 (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆 弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半 径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的 值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等 于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 (7)曲线元要素数据库（DAT1）可根据线型不同分为各个线元段输入到DAT1中，即分为直线段、缓和曲线、圆曲线等。 (8)正算时可仅输入里程Lp和边距Dp及右交角ANG全线计算，反算时通过输入测点的X、Y坐标和右交角ANG后计算器自动判断该点所属曲线元并利用该线元的曲线要素执行反算中桩里程Lp及支距Dp。 2、输入与显示说明 （一）、输入部分： 1. SZ => XY 2. XY = > SZ 1、 N ? 选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算 里程和边距。 2、X0 ？线元起点的X坐标(U) 3、Y0 ？线元起点的Y坐标(V) 4、S0 ？线元起点里程(O) 5、F0 ？线元起点切线方位角(G) 6、LS ？线元长度(H) 7、R0 ？线元起点曲率半径(P) 8、RN ？线元止点曲率半径(R) 9、Q ？线元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0) 10、S ？正算时所求点的里程 11、Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零) 12、ANG？正算边桩时左右边桩连线与线路中线的右交角 13、J？曲线元数据库曲线段判断系数（J=1、2…..n） 14、X ？反算时所求点的X坐标 15、Y ？反算时所求点的Y坐标 16、M?斜交右角 17、Z[1]-----测站点X坐标 18、Z[2]----- 测站点Y坐标 19、A、B、N是Gauss-Legendre求积公式中的插值系数 20、K 、L、Z[3] 是Gauss-Legendre求积公式中的求积节点 21、J=1时：Z[8]、Z[9]、Z[10]、Z[11]、Z[12]、Z[13]、Z[14]、Z[15]分别是各曲线元的X、Y 坐标、起始里程S0、初始方位角F0、线元长度Ls、起点半径R0、终点半径Rn、曲线偏向系数Q …………………………………………………… J=n时：Z[8J]、Z[8J+1]、Z[8J+2]、Z[8J+3]、Z[8J+4]、Z[8J+5]、Z[8J+6]、Z[8J+7]分别是各曲线元的X、Y坐标、起始里程S0、初始方位角F0、线元长度Ls、起点半径R0、终点半径Rn、曲线偏向系数Q 23、正算中的Z[18]、Z[26]、Z[34]、Z[42]……Z[8（J+1）+2]分别为各线元中的终点里程 24、主程序中的“Defm 50”应视具体线元的数量，适当增加扩展变量。 25、本次修改版不考虑CASIO fx-4500PA，因其容量太小，扩展变量实在太少而不能胜任。（二）、显示部分： XS=×××正算时，计算得出的所求点的X坐标 YS=×××正算时，计算得出的所求点的Y坐标 S=×××反算时，计算得出的所求点的里程 Z=×××反算时，计算得出的所求点的边距 四、算例 某匝道的由五段线元（直线+完整缓和曲线+圆曲线+非完整缓和曲线+直线）组成，各段线元的要素（起点里程S0、起点坐标X0 Y0、起点切线方位角F0、线元长度LS、起点曲率半径R0、止点曲率半径RN、线元左右偏标志Q）如下： S0 X0 Y0 F0 LS R0 RN Q 500.000 19942.837 28343.561 125 16 31.00 269.256 1E45 1E45 0 769.256 19787.340 28563.378 125 16 31.00 37.492 1E45 221.75 -1 806.748 19766.566 28594.574 120 25 54.07 112.779 221.75 221.75 -1 919.527 19736.072 28701.893 91 17 30.63 80.285 221.75 9579.228 -1 999.812 19744.038 28781.659 80 40 50.00 100.000 1E45 1E45 0 1、正算 （注意：略去计算方式及线元要素输入，请自行根据所求点所在的线元输入线元要素） S=700 Z=-5 计算得 XS=19831.41785 YS=28509.72590 S=700 Z=0 计算得 XS=19827.33592 YS=28506.83837 S=700 Z= 5 计算得 XS=19823.25398 YS=28503.95084 S=780 Z=-5 计算得 XS=19785.25749 YS=28575.02270 S=780 Z=0 计算得 XS=19781.15561 YS=28572.16358 S=780 Z= 5 计算得 XS=19777.05373 YS=28569.30446 S=870 Z=-5 计算得 XS=19747.53609 YS=28654.13091 S=870 Z=0 计算得 XS=19742.68648 YS=28652.91379 S=870 Z= 5 计算得 XS=19737.83688 YS=28651.69668 S=940 Z=-5.123 计算得 XS=19741. 59118 YS=28722.05802 S=940 Z=0 计算得 XS=19736.47687 YS=28722.35642 S=940 Z= 3.009 计算得 XS=19733.47298 YS=28722.53168 2、反算 X=19831.418 Y=28509.726 计算得 S=699.9999974 Z=-5 .00018164 X=19827.336 Y=28506.838 计算得 S=699.9996493 Z=0.000145136 X=19823.25398 Y=28503.95084 计算得 S=699.9999985 Z=5.000003137 X=19785.25749 Y=28575.02270 计算得 S=780.0000035 Z=-5.000001663 X=19781.15561 Y=28572.16358 计算得 S=780.0000025 Z=-0.000002979 X=19777.05373 Y=28569.30446 计算得 S=780.0000016 Z=4.99999578 X=19747.536 Y=28654.131 计算得 S=870.0001137 Z=-4.99941049 X=19742.686 Y=28652.914 计算得 S=870.0003175 Z=-0.00041814 X=19737.837 Y=28651.697 计算得 S=870.0002748 Z=4.999808656 X=19741.5912 Y=28722.0580 计算得 S=939.9999786 Z=-5.123024937 X=19736.4769 Y=28722.3564 计算得 S=939.9999862 Z=-0.000027710 X=19733.4730 Y=28722.5317 计算得 S=940.0000238 Z=3.00898694 （注：本资料素材和资料部分来自网络，仅供参考。请预览后才下载，期待您的好评与关注！） CASIO fx—5800计算器工程测量与公路测量程序 1、坐标正算 〝X0=〞?X:〝Y0=〞?Y:〝I=〞?I:〝J=〞?J X+ICos(J)→U:Y+ISin(J)→V 〝X=〞:U （待求点的X坐标） 〝Y=〞:V （待求点的Y坐标） 说明：X0 Y0：已知点坐标I：两点的距离J：方位角 ２、坐标反算 Lbl 0 〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?V Pol(U-X,V-Y): J<0 J+360→J 〝I=〞:I 〝J=〞:J DMS GOTO 0 说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角３、圆曲线 〝X0=〞?X: 〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G: 〝ZDHAO=〞?C: 〝R=〞?R Lbl 1 〝DQHAO=〞?L L CASIO fx-4800P、fx-5800P型计算器用于线路施工 曲线中线点坐标的计算程序 中铁十局三建公司工程技术部 摘要：本文介绍了CASIO fx-4800P 、fx-5800P型计算器程序编制用于铁路、公路曲线线路内任意中线点的坐标计算程序及使用方法。本计算程序具有操作简便、计算快捷、应用广泛等特点、极大地减轻了测量工作者的内业工作量，对于测量工作者有较大的参考和指导作用。关键词：曲线线路施工测量计算程序 1．概述 过去，线路中线施工放样基本依靠经纬仪和钢尺了来进行角度及距离测量。对于曲线线路一般的测量方法是：经纬仪置于某一中线点上，采用偏角法拨角再用钢尺量距来定出中线点。随着电子技术进步和经济发展，测量仪器和测量方法的不断改进，目前，全站仪已广泛地应用于工程施工测量中，极大的提高了测量工作效率。但是，在进行铁路、公路工程的曲线线路施工测设时，需要在线路所在区域建立统一坐标系或独立坐标系，利用坐标变换的方法，将整个曲线的三个部分（第一缓和曲线、中间圆曲线、第二缓和曲线）统一到同一坐标系中。根据坐标系的建立，计算出整个曲线内任意点的坐标，再采用全站仪利用极坐标方法进行施工放样。前提是首先利用计算器计算出各中线点坐标，然后才能进行放样。而普通型计算器不仅计算速度慢，且要求计算者必须正确地记忆很多计算公式，计算繁琐而且容易出错，满足不了现场测设工作的要求。为了能够快速准确地为全站仪提供测设 数据，发挥全站仪快速测设的特点，提高测量工作效率，应采用可编程的计算器，编制计算程序。本文主要介绍应用CASIO fx-4800P型计算器的计算程序，供公司测量同行们参照使用。 2．计算程序 QXZBJS（文件名：曲线坐标计算fx-4800P） Defm2:R：L：A：N“ZH：X=”：E“ZH：Y=”：F：“FWJ=”：K“ZH：LC=”： P=L2/(24R)-L4/(2688R3):M=L/2-L3/(240R2):T“T”=（R+P）tng(A/2)+M ◢G=RAπ/180：“S”S=G+L◢ LbiA：｛C，V｝：C“CSDLC=”：V“HXPJ=”：D=C-K：D≤L＝＞I=D-D5/（40R2L2）：U=D3/(6RL)-D7/（336R3L3):J=√（I2+U2）：Goto1：≠＞D≤G＝＞O=90（2D-L）/( Rπ)：I=RsinO+M：U=R（1-cosO）+P：J=√（I2+U2）：Goto2：≠＞D=S-（C-K）： = D-D5/（40R2L2）：Z[2]=D3/6RL-D7/（336R3L3）：I=T+（T-Z[1]）cosA-Z[2]sinA：U=（T-Z[1]）sinA+Z[2]cosA：J=√（I2+U2）：Goto3：Lbi1:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-30D2/ （RLπ）：H=F-90D2/ （RLπ）：≠＞Q=F+30D2/ （RLπ）：H=F+90D2/（ RLπ）⊿ Goto4：Lbi2:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-tng-1(U/I)：H=F-O：≠＞Q= F+tng-1(U/I)：H=F+O⊿Goto4：Lbi3:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-tng-1(U/I):H=F-(A-90(S-(C-K))2/ （RLπ）): ≠＞Q= F+tng-1(U/I):H=F+(A-90(S-(C-K))2/ （RLπ）):⊿ Goto4： Lbi4:B=90+H:H＜0＝＞H“QXFWJ”=B+360◢≠＞H≥360＝＞H“QXFWJ”=H-360 ◢≠＞H“QXFWJ”=H◢⊿Goto5： Lbi5: X“CSD:X”=JcosQ+N+VcosB◢ Y“CSD:Y”=JsinQ+E+VsinB◢ CASIO fx-5800p SUPER-FX PLUS 1：【Z—F1】 (坐标反算) Deg：Fix3： "X0="?A："Y0="?B CIrStat：0→N Lb1 0："Xn=,(<0→END)"?C WhiIe C>0 N+1→N "Yn="?D Pol(C-A,D-B) ：CIs If J<0：Then J+360→F：EIse J→F：IfEnd "DISTO→n(m)=" ：I◢ "BEARO→n(DMS)=" ：F▼DMS◢ I→List X[N] ：F→List Y[N] Goto 0：WhiIeEnd"END" 2：【Z—F2】 (坐标反算) Deg：Fix3： "C"?C："D"?D Pol(C-A,D-B) ：CIs J<0=> J+360→J "D(M)=" ：I◢ "J=" ：J▲DMS◢ 3：【Z—Z】 (坐标正算) Lb1 0 "S"?S："T"?T (先输入已知点(A,B)坐标。S-距离、T-方位角) "J=" ：A+Rec（S，T）◢(未知点坐标) "D=" ：B+J◢(未知点坐标) Goto 0 4：【HUANZHOU 】(坐标换轴) Lb1 1 "C"?C："D"?D (先输入已知点(A,B)坐标、K-方位角) "X=" ：cos( K)（C-A）+sin ( K)（D-B）◢(X轴线偏移) "Y=" ：cos( K)（D-B）-sin ( K)（C-A）◢(Y轴线偏移) Goto 1 5：【YUAN NU】(园弧) Lb1 0 Prog "Z—F2" "K"?K："R"?R ："S"?S (先输入已知点(A,B)圆心坐标、K-起始方位角、 R-半径、S-起始桩号) "Q=" ：J -K→Q(弧度夹角) "L=" ：（RπQ/180）→L (弧长) "O=" ：I-R→O◢ (中心线) "P=" ：S+L→P◢ (里程桩号) Goto 1 6：【YUAN ZUOBIAO 】(园弧坐标计算) Lb1 1 "L"?L："M"?M："R"?R ："T"?T (先输入(A,B)圆心坐标、L-弧长、 R-半径、T-大、小半径) "Q=" ：90°-(180L)/(πR)→Q (弧度夹角) 左边为““-””；右边为““+”” Rec（T，Q） "X=" ：I+A◢(未知点坐标) "Y=" ：J+B◢(未知点坐标) Goto 1 平曲线程序运行提示符 CASIO fx—5800P 1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）自然段任意桩号的坐标（正算，输入1），也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入2）； 2、（NEW=0，Z1 =1）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、2、3…代替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素； 3、正算显示坐标及切线方位角及和设站点的距离角度；用坐标放样的可删除这个显示。反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏中距离； 4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。 5、此程序显示较直观，结果在同一屏幕显示。注* ：程序中乘号用*标示，其余为X。 欢迎加入QQ群42284044 66262135 一起学习分享资料 有51的朋友可以加入51群https://www.wendangku.net/doc/d019193474.html,/ziyoushezhan FX5800（正反算、可现场输入要素，可预先建好数据库）计算中边桩坐标 Z 主程序 “NEW=0,Z1 =1”?Z If Z=0:Then “X0=”?A: “Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“DKA=”?F:“DK B=”?G:Ifend: "1.ZS,2.FS" ?→Q输入1正算，输入2反算 Q=2=>Goto 2 Lbl 1 :“DK?=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“P L=”?L Lbl Z: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=>Goto 4：Cls：Fix 3 "Xn=":Locate 4，1，U："Yn=": Locate 4，2，V： Norm 2：Cls：Goto 1 Lbl 2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S “D K=”？H ：90→O:0→L：Goto Z （H线路范围内的大约里程） Lbl 4:Pol（R-U，S-V）：J<0 => J+360→J While abs（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 Goto 3: Whileend：H+Icos（J-P）→H:Goto Z Lbl 3:Cls：Fix 3 “KM=”: Locate 4，1，H：“PY=”: Locate 4，2，L◢ FX-5800p计算器公路测量常用程序 一、程序功能 本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型. 二、源程序 1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离) 程序名:1ZD-XY Lb1 0:Norm 2 F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量) Z[1]=90（与路线右边夹角） Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2 Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢ ＂Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂3JS”:Goto 0: Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢ Ｇoto 0 ２．主程序２：高程序横坡程序(设计任意点高程及横坡) 程序名：2GC LbI 0:Norm 2 “KM”?Z:?D: Prog”H”:Fix3:”H=”:Locate 6,4,H◢ “I=”: Locate 6,4,I◢ Goto 0 3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：3JS X：Y： 1268．123→K(置仪点X坐标) 2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦） Y-L→E：X-K→F：Pol(F,E):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 3:”S=”:Locate 6,4,I◢ 4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离) 程序名：4JH-XY LbI 0:Norm 2 90→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量) 1→F:Prog”THB”:?L: Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢ ＂Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂3JS”:Goto 0: 5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度） 程序名：5FBX LbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog “THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd LbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T: LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd: LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z: LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z: LbI 3:L+Z[12]+G×Z[7]:Goto z: LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z: LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢ CASIO fx-5800p道路主线坐标放样程序简化使用程序 说明： 此程序是根据教科书结合工地实践应用继续开发，本程序包含一个母程序和两个子程序，本程序简化了部分详细输出内容，加快了实地放样计算的速度，本程序还有一大优点就是有“一劳永逸”的效果，先把子程序输入计算器，然后根据曲线要素表，用其中的数据代替母程序中的文字提示（包括括号），输入计算器，在运行母程序，然后检核，每一个曲线至少检查一个点，检核无误后即可，每次去工地放样就可以免带图纸，同时也大大的提高了野外放样计算的速度。 ZBFY(道路主线坐标放样程序母程序)：Lbl 0? “KP=”?P? If P<(第一个曲线的结束桩号)：Then? （第一个曲线的交点x坐标）→X? （第一个曲线的交点y坐标）→Y? （第一个曲线的上一交点x坐标）→M?（第一个曲线的上一交点y坐标）→N?（第一个曲线的转角，左-右+）→O? （第一个曲线的半径）→R? （第一个曲线的第一缓和曲线长度）→B?（第一个曲线的第二缓和曲线长度）→C?（第一个曲线的交点桩号）→K? Prog“-ZBFY”:Goto 0:IfEnd? If P<(第二个曲线的结束桩号)：Then? （第二个曲线的交点x坐标）→X? （第二个曲线的交点y坐标）→Y? （第二个曲线的上一交点x坐标）→M?（第二个曲线的上一交点y坐标）→N?（第二个曲线的转角，左-右+）→O? （第二个曲线的半径）→R? （第二个曲线的第一缓和曲线长度）→B? （第二个曲线的第二缓和曲线长度）→C? （第二个曲线的交点桩号）→K? Prog“-ZBFY”:Goto 0:IfEnd? . . .(重复If到IfEnd的语句，有n个曲线，就重复n-1次) . . . （最后一个曲线的交点x坐标）→X? （最后一个曲线的交点y坐标）→Y? （最后一个曲线的上一交点x坐标）→M? （最后一个曲线的上一交点y坐标）→N? （最后一个曲线的转角，左-右+）→O? （最后一个曲线的半径）→R? （最后一个曲线的第一缓和曲线长度）→B? （最后一个曲线的第二缓和曲线长度）→C? （最后一个曲线的交点桩号）→K? Prog“-ZBFY”:Goto 0 (结束) 曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序 一、程序功能及原理 1.功能说明：本程序由一个主程序(TYQXJS)和五个子程——正算子程序(SUB-ZS)、反算子程序(SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序在CASIO fx-5800P计算器运行。 2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。 二、源程序 1.主程序(TYQXJS) Deg:fix 3 119→DimZ “INPUT(0) Or DATA(Else)”?I Lbl 0:“1.SZ=>XY,2.XY=>SZ，3.TF=>CK,4.SD=>FY，5.TW=>FY”?N If N=1 Or N=5:Then Goto 1 Else If N=2 Or N=3 Or N=4:Then Goto 2 Else Goto 3 IfEnd:IfEnd Lbl 1:“K(m)=”?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 “DAT1”:Else Prog “DAT2”:IfEnd S-O→W:If W<0:Then Goto 0:Else If W>H:Then Goto 0:IfEnd:IfEnd Prog “SUB-ZS”:Prog “SUB-GC” If Z<0:Then“XL(m)=”:X◢ “YL(m)=”:Y◢ If N=5:Then Prog “SUB-TW”:IfEnd Else If Z>0:Then “XR(m)=”:X◢ “YR(m)=”:Y◢ If N=5:Then Prog “SUB-TW”:IfEnd Else “X(m)=”:X◢ “Y(m)=”:Y◢ “Hs(m)=”:L◢ “FWJ=”: F►DMS◢ CASIO fx-5800P线元法坐标正反算程序 说明：本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。该程序可计算任意线型，包含（直线、圆曲线、缓和曲线、卵形曲线）等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。 主程序名：ABCYT 第1步Deg：Fix 3：10→DimZ 第2步Lbl 3：＂1.DK=>XY＂：＂2.XY=>DK＂：＂Q＂?W：＂DK＂?S：Prog＂ABCYTSJ＂：If P=0：Then 10^(45)→P：IfEnd：If R=0：Then 10^(45)→R：IfEnd 第3步1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：If W=1：Then Goto 1：Else Goto2：IfEnd 第4步Lbl 1：＂W＂?Z：＂α＂?N：Abs(S-O)→W：Prog＂ABCYTZ＂ 第5步Cls：＂F=＂：Locate 3,1,F°：＂X=＂：Locate 3,2,X：＂Y=＂：Locate 3,3,Y◢ 第6步Prog＂ABCYTSQX＂：Cls：＂H=＂：Locate 3,1,H◢ 第7步1→W：90→N：Goto 3 第8步Lbl 2：?X：?Y：X→I：Y→J：Prog＂ABCYTF＂：O+W→S 第9步Cls：＂K=＂：Locate 3,1,S：＂S=＂：Locate 3,2,Z◢ 第10步2→W：Goto 3 正算子程序名：ABCYTZ 第1步0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L 第2步1-L→F：1-K→M 第3步U+W×(A×cos(G+Q×E×K×W×(C+K×W×D))+B×cos(G+Q×E×L×W×(C+L×W× D))+B×cos(G+Q×E×F×W×(C+F×W×D))+A×cos(G+Q×E×M×W×(C+M×W×D)))→X 第4步V+W×(A×sin(G+Q×E×K×W×(C+K×W×D))+B×sin(G+Q×E×L×W×(C+L×W× D))+B×sin(G+Q×E×F×W×(C+F×W×D))+A×sin(G+Q×E×M×W×(C+M×W×D)))→Y 第5步G+Q×E×W×(C+W×D)→F：F+ N→Z[1] 第6步X+Z×cos（Z[1]）→X：Y+Z×sin（Z[1]）→Y 反算子程序名：ABCYTF 第1步Lbl 2：（S-O）→W：0→Z：Prog＂ABCYTZ＂：F-90→Z[9]：(J-Y)×cos(Z[9])-(I-X)×sin(Z[9])→Z[10] CASIO fx—5800P计算器 路线坐标计算程序（单个交点） 主程序名CALXY （计算中桩、边桩坐标） Lbl 1：“ZZ”? →Z[27] ：“D(-+m)”? →D：If D≠0 ：Then “∠(DMS)”? →V：Ifend』 If Z[27]≤Z[17]：Then Z[18]+ (Z[27] —Z[17]) Cos( F)+D Cos( F+V)：“X=”：Ans▲Z[19]+ (Z[27] —Z[17]) Sin( F )+D Sin( F+V)：“Y=”：Ans▲：Ifend』 If Z[27]＞Z[17] And Z[27]≤Z[20]：Then Z[27] —Z[17] →L：Prog “HHXY”：Z[18] +I Cos( F+ JH）+D Cos( F+WH+V)：“X=”：Ans▲：Z[19] +I Sin(F+ JH）+D Sin( F+WH+V)：“Y=”：Ans▲：Ifend』 If Z[27]＞Z[20] And Z[27]≤Z[24] —Z[6]：Then Z[27] —Z[20] →L：Prog “YUXY”：Z[21] +I Cos( Z[23]+ JH）+D Cos( Z[23]+WH+V)：“X=”：Ans▲：Z[22] +I Sin(Z[23]+ JH）+D Sin( Z[23]+WH+V)：“Y=”：Ans▲：Ifend』 If Z[27]＞Z[24] —Z[6] And Z[27]≤Z[24]：Then Z[24] —Z[27] →L：Prog “HHXY”：Z[25] +I Cos( C—JH）—D Cos( C—WH+V)：“X=”：Ans▲：Z[26] +I Sin(C—JH）—D Sin( C—WH+V)：“Y=”：Ans▲：Ifend』 If Z[27] ＞Z[24]：Then Z[25] —(Z[27] —Z[24]) Cos( C )—D Cos( C+V)：“X=”：Ans▲Z[26] —(Z[27] —Z[24]) Sin( C —D Sin( C+V)：“Y=”：Ans▲：Ifend』 Goto 1 子程序名JD （输入曲线参数，计算曲线要素） 30→Dim Z：Fix 5：“JD”? →Z[1] ：“XJD”? →Z[2] ：“YJD”? →Z[3]：“F0(DMS)”? →F：“A（-+ DMS）”？→Z[4]：“R”? →R：“LH1”? →Z[5]：“LH2”? →Z[6]：√￣(Z[4]2)→A：Int(Z[4] ÷A)→H』 Z[5] →S：Prog “PQ”：Q →Z[7]：P→Z[8]：B →Z[9]：R →S：Prog “PQ”：Q → 卡西欧fx-5800P程序1坐标反算(ST) Lb1 1：＂X1=＂？A：＂Y1=＂？B Lb2 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 End If K=2：Then Goto2：If End If 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)=＂？P If P=1：Then Goto2：Else Goto5：If End LbI 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▲Goto6 Lb1 5：＂T(0－A )=＂？F Lb16：＂S(0－P )=＂？S：＂E(∠AOP=)＂？E E+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=＂？K If K=1：Then Goto0：If End If K=2：Then Goto6：If End If 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。 3、然后输入测点P的平距边长＂S(0－P )=＂？S，和到测点的夹角C＂E(∠AOP=)＂？E。 4、计算出P点的坐标P（X、Y）和O―P的方位角＂T(0－P)=＂ 5、当K＝1时，重复以上步骤。 6、当K＝2时，架站点O不变，重新输入另一测点P的边长S和夹角F，计算出P 点的坐标和方位。 7、当K＝3时，以上一计算点P为架站点，再输入边长和夹角，计算出以支导线形 式的坐标和方位。 卡西欧计算器5800P坐标正反算Lbl 3:"1→ZS,2→FS"?Q Q=1=>Goto 1:Q=2=>Goto 2 I→0: J→0: Lbl 1:"CE:X"?m:"CE:Y"?F:"JL"?L:"FWJ"?A Rec(L,A):m+I→C:F+J→D Cls "X=":Locate 3,1,C:"Y=":Locate 3,2,D◢ Goto 3 Lbl 2:"CE:X"?G:"CE:Y"?H:"(HOU)FY:X"?N:"(HOU)FY:Y"?E Pol(N-G,E-H) If J<0:Then J+360→Y:Else J→Y:IfEnd Cls "FY JL=":Locate 10,1,I:"FY FWJ=":Y◆DMS◢ Goto 3 进入程序运行如下: 1→ZS,2→FS?输入1为正算,2为反算. 以输入1为例: CE:X? 测站点X(5796.717) CE:Y? 测站点Y(5212.569) JL? 仪器测得的距离(321.889) FWJ? 仪器测得的方位角(193-41-07) 得到:X=5483.966 Y=5136.414 再按EXE,输2为例: CE:X? 测站点X(5796.717) CE:Y? 测站点Y(5212.569) 坐标反算 ZBFS L1 AB:Fixm:{CD} L2 pol(C-A,D-B)◢ L3 W<0 W=W+360 L4 lntW +0.01lnt(60 Frac W )+0.006 Frac(60 FracW) ◢ 说明: 1、本程序用于计算直角坐标值已知的两点间的边长和坐标方位角。 2、起算点和目标点的坐标分别为(A,B)、(C,D)。 3、起算点改变时应重新调用程序以改变A、B的值。 4、边长值和方位角值分别自动存放在“V”和“W”中。“W”的单位为:度“ °”。 隧洞断面图如上的程序如下: 直线断面放样程序(2) ZXFY2 L1: "CE:X"?A:"CE:Y"?B“CEZ:H”?E:"(HOU)FY:X"?C:"(HOU)FY:Y"?D: "(HOU)FY:H"?F POL(C-A,D-B): Cls If J<0:Then J+360→J J是方位角,是隧洞的轴线方向。 L2 L=ICos (J-G)◢ L3 M=Isin(J-G) ◢M是偏中 L4 V=F-E◢V是实际高程 L5 V=16.83 W= ((V-16.83)2+M2)◢W是实际测量出来的顶拱位置Goto5 说明: 1. 本程序用于计算直线段的如图断面样式的隧洞程系放样程系。 卡西欧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*L Rs:缓和曲线起点半径 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 1 IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙ IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: 卡西欧5800计算器坐标正反算程序 主程序坐标正反算 程序名称：ZBZFS Lb1 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” ↙ 子程序反算里程桩名称：FSLCZ Lb1 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 卡西欧fx-5800p计算器测量程序（作者：水江华） 1.坐标反算程序 "ZBFS QH1-4"◢ Deg：Fix 3←┘ "X+YiS(m）="?A←┘ Lb1 0:"X+YiE(m)，0=>END="?B←┘ Abs（B）=0=>Goto E←┘ Arg（B-A)→J J<0=>J+360→J "DIST(m）="：Abs（B-A)◢ "α（DMS)=":J▶DMS◢ Goto 0←┘ Lb1 E:"ZBFS QH1-4=>END" 2.坐标正算程序 "ZBZS QH1-3"◢ Deg：Fix 3←┘ "XS(m)= "？A:"YS(m)= "？B←┘ Lb1 1:"DIST(m)= "？L←┘ If L≤0:Then Goto 2:IfEnd←┘ "α（Deg)="？R←┘ A+Lcos（R）→C←┘ B+Lsin（R）→D←┘ Fix 3："XE(m)= ":C◢ "YE(m)= ":D◢ Goto 1←┘ Lb1 2:"ZBZS QH1-3=>END" 3.单一闭、附合导线近似平差程序"BFHDXPC QH1-8"◢ Deg:Norm 1:FreqOn←┘ n→N←┘ If List Y[N]=0:Then N-1→DimZ:Goto 0←┘ Else N→DimZ:Goto 1: IfEnd←┘ Lb1 0: "CLOSE Or CONECT TRA VE"◢ "ANGLE NUM=":N◢ "SIDE NUM=":N-1◢ "UNKNOWN P NUM=":N-2◢ "CLOSE(0)，CONNECT(≠0)="?→Z←┘ Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘ If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘"XB(m)= "？C:"YB(m)= "？D←┘ C+Di→U：U→V←┘ If A>0：Then Pol（C-A，D-B）：Cls←┘ J<0=>J+360→J：J→R←┘ "DIST A→B(m)="：I◢ "αA→B(DMS)="：R▶DMS◢ IfEnd←┘ If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘ E+Fi→V←┘ "XD(m)，≤0=>αC→D(Deg)="？G←┘ If G>0：Then "YD(m)= "？H←┘ Pol（G-E，H-F）：Cls←┘ J<0=>J+360→J：J→S←┘ "DIST C→D(m)="：I◢ "αC→D(DMS)="：S▶DMS◢ Else "αC→D(Deg)="？S：IfEnd←┘ Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘ [原创] CASIO fx-5800P ZXZFS直线坐标正反算程序 说明：该程序适用于计算器 CASIO fx-5800P直线坐标正算、反算，可持续计算中桩及边桩坐标其斜交等，还能够反算线路外一点距线路中心的里程和垂距。 主程序名：ZXZFS 第1步 Deg：Fix 3 第2步 Lbl C：＂=>XY＂：＂=>DK＂：＂J＂？W：Lbl 1：＂JSDK＂？E：Prog ＂ZXZFSSJ＂ 第3步 If W=1：Then Goto A：Else If W=2：Then Goto B：Else Goto C：IfEnd 第4步 Lbl A：＂PJ＂？G：＂PA＂？H 第5步 B+(E-A)×cos(F)+G×cos(F+H)→X 第6步 C+(E-A)×sin(F)+G×sin(F+H)→Y 第7步 Cls：＂X=＂：Locate 3,1,X：＂Y=＂：Locate 3,2,Y◢ 第8步＂ZJD(X)＂？S：＂ZJD(Y)＂？T 第9步 Pol(X-S,Y-T)：I→M 第10步 If J<0：Then J+360→N：Else J→N：IfEnd 第11步 Cls：＂JL=＂：Locate 4,1,M：＂FY=＂：Locate 4,2,N°◢ 第12步 Goto 1 第13步 Lb1 B：＂X=＂？K：＂Y=＂？L 第14步 Pol(K-B，L-C)：I→D：If J<0：Then J+360→P：Else J→P：IfEnd 第15步 If F 日志 [转]FX-5800计算器公路测量常用程序2012-3-1 18:25阅读(6)转载自℡承诺ヾ 下一篇：工程造价大全；一... |返回日志列表 •赞(2) •转载(163) •分享(18) •评论 •复制地址 •编辑 一、程序功能 本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型. 二、源程序 1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离； ②反算桩号及距中距离) 程序名:1ZD-XY Lb1 0:Norm 2 F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量) Z[1]=90（与路线右边夹角） Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2 Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢ ＂Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂3JS”:Goto 0: Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂Ｄ＝＂：Locate 6,4,Ｄ◢ Ｇoto 0 ２．主程序２：高程序横坡程序(设计任意点高程及横坡) 程序名：2GC LbI 0:Norm 2 “KM”?Z:?D: Prog”H”:Fix 3:” H=”:Locate 6,4,H◢ “ I=”: Locate 6,4,I◢ Goto 0 3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：3JS X：Y： 1268．123→K(置仪点X坐标) 2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦） Y-L→E：X-K→F：Pol(F,E):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FW J=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令 J◢DMS◢来直接显示) Fix 3:” S=”:Locate 6,4,I◢ 4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离) 程序名：4JH-XY LbI 0:Norm 2 90→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量) 1→F:Prog”THB”:?L: Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢ ＂Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂3JS”:Goto 0:CASIO fx—5800计算器 工程测量与公路测量程序
CASIO fx-5800p测量程序
CASIOfx-5800pSUPER-FX PLUS
FX5800(正反算、可现场输入要素,可预先建好数据库)计算坐标
卡西欧fx-5800p计算器 公路测量常用程序
CASIO fx-5800p计算器测量实用程序加数据库
fx-5800p全线坐标正反算带高程计算程序(线元法
CASIO fx-5800P线元法坐标正反算程序
CASIO fx-5800P计算器路线坐标高程计算程序
卡西欧fx-5800P程序
卡西欧计算器5800P坐标正反算
卡西欧5800计算器坐标正反算程序
卡西欧5800计算器坐标正反算程序
卡西欧fx-5800p计算器测量程序
原创CASIOfx5800PZXZFS直线坐标正反算程序V5
FX-5800计算器公路测量常用程序