fx5800计算程序清单。1
CASIOfx-5800程序
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。
fx-5800程序1
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计算器测量程序
卡西欧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←┘以下未完程序由读者完成。
CASIOfx-5800程序
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表示圆心至设计高程的距离。
卡西欧5800计算器编程入门程序集
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文件里。
5800计算器程序(1)
转] 道路中边桩坐标放样正反算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 坐标正算程序
卡西欧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 （直线）。
CASIOfx5800程序
公路施工放线测量公式及程序（CASIO fx5800P)
一、已知座标，求平距和方位角(座标反算)： 公式： D=√（Xp-Xo）+（Yp-Yo） α =arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M： （Y-B）→N：“D=”：√（M +N ）⊿ 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 程序：“C”？→C：“D”？→D：“Q”？→Q：“Z”？→Z：“U”→U：“T”？→T： “V”？→V：Lbl 1: “L”？→L：Abs（L-Z）→W：“X=”：C+W*cos(Q)→X ⊿“Y=”： D+W*sin(Q)→Y ⊿ If U≤0:Then Goto1:Else “XL=”:X+U*cos(Q-V)→A ⊿“YL=”： Y+U*sin(Q-V)→B⊿“XR=”:X+T*cos(Q+V)→E⊿“YR=”：Y+T*sin(Q+V)→F⊿ 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: “L”？→L：180*（L-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*（L-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* （L-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时曲线右转。“ZJ=”为左边距，“YJ=”为右边距，“PIAN JIAO”为偏角，偏角输0时不算边桩坐标。输出：（X，Y）为中桩坐标，“Q=”为所求点 方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。 四、已知直缓点坐标（M，N）、方位角Q、桩号Z，缓和曲线全长S和连接圆半径R，求缓和 曲线上任一点（桩号为L）的中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式： θ =30L/(π RLs) C=L-L/(90R Ls) α =α ±90Ls/(π A) 程序：“M”？→M：“N”？→N：“R”→R：“A”？→A：“S”→S：“Z”？→Z：“Q” ？→Q：“W=-1，1”：？→W：“ZJ=”？→Z[1]：“YJ=”？→Z[2]：“PIAN JIAO”：？→ T：Lbl 3:“L”？→L：Abs (L-Z)→H:30*H/(π RS)→D:H-H/(90R S )→C:If W=-1:Then “X=”：M+C*cos(Q-D)→X⊿“Y=”：N+C*sin(Q-D)→Y ⊿ A =0 =＞Goto 3:“Q=”:Q-90H /(π A）→E ⊿ Else If W=1:Then “X=”：M+C*cos(Q+D)→X⊿“Y=”：N+C*sin(Q+D)→Y ⊿ A=0 =＞Goto 3:“Q=”:Q+90*H/(π A）→E ⊿IfEnd:IfEnd:T=0=＞Goto 3：“XL=”: X+Z[1]*cos(E-T)⊿“YL=”：Y+Z[1]*sin(E-T) ⊿“XR=”:X+Z[2]*cos(E+T)⊿“YR=”： Y+Z[2]*sin(E+T)⊿ Goto 3 说明：“A”为缓和曲线参数，W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=” 为右边距，“PIAN JIAO”为偏角，偏角输0时不算边桩坐标。输出：（X，Y）为中桩坐标， “Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。 五、已知卵形曲线（即非完整缓和曲线）大圆半径R，小圆半径r，缓和曲线参数A，以大圆 的圆缓点为起点，其坐标为（C，D），其方位角为Q，其桩号为Z，求桩号为L的点的中桩坐
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
SQX XWSZ
以X轴为实轴的双曲线计算
352
32
以Y轴为实轴双曲线
SQX YWSZ
以Y轴为实轴的双曲线计算
335
33
竖曲线计算
SHUQX JS
已知竖曲线要素和顶点的设计高程，计算两个顶点之间的线路高程
520
34
偏角法测设缓和曲线.
HHQX RYXYDPJ
在缓和曲线任一点置仪，用偏角法测设缓和曲线
4ቤተ መጻሕፍቲ ባይዱ6
27
已知两角夹边解三角形
J3JX2JJB
已知两角夹边，解三角形
156
28
已知两角对边解三角形
J3JX2BDJ
已知两角对边，解三角形
296
29
以X轴为对称的抛物线
PWXXWDCENG
以X轴为对称轴的抛物线计算
188
30
以Y轴为对称的抛物线
PWX YWDCENG
以Y轴为对称轴的抛物线计算
204
31
TYZJZB X-Y
椭圆已知x求y
412
10
椭圆由Y计算X
TYZJZB Y-X
椭圆已知y求x
11
圆曲线要素计算
YQXYS JS
已知R、α计算圆曲线要素
216
12
缓和曲线要素计算
HHQXYSJS
已知R、LS、α计算缓和曲线要素
274
13
直线计算
ZX-JS
已知直线起始点里程和坐标，计算某一里程的坐标
418
17
缓和曲线加圆曲线计算
HHQX+YQX
置仪于ZY点，计算缓和曲线和圆曲线上各点及线路两侧点的坐标及放样数据
722
18
复曲线计算
FQX JS
已知曲线起始点里程、坐标、方位角，曲线起点和终点半径，即可计算曲线上任一点里程及两侧点的坐标
1652
19
前方交会计算
QFJH JS
在两个已知点上置仪，观测至未知点的角度，计算其坐标
14
坐标转换
ZBZH
已知目标坐标的原点在原坐标中的坐标值和相对于原坐标系旋转的角度，计算已知原坐标在目标坐标中的值
194
15
圆曲线计算
YQXJS
置仪于ZY点，计算圆曲线上各点及线路两侧点的坐标及放样数据
476
16
缓和曲线计算
HHQXJS
置仪于ZH点，计算缓和曲线上各点及线路两侧点的坐标及放样数据
582
132
5
椭圆周长及面积计算
TYZC MJ JS
用极坐标法计算椭圆周长及面积
394
6
椭圆周长及面积计算
TYZC MJ-2
用同心圆法和纬度B计算椭圆的周长及面积
7
椭圆极坐标计算
TY JZB X Y
用极坐标计算椭圆的x、y
236
8
椭圆等分法计算X、Y
TY DFF Y X
用等分法计算椭圆的x、y
262
9
椭圆由X计算Y
23
边角交会计算-2
LJJHJS－2
已知两点A(M)、B(N)，在B(N)点测得至未知点的边长和距离，计算未知点的坐标
168
24
已知三边解三角形
J3JX3B
已知三边，解三角形
220
25
已知两边夹角，解三角形
J3JX2BJJ
已知两边夹角，解三角形
264
26
已知两边对角解三角形
J3JX2BDJ
已知两边对角，解三角形
196
20
后方交会计算
HFJH JS
在未知点上置仪，观测已知的三点，计算未知点坐标
326
21
距离交会计算
JLJH JS
测得两已知点至未知点的距离，计算未知点的坐标
284
22
边角交会计算-1
BJJH JS-1
已知两点A(M)、B(N)，在A(M)点测得至未知点的边长和距离，计算未知点的坐标
162
fx5800计算程序清单
fx5800计算程序清单
序号
名称
代号
说明
Bytes
1
坐标正算
ZBZS
已知边长和方位角计算坐标增量
136
2
导线坐标计算
DXZBJS
从已知点起，用边长和方位角逐点计算各点的坐标
180
3
坐标反算-1
ZBFS-1
已知各点坐标，从起始点开始，逐点计算坐标增量
180
4
直角坐标至极坐标
ZJZB JZB
已知一点的直角坐标，计算其极坐标
264
35
竖曲线计算
SHUQX JS
已知竖曲线要素，在一个竖曲线前、后线路上两点的设计高程，计算该竖曲线的路线高程
462
36
37
38
39
40
41