CASIO fx-5800p测量程序

合集下载

CASIO-fx-5800P实用工程测量程序

CASIO-fx-5800P实用工程测量程序

CASIO-fx-5800P实用工程测量程序今天,我想向大家介绍一款非常实用的工程测量程序:CASIO-fx-5800P。

CASIO-fx-5800P是一款非常实用的计算器,可以用于各种工程测量和计算。

在这篇文章中,我将详细介绍该计算器的功能和使用方法。

什么是CASIO-fx-5800P?CASIO-fx-5800P是CASIO公司的一款高级科学计算器,该计算器集成了丰富的计算功能和工程测量功能,可以帮助用户准确地进行各种计算和测量。

该计算器适用于各种工程测量、科学计算、数据分析等工作。

CASIO-fx-5800P的功能下面是CASIO-fx-5800P常用的功能:1. 基本运算功能CASIO-fx-5800P可以进行各种基本运算,如加减乘除、开方、开方根、倒数等等。

2. 三角函数和反三角函数CASIO-fx-5800P 提供了三角函数和反三角函数的计算功能,如正弦函数、余弦函数、正切函数、反正弦函数、反余弦函数、反正切函数等。

3. 统计学计算CASIO-fx-5800P 提供了各种统计学计算功能,如数据输入、平均数、方差、标准差、偏差等。

4. 矩阵功能CASIO-fx-5800P 可以完成任何矩阵的基本计算,如矩阵乘法、矩阵求逆、矩阵行列式、矩阵分解、矩阵特征向量和特征值等。

5. 工程测量CASIO-fx-5800P 可以进行各种工程测量计算,如距离计算、面积计算、容积计算、温度计算、时间计算等。

6. 复数运算CASIO-fx-5800P 可以进行各种复数运算,如加减乘除、转换成极坐标形式等。

7. 方程求解CASIO-fx-5800P 可以解各种方程,如一次方程、二次方程、三次方程、四次方程、多项式方程、微积分方程等。

CASIO-fx-5800P在工程测量中的应用下面,我将介绍CASIO-fx-5800P 在工程测量中的应用。

CASIO-fx-5800P 是一种非常实用的计算器,在工程测量中有着广泛的应用。

5800计算器测量计算程序-3页精选文档

5800计算器测量计算程序-3页精选文档

