下载文档原格式
TYQXJS(主程序名)LbI 0:4→Dimz:Cls"1.SZ→XY""2.XY→SZ"?→N:Cls"XO"?U: "YO"?V: "SO"?O:"FO"?G: "LS"?H: "RO"?P:"RN"?R:?Q1÷P→C：(P-R)÷(2HPR) →D：180÷π→EN=2=>Goto 2LbI 1:Cls:?SS=0=>Goto 0 (注:當S輸入0時,程序會由LbI 0開始重新運行)?Z:Abs(S-O)→WProg"SUB1":Cls"XS=":X◢"YS=":Y◢"FS=":F-90 ►DMS◢Goto 1LbI 2:Cls:?XX=0=>Goto 0 (注:當X輸入0時,程序由會LbI 0開始重新運行)?Y:X→I:Y→JProg"SUB2":O+W→S:Cls"S=":S◢"Z=":Z◢Goto 2注:紅色部可以不要,亦可以要,它的作用是將S或 X輸入0時,程序會重新由頭開始運行,(即是可以計算下段線元)SUB1(子程序名)0.1739274226→A:0.3260725774→B0.0694318442→K:0.330009482→L1-L→F:1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]A×cos(Z[1])→X (剩號可省略)X+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→YSUB2(子程序名)G-90→T(Y-V)cos(T)-(X-U)sin(T)→WAbs(W)→W:0→ZLbI 4:Prog"SUB1"T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)＜1E-6:Then 0→Z :Prog"SUB1"(J-Y)÷sin(F)→ZElse W+Z→W:Goto 4:IfEnd三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
X—5800P 公路中线、边桩程序一、主程序 ZBJS18→DimZ:“X0 =”? K: “Y0 =”? D: ? A: ?R: “Ls =”? L: 180/（πR）→ Z [8]: 0.5L-L3/（240R2）→Q:“T=”:(R+L2/(24R))tan(0.5A)+Q→T◢Z[8]L/2→B:“O=”: A/Z[8]+L→O◢(本行中O为字母)“E=”: (R+ L2/(24R))/ （Cos(0.5A)）-R→E◢“JD=”？ Z: “ZH=”:Z-T→Z[18]◢“HY=”: Z[18]+L→ Z[1] ◢“QZ=”: Z[18]+0.5O→Z[9] ◢(本行中O为字母)“YH=”: Z[18]+O- L →Z[2]◢(本行中O为字母)“HZ=”: Z[18]+O→Z[3]◢(本行中O为字母)“P(1,2)=”?P:“X(JD)=”? U: “Y(JD)= ”? V: “FWJ=”?F:Lbl0: “K=”?M:If M≤Z[18]： Then GoTo 6：IfendIf M ≤Z[1]： Then GoTo 1: IfEndIf M <Z[2]： Then GoTo 2: IfEndIf M ≥ Z[3] ：Then GoTo 7：IfEndIf M ≥ Z[2] ：Then GoTo 5：IfEndLbI 1 : M- Z[18]→G ：√-- ((G-G5/(40R2L2))2+(G3/(6RL)-G5/(336R3L)2) →Z[10]:If P<2 :Then F+Z[8]G2/(6L)→C:F+BG2/L2→H：Else F-Z[8]G2/（6L）→C:F-BG2/L2→H：GoTo 3: IfendLbI 2: M-Z[1] →G:R(1-Cos(B+Z[8]G))+L2/（24R）→W:√￣(W2+(RSin(B+Z[8]G)+Q)2) →Z[10]:If P<2 :Then F+tan-1(W/(R Sin(B+Z[8]G)+Q)) → C:F+B+Z[8]G→H：Else F-tan-1(W/(R Sin(B+Z[8]G)+Q))→C:F-B-Z[8]G→H：IfendLbI 3:“X=”: U+T Cos(F-180)+Z[10] Cos（C）→X:“Y=”: V+T Sin(F-180)+Z[10] Sin（C）→Y:Prog“A ”:LbI 4: X →Z[6]: Y→Z[7]:“S=”?S:“Z(X)=”:Z[6]+S cos(H-90)→X◢“Z(Y)=”:Z[7]+S Sin(H-90)→Y◢ Prog“A ”:“Y(X)=”:Z[6]+S Cos(H+90)→X◢“Y(Y)=”:Z[7]+S Sin(H+90)→Y◢ Prog“A ”: GoTo 0:LbI5: Z[3]-M→G:(T-G+G5/(40R2L2))Sin(A)+(G3/(6RL)-G5/(336R3L))Cos(A)→Z[4]:T+(T-G+G5/(40R2L2))Cos(A)-(G3/(6RL)-G5/(336R3L))Sin(A)→Z[5]: √￣(Z[4] 2+Z[5] 2) → Z[10]:If P<2 :Then F+tan-1(Z[4]/Z[5]) →C: F+A-BG2/L2→H:Else F- tan-1(Z[4]/Z[5])→C: F+A-BG2/L2→H :GoTo 3: IfEndLbI6: Z-M→ Z[10]: F+180 →C: F→ H: GoTo 8:LbI7: T+M-Z[3] →Z[10]:If P<2:Then F+A →C:Else F-A →C: C→H: IfEnd:LbI8:“X=”: U+Z[10] cos(C)→ X◢“Y=”: V+Z[10] Sin(C)→ Y◢ Prog “A ”:GoTo 4子程序一： A0→I：0→J：Pol（X-K，Y-D）:“D=”: I →Z[11]◢If Y-D≥0 Then “F=”: J→ Z[12]◢（本行中O为字母）Else “F=”: 360+J →Z[12] ◢ IfEnd子程序二(虚交交点座标计算) XJJDZB?N: N-1→N：“TA=”?A ： 0 →Ο(字母)： 0→ Q：LbI 0：“AB=”?S：“TB=”?B:（S+O）SinB/ Sin（A+B）+Q→Q：（S+O）SinA/ Sin（A+B）→O：A+B→A：“ZJ-A=”:A◢N-1→N：If N=0:Then GoTo 1：Else: GoTo 0:IfendLbI 1：“JD1(TA)=”?I: “T1=”:Q◢“Z(JD )=”: I+Q→Z◢Z-I →K：?F:If K≥0:Then F→H: Else F+180 →H:Ifend“（TA）X=”?C:“(TA) Y=”?D:“U=”:C+AbsKcosH→ U◢“V=”:D+Abs(K SinH)) → V◢Prog “ZBJS ”子程序三(距离、方位角计算)（可独立使用）： DF ？A:? B:LbI 0: ？X: ?Y:0→I:0→J: PoL(X-A,Y-B): “D=”： I →D◢If Y-B≥ 0:Then“F=”： J→ F◢Else “F=”： 360+J →F◢ Ifend :GoTo 0二、独立程序：导线坐标计算DXZB“X0”？X: “Y0”？ Y:LbI 0:？I：？S: F+I →F:“X=”:X+ScosF →X◢“Y=”: Y+SsinF→Y◢If F＜0:Then F=360+F :IfendIf F＞360:Then “F=”: F-360→F◢ Ifend : Goto 0 序号I S--导线间距X--坐标Y--坐标方位角BP0º0′0"134.26X0坐标240.63Y0坐标193.744120º12′45"起始边方位角FºJD1TA -21º45′57" 36.77 408.0642.259 98º26′48" JD1TB -16º29′25" 30.56 449.86239.377 81º57′23" JD2 14º01′28" 64.05 686.88252.686 95º58′51" JD3 37.73 938.19``说明：一、当放线为虚交时，启动<虚交交点座标计算>程序：即：子程序三；二、当放线为单交时，启动主程序即可计算；三、程序中符号说明：（1）. 启动主程序时:X0 ?、Y0 ?——请分别输入仪器点X坐标、Y坐标值Ls ?——输入缓和曲线长；R ?——输入圆曲线半径长度；ZJ-A ?——输入交点总偏角度数；T、O、E、分别为计算出的曲线元素；JD ?——输入总交点里程（一般由公里数输至厘米,且以米为单位）；1，2 ?——输入曲线偏向：左偏输入2，右偏输入1；X（JD）? Y（JD）?——分别输入总交点的X、Y坐标；CD ?—输入放样点里程桩号；F ?——输入前一个交点至欲放样曲线交点的方位角；X=、Y=—计算出的放样点中桩坐标；D=、F=——计算出的置仪点至放样点的距离及方位角；S ?、N ?——分别为中桩至左、右侧边桩的距离；Zx=、Zy=、Yx=、Yy=——计算出的左、右边桩位置的X、Y坐标；D=、F=——置仪点到放样点的距离、方位角：（2）.启动虚交程序时N ? 虚交交点个数；A?—第一虚交偏角；S?—相联两虚交点间间距，共计N-1段；B ?——分别第二至第N个虚交交点的偏角；JD(TA) ?——输入TA点的交点里程桩号；T1=—第一切线长度；JD=——计算出的总交点的里程桩号；F ?——欲放样曲线的第一虚交至前一个曲线交点的方位角；C ?、D ?——分别为TA点的X、Y坐标。
卡西欧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)→JJ<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←┘IfEnd←┘∑y→M←┘For 1→I To N←┘If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘Nent←┘3600(L-S)→T←┘"α CLOSE ERROR(S)="：T◢40→W←┘Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘-T÷N÷3600→P：0→O←┘For 1→I To N←┘If I=1：Then R+List X[I]+P→L←┘Else L+List X[I] +P→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘If I<N：Then List Y[I]<L→Z[I] ：Z[I]+O→O：IfEnd←┘Nent←┘3600(L-S)→T←┘"CHECK α CLOSE ERROR(S)="：T◢U+O-V→O←┘Int(M÷Abs(O))→K←┘"DELTA X(m)= "：ReP(O)◢"DELTA Y(m)= "：ImP(O)◢"RELAT CLOSE ERROR=1÷"：K◢K<4000=>"RELAT CLOSE ERROR OVER! "←┘For 1→I To N-1←┘Z[I]-OList Y[I]÷M→X←┘If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘Norm 1："POINT n="：I◢Fix 3："X(m)= "：ReP(Y)◢"Y(m)= "：ImP(Y)◢Nent←┘Y-V→Q←┘"CHECK X (m)= "：ReP(Q)◢"CHECK Y (m)= "：ImP(Q)◢Goto E←┘Lb1 1："NO DIRECT TRA VE"◢"ANGLE NUM="：N-1◢"SIDE NUM="：N◢"UNKNOWN P NUM="：N-1◢"XA(m)= "？A:"YA(m)= "？B←┘"XB(m)= "？C:"YB(m)= "？D←┘A+Bi→U:C+Di→V←┘0→H:U+List Y[1]<H→Z[1]←┘For 1→I To N-1←┘H+List X[1]→H←┘If H>180：Then H-180→H：Else H+180→L：IfEnd←┘以下未完程序由读者完成。
1.ZBJS (坐标计算主程序) 10→Dim Z:“1.ZX,2.YX”?C:“1.ZS,2.FS”?E:E=2=>Goto 2“X00”?A:“Y00”？BLbl 1:?K:?Z:Prog“1.YS”:Prog“1.HQ”:“X=”:X-Z sin(Z[1]) →Q▲“Y=”:Y+Z cos(Z[1]) →S▲Pol(Q-A,S-B):J<0=>J+360→J“D=”:I▲“F=”:J▼DMS▲Goto 10→KLbl 2:“XP”?Q:“YP”?S:“HP”?I:I→Z[4]Lbl 3:Prog“1.YS”:Prog“1.HQ”:(X-Q)sin(Z[1]+90)-(Y-S)cos(Z[1]+90) →I:If Abs(I)≥0.0001:Then K-I→K:Goto 3:IfEnd“K=”:K▲“Z=”:(X-Q)sin(Z[1])-(Y-S)cos(Z[1]) →Z▲Prog“2.GC”:Prog“1.R”Goto 21.YS (平曲线要素子程序)If C=1:Then If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd: If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd:IfEndIf C=2:Then If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd: If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd:IfEnd1.HQ (坐标计算子程序)K-D+T→IIf I≤0:Then I→X:0→Y:0→Z[1]:Goto 1:IfEndIf I≤M:Then I-I∧(5)÷(40R2M2) →X:I∧(3)÷(6RM)-I∧(7) ÷(336 R∧(3) M∧(3)) →Y:90I2÷(πRM) →Z[1]:Goto 1:IfEndIf I≤L-N:Then180(I-M)÷（Rπ）+90M÷（Rπ）→Z[1]:Rsin(Z[1])+M ÷2-M∧(3)÷（240R2）→X:R(1-cos(Z[1]))+M2÷（24R）→Y:Goto 1:IfEndIf I≤L:Then L-I→I:F+W O-W(90I2÷（πRN）) →Z[1]: I∧(3)÷(6RN)→J: I-I∧(5)÷(40R2N2) →I:U+P cos(F+W O)+I cos(F+W O+180)+WJsin(F+W O+180)→X:V+P sin(F+W O)+I sin (F+W O+180)-WJcos (F+W O+180) →Y:Return:IfEndIf I>L:Then K-D+T-L→J:F+W O→Z[1]:U+P cos(Z[1])+J cos(Z[1])→X:V+Psin(Z[1])+Jsin(Z[1])→Y:Return:IfEndLbl 1:X→I:WY→J:U+Tcos(180+F)+Icos(F)-Jsin(F)→X:V+Tsin(180+F)+Isin(F)+Jcos(F)→Y:F+WZ[1]→Z[1]1.R (半径计算子程序)说明：X表示圆心至测设线的距离，Y表示圆心至设计高程的距离。
fx-5800P易学易用程序集卡西欧(中国)贸易有限公司版程序列表备注；；用户对用本书疑问，请发邮件到：gongchengji@ 。
欢迎交流！卡西欧的客服热线：400-700-6655。
联系:gongchengji@ 。
G1G2G3G4G5G6G7G8G9G10G111-1G12G12-10-10-2fx-5800P G2011-9-30...常用测量程序1极坐标放样程序（已知坐标计算边长、方位角计算程序），程序名5 J<0J+360→J把小于6 7 "FWJ="：J DMS ◢显示方位角2已知边长方位角计算坐标程序，程序名3建筑轴线偏移程序(或扩大基础程序)。
程序名（）（）4测角前方交会坐标计算，程序名5测角后方交会坐标计算，程序名3 Pol((C –A),(D –B)) : J<0J+360→J : J →Z[4] 计算点（）的方位角4 Pol((E –A),(F –B)) : J<0J+360→J : J →Z[5]计算点（）的方位角5 6 Z[1]<0Z[1]+360→Z[1]计算点（）的顶角并存贮到变量 7 Pol((E –C),(F –D)): J<0J+360→J : J →Z[4] 计算点（）的方位角 8 Pol((A –C),(B –D)): J<0J+360→J : J →Z[5] 计算点（）的方位角9Z[4]-Z[5]→Z[2]方位角计算顶角10 Z[2]<0Z[2]+360→Z[2]计算点（）的顶角并存贮到变量 11 Pol((A –E),(B –F)) : J<0J+360→J :J →Z[4] 计算点（）的方位角 12 Pol((C –E),(D –F)) : J<0J+360→J : J →Z[5]计算点（）的方位角13 14 Z[3]<0Z[3]+360→Z[3]计算点（）的顶角并存贮到变量 15 tan(Z[1]) tan(G) ÷(tan(Z[1])- tan(G))→Z[7] 计算点（）的参数 计算点（）的参数 计算点（）的参数（）（）（）6坐标转换计算程序，程序名-D （）（）（）7直线中边桩坐标计算程序,程序名8圆曲线中边桩坐标计算程序,程序名9完整缓和曲线中边桩坐标计算程序,程序名fx-5800P 程序使用流程：本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A匝道，文件名为A ，将匝道A 所有的曲线线元参数输入A文件里。
转] 道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通）转载自魁北克之眼转载于2010年03月30日 11:44 阅读(7) 评论(0) 分类：测绘举报错了别怪我一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。
原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。
改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。
程序的特点：1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。
二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600）。
这里摘取直线、曲线及转角表资料如下... 三、程序代码...... 注：路线数据库子程序ROAD－DATA1是根据计算示例项目的直曲表编写，大家使用时应按各自项目的直曲表改写或新建。
卡西欧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 （直线）。
5800计算程序Fx-5800计算机程序QXJS-000 主程序Lbl 4:“1.SZ=>NE”:“2.NE=>SZ”:“1,2=”? →Q:”LICHENG=”? →S:Prog“QXJSSUB0”↙Lbl 0:IfQ=1:Then Goto1:IfEnd:IfQ=2:ThenGoto2:IfEnd↙Lbl 1:”OUT JL=”? →Z:Prog“QXJSSUB1”:“XZB=”:N→N◢“YZB=”:E→E◢“QXFWJ=”:F→F:F▲DMS◢Goto4↙Lbl 2: “XZB=”? →B: “YZB=”?→C:B→N: C→E:Prog“QXJSSUB2”: “LICHENG=”:S→S ◢“OUT JL=”:Z→Z◢Goto4↙QXJSSUB0 (数据库)Goto1↙Lbl 1IF S<157687.528:THEN 2884169.2517→U:471475.6573→V:157547.528→O:98°32′43.08″→A:140→L:10^45→P:10000→R: Return:IfEnd↙IF S<157993.605:THEN 2884148.1260→U:471614.0539→V:157687.528→O:98°56′46.93″→A:306.0771→L:10000→P:10000→R: Return:IfEnd↙IF S<158133.605:THEN 2884095.9086→U:471915.6318→V:157993.605→O:100°42′0.22″→A:140→L:10000→P:10^45→R: Return:IfEnd↙IF S<163641.879:THEN 2884069.2735→U:472053.0744→V:158133.605→O:101°6′4.07″→A:5508.274→L:10^45→P:10^45→R: Return:IfEnd↙IF S<163781.879:THEN 2883008.7030→U:477458.2815→V:163641.879→O:101°6′4.08″→A:140→L:10^45→P:10000→R: Return:IfEnd↙IF S<164195.661:THEN 2882981.4268→U:477595.5984→V:163781.879→O:101°30′7.93″→A:413.7833→L:10000→P:10000→R: Return:IfEnd↙IF S<164335.661:THEN 2882890.5519→U:477999.2492→V:164195.6623→O:103°52′22.82″→A:140→L:10000→P:10^45→R: Return:IfEnd↙IF S<171831.142:THEN 2882856.3502→U:478135.0069→V:164335.6623→O:104°16′26.67″→A:7495.481→L:10^45→P:10^45→R: Return:IfEnd↙IF S<171961.1406:THEN 2881008.2613→U:485399.0830→V:171831.1404→O:104°16′26.65″→A:130→L:-10^45→P:-11000→R: Return:IfEnd↙IF S<172204.6898:THEN 2880976.4567→U:485525.1322→V:171961.1406→O:103°56′7.81″→A:243.5492→L:-11000→P:-11000→R: Return:IfEnd↙IF S<172334.6898:THEN 2880920.4244→U:485762.1431→V:172204.6898→O:102°40′0.93″→A:130→L:-11000→P:-10^45→R: Return:IfEnd↙QXJSSUB1 正算子程序0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90) →N:E+Zsin(F+90) →EReturnQXJSSUB2 反算子程序Lbl 1:0→Z：1→Q：Prog“QXJSSUB0”: Prog“QXJSSUB1”:Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙IfAbs(W)>0.0001 :Then Goto1:IfEnd↙Lbl 2: 0→Z：Prog“QXJSSUB1”:(C-E) ÷sin(F+90) →ZReturn5800计算程序Fx-5800计算机程序QXJS-000 主程序Lbl 4:“1.SZ=>NE”:“2.NE=>SZ”:“1,2=”? →Q:”LICHENG=”? →S:Prog“QXJSSUB0”↙Lbl 0:IfQ=1:Then Goto1:IfEnd:IfQ=2:ThenGoto2:IfEnd↙Lbl 1:”OUT JL=”?→Z:Prog“QXJSSUB1”:“XZB=”:N→N◢“YZB=”:E→E◢“QXFWJ=”:F→F:F▲DMS◢Goto4↙Lbl 2: “XZB=”? →B: “YZB=”? →C:B→N: C→E:Prog“QXJSSUB2”: “LICHENG=”:S →S ◢“OUT JL=”:Z→Z◢Goto4↙QXJSSUB0 (数据库)Goto1↙Lbl 1IF S<157687.528:THEN 2884169.2517→U:471475.6573→V:157547.528→O:98°32′43.08″→A:140→L:10^45→P:10000→R: Return:IfEnd↙IF S<157993.605:THEN 2884148.1260→U:471614.0539→V:157687.528→O:98°56′46.93″→A:306.0771→L:10000→P:10000→R: Return:IfEnd↙IF S<158133.605:THEN 2884095.9086→U:471915.6318→V:157993.605→O:100°42′0.22″→A:140→L:10000→P:10^45→R: Return:IfEnd↙IF S<163641.879:THEN 2884069.2735→U:472053.0744→V:158133.605→O:101°6′4.07″→A:5508.274→L:10^45→P:10^45→R: Return:IfEnd↙IF S<163781.879:THEN 2883008.7030→U:477458.2815→V:163641.879→O:101°6′4.08″→A:140→L:10^45→P:10000→R: Return:IfEnd↙IF S<164195.661:THEN 2882981.4268→U:477595.5984→V:163781.879→O:101°30′7.93″→A:413.7833→L:10000→P:10000→R: Return:IfEnd↙IF S<164335.661:THEN 2882890.5519→U:477999.2492→V:164195.6623→O:103°52′22.82″→A:140→L:10000→P:10^45→R: Return:IfEnd↙IF S<171831.142:THEN 2882856.3502→U:478135.0069→V:164335.6623→O:104°16′26.67″→A:7495.481→L:10^45→P:10^45→R: Return:IfEnd↙IF S<171961.1406:THEN 2881008.2613→U:485399.0830→V:171831.1404→O:104°16′26.65″→A:130→L:-10^45→P:-11000→R: Return:IfEnd↙IF S<172204.6898:THEN 2880976.4567→U:485525.1322→V:171961.1406→O:103°56′7.81″→A:243.5492→L:-11000→P:-11000→R: Return:IfEnd↙IF S<172334.6898:THEN 2880920.4244→U:485762.1431→V:172204.6898→O:102°40′0.93″→A:130→L:-11000→P:-10^45→R: Return:IfEnd↙QXJSSUB1 正算子程序0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90) →N:E+Zsin(F+90) →EReturnQXJSSUB2 反算子程序Lbl 1:0→Z：1→Q：Prog“QXJSSUB0”: Prog“QXJSSUB1”:Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙IfAbs(W)>0.0001 :Then Goto1:IfEnd↙Lbl 2: 0→Z：Prog“QXJSSUB1”:(C-E) ÷sin(F+90) →ZReturn。
FX-5800计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 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２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+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-XYLbI 0:Norm 290→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:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 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:Then0.75-L→D:Goto H:Else L-0.75→D:Got o H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:ElseZ[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 Goto2: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:GotoZ: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◢＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3 LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A：0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+W Ｓ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0: LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto2:IfEnd:LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。
