fx5800P测量公式及程序

1、5800P测量程序汇总CASIO fx5800P公路施工放线测量公式及程序一、已知座标，求平距和方位角(座标反算)：公式：D=y( Xp-Xo) 2+ (Yp-Yo) 2a =arctg(Yp -Yo)/(Xp-Xo) 程序：“ A”？ A: “ B? B: Lbl 0: “ X”？ X:“Y? Y: (X-A) M (Y-B) N: “D=: V (M+N ) / tan -1(N/M) C:If M 0: Then “Q=： C Q / Else“Q= : 360+C Q / If End : If End : Goto 0说明：(A, B)为测站点坐标，(X, Y)为所求点坐标。输出：D

2、为平距，Q为方位角。二、已知直线的坐 标方位角Q和直线起点坐标(Xo,Yo),求直线上任一点的中桩坐标(X, 丫), 左右边桩坐标(XL, YL)、( XR YR : 公式：X =Xo+LcosQY=Yo+LsinQ程序：“A”？A：“B”？ B：“Q”？Q：“Z”？Z：Lbl 1: “P” ?P： “J” ？ J: “M? MAbs(M-Z) W “X= ”： A+W*cos(Q)+Pcos(Q+J) X / “Y= ”： B+W*sin(Q)+P sin(Q+J) Y / Goto 1 说明：(C, D)为直线起点坐标，Q为 直线方位角，Z为起点桩号，L为所求坐标点桩号。“ U为左边距，“

3、 T”为右 边距，“V为偏角；U=0时不算边桩坐标。输出：(X, Y)为中桩坐标，(XL, YL)为左边桩坐标，(XR YR为右边桩坐标。三、已知圆曲线起点坐标(U, V), 切线方位角Q,桩号Z和圆半径R,求圆曲线上桩号为L的点中桩坐标(X, Y), 左右边桩坐标(XL, YL)、(XR YR :公式：书=90L/( ji R)(偏角公式)C=2Rsin 书(对应弧的弦长公式)弦的方位角：Q=Qct (曲线左转时为“-”)程序：“U？U：“V？V：“Q？Q：“R？R：“Z？Z：“W=-1,1：？W：“ZJ=：？Z1 ： “YJ= ： ？Z2 ：“PIAN JIAO ： ？ T： Lbl 2:

4、“M ? M 180* (M-Z) / (2n *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) / (n R) 8 Else If W=1:Then“X=” :U+K*cos(Q+J)心“Y= ”：V+K*sin(Q+J) Y / “Q=： Q+180* (M-Z) / (n R) 8 IfEnd:IfEnd:T=0= Goto 2 :“XL= :X+Z1*cos(O -T)F/“ YL=: Y+Z1*sin(O- T)P / “XR= :X+Z2*c

5、os(O+T) / “YR= : Y+Z2*sin(O+T) /Goto 2 说明：W=-1 时曲线左转,W=1时曲线右转。“ ZJ=”为左边距，“ YJ=”为右边距，“ PIAN JIAO为偏角，偏角输0时不算边桩坐标。输出：(X, 丫为中桩坐标，“ Q= 为所求点方位角，(XL, YL)为左边桩坐标，(XR YR为右边桩坐标。四、 已知直缓点坐标(M N)、方位角Q桩号乙缓和曲线全长S和连接圆半径R, 求缓和曲线上任一点(桩号为L)的中桩坐标(X, Y),左右边桩坐标(XL, YL)、(XR YR):公式：9 =30L2/( n RLs) C=L-L5/(90R 2Ls2) a =a 90

6、Ls7( n A2) 程序：“ M?M：“N?N：“RR：“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*H /( n 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/( n A) E / Else If W=1:The n “ X= ”： M+C*cos(Q+D) X/“Y=：N+C*sin(Q+D)

7、Y / A=0 = Goto 3: “Q兰:Q+90*H/( n A) E / IfEn d:IfE nd: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 为右边桩坐标。五、

8、已知卵形曲线(即非完整缓和曲线)大圆半径 R,小圆半径 r，缓和曲线参数A，以大圆的圆缓点为起点，其坐标为(C, D)，其方位角为Q, 其桩号为乙求桩号为L的点的中桩坐 标(X，Y)，左、右边桩坐标(XL，YL)、(XR YR)。 公式：偏角：9 =arctg(Yp -Yo)/(Xp-Xo)- 90LR/( n R)Xj=Lj -Lj 5/(40A 4)+Lj 9/3456A8-， Yj=Lj 3/(6A 2)-Lj 7(336A 6)+Lj J(42240A 10)-Lj=A/Rj(Rj 为曲率半径) S=y(Xp-Xo) +(Yp-Yo)(弦长公式)a =Q9 (弦线方位角公式)Xp=Xo

9、+Scos a Yp=Yo+si na程序：“ A”？ A:“ C? C:“D? D:“ R? R“Q？Q “ Z”？ Z: “ W二1，1”？ W A/RJ:J -J5/(40*A 4)+J 9/(3456*A 8)E:J3/(6*A 2)-J 7/(336*A 6)+J11/(42240*A 10)F :90*J/( n R)B: “ZJ=”？ Z1 :“ YJ=”？ Z2 : PIAN JIAO”：？ T: Lbl 4: “L”？L: J+Abs(L -Z)S:S-S5/(40*A 4)+S9/(3456*A 8)M:S3/(6*A 2)-S7 /(336*A 6)+S11/(42240

10、*A 10) N:Abs(M- E)G:Abs(N-F)H: V(G2+H) K:arctg( H/G)I:If Iv 0:Then I+360 U:Else I U: IfEnd: I f W=-1:ThenQ-(U-B)V: “X二”：C+K*cos(V)心“Y二”：D+K*sin(V) Y /“Q= :Q-90*S2/( nA2)-90*J 7( nA2) O / Else If W=1:Then Q+(U - B)V: “X二”：C+K*cos(V)心“Y二”：D+K*sin(V) Y/“Q兰:Q+90*S/( nA2)-90*J 7( nA2) O / IfEn d:IfE nd:T

11、=0= Goto4: “XL= :X+Z1*cos (O -T) /“ YL=: Y+Z1*sin(O-T)/ “ XR= :X+Z2*cos(O+T) / “ YR= : Y+Z2* si n( O+T) /Goto 4 说明：“ A 为缓和曲线参数，W=-1时曲线左转，W=1时曲线右转。“ZJ二”为左边距，“YJ二” 为右边距，“ PIAN JIAO”为偏角，偏角输0时不计算边桩坐标。输出：(X，Y) 为中桩坐标，“ Q=”为所求点方位角，(XL，YL)为左边桩坐标，(XR, YR为 右边桩坐标。六、竖曲线计算 公式：H=X/(2R)程序：“ A”？ A: “ H? H:“D”？D：“T”

12、？T：“R”？R：“I1”？U：“I2”？V：“K(ZHONGDIAN)”： D+ B /“LY=： B-A E / Lbl 6: “ M ？ M “G”？ G If M A And Mv D: ThenM-AL:H-U(D-M)+GL2/(2R) P: IfEnd:IfMD And MvB:ThenB-M L:H+V(M-D)+GL2/(2*R) P:IfEnd:lf MB: Then M L: H+LV P: IfEnd:“H(SHEJI)=”： P / Goto 6说明：“A”为竖曲线起点桩号，“为交点高程，“D”为交点桩号，“ T”为切线长，“ R为竖曲线半径，“11”、“12 ” 为

13、第一、二坡度。输出：“ H(SHEJI)=”为设计高程。注意的是：计算范围不能 超出到下一个竖曲线范围内。G取+1,或者-1 ,当“ 11 ”？U0,“12 ”？ V 必然0,即G=1反之G=-1卡西欧5800计算器正反算及缓和曲线 计算程序时间:2011-06-15 21:19:47来源：自编 作者：杨连双 我要投稿我要收藏投稿指南5800实用程序好用实用FW J -0 (反算坐标)Lb1 0 :“X1= ?A:” Y1= ?BJ“X2= ?CJ“Y2=? DJPo1(C-A,D- B):C1s JJ J+360- J J“S=” :I “F(DMS)= :J DMSkGoto0 J备注；标

14、人=起算点X1坐标B=起算点Y1坐C=起算点X2坐标D=起算点丫2坐标 ZX-1 (直线程序)“QSX= ?A:“QSY= ?B:“QSL= ?Q: ?F JLb1 1:“JSL二” ?J:? L:?P JA+(J-Q)COS(F)+LCOS(F+P尸 CJ“ X=” :C B+(J-Q)Sin (F) +LSi n( F+P) Dj“ 丫二” :D Gotol备注：标A=起算点X1坐标B=起算点Y1坐Q=起算点里程.F=起算点方位角J= 计算点方位角YQX-2(圆曲线)“QSX= ?A:“QSY= ?B :“QSL= ?Q:?F:?R JLb1 2:“JSL二” ?J:?L:?P JJ-CH

15、S:90S十(兀 R) O: V(2RSin(0)2 I:A+ICOS(F+O)E:B+ISin(F+O)GjE+LCOS(F+O+P) CJ“ X二”：CAG+LSi n(F +2O+P ) Dj“ 丫二” :D F+180X (J-Q)十(兀 R) GJ“T(DMS)= :G DMAGoto2备注：A=起算点X1坐标B=起算点Y1坐Q=起算点里程F :起算点里程R:设计 半径J :计算点理程L ;左右偏距离P:左右偏方位角HQX-4(缓和曲线)“QSX= ?A:“QSY=? B: “QSL= ?Q:“HXC= ?H:?F:?R JLb1 4: “ JSL= ” ？J:?L:?P JJ-CH

16、N:NXV(1 -( N2)2-(40R 2H2) 2+(N2 - (6RH) 2) MJtan-1(20RHN壬(120R2H2( N2)2 ) ) k:90N2 -(兀 RHGJA+Mcos(F+K)+Lcos(F+G+PCJ“ X=” :C B+Ms in( F+K)+Ls in( F+G+P) Dj“ 丫二” :D Goto4A=起算点X1坐标B=起算点Y1坐Q=起算点里程H:缓曲线曲缓线的长度F:计算 点方位角R :设计半径J:计算点理程L ;左右偏距离P:左右偏方位角CASIO Fx-5800P计算器曲线万能程序作者:李立军 我要投时间:2011-06-09 09:42:20来源：

17、本站稿我要收藏投稿指南CASIO Fx-5800P计算器万能程序QXJS-主程序L= ?L: LI CHENG= ?W Lbl A For 1 N To 20 Pros 1XY Pros A MP :Goto 0:If En d:Next IfW ReP(Z) And W lmP(Z):The n Pros-LI CHENG一? ：Stop Lbl 0 K:Goto 3:If End If K0:The n Q X:0Q:0 J:S+C l:Abs(K)Goto 2 Lbl 1 Q 360+QX LI CHENG= ?W ：Goto A:lf End Lbl 2 0 Juo+Abs(W4bs(

18、K) I W:K-W If Ans k : Then 0U : -I : Goto 4 : If End S+C= S+SI Lbl 3 If lS:Then I2r - (2RS) U:l - IA(5) - (40R2S2)+i(IA(3) - (6RS)-2(7) - (336RA(3)SA(3):Else (2I-S) r- (2R) U:Z 2+R(sin(U)- icos(U)+i): If End Lbl 4 J+Abs cos(Q)+A ns i sin(Q) J IfI=S+C:Then Q+AQ:-K-I- TK:TI:S T:I S: -RR:PorgMP:Goto3:

19、If End If Q+A=0:ThenX-A- 180Q:K+ReP(J)+ImP(J)-tan(A) K:O+ lmP(J)(cos(Q)+isi n( Q) si n(A) O:Goto 2: If End IfI=S:Then Q- 180Q:O+JO:Goto 2: If End K0? U-180 U Q+l U ” BIAN JU二 ?E ReP(O)+ReP(J)- Es in(U) X:lmP(O)+lmP(J)+Ecos(U) Y Cls:Fix 3:Locate 1,1,X=:Locate 6,1,X:Locate 1,2,Y=: Locate6,2,Y ?X Z 3 :

20、Y Z 4 If E= x 10-6:Then Prog ” BYXY :Goto 1: If End Goto 1 Prog ” ZBFS :Norm 2:Goto 1 说明：1L=12输里程桩号3输边距：左“负”，右“正”，中心桩“ 0”，*10-6 时为反算，“M0=为X;“P=”为Y,W OK为计算里程结果，I为左右距4. 本程序为万能程序 ,只用编缉数据库即可运算 .1XY-数据库If N=1:Then 0 S:400T: - 4500 R:4523.084 C:300 24 42 Q:69287.5839+506028.4703i 0:15701.589 K:15701.589+2

21、1331.515i: If End If N=2:Then 400S:400T:3800R:2914.665C:245226.4Q:68953.9506+500686.4792i 0:21331.515 K:21331.515+26411.098i: If End If N=3:Then If N=4:Then N=Ans? 0ZvAns? ZvJReturn v说明：N=?-本段曲线；1.S 起点缓和曲线长度；2. T 止点缓和曲线长度；3. R曲线半径；4. C 曲线长度；5. Q计算方位角；6.0起点坐标；7. K 起点桩号；8. 本段曲线起止点桩号。BYX治反算“M0= ?M: P=

22、?PVU+94 HJPol(X-M,Y-P) I sin J- H) HJ 0? 360+J J 0? 360+LH UU-JJJ 0? 360+JJ 269? -I J If Abs(H) x 10-5:The n Cls:Locate 1,1,” W OK! ： Locate 7,2,W:1,3,1 ： Locate 7,4,I/If End W+WNReturn MP(S+T+2C)r - (2R) AS2- (24R2) S2-0.1S An s+R i Ans Z2:Retur n NOIf X=1:Then - 5X:7+6 i Y: IfEnd NIf X=2:Then -10X

23、:25+30 i Y:If End NReturn NQXJS-主程序(显示)“L=”?L:”LI CHENG=”?WNLb1 ANFor 1 N To 20Prog “1XY” Prog”A” ReP(Z) And W ImP(Z):Then Prog ” MP :Goto 0:lf End:Next“- -LI CHENG- - - -?”:Stop NLbl 0 NIf K0:Then Q X:0Q:0J:S+CI:Abs(K) K:Goto 3:If End Goto 2 Lbl 1 Q 360+QX ” LI CHENG= ?W ：Goto A:lf End Lbl 2 0 Jvuo

24、+Abs(W-Abs(K) I W:K-W S+C= S+( I Lbl 3 v If IS:Then I2r- (2RS) U:l - IA(5) - (40R2S2)+I (|A(3)- (6RS)-|A(7) - (336RA(3)SA(3):Else (2I-S) r- (2R) U:Z 2+R(sin(U)- i cos(U)+i): If End v Lbl 4 v J+Abs cos(Q)+Ans i sin(Q) J vIf I=S+C:Then Q+AQ:-K-I- TK:TI:S T:I S: -RR:PorgMP:Goto 3: If End v If Q+A=0:The

25、n 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 v If I=S:Then Q- 180Q:O+JO:Goto 2: If End v Kv0? U-180U vQ+UU v“BIAN JU=”?EvReP(O)+ReP(J)-Esin(U) X:ImP(O)+ImP(J)+E cos(U) YvCls:Fix 3:Locate 1,1, ” X= ”：Locate 6,1,X: Locate 1,2, ”Y= ”： Locate 6,2,Y / XZ3:Y Z4 v I

26、f E= x 10-6:Then Prog “ BYXY :Goto 1: If End ”Y=”?YvXB:ReP(Y) Jv “X0=”?F:FX:Prog”NO” vX=Ans=”Y0=”?GvIf X0:Then X F:ReP(Y) G:ImP(Y) L: If End J+360JvJ360=J-36X J60Frac(J):l nt(J)+l nt(A ns)/100+6mFrac(A ns) JjCls:Fix 4:Locate 1,1,” =” :Locate 7,2, J Locate 1,3, ” “： Locate 7,4,I/Lbl 0Cls: ” S=” ?URet

27、urnLocate 1,1, ” S.= ” : Locate 7,2,U-1 /Goto 05800计算器全线坐标计算放样程序（修 改版）时间:2010-06-19 10:23:30来源：本站 作者：简单de回忆 我要投稿我要收藏投稿指南“XLZBJSC”丄（第一个程序）Lb1 0 /Cls : Fix 4 : 30 Dimz /“XHS=?G （后视点 X） :YHS=?L （ 后视点 Y） :XZJ=?M （ 置镜点X） :YZJ=?N （ 置镜点 Y） :Pol（G-M,L-N）:DH=:l （ 后视距）丄 JJ+36（ J:FH=:J ?DMS丄（后视方位角）Lbl 1 / （ If

28、（如果的意思） And （和字的意思）The n （然后的意思）“K二”？K丄（计算里程）（下面有色的是数据库）If （如果）K 51048.785上 一个曲线缓直点桩号：Then （然后）本曲线缓直点桩号51760.052Z1: 上一个曲线缓直点桩号51048.785 Z2 : 1 - 1 O （注： 左 偏曲线输 入-1 Q右偏曲线输入1 O ）:偏角12 23 19.5 A : 半径3289.486 R :第一缓和曲线 长度0 Z6: 第二缓和曲线 长度0Z7: 交点X坐标 B :交点丫坐标 C :小里程向交点 方位角 E : 交点向大里程 方位角F : Goto 2 : IfEnd /

29、 （重兰字是输入的数字） （曲线段分段输入）补充直线段输入如下If（如果）K本段直线起点里程:Then （然后）1 O本段直线终点里程Z3:终点坐标X Z16: 终点坐标 Y Z17:方位角E:Goto 4:IfEnd /Lb1 2 / （曲线要素计算）Z6 - 2- Z6 A 3 - （240RA2）+ Z6A 5- （34560*RA4） Z8 / （ M1不输)Z7 - 2- Z7A 3 - (240RT)+ Z7A 5- (34560 RA4) Z9 / (M2不输)Z6a 2- (24R) - Z6a 4- (2688RA3) Z10/( P1 不输)Z7a 2- (24R) - Z

30、7a 4- (2688RA3) Z11/( P2 不输)(n AR ) - 180+0. 5 X ( Z6+ Z7) S / (曲线总长)90 X Z6 - ( R X n) Z14 / (第一缓和曲线总偏角)(X十以后自己改 )9 0 X Z7 - ( R X n) Z15 / (第二缓和曲线总偏角，可以省略)Z8+( R+Z10)TAN(A/2)-(Z10-Z11 )/SIN A Z12/ (切线 T1)Z9+( R+Z11)TAN(A/2)+(Z10-Z11 )/SIN A Z13/ (切线 T2)B+ Z12*COS (E+180) Z16/( ZH 点 X )C+ Z12*SIN(E

31、+180) Z17/( ZH 点 Y )Z1- S Z3 / (ZH 点里程)Z3+ Z6 Z4 / (HY 点里程)Z1-Z7 Z5 / (YH 点里程)GOTO 3/LB1 3 / (判断里程点与曲线关系)If K Z2 : Then Goto 4 : IfEnd/If K Z3 : T henGoto 5:IfEnd/If K Z4 : T henGoto 6:IfEnd/If K Z5 : T henGoto 7:IfEnd/LB1 4 / (里程小于直缓点直线独立坐标)K- Z3 X : 0 Y : E T : Prog “TYZBC” ： Goto 1 /Lb1 5 / (第一缓和

32、曲线独立坐标)K- Z3 H /H-HA 5/(40*RA2* Z6A2)+屮9/(3456*RA4* Z6八4) X /HA3/(6*R* Z6)-HA7/(336*RA3* Z6F3) Y /90*屮2/( R* n * Z6) T /IF O 0 : Then T +E T : Else E -T T : T360+T T : IfEnd / PRrog “TYZBC” : Goto 1 /Lb1 6 / (圆曲线独立坐标)K- Z4 H /H*180/( R* n )+ Z14 T /R*SIN( T)+ Z8 X /R*(1- COS (T)+ Z10 Y /IF O 0 : The

33、n T +E T : Else E -T T : T360+T T : IfEnd / Prog “TYZBC” : Goto 1 /Lb1 7 / (第二缓和曲线独立坐标)Z1 - K H /H-H A5/(40*RA2* Z7A2)+屮9/(3456*RA4* Z7 八4) U /HA3/(6*R* Z7)-HA7/(336*RA3* Z7A3) V /90*屮2/( R* n * 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- T T :

34、 T360+T T : Else F+T T : IfEnd /Prog “TYZBC” ： Goto 1 /子程序：“TYZBC” / (统一坐标计算)(第2个程序)IF O0 : Then - Y Y : IfEnd /“QXJ= :T丄(计算里程点切线方位角，可以不显示)Z16+X*COS (E)- Y*SIN( E) Z18 /Z17+X*SIN (E ) +Y*COS (E ) Z19 /“Xl=” : Z18 丄 (XI 中线 X )“ YI = ” : Z19 丄(YI 中线 Y )Pol(Z18-M,Z19-N):DI=:I 丄(中桩放样距)JJ+36( J:FI=: J?DM

35、S丄(中桩放样方位角)“ 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+36( J:FP =:JDMSJ (边桩放样方位角)Return / (以上都要输进计算器)注解不输K 里程XI 中线 XYI 中线 YPD 输入边桩距XP 边桩 X 坐标YP 边桩 Y 坐标I 边桩放样距PJ 输入边桩与

36、线路夹角，左偏 - 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

37、 坐标）=? D:C-A E:D-B F: V （E 2+F） G: Cls:Fix 4: X-BHC （ X 闭合差）=:Locate7,1,E:Y-BHC （ Y闭合差）=:Locate 7,2,F:BC-BHC （边长闭合差）=:Locate 8,3,G 丄Cis: YZ-QD-X （己知起点X坐标）=? O :O Z31: YZ-QD-Y（己知起点丫坐标）=?P:PZ32: 0H:0N: Lb1 1:N+1N: Cis:N= :Locate 4,1,NJSCD-X（实测点X坐标）=ii? X:X ZN:iiSCD-Y （实测点丫坐标）=? Y:Y ZN+11:Po1（X-O ,Y-P）

38、:I ZN+21: H+IH:X O: Y P: If NW:Then Goto 1:IfEnd : If N=W:Then Goto 2:IfEndLb1 2:H - G K: Cls:Fix 5: DX-QC （导线全长）=:Locate7,1,H: DX-QC-XD-BHC-FM （导线全长相对闭合差的分母）=:Locate1,3,K 丄0 - N:0 - R:lf 1 - K 1 - 10000 （导线全长相对闭合差允许值的分母）Then Goto 3:E1se Goto 4: IfEnd JLb1 3:N+1 N: Cis: N= H :Locate 4,1,N丄Po1 （ ZN-Z

39、31, 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值）=H :Locate 7,2,U: PCH-Y （平差后的Y值）=:Locate 7,3,V 丄0 Z31:0 Z32: ZN Z31: ZN+11 Z32: If NW: Then Goto3:E1se Goto 5:IfE nd JLb1 4:BHC （闭合差）-CX （超限）? CX （重新）-CL （测量）丄Lb1 5: FH 1 , TC 0 ? Z:Z=1 ? Goto 0: Z=

40、0? Return程序功能： 本程序可以利用全站仪在闭（符）合导线点上实测的 X、丫坐标 值，计算出坐标闭合差、边长闭合差和导线全长闭合差以后， 若闭合差小于允许 闭合差，则将坐标闭合差反号后按各导线边长占导线全长的比例进行改正数计 算，正确的计算出各导线点的平差后坐标值；若闭合差大于允许闭合差，则自动 停止计算，显示BHC （闭合差）CX （超限）？ CX （重新）-CL （测量）。（书店出售的程序书上是将符合导线的坐标闭合差反号后按各导线边长在起、终点间连线上的投影长度比例进行改正数计算， 本人认为这样进行闭合差分配不合 理而导致改正值计算不正确，所以求出的平差后坐标值偏差较大； 况且按照

41、那种 平差方法根本无法进行闭合导线平差计算。）CASIO fx-5800P编程计算器测量程序2时间:2011-05-21 19:02:00来源:本站作者:天堂鸟 我要投我要收藏投稿指南CASIO fx-5800P编程计算器测量程序2例摘 要：目前工程测量中用的较多的是全站仪（或经纬仪）和 CASIO fx-5800P 编程计算器，用得最多的程序是坐标反算和坐标正算程序。 在城市房建和市政工 程测量中，有此2个程序配合全站仪或经纬仪，基本能满足现场直线测量坐标计 算需要。关键词：CASIO fx-5800P ;测量程序；坐标反算；坐标正算CASIO fx-5800P编程计算器是卡西欧公司于 20

42、06年10月引入中国市场的 fx-4850P的升级产品，虽然fx-5800P与fx-4850P的内存容量相同，但fx-5800P 的功能却比fx-4850P强大并实用得多。在工程测量中，fx-5800P编程计算器配 合全站仪或经纬仪，基本能够满足现场直线测量坐标计算需要。在城市房建和市 政工程测量中，主要用到的是坐标反算和坐标正算程序。笔者借鉴了参考文献中的坐标反算程序，并开发了文献中没有的坐标正算程序，希望能对同行有所帮助。1坐标反算 坐标反算是指已知平面上起点的坐标(XS, YS)和终点的坐标(XE Y日，求起 点至终点的平距(DIST)和方位角(a)。程序中字母和符号输入过程参见参考文献

43、和计算器说明书，本文不再赘述。1.1源程序程序名ZBFSXJDIST,a ZBFS丄显示程序标题Deg:Fix 3 -设置角度单位与数值显示格式XS(m戸?A: YS(m戸？B-输入起点x,y坐标A+BRE -将起点坐标存为复数形式Lbl 0 : XE(m),0 二 END= ?4 输入端点 x 坐标GotoE-判断是否结束程序YE(m戸？D-输入端点y坐标C+DHF -将终点坐标存为复数形式Arg(F- E) -J -计算辐角J0三J+36XJ -将辐角转换为方位角DIST(m)= ?:Abs(F- E)丄显示边长 a (DMS)= :JDMSJ显示方位角Goto 0重复输入下一个端点的坐标

44、Lbl E: ZBF驴 END 2坐标正算坐标正算是指已知起点坐标(XS,YS、起点至终点平距(DIST)和方位角(a ), 求终点坐标(XE,YE 。这是笔者结合本文参考文献编写的一个程序，相当有用。2.1源程序程序名ZBZSDIST a XY ZBZS丄显示程序标题Deg： Fix 3 -设置角度单位与数值显示格式XS(m), ?A: YS(m戸?B输入起点x, y坐标Lbl 1 : DIST(m),W0= END= ?L输入平距If L O:Then Goto2:lfEnd -如果 L 0,跳出循环a (Deg)= ?R输入方位角A+Lcos(R)C -计算终点x坐标B+Lsin(R)

45、D 计算终点y坐标Fix 3 : XE(m戸：C丄显示终点x坐标YE(m戸：D丄显示终点y坐标Goto 1 J重复输入平距和方位角Lbl 2:” ZBZ萨END程序结束卡西欧5800测量实用程序(含直线圆曲 线大地转施工程序)时间:2010-06-12 21:44:01来源：本站 作者:david.0601 我要投稿我要收藏投稿指南个人小程序 如有不明白 联系QQ 308691518直线计算程序01:0 J: ” X0 ?D:” Y0 ?E:” X1” ？B:” Y1” ？C:Pol(B -D,C-E):J A:lfA0:Then A+36C A:Else A A:IfE nd:Lbl 0:?

46、O:?S:lf O 工 O:Then Goto 1:IfE nd: D+Scos(A) X:” X=” :X 丄E+Ssin(A) Y:” 丫二” :Y 丄Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) X:” X=” :X 丄E+Ssin(A)+Osin(A+90) Y:” 丫二” :Y 丄Goto 0输入程序时注意区别字母O与数字0程序运行时符号说明X0? Y0?分别输入直线起点的XY坐标值X1? Y1?分别输入直线终点的XY坐标值O?输入边桩与中桩的距离(左边桩为负值，右边桩为正值),如计算中桩坐 标输入0S?输入所求点到直线起点的距离圆曲线计算程序01:0 J: ”

47、 X0 ?C:” Y0 ?D:” X1” ？E:” Y1” ？F:?R: ” L: -1R:1” ？N:” ZY ?W:Lbl 0: ” LN ?T:T-W O:Pol(E -C,F- D):l S:J A: If AJ+362 J / J360=J-36X J /JF: “JF=”： F DMS 丄Lb1 0 /? X:?Y /Pol ( X-A,Y- B):I D /JJ+36( J /J360=J-360 J /J- F T:TG /TT+36G /T360=T-360 G /Z+Dcos ( G) K: “K=”: K 丄Dsin ( G) C: “C=: C 丄GoTo 0 /三、程

48、序使用说明：QK- 输入线路起始点里程QX- 输入线路起始点中桩 X 坐标QY- 输入线路起始点中桩 Y 坐标ZX- 输入线路前进方向中桩 X 坐标ZY- 输入线路前进方向中桩 Y 坐标JF=- 显示线路测量坐标方位角X- 输入线路附近任意点测量 X 坐标Y- 输入线路附近任意点测量 Y 坐标K- 显示计算结果：里程桩号，即工程 X 坐标C- 显示计算结果：左右偏距，即工程 Y 坐标 , 中桩 =0 ，左偏 = 负值，右 偏 = 正值。大地坐标 施工坐标互换文件名 :XY-XYCls:“X=”？K: “Y=”？L: 需换算的大地坐标 X、YXA=” A: YA=” B:旧坐标 A点X1=” S: Y1=”？ T:新坐标A点(与旧坐标A点对应)XB=” C: YB=” D:旧坐标 B点X2二” U: “2” 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:X P=:S+Ecos(J)+Fcos(J+90)-