Casio Fx-5800P计算器公路测量计算程序王宏伟2009年8月1日非对称及对称曲线坐标计算程序源主程序1(DF)“X0”?O:“Y0”?ZPol(X-O,Y-Z):I:“D=”:I◢J<0=>J+360→J:J:“FWJ=”:◢主程序2:(SIMI)(U÷V-U÷R)÷(Q-A)→T4→N(K-A)÷N→H90H÷л→SF+((TNH+U÷R)+U÷R)NS→W1→GD+H÷6×(cos(F)+cos(W)+4∑(cos(F+((G+0.5)HT+2U÷R)(G+0.5)S),G,0,(N-1))+2∑(cos(F+(THG+2U÷R)GS,G,1,(N-1)))+Lcos (W+P)→XE+H÷6×(sin(F)+sin(W)+4∑(sin(F+((G+0.5)HT+2U÷R)(G+0.5)S),G,0,(N-1))+2∑(sin(F+(THG+2U÷R)GS,G,1,(N-1)))+Lsin (W+P)→Y坐标计算程序源:(BJL被交路)Lbl 0“K”?K:“L”?L:“P”?PK<1102=>Goto B:K<1498.2=>Goto C:K≤2917.2=>Goto DLbl B0→A:1102→Q:7700→R:7700→V:4211738.83→D:637209.588→E:269°4′11.4″→F:1→U:Goto 1Lbl C1102→A:1498.2→Q:7700→R:6000→V:4211799.713→D:636110.212→E:277°16′11.4″→F:0→U:Goto 1Lbl D1498.2→A:2917.2→Q:6000→R:6000→V:4211849.851→D:635717.198→E:277°16′11.4″→F:-1→U:Goto 1Lbl 1Prog“SIMI”W<0=>W+360→W:W:“FWJ=”:◢“X=”:X◢“Y=”:Y◢Prog“DF”: Goto 0程序说明K ……所计算桩号W“FWJ”……所计算桩号切线方位角A“QD”……起点里程Q“ZD”……终点里程R“RO”……起点半径V“RN”……终点半径D“XQ”……起点坐标E“YQ”……起点坐标F“F0”……起点方位角U……曲线转向(左-1、直0、右1)L……距中桩距离P……边桩与中线交角希望以上资料对你有所帮助,附励志名言3条:1、理想的路总是为有信心的人预备着。

卡西欧fx-5800p计算器测量程序

卡西欧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←┘以下未完程序由读者完成。

CASIO_fx-5800P实用工程测量辛甫森公式放样程序

CASIO_fx-5800P实用工程测量辛甫森公式放样程序

测量放样,适用于5800p计算器一、QXFY 辛甫森公式放样程序1. “X0”? U:“Y0”?V2. “XA”? A:“YA”? B:“CA”? C:“1÷RA”?D:“1÷RB”?E:“KA”?F:“KB”? G3. Lb1 1:“KI”?H:“JJ”?L:“Y+Z-”?R4. If H>G Or H<F : Then Goto 1: IfEnd6. (E-D) ÷Abs(G-F) P: Abs(H –F)→Q:P×Q→Z:D+Z→T7. C+(Z+2D)Q×90÷π→W :“QXFWJ”:8. C+(Z÷4+2D)Q×22.5÷π→M:C+(3Z÷4+2D)Q×67.5÷π→N:C+(Z÷2+2D)Q×45÷π→K9. A+Q(cosC+4(cosM+cosN)+2cosK+cosW)÷12+Rcos(W+L) →X:“X=”:X10. B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(W))÷12+Rsin (W+L)→Y:“Y=”:Y11. Pol((X-U),(Y-V))If J≤0 Then J+360→J: IfEnd : “FWJ”:J12. “JU”: I13. Goto 1程序显示说明:须输入参数:X0:置镜点X (对应变量U) Y0:置镜点Y (对应变量V)XA:曲线起算点X (对应变量A)YA:曲线起算点Y (对应变量B)CA:曲线起算点切线方位角(对应变量C) 1÷RA:1÷半径,即起算点曲率,右偏为正左偏为负(对应变量D)1÷RB:1÷半径,即曲终点曲率,右偏为正左偏为负(对应变量E)KA:起算点里程(对应变量F)KB:曲终点里程(对应变量G)KI:待求点里程(对应变量H)JJ:夹角(与前进方向切线向右的夹角)(对应变量L)D“Y + Z-:偏距,右正左负(对应变量R)计算结果: W: 待求点切线方位角(对应变量W) X:计算点x (对应变量X)Y:计算点y (对应变量Y)FWJ:放样方位角(对应变量J)S:放样距离(对应变量I)X0Y0KB本程序依据复化辛甫森公式计算原理改进而成,特点是把曲线按曲率变化点分成若干计算单元单独计算,不论直线(曲率为0)、圆曲线(曲率为1/R)、卵形曲线,只要按曲率变化点分解弄清变化点曲率半径,右偏左偏曲线由曲率的正负号分别,既可求得该计算单元内任意里程中桩也可求斜交或正交的边桩。

fx5800P测量公式及程序汇总

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时曲线右转。

卡西欧fx-5800p计算器 公路测量常用程序

卡西欧fx-5800p计算器 公路测量常用程序

FX-5800p计算器公路测量常用程序一、程序功能本程序由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:Fix 3:"X=":Locate 6,4,X◢"Y=":Locate 6,4,Y◢Prog"3JS”:Goto 0:Lb1 2:Fix 3:"KM=":Locate 6,4,Z◢Goto 02.主程序2:高程序横坡程序(设计任意点高程及横坡)程序名:2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix3:”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: "X=":Locate 6,4,X◢"Y=":Locate 6,4,Y◢Prog"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:Then 0.75-L→D:GotoH:Else L-0.75→D:Goto 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: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◢"D=":Locate 6,4,D◢“TW=”: Locate 6,4,Z[5]◢Goto 06.主程序6:路基标准半幅宽度计算程序(对于设计有加宽渐变的有用,如路基宽度无变化,则把此程序直接输入半幅宽度值至L)程序名:6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7.坐标计算次程序(THB)程序名:THB18→DimZ:"KM"?Z:Prog "X0"1÷P→C: (P-R)÷(2HPR) →S:180÷π→E:F=1=>Goto 1:F=2=>Goto 2←┘Lbl 1:?D: Abs(Z-O) →W:Prog "A":X:Y:Goto 3LbI 2:X:Y:X→I:Y→J:Prog "B":O+W→Z:D→D:Goto 3LbI 3:IF F=1Then X:Y:Else Z:D8. 正算子程序(A)程序名:A0.1184634425→A: 0.2393143352→B:0.2844444444→N 0.046910077→K:0.2307653449→L:0.5→M: U+W(Acos(G+QEKW(C+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+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+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WS))) →Y:G+QEW(C+WS)+Z[1]→Z[2]:X+Dcos(Z[2])→X: Y+Dsin(Z[2])→Y9. 反算子程序(B)程序名:BG-90→T: Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→D:Lbl 0:Prog "A": T+QEW(C+WS) →L: (J-Y)cos(L)-(I-X)sin(L)→D:IF Abs(D)<0.01:Then Goto1:Else W+D→W:Goto 0←┘Lbl 1:0→D:Prog "A":(J-Y)÷sin(Z[2]) →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 IfZ<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:Goto 2: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。

CASIO Fx-5800P计算器测量计算程序

CASIO Fx-5800P计算器测量计算程序

CASIO Fx-5800P计算器测量计算程序一、井下斜距改成平距和高差的计算程序“SJ=”?S:“CZJ=”?B:“YQG=”?C:“QSG=”?DS×cos(B)→LS×sin(B)-C+D→V“L=”:L◢“GC=”:V◢CLS说明:SJ→斜距;CZJ→垂直角;YQG→仪器高;QSG→前视高;L→平距;GC→高差。

二、测量基本控制导线坐标计算程序“L=”?L:“GC=”?V:“SBJ=”?AW+A→WIF W<180:Then W+180→W: Else W-180→W: IFEndIF W<360:Then W→W: Else W-360→W: IFEndIF W<360:Then W→W: Else W-360→W: IFEndX+L×cos(W)→X:Y+ L×sin(W)→Y:Z+V→Z“FWJ=”:W DMS◢“X=”:X◢“Y=”:Y◢“Z=”:Z◢CLS说明:(1)、把已知的X坐标先存入X、Y坐标存入Y、高程存入Z、方位角存入W(2)、L→平距;GC→高差;SBJ→水平角;FWJ→方位角;X→X坐标;Y→Y坐标;Z→高程。

三、井下测量导线坐标计算程序“SJ=”?S:“CZJ=”?B:“YQG=”?C:“QSG=”?D :“SBJ=”?A S×cos(B)→LS×sin(B)-C+D→VZ+V→ZW+A→WIF W<180:Then W+180→W:Else W-180→W:IFEndIF W<360:Then W→W:Else W-360→W:IFEndIF W<360:Then W→W:Else W-360→W:IFEndX+L×cos(W)→X:Y+ L×sin(W)→Y:Z+V→Z“L=”:L◢“GC=”:V◢“FWJ=”:W DMS◢“X=”:X◢“Y=”:Y◢“Z=”:Z◢CLS说明:(1)、把已知的X坐标先存入X、Y坐标存入Y、高程存入Z、方位角存入W(2)、SJ→斜距;CZJ→垂直角;YQG→仪器高;QSG→前视高;L →平距;GC→高差;SBJ→水平角;FWJ→方位角;X→X坐标;Y→Y坐标;Z→高程。

CASIO fx-5800p计算器测量实用程序加数据库

CASIO fx-5800p计算器测量实用程序加数据库

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 (结束)-ZBFY(带“-”号的程序表示子程序):Deg:Fix3:26→DimZ↵Lbl0↵If O<0:Then -1→W:Else 1→W:IfEnd:W O→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↵RAπ÷180÷(B+C)÷2→L↵K-S→Z〔1〕↵Z〔1〕+B→Z〔2〕↵Z〔1〕+L÷2+(B-C) ÷4→Z〔3〕↵Z〔1〕+L-C→Z〔4〕↵Z〔4〕+ C→Z〔5〕↵Pol(X-M,Y-N):J →Z〔20〕:J+O→Z〔19〕↵X-Scos(Z〔20〕) →Z〔21〕↵Y-Ssin(Z〔20〕) →Z〔22〕↵X+Tcos(Z〔19〕) →Z〔23〕↵Y+Tsin(Z〔19〕) →Z〔24〕↵If P> Z〔1〕:Then Goto1:IfEnd↵Z〔1〕-P →L↵“XP=”:X-(S+L)cos(Z〔20〕) →F“YP=”:Y-(S+L)sin(Z〔20〕) →GZ〔20〕→Z↵Goto 5↵Lbl 1↵If P> Z〔2〕:Then Goto 2:IfEnd↵P- Z〔1〕→L:L→Z〔14〕:B→Z〔15〕:Prog”-FY”↵“XP=”: Z〔21〕+ Z〔16〕cos(Z〔20〕)-W Z〔17〕sin(Z〔20〕) →F“YP=”: Z〔22〕+ Z〔16〕sin(Z〔20〕)+W Z〔17〕cos(Z〔20〕) →GZ〔20〕+90WL2÷(BRπ)→Z↵Goto 5↵Lbl 2↵If P> Z〔4〕:Then Goto 3:IfEnd↵P- Z〔1〕→L:90(2L-B) ÷R÷π→Z〔13〕↵Rsin(Z〔13〕)+ Z〔8〕→Z〔16〕:R(1-cos(Z〔13〕))+ Z〔6〕→Z 〔17〕↵“XP=”: Z〔21〕+ Z〔16〕cos(Z〔20〕)-W Z〔17〕sin(Z〔20〕) →F“YP=”: Z〔22〕+ Z〔16〕sin(Z〔20〕)+W Z〔17〕cos(Z〔20〕) →GZ〔20〕+W Z〔13〕→Z↵Goto 5↵Lbl 3↵If P> Z〔5〕:Then Goto 4:IfEnd↵Z〔5〕-P→L:L→Z〔14〕:C→Z〔15〕:Prog”-FY”↵“XP=”: Z〔23〕- Z〔16〕cos(Z〔19〕)-W Z〔17〕sin(Z〔19〕) →F“YP=”: Z〔24〕- Z〔16〕sin(Z〔19〕)+W Z〔17〕cos(Z〔19〕) →GZ〔19〕-90WL2÷(CRπ)→Z↵Goto 5↵Lbl 4↵P- Z〔5〕→L↵“XP=”:X+(T+L)cos(Z〔19〕) →F“YP=”:Y+(T+L)sin(Z〔19〕) →GZ〔19〕→Z↵Lbl 5↵“D ANGLE”?H↵If H=0:Then Goto 9:IfEnd:?D↵“XB=”:F+Dcos(Z+H) →Z〔11〕“YB=”:G+Dsin(Z+H) →Z〔12〕Goto 5↵Lbl 9 (结束)-FY(子程序2):If Z〔14〕=0:Then 0→Z〔16〕:0→Z〔17〕:Else↵Z〔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 (结束)CASIO fx-5800p道路匝道坐标放样程序简化使用程序说明:本程序根据主线坐标放样程序的思想编写,原理相同,优点相同,使用相同。

CASIO fx-5800P编程计算器公路与铁路施工测量程序

CASIO fx-5800P编程计算器公路与铁路施工测量程序

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]◢
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名: JDB
X-Scos(M)→Z[19]:
360Frac((J+360)÷360▼DMS◢
Goto 0 : IfEnd↙
If D>0 :Then Cls : "X(R)=":"Y(R)=": Locate 6,1,F : Locate 6,2,G◢
Pol(F-U,G-V : Cls : "S(R)=": Locate 6,1,I : "F(R)=":
三、使用说明
1、规定
(1) 以道路中线的前进方向(即里程增大的方向)区分左右;当曲线半径在左时,P、R取负值,当曲线半径在右时,P、R取正值,当曲线半径为无穷大(即直线)时,P、R以10的45次代替。
(2) 当所求点位于中线时,Z=0;当位于中线左铡时,Z取负值;当位于中线中线右

CASIO fx-5800P线元法坐标正反算程序

CASIO fx-5800P线元法坐标正反算程序

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]第2步If Abs(Z[10])>0.001:Then S+Z[10]→S:Goto 2:Else Goto 1:IfEnd第3步Lbl 1:(Y-J)÷sin(Z[9])→Z第4步Pol(X-I,Y-J):If Z<0:Then -1×I→Z:Else 1×I→Z:IfEnd数据库名:ABCYTSJ第1步Goto1第2步Lbl 1:If S<7586.707 Or S>13346.96:Then Cls:Locate 2,2,"PQX":Locate 4,3,"CHAOXIAN":Locate 10,4,"→Stop"◢第3步Stop:IfEnd第4步Lbl 1:IF S<7946.707:Then 98°56′56″→G:7586.707→o:3378605.445→U:453648.704→V:0→P:4500→R:360→H:1→Q:Return:IfEnd第5步Lbl 1:IF S<11766.03:Then 101°14′26″→G:7946.707→o:3378544.714→U:454003.518→V:4500→P:4500→R:3819.323→H:1→Q:Return:IfEnd第6步Lbl 1:IF S<12126.03:Then 149°52′11″→G:11766.03→o:3376389.890→U:457018.324→V:4500→P:0→R:360→H:1→Q:Return:IfEnd第7步Lbl 1:IF S<13346.96:Then 152°09′41.68″→G:12126.03→o:3376073.846→U:457190.654→V:0→P:0→R:1220.93→H:0→Q:Return:IfEnd第n步……………………………………………………数据输入说明:第1步Goto1第2步Lbl 1:If S<本条线路起点里程S>本条线路止点里程Cls:Locate 2,2,"PQX":Locate 4,3,"CHAOXIAN":Locate 10,4,"→Stop"◢第3步Stop:IfEnd第4步Lbl 1:If S<本线元止点里程:Then线元起点切线方位角→G:线元起点桩号→O:线元起点坐标X→U:线元起点坐标Y→V:线元起点半径(直线为0、曲线为半径)→P:线元止点半径(直线为0、曲线为半径)→R:线元长度→H:线元转向(左转为-1、右转为1、直线为0)→Q:Return:IfEnd第n步Lbl 1:每增加一行则为增加一个线元要素。

卡西欧fx-5800p计算器测量程序

卡西欧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←┘以下未完程序由读者完成。

fx-5800p 部分程序

fx-5800p  部分程序

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:待求点里程。

卡西欧fx-5800P程序

卡西欧fx-5800P程序

卡西欧fx-5800P程序1坐标反算(ST)Lb1 1:"X1="?A:"Y1="?BLb2 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="?KIf K=1:Then Goto1:If EndIf K=2:Then Goto2:If EndIf 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)="?PIf P=1:Then Goto2:Else Goto5:If EndLbI 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▲Goto6Lb1 5:"T(0-A )="?FLb16:"S(0-P )="?S:"E(∠AOP=)"?EE+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="?KIf K=1:Then Goto0:If EndIf K=2:Then Goto6:If EndIf 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。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

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◢GotoA3.程序说明3.1 输入已知变量R—圆曲线半径,显示R?L—缓和曲线长,显示L?A—曲线转向角,显示A?E—直缓点纵坐标,显示ZH:X=?N—直缓点横坐标,显示ZH:Y=?F—第一切线方位角,即ZH至JD的方位角,显示FWJ=?K—直缓点里程,显示ZH:LC=?3.2 计算待求量T—切线长度,显示T= …S—曲线全长,显示S= …Z[3]—外矢距,即JD到QZ的距离,显示E0= …3.3 输入待求变量K—输入待求(测设)点的里程,显示LC=?V—横向偏距,即测设点左、右侧外移距的偏移量,若为中线点输入0;右侧输入“+”值,左侧输入“-”值。

3.4 计算结果和说明X—待求(测设)点的纵坐标,显示X= …Y—待求(测设)点的横坐标,显示Y= …⑴该程序既可对曲线内中线任意点的坐标进行计算,又可以对中线外移桩的坐标进行计算。

计算原理如下:先建立整个曲线的坐标系统,确定曲线起点(ZH)的坐标,以ZH到JD的第一切线方位角为计算方位角。

⑵在程序计算过程中,当屏幕显示Z=1;Y=2?的提示时可根据曲线的转向,从下列两种情况中选择一种予以回答。

①若曲线为左转,则输入数值1;②若曲线为右转,则输入数值2。

⑶本程序式输入时,凡遇到=>、≠>两种符号时,不应将其分开,应视为一个整体的符号。

⑷由于变量的增加,程序式中使用到Z[1]、Z[2]、Z[3]三个计算量,此时应将计算器的内存变量扩大,另行增加3~6个变量即可。

在计算器上的操作过程为:按SHIFT键再按Defm键,然后按数字3~6即可。

3.5 本程序在实际测量工作中的应用⑴本程序不仅可以计算曲线线路上任意中线点的坐标,亦可以计算线路左、右侧的法线偏距点的坐标,用于曲线中桩和边桩放样。

⑵可以计算曲线线路中心点的切线方位角和法线方位角,该方位角可以用于桥梁墩、台(亦为曲线上桥梁墩、台截面纵、横轴线的方位角)定位。

其切线方位角在计算器上显示为“QXFWJ= …”。

⑶本程序具有多方面的计算功能,可根据仪器状况和测设对象以及工作需要而灵活应用,可在测设现场计算,减轻内业的计算时间,提高工作效率。

4.计算举例结合某线路的曲线资料,计算曲线线路上中桩或边桩的坐标。

4.1已知要素R=1500, L=150, A Z=30°主点里程:ZH—DK8+150.000 HY—DK8+300.000YH—DK8+935.398 HZ—DK9+085.3984.2 建立平面控制坐标系建立独立坐标系统,若以ZH为坐标原点,以ZH—JD的切线为X 轴的正方向,则ZH点的坐标可设为:X=8150.000,Y=1000.000;切线的初始方位角F“FWJ= …”可设为0°00′00″。

现以计算圆曲线内DK8+400的中线点或左侧15米边桩点的坐标为例。

4.3 计算操作步骤1.输入曲线半径R=1500按EXE键2.输入缓和曲线长L=150按EXE键3.输入曲线转向角A=30°按EXE键4.输入ZH点X坐标按EXE键5. 输入ZH点Y坐标按EXE键6.输入切线方位角°00′00″按EXE键7.输入ZH点里程按EXE键显示T=477.0849919(切线长)按EXE键;显示S=935.398164(曲线长);按EXE键显示E0=53.56126046(外矢距);按EXE键8.输入测设点里程;按EXE键9.输入中线点或左侧边桩的距离,如计算中桩点坐标输入,如需计算左侧15米边桩的坐标则输入米;按EXE键10.屏幕显示1,按EXE键,显示FXFWJ=83.31549239,按DK8+400中桩点的法线方位角为83°18′55.77″按EXE键11. 显示CSD:X=8399.5970289,按EXE键;显示CSD:Y=989.1782961,按EXE键。

若需计算DK8+400左侧15米边桩点的坐标,按EXE键,屏幕提示;再按EXE键,提示-15米,再按EXE键,显示1按EXE键,显示QXFWJ=83.31549239,按EXE 键;显示CSD:X=8397.850997,按EXE键;显示CSD:Y=974.2802637,按EXE键。

12.若需要再计算其他线路中线点或边桩点的坐标,重复8—11步骤操作,不必再输入各已知数据,仅输入需要计算点的里程或横向偏距及ZBFS(坐标正算)A”X1”:B”Y1”:C”X2”:D”Y2”:Fixm:Pol(C-A,D-B):I”S=”◢J<0=>J=J+360⊿J”FWJ”◢测站点到后视点的距离及方位角X1: Y1为测站点坐标X2: Y2为后视点坐标S=为测站点到后视点的距离FWJ为测站点到后视点的方位角ZBZS(坐标正算)A”X1”:B”Y1”S:F”FWJ”: C”X2”=A+SCOS(F) ◢D”Y2”=B+SSIN(F) ◢X1: Y1为测站点坐标X2: Y2为后视点坐标S=为测站点到后视点的距离FWJ为测站点到后视点的方位角竖曲线程序〈fx-4800p〉一、程序名:SQX二、程序:{CFRDM}C″I1″:F″I2″:R:D″BP.LC″: M″BP.GC″:T=0.5Abs(F-C)R◢E=T^2/(2R)◢LbI1:{L}:L≤D=>Goto2⊿L-D≤T=>H=M+ (L-D)×F +(F-C)÷Abs(F-C)×(T-L +D)^2÷(2R):Goto3:≠>H=M+ (L-D)×F:Goto3⊿LbI2:D-L≤T=>H=M-(D-L)×C+(F-C)÷Abs(F-C)×(T-D+ L)^2÷(2R):Goto3:≠>H=M-(D-L)×C:Goto3⊿LbI3:H◢Goto1三、程序执行1、C〃I1〃前进方向〉输入变坡点后段坡率2、F〃I2〃输入变坡点前段坡率〈以路线前进方向〉3、R 输入竖曲线半径。

计算出T竖曲线切线长,E竖曲线外矢距。

4、L 输入所求点的桩号(里程)5、D″BP.LC″输入变坡点桩号(里程)6、M″BP.GC″输入变坡点高程。

7、H 以路线计算出所求点高程四、说明1、计算凸曲线,所求点桩号(里程)不小于后一个凹曲线临界(终点)桩号,不大于前一个凹曲线临界(起点)桩号。

2、计算凹曲线,所求点桩号(里程)不小于后一个凸曲线临界(终点)桩号,不大于前一个凸曲线临界(起点)桩号。

曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成,可以根据曲线段——直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。

相关文档
最新文档