fx5800P测量公式及程序汇总.doc

卡西欧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 M0:Then “Q=”：180+C Q Else If N0: Then “Q=”：CQ Else “Q=”：360+CQ 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 U0: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=”：？Z1：“YJ=”：？Z2：“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+Z1*cos(O-T)F“YL=”：Y+Z1*sin(O-T)P “XR=”:X+Z2*cos(O+T)“YR=”：Y+Z2*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）： 公式： =30L2/(RLs) C=L-L5/(90R2Ls2) =90Ls2/(A2)程序：“M”？M：“N”？N：“R”R：“A”？A：“S”?S：“Z”？Z：“Q”？Q：“W=-1，1”：？W：“ZJ=”？Z1：“YJ=”？Z2：“PIAN JIAO”：？ T：Lbl 3:“L”？L：Abs (L-Z)H:30*H2/(RS)D:H-H5/(90R2S2)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+Z1*cos(E-T)“YL=”：Y+Z1*sin(E-T) “XR=”:X+Z2*cos(E+T)“YR=”： Y+Z2*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的点的中桩坐 标（X，Y），左、右边桩坐标（XL，YL）、（XR，YR）。 公式：偏角：=arctg(Yp-Yo)/(Xp-Xo)-90LR/(R)Xj=Lj-Lj5/(40A4)+Lj9/3456A8- ， Yj=Lj3/(6A2)-Lj7/(336A6)+Lj11/(42240A10)- Lj=A/Rj(Rj为曲率半径） S=(Xp-Xo)2+(Yp-Yo)2（弦长公式）=Q（弦线方位角公式） Xp=Xo+S *cos , Yp=Yo+sin程序：“A”？A：“C”？C：“D”？D：“R”？R：“Q”？Q：“Z”？Z：“W=-1，1”？W：A /RJ:J-J5/(40*A4)+J9/(3456*A8)E:J3/(6*A2)-J7/(336*A6)+J11/(42240*A10)F:90*J/(R)B:“ZJ=”？Z1：“YJ=”？Z2：“PIAN JIAO”：？T：Lbl 4:“L”？L: J+Abs(L-Z)S:S-S5/(40*A4)+S9/(3456*A8)M:S3/(6*A2)-S7 /(336*A6)+S11/(42240*A10)N:Abs(M-E)G:Abs(N-F)H:(G2+H2)K:arctg(H/G)I:If I0:Then I+360U:Else IU: IfEnd: If W=-1:Then Q-(U-B)V:“X=”：C+K*cos(V)X“Y=”：D+K*sin(V)Y “Q=”:Q-90*S2/(A2)-90*J2/(A2) O Else If W=1:Then Q+(U- B)V:“X=”：C+K*cos(V)X“Y=”：D+K*sin(V)Y“Q=”: Q+90*S2/(A2)-90*J2/(A2) O IfEnd:IfEnd:T=0=Goto 4:“XL=”:X+Z1*cos (O-T)“YL=”：Y+Z1*sin(O-T) “XR=”:X+Z2*cos(O+T)“YR=”：Y+Z2* sin(O+T) Goto 4说明：“A”为缓和曲线参数，W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=”为右边距，“PIAN JIAO”为偏角，偏角输0时不计算边桩坐标。输出：（X，Y）为中桩坐标，“Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。 六、竖曲线计算 公式：H=X2/(2R)程序：“A”？A：“H”？H：“D”？D：“T”？T：“R”？R：“I1”？U：“I2”？V：“K(ZHONG-DIAN)”：D+TB “LY=”：B-AE Lbl 6:“K”？K：VU=1G：VU=-1G：If KA: Then D-KL:H-LUP:IfEnd:If KA And KD: Then K-AL:H-U(D-K)+GL2/(2R)P: IfEnd:If KD And KB:Then B-KL:H+V(K-D)+GL2/(2*R)P:IfEnd:If KB: Then K-DL:“H(SHEJI)=”：P Goto 6说明：“A”为竖曲线起点桩号，“H”为起点高程，“D”为交点桩号，“T”为切线长，“R”为 竖曲线半径，“I1”、“I2”为第一、二坡度。输出：“H(SHEJI)=”为设计高程。注意的是：计算范围不能超出到下一个竖曲线范围内。卡西欧5800计算器正反算及缓和曲线计算程序时间:2011-06-15 21:19:47 来源:自编作者:杨连双我要投稿我要收藏投稿指南5800实用程序好用实用FW J -0（反算坐标）Lb1 0：“X1=”?A:”Y1=”?B“X2=”?C“Y2=”？DPo1(C-A,D-B):C1sJ J+360-J“S=”:I“F(DMS)=”:JDMSGoto0备注;标A=起算点X1坐标 B=起算点Y1坐 C=起算点X2坐标 D=起算点Y2坐标 ZX-1（直线程序）“QSX=”?A: “QSY=”?B: “QSL=”?Q: ?FLb1 1: “JSL=”?J:? L:?PA+(J-Q)COS(F)+LCOS(F+P)C“X=”:CB+(J-Q)Sin（F）+LSin(F+P)D“Y=”:D Goto1备注：标A=起算点X1坐标 B=起算点Y1坐 Q=起算点里程.F=起算点方位角 J=计算点方位角YQX-2(圆曲线)“QSX=” ?A: “QSY=”?B ：“QSL=”?Q:?F:?RLb1 2: “JSL=”?J:?L:?PJ-QS:90S(R) O: (2RSin(0)2I:A+ICOS(F+O)E:B+ISin(F+O) GE+LCOS(F+2O+P) C“X=”：CG+LSin(F +2O+P ) D“Y=”:DF+180(J-Q) （R）G“T(DMS)=” :GDMSGoto2备注：A=起算点X1坐标 B=起算点Y1坐 Q=起算点里程 F：起算点里程 R：设计半径 J：计算点理程 L；左右偏距离 P:左右偏方位角HQX-4（缓和曲线）“QSX=”?A: “QSY=”？B: “QSL=”?Q: “HXC=”?H:?F:?RLb1 4:“ JSL=”?J:?L:?PJ-QN:N(1-(N2)2(40R 2H2) 2+(N2(6RH) 2)Mtan-1 （20RHN2(120R2H2-( N2)2 )）k:90N2 (RH)GA+Mcos(F+K)+Lcos(F+G+P)C“X=”:CB+Msin(F+K)+Lsin(F+G+P) D“Y=”:DGoto4A=起算点X1坐标 B=起算点Y1坐 Q=起算点里程H:缓曲线曲缓线的长度 F:计算点方位角 R：设计半径J：计算点理程 L；左右偏距离 P:左右偏方位角CASIO Fx-5800P计算器曲线万能程序时间:2011-06-09 09:42:20 来源:本站作者:李立军我要投稿我要收藏投稿指南 CASIO Fx-5800P计算器万能程序QXJS-主程序L=?L:LI CHENG=?W Lbl A For 1N To 20 L=1Pros 1XYL=2Pros AIf WReP(Z) And WImP(Z):Then Pros MP:Goto 0:If End:Next -LI CHENG-?:Stop Lbl 0 If K0:Then QX:0Q:0J:S+CI:Abs(K) K:Goto 3:If End Goto 2 Lbl 1 Q0360+Q LI CHENG=?W :Goto A:If End Lbl 2 0Juo+Abs(W-Abs(K) I W:K0-W If Ans k : Then 0U : -I : Goto 4 : If End S+CS+CI Lbl 3 If IS:Then Ir(2RS) U:I-I(5)(40RS)+i (I(3)(6RS)-I(7)(336R(3)S(3):Else (2I-S)(2R) U:Z2+R(sin(U)-icos(U)+i): If End Lbl 4 J+Abs cos(Q)+Ans i sin(Q) J If I=S+C:Then Q+AQ:-K-I-TK:TI:ST:IS:-RR:PorgMP:Goto 3: If End If Q+A=0:ThenX-A-180Q:K+ReP(J)+ImP(J)tan(A) K:O+ ImP(J)(cos(Q)+isin(Q)sin(A) O:Goto 2: If End If I=S:Then Q-180Q:O+JO:Goto 2: If End K0U-180U Q+UU BIAN JU=?E ReP(O)+ReP(J)-Esin(U) X:ImP(O)+ImP(J)+Ecos(U) Y Cls:Fix 3:Locate 1,1,X=:Locate 6,1,X:Locate 1,2, Y=: Locate 6,2,YXZ3:YZ4If E=10-6:Then ProgBYXY:Goto 1: If End Goto 1 ProgZBFS:Norm 2:Goto 1 说明：1L=12输里程桩号3输边距：左“负”，右“正”，中心桩“0”，*10-6时为反算， “M0=”为X；“P=”为Y,W OK为计算里程结果，I为左右距4.本程序为万能程序,只用编缉数据库即可运算.1XY数据库If N=1:Then 0S:400T:-4500R:4523.084C:3002442Q:69287.5839+506028.4703iO:15701.589K:15701.589+21331.515i: If End If N=2:Then 400S:400T:3800R:2914.665C:245226.4Q:68953.9506+500686.4792i0:21331.515K:21331.515+26411.098i: If End If N=3:Then If N=4:Then N=Ans0ZAnsZ Return说明：N=?本段曲线；1.S起点缓和曲线长度；2.T止点缓和曲线长度；3.R曲线半径；4.C曲线长度；5.Q计算方位角；6.O起点坐标；7.K起点桩号；8.本段曲线起止点桩号。BYXY反算“M0=”?M:P=?PU+90HPol(X-M,Y-P) I sin(J-H) HJ0360+JJ0360+UUU-JJJ0360+JJJ269-IJIf Abs(H)10-5:Then Cls:Locate 1,1,W OK!: Locate 7,2,W: Locate 1,3,I: Locate 7,4,IIf End W+HWReturnMP(S+T+2C)r(2R) AS(24R)S2-0.1S Ans+R i Ans Z2:ReturnNOIf X=1:Then -5X:7+6 i Y: If End If X=2:Then -10X:25+30 i Y:If EndProg “1XY” L=2=Prog”A” If WReP(Z) And WImP(Z):Then Prog”MP”:Goto 0:If End:Next“- -LI CHENG- - - -?”:Stop Lbl 0 If K0:Then QX:0Q:0J:S+CI:Abs(K) K:Goto 3:If End Goto 2 Lbl 1 Q0360+Q LI CHENG=?W :Goto A:If End Lbl 2 0Juo+Abs(W-Abs(K) I W:K0-W If Ansk:Then 0U:-I:Goto 4: If End S+CS+CI Lbl 3 If IS:Then Ir(2RS) U:I-I(5)(40RS)+I (I(3)(6RS)-I(7)(336R(3)S(3):Else (2I-S)(2R) U:Z2+R(sin(U)-i cos(U)+i): If End Lbl 4 J+Abs cos(Q)+Ans i sin(Q) J If I=S+C:Then Q+AQ:-K-I-TK:TI:ST:IS:-RR:PorgMP:Goto 3: If End If Q+A=0:Then X-A-180Q:K+ReP(J)+ImP(J)tan(A) K:O+ ImP(J)(cos(Q)+isin(Q)sin(A) O:Goto 2: If End If I=S:Then Q-180Q:O+JO:Goto 2: If End K0U-180U Q+UU “BIAN JU=”?EReP(O)+ReP(J)-Esin(U) X:ImP(O)+ImP(J)+E cos(U) YCls:Fix 3:Locate 1,1,”X=”:Locate 6,1,X: Locate 1,2,”Y=”: Locate 6,2,YXZ3:YZ4 If E=10-6:Then Prog “BYXY”:Goto 1: If End Goto 1Prog”ZBFS”:Norm 2:Goto 1ZBFS“X=”?X:XB:Prog”NO” ”Y=”?YXB:ReP(Y) J“X0=”?F:FX:Prog”NO” ”Y0=”?GIf X0:Then XF:ReP(Y) G:ImP(Y) L: If End BX:JY Pol(Abs(X)-F,Y-G) If X0:Then “B0=”?H:H-JZ1: If End J+Z1 JJJ+360J360=J-360J60Frac(J):Int(J)+Int(Ans)/100+6mFrac(Ans) JCls:Fix 4:Locate 1,1,”W=”:Locate 7,2, JLocate 1,3,”- - - - - - -“: Locate 7,4,ILbl 0Cls:”S=”?UReturnLocate 1,1,”S.=”: Locate 7,2,U-IGoto 05800计算器全线坐标计算放样程序（修改版）时间:2010-06-19 10:23:30 来源:本站作者:简单de回忆我要投稿我要收藏投稿指南“XLZBJSCX” （ 第一个程序） Lb1 0 Cls : Fix 4 : 30Dimz “XHS=?G ( 后视点 X) :YHS=?L ( 后视点 Y) :XZJ=?M ( 置镜点 X) :YZJ=?N ( 置镜点 Y) :Pol(G-M,L-N):DH=:I ( 后视距 ) JJ+360J:FH=:JDMS ( 后视方位角 )Lbl 1 ( If （如果的意思） And （和字的意思） Then （然后的意思） ) “K=”?K （计算里程） ( 下面有色的是数据库 )If （如果） K 51760.052 本曲线 缓直点 桩号 And （ 和） K 51048.785 上一个曲线 缓直点 桩号 ： Then （然后） 本曲线 缓直点 桩号 51760.052 Z1 : 上一个曲线 缓直点 桩号 51048.785 Z2 ： 1 -1 O （注： 左偏曲线输 入 - 1O, 右偏曲线输入 1O ） : 偏角 12 23 19.5 A ： 半径 3289.486 R : 第一缓和曲线 长度 0 Z6 : 第二缓和曲线 长度 0 Z7 : 交点 X 坐标 B : 交点 Y 坐标 C : 小里程向交点 方位角 E : 交点向大里程 方位角 F : Goto 2 : IfEnd ( 重兰字是输入的数字 ) （曲线段分段输入） 补充直线段输入如下 If （如果） K Z2 : Then Goto 4 : IfEnd If KZ4 A nd K Z3 : T hen Goto 5 : IfEnd If KZ5 A nd K Z4 : T hen Goto 6 : IfEnd If KZ1 A nd K Z5 : T hen Goto 7 : IfEnd LB1 4 （里程小于直缓点直线独立坐标） K- Z3 X : 0Y : ET : Prog“TYZBCX” ： Goto 1 Lb1 5 （第一缓和曲线独立坐标） K- Z3 H H-H5/(40*R2* Z62)+H9/(3456*R4* Z64) X H3/(6*R* Z6)-H7/(336*R3* Z63) Y 90*H2/( R* Z6) T IF O 0 ： Then T +ET : Else E-T T : T360+TT : IfEnd PRrog“TYZBCX” ： Goto 1 Lb1 6 （圆曲线独立坐标） K- Z4 H H*180/( R*)+ Z14T R*SIN( T)+ Z8X R*(1-COS (T)+ Z10Y IF O 0 ： Then T +ET : Else E-T T : T360+TT : IfEnd Prog“TYZBCX” ： Goto 1 Lb1 7 （第二缓和曲线独立坐标） Z1 -K H H-H5/(40*R2* Z72)+H9/(3456*R4* Z7 4) U H3/(6*R* Z7)-H7/(336*R3* Z73) V 90*H2/( R* Z7) T Z13COS (A)+ Z12-U*COS( A)-V*SIN (A)X Z13*SIN( A)-U*SIN( A)+V*COS (A)Y IF O 0 ： Then F-TT : T360+TT : Else F+T T : IfEnd Prog“TYZBCX” ： Goto 1 子程序： “TYZBCX” （统一坐标计算） （ 第 2 个程序） IF O0 : Then -YY : IfEnd “QXJ=” :T （计算里程点切线方位角，可以不显示） Z16+X*COS (E)-Y*SIN( E)Z18 Z17+X*SIN (E ） +Y*COS (E ） Z19 “XI=” : Z18 （ XI 中线 X ） “ YI =” : Z19 （ YI 中线 Y ） Pol(Z18-M,Z19-N):DI=:I （中桩放样距） JJ+360J:FI=: J DMS （ 中桩放样方位角） “ PJ =”?P ( 输入边桩与线路夹角 PJ ，左偏 90 右 +90 ) “ PD =”?D （输入边桩距 PD ） Z18+D*COS(T+P) Z20 Z19+D*SIN(T+P) Z21 “XP=”: Z20 （ XP 边桩 X ） “YP=”: Z21 （ YP 边桩 Y ） Pol(Z20-M,Z21-N):DP=:I （边桩放样距） JJ+360J:FP=:J DMS （边桩放样方位角） Return （以上都要输进计算器）注解不输 K 里程 XI 中线 X YI 中线 Y PD 输入边桩距 XP 边桩 X 坐标 YP 边桩 Y 坐标 I 边桩放样距 PJ 输入边桩与线路夹角，左偏 90 右 +90 ) I 中桩放样距 T 计算里程点切线方位角，可以不显示 附（闭）合导线坐标平差时间:2010-06-29 22:58:50 来源:自编作者:金欢骁我要投稿我要收藏投稿指南程序名： DX-XY-PC 程序清单： 32 DimZ （额外变量寄存器定义 ( 本程序以 11 个导线边数定义 , 如超过应修改此定义和程序内额外变量寄存器的变量表达式 ) ） : Lb1 0: DX-DS （ 导线点数（含终点） ） = ？ W: YZ-ZD-X （已知终点 X 坐标） = ？ A: YZ-ZD-Y （已知终点 Y 坐标） = ？ B: SC-ZD-X （ 实测 终点 X 坐标） = ？ C: SC-ZD-Y （ 实测 终点 Y 坐标） = ？ D:C-A E:D-B F: (E2+F2) G: Cls:Fix 4: X-BHC （ X 闭合差 ） = :Locate 7,1,E: Y-BHC （ Y 闭合差 ） = :Locate 7,2,F: BC-BHC （边长闭合差） = :Locate 8,3,G Cls: YZ-QD-X （ 己知起 点 X 坐标） = ？ O :O Z31: YZ-QD-Y （ 己知起 点 Y 坐标） = ？ P:P Z32: 0 H:0 N: Lb1 1:N+1 N: Cls: N= :Locate 4,1,N SCD-X （ 实测 点 X 坐标） = ？ X:X ZN: SCD-Y （ 实测 点 Y 坐标） = ？ Y:Y ZN+11: Po1 （ X-O ， Y-P ） : I ZN+21: H+I H:X O: Y P: If NW: Then Goto 1:IfEnd ： If N=W: Then Goto 2:IfEnd Lb1 2:H G K: Cls:Fix 5: DX-QC （ 导线全长 ） = :Locate 7,1,H: DX-QC-XD-BHC-FM （ 导线全长相对闭合差的分母 ） = :Locate 1,3,K 0 N:0 R:If 1 K 1 10000 （导线全长相对闭合差允许值的分母） : Then Goto 3:E1se Goto 4: IfEnd Lb1 3:N+1 N: Cls: N= :Locate 4,1,N Po1 （ ZN-Z31 ， ZN+11-Z32 ） :R+ZN+21 R:ZN-(ER) H U:ZN+11-(FR) H V: Cls:Fix 4: N= :Locate 4,1,N: PCH-X （ 平差后的 X 值 ） = :Locate 7,2,U: PCH-Y （ 平差后的 Y 值 ） = :Locate 7,3,V 0 Z31:0 Z32: ZN Z31:ZN+11 Z32: If NW: Then Goto 3:E1se Goto 5:IfEnd Lb1 4: BHC （闭合差） - CX （超限） CX （重新） -CL （测量） Lb1 5: FH 1 ， TC 0 ？ Z:Z=1 Goto 0: Z=0 Return 程序功能： 本程序可以利用全站仪在闭（符）合导线点上实测的 X 、 Y 坐标值，计算出坐标闭合差、边长闭合差和导线全长闭合差以后，若闭合差小于允许闭合差，则将坐标闭合差反号后按各导线边长占导线全长的比例进行改正数计算，正确的计算出各导线点的平差后坐标值；若闭合差大于允许闭合差，则自动停止计算，显示 BHC （闭合差） CX （超限） CX （重新） -CL （测量） 。（书店出售的程序书上是将符合导线的坐标闭合差反号后按各导线边长在起、终点间连线上的投影长度比例进行改正数计算，本人认为这样进行闭合差分配不合理而导致改正值计算不正确，所以求出的平差后坐标值偏差较大；况且按照那种平差方法根本无法进行闭合导线平差计算。） CASIO fx-5800P编程计算器测量程序2例时间:2011-05-21 19:02:00 来源:本站作者:天堂鸟我要投稿我要收藏投稿指南CASIO fx-5800P编程计算器测量程序2例摘 要：目前工程测量中用的较多的是全站仪（或经纬仪）和CASIO fx-5800P编程计算器，用得最多的程序是坐标反算和坐标正算程序。在城市房建和市政工程测量中，有此2个程序配合全站仪或经纬仪，基本能满足现场直线测量坐标计算需要。关键词：CASIO fx-5800P；测量程序；坐标反算；坐标正算CASIO fx-5800P编程计算器是卡西欧公司于2006年10月引入中国市场的fx-4850P的升级产品，虽然fx-5800P与fx-4850P的内存容量相同，但fx-5800P的功能却比fx-4850P强大并实用得多。在工程测量中，fx-5800P编程计算器配合全站仪或经纬仪，基本能够满足现场直线测量坐标计算需要。在城市房建和市政工程测量中，主要用到的是坐标反算和坐标正算程序。笔者借鉴了参考文献中的坐标反算程序，并开发了文献中没有的坐标正算程序，希望能对同行有所帮助。1 坐标反算1坐标反算是指已知平面上起点的坐标（XS，YS）和终点的坐标（XE，YE），求起点至终点的平距（DIST）和方位角（）。程序中字母和符号输入过程参见参考文献和计算器说明书，本文不再赘述。1.1 源程序程序名 ZBFSXYDIST， ZBFS显示程序标题Deg:Fix 3设置角度单位与数值显示格式XS(m)=?A:YS(m)=?B输入起点x,y坐标A+BiE将起点坐标存为复数形式Lbl 0：XE(m),0END=?C输入端点x坐标C=0GotoE判断是否结束程序YE(m)=?D输入端点y坐标C+DiF将终点坐标存为复数形式Arg(F-E) J计算辐角J0J+360J将辐角转换为方位角DIST(m)=?:Abs(F-E) 显示边长(DMS)=:JDMS显示方位角Goto 0重复输入下一个端点的坐标Lbl E:ZBFSEND2 坐标正算坐标正算是指已知起点坐标（XS,YS）、起点至终点平距（DIST）和方位角()，求终点坐标（XE,YE）。这是笔者结合本文参考文献编写的一个程序，相当有用。2.1 源程序程序名 ZBZSDIST XY ZBZS显示程序标题Deg：Fix 3设置角度单位与数值显示格式XS(m),?A：YS(m)=?B输入起点x，y坐标Lbl 1：DIST(m)，0END=?L输入平距If L0:Then Goto2:IfEnd如果L0,跳出循环(Deg)=?R输入方位角A+Lcos(R)C计算终点x坐标B+Lsin(R)D计算终点y坐标Fix 3：XE(m)=:C显示终点x坐标YE(m)=:D显示终点y坐标Goto 1重复输入平距和方位角Lbl 2: ZBZSEND程序结束卡西欧5800测量实用程序(含直线圆曲线大地转施工程序)时间:2010-06-12 21:44:01 来源:本站作者:david.0601我要投稿我要收藏投稿指南个人小程序 如有不明白 联系QQ：308691518直线计算程序 0I:0J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):JA:If A0: Then A+360A:Else AA:IfEnd:Lbl 0:?O:?S:If O0:Then Goto 1:IfEnd: D+Scos(A) X:”X=”:X E+Ssin(A) Y:”Y=”:Y Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) X:”X=”:X E+Ssin(A)+Osin(A+90) Y:”Y=”:Y Goto 0 输入程序时注意区别字母 O 与数字 0 程序运行时符号说明 X0? Y0? 分别输入直线起点的 XY 坐标值 X1? Y1? 分别输入直线终点的 XY 坐标值 O? 输入边桩与中桩的距离 ( 左边桩为负值 , 右边桩为正值 ), 如计算中桩坐标输入 0 S? 输入所求点到直线起点的距离 圆曲线计算程序 0I:0J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T: T-WO:Pol(E-C,F-D):IS:JA: If A0:Then A+360A:Else AA:IfEnd: sin-1(S(2R) K:2RK180L:180O(2R) G:(2R)sin(G) H:C+Hcos(A-KN+GN) X:”X=”:X D+Hsin(A-KN+GN) Y:”Y=”:Y R-0.5(4R2-H2) Q:”Q=”:Q “S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) X:”X=”:X Y+Vsin(A-KN+2GN+U) Y:”Y=”:Y Goto 0 输入程序时注意区别字母 O 与数字 0 程序运行时符号说明 X0? Y0? 分别输入直线起点的 XY 坐标值 X1? Y1? 分别输入直线终点的 XY 坐标值 R? 输入圆曲线半径 L:-1 R:1? 圆曲线向左转弯时输入 -1, 向右转弯时输入 1 ZY? 输入起点桩号 LN? 输入所求点桩号 ( 按下 exe 键后显示中桩坐标 ) S? 输入所要求的边桩与中桩的距离 L:-90 R:90 要求左边边桩输入 -90, 右边边桩输入 90( 按下 exe 键后显示边桩坐标 ) 二、程序清单 程序名 ：大地转施工 “QK=” ？ Z:“QX=” ？ A:“QY=”?B:“ZX=” ？ O :“ZY=” ？ Q Pol( O -A,Q-B) JJ+360J J360=J-360J JF:“JF=” ： F DMS Lb1 0 ？ X:?Y Pol （ X-A,Y-B):ID JJ+360J J360=J-360J J-FT:TG TT+360G T360=T-360G Z+Dcos （ G)K:“K=” ： K Dsin （ G)C:“C=” ： C GoTo 0 三、程序使用说明： QK- 输入线路起始点里程 QX- 输入线路起始点中桩 X 坐标 QY- 输入线路起始点中桩 Y 坐标 ZX- 输入线路前进方向中桩 X 坐标 ZY- 输入线路前进方向中桩 Y 坐标 JF=- 显示线路测量坐标方位角 X- 输入线路附近任意点测量 X 坐标 Y- 输入线路附近任意点测量 Y 坐标 K- 显示计算结果：里程桩号，即工程 X 坐标 C- 显示计算结果：左右偏距，即工程 Y 坐标 , 中桩 =0 ，左偏 = 负值，右偏 = 正值。 大地坐标施工坐标互换 文件名:XY-XY Cls: “X=”？K:“Y=”？L: 需换算的大地坐标X、Y “XA=”？A:“YA=”？B: 旧坐标A点 “X1=”？S:“Y1=”？T: 新坐标A点(与旧坐标A点对应) “XB=”？C:“YB=”？D: 旧坐标B点 “X2=”？U:“Y2=”？W: 新坐标B点(与旧坐标B点对应) Cls: POL(C-A,D-B): If JJ:IfEnd: J-V: POL(U-S,W-T): If JJ:IfEnd: (K-A)cos(V)+(L-B)sin(V)-E: (L-D)cos(V)-(K-C)sin(V)-F: “XP=”:S+Ecos(J)+Fcos(J+90)-X “YP=”:T+Esin(J)+Fsin(J+90)-CASIO fx-4800P型计算器用于线路施工曲线中线点坐标的计算程序中铁十局三建公司工程技术部 摘要：本文介绍了CASIO fx-5800P型计算器程序编制用于铁路、公路曲线线路内任意中线点的坐标计算程序及使用方法。本计算程序具有操作简便、计算快捷、应用广泛等特点、极大地减轻了测量工作者的内业工作量，对于测量工作者有较大的参考和指导作用。关键词：曲线 线路 施工测量 计算程序1概述 过去，线路中线施工放样基本依靠经纬仪和钢尺了来进行角度及距离测量。对于曲线线路一般的测量方法是：经纬仪置于某一中线点上，采用偏角法拨角再用钢尺量距来定出中线点。随着电子技术进步和经济发展，测量仪器和测量方法的不断改进，目前，