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

CASIO fx-5800P实用工程测量程序一、QXFY 辛甫森公式放样程序1. “X0”? U：“Y0”?V2. “XA”? A：“YA”? B：“CA”? C： “1RA”?D： “1RB”?E：“KA”?F：“KB”? G 3. Lb1 1： “KI”?H：“JJ”?L：“ Y+Z”?R4. If HG Or HD : Then 1T : Else 1T : IfEnd3. Lbl 0：“K”?K：Abs(EK）S：4. If SB : Then Goto 0 : IfEnd 5. If EK : Then Goto 1: Else Goto 2 :IfEnd 6. Lbl 1：FSC+T（BS）22A G:“G”: G7. Goto 08. Lbl 2：F+SD+T（BS）22A G:“G”: G9. Goto 0程序显示说明：须输入参数： R？: 竖曲线半径T？: 切线长I1？: 变坡点前坡度值，上坡为正，下坡为负（如-2.5%则输-0.025）I2？: 变坡点后坡度值，上坡为正，下坡为负K0？：变坡点里程H0？：变坡点坡线高程K？：待求点里程计算结果: G: 待求点曲线高程K？：重新输入待求点里程注：计算里程仅在竖曲线范围内五、直线段坐标换算ZXZH (X,Y)(A,B) 1. “X0”?M：“Y0”? N：“K”? Z：“T”? T 2. Lbl 0 ：“X”?X ：“Y”?Y 3 (XM) cos()(YN)sin(): “LC”: A 4 (YN)cos()(XM)sin(): “KD”: B 5 Goto 0程序显示说明：须输入参数：X0? Y0?直线起算点坐标（，） (对应变量M N)K?起算点桩号 (对应变量Z)?起算点至的方位角 (对应变量T)? ?待求点坐标 (对应变量X Y)计算结果: LC待求点对应桩号 (对应变量A )KD距离中线距离，左负，右正 (对应变量B ) ? ? 重新输入待求坐标点六、圆曲线坐标换算YHS (X,Y)(A,B)1“X0”?M：“Y0”? N：“KQZ”? Z：“T”? T:“R”? R: “K”? K 2. Lbl 0 :“X”?X：“Y”? Y 3ol(,） 注：计算(,)点至圆心的距离4. If J0：Then J+360J：IfEnd 5. ()180:“LC”: A 注：计算(,)点的桩号6. （I）: “KD”: B 注：计算(,)点的距中线距离7Goto 0程序显示说明：须输入参数：X0? Y0?圆心坐标（,） (对应变量M N)KQZ?曲线中点（QZ）的桩号 (对应变量Z)?圆心至QZ点的方位角 (对应变量T)?圆曲线半径 (对应变量R)?根据点处的偏角确定，左偏取，右偏取 (对应变量K)? ?待求点坐标 (对应变量X Y)计算结果： LC待求点对应桩号 (对应变量A)KD距离中线距离，左负，右正 (对应变量B)? ? 重新输入待求坐标点七、缓和曲线段坐标换算HHS (X,Y)(A,B)1 “XQ”?M：“YQ”? N：“Z”? Z：“S”? S:“R”? R: “L0”? L: “T”? T: “K”? K2. Lbl 0 ：“X”?X：“Y”? Y3Z A ：ME ：NF ：TO 4 Lbl 2： ol（XE，YF）5If J0：Then J+360J：IfEnd6 U=JO7 . A+S I cosUA8If Abs(I cos (U)）0.001： Then AA: “LC”: A 9. S I sin (U)B : “KD”: B 10. Goto 0 : IfEnd11RLC：Abs(AZ）D12If DL： Then “DL”13. Goto 0 : IfEnd14DD5（40C 2）+D9（3456C4）V15D3（6C）D7（336C3）+D11（42240C5）W16 ol（V，W）17 T+K JP： T+90 K D2(C) O18. M+I cos( P) E： N+I Sin(P) F19. Goto 2程序显示说明须输入参数： X0? Y0?为ZH（或HZ）点坐标（X，Y） (对应变量M N)Z?为ZH（或HZ）点的桩号 (对应变量Z)S?由ZH点计算时, S取+1，否则-1 (对应变量S)R?圆曲线半径 (对应变量R)L0?缓和曲线长度（L0） (对应变量L)T?为ZH（或HZ）点至本曲线JD点的方位角 (对应变量T)K?根据JD点处的偏角确定，左偏取-1，右偏取+1； 当由HZ点计算时，左偏取+1，右偏取-1 (对应变量K)? ?待求点坐标 (对应变量X Y) 运算结果: LC待求点对应桩号 (对应变量A)KD距离中线距离，左负，右正 (对应变量B)? ? 重新输入待求坐标点八、后方交汇（HFJH） 即自由设站（还未验算）8-1边长交汇，在两点不通视或不方便架仪器时可任意架设仪器，依次照准两已知点并观测记录边长（夹角不用测）由本程序推算出测站坐标及后视方位角通过配盘完成设站，在外业观测中提高测量效率，特别对于没有程序功能的全站仪方便实用注意：运算结果为P在AB点右侧点，观测务必由A到B顺时针观测，不然结果为镜像点位置为AB连线左侧点，应用中必须判断明确！1. “XA”？ U: “YA” ?V: “XB” ？X: “YB”？Y2. Pol(UX),(VY)If J0：Then J+360J：IfEnd J：“JB-A” J3. “SBA”： I 4. Lbl 1 : “SA”？ E: “SB”？ F5. cos1(I2+F2E2) (2IF) B：JBA7. X+FcosAC: “XP”：C8. Y+FsinA D: “YP”： D 9. G=A180If G0 ：Then G+360G：IfEnd ：“JPB”：G9. Goto 1程序显示依次说明须输入参数： XA？ YA？输入观测第一点坐标 对应变量U VXB？ YB？输入观测第二点坐标 对应变量X YJB-A 计算得出第二点指向第一点方位角SBA计算得出第二点到第一点距离 （以上两项可视需要可不显示）SA？输入由未知点P点到第一点A观测距离 对应变量ESB？输入由未知点P点到第二点B观测距离 对应变量F运算结果: XP YP解得未知P点坐标 对应变量C DJPB由 P点后视第二已知点推算方位角，（配盘用） 对应变量J九-1、ZBZH程序 （坐标新旧系转换）（已验算）X1?A：Y1?B：X0?D：Y0?F：JJ? TLb1 0 :XP?C : YP?EA(CD)cos（T）(EF)sin（T）G:XP1:G B(CD) sin（T）(EF) cos（T）HYP1：H Goto 0输入说明：X1？ Y1？为（公共点）新坐标系中坐标X0？ Y0?为（公共点）原坐标系中坐标T? 为新坐标系X轴在原坐标中方位角（即坐标轴旋转角）XP? YP?为待求点在原坐标系中坐标计算结果：XP1=、YP1=为待求点在新坐标系中坐标。九-2、ZBZH程序（坐标新旧系转换）本程序据公共点在新旧坐标系中的坐标，以及新坐标系X轴在原坐标系中方位角。（即公共边旧坐标系中方位角减公共边新坐标系中方位角）来推算旧坐标系下未知点转换在新坐标系下坐标1. X?A：Y?B：X1?C：Y1?D：JJ?T 2. Lb1 0:XP?E：YP?F 3. (E(A(Ccos(T)Dsin(T)cos(T)+(F(B(Dcos(T)+Csin(T)sin(T)G:XP1:G4. (E(A(Ccos(T)Dsin(T)sin(T)+(F(B(Dcos(T)+Csin(T)cos(T)H:YP1:H5. Goto 0 输入说明： X0 、Y0 为公共点原坐标系中坐标X01、Y01为公共点新坐标系中坐标JJ为新坐标系X轴在原坐标中方位角XP、YP为待求点在原坐标中坐标；计算结果： XP1、YP1为待求点在新坐标系中坐标。石武项目（部分）应用实例：曲线资料：一、QXFY 辛甫森公式放样程序(示例)1. Lb1 0：“Z”?Z2. If 0Z : Then Goto： A：IfEnd3. If 4Z : Then 3450018.29A ：500461.113B：180714.5 ”C： 0D：0E：21835.029F：23224.207G：Goto B：IfEnd4. If 5Z : Then 3448629.115A: 500458.187B：180714.5 ”C： 0D：019000：23224.207F：23714.21G：Goto B：IfEnd5. If 6Z : Then 3448139.143A: 500461.601B：1783340 ”C： 19000D：19000E：23714.21F：24061.66G：Goto B：IfEnd .6. If 0Z And 4Z And 5Z And 6Z: Then Goto 0 ：IfEnd7. Lb1 A :“XA”? A：“YA”? B：“CA”? C： “1RA”?D： “1RB”?E：“KA”?F：“KB”? G 8. Lb1 B: “X0”? U：“Y0”?V9. Lb1 C： “KI”?H：“JJ”?L：“ Y+Z”?R10. If HG Or HF : Then Goto C : IfEnd11. (ED) Abs(GF)P: Abs(H F)Q：PQZ：D+ZT12. C+（Z+2D）Q90W :“QXFWJ”：WDMS 13. C+(Z4+2D)Q22.5M：C+（3Z4+2D）Q67.5N：C+(Z2+2D)Q45K14. A+Q（cos(C)+4(cos(M)+cos(N)+2cos(K)+cos(W)）12+Rcos(W+L) X：“X”：X15. B+Q(sin(C)+4(sin(M)+sin(N)+2sin(K)+sin(W)12+Rsin (W+L) Y：“Y”：Y 16. Pol(XU)，（YV）)17. If J0 Then J+360J: IfEnd : “FWJ”:J DMS 18. “JU”: I 19. Goto C程序显示说明须输入参数： Z=? ：输入放样点里程段号，若该段曲线资料未存入计算器内，则输入0，重新输入曲线资料。 XA:曲线起算点X （0Z时，提示输入线路曲线资料）YA:曲线起算点Y CA：曲线起算点切线方位角 1RA：1半径，即起算点曲率，右偏为正左偏为负 1RB：1半径，即曲终点曲率，右偏为正左偏为负 KA:起算点里程KB:曲终点里程 X0？ : 置镜点X (0Z跳过以上显示) Y0? : 置镜点Y KI?:待求点里程 JJ ？:夹角(与前进方向切线向右的夹角) DY + Z？：边距，右正 左负 计算结果: QXFWJ: 计算点切线方位角 X:计算点x Y:计算点y FWJ: 放样方位角 JU: 放样距离 KI?:重新输入要求点里程 . 2、圆曲线坐标换算YHS （示例）：1Lbl 0 ：“Z”?Z 2. If 0Z：Then Goto A：IfEnd 3. If 6Z：Then 3448365.139M ：509458.763N：23887.93Z： 2672718” T：9002.5R：1K：Goto B：IfEnd 4. If 0Z And 6Z ： Then Goto 0 ：IfEnd 5Lbl A ：“X0”?M：“Y0”? N：“KQZ”? Z：“T”? T:“R”? R: “K”? K 6. Lbl B ：“X”?X：“Y”?Y7ol(,） 注：计算(,)点至圆心的距离4. If J0：Then J+360J：IfEnd 5. ()180:“LC”: A 注：计算(,)点的桩号6. （I）: “KD”: B 注：计算(,)点的距中线距离7Goto B程序显示说明：须输入参数：Z=? ：输入放样点里程段号，若该段曲线资料未存入计算器内，则输入0，重新输入曲线资料。X0? Y0?圆心坐标（,） （0Z时，提示输入线路曲线资料） KQZ?曲线中点（QZ）的桩号 ?圆心至QZ点的方位角 ?圆曲线半径 ?根据点处的偏角确定，左偏取，右偏取 ? ?待求点坐标 (0Z跳过以上显示) 计算结果： LC待求点对应桩号 KD距离中线距离，左负，右正 ? ? 重新输入待求坐标点七、缓和曲线段坐标换算HHS（示例）：1Lbl 0 ：“Z”?Z 2. If 0Z：Then Goto A：IfEnd 3. If 5Z：Then 3448629.12M ：500455.687N：23224.21Z：1S：9000R：490L：180715” T：1K：Goto B：IfEnd 4. If 0Z And 5Z ： Then Goto 0 ：IfEnd 5Lbl A ： “XQ”?M：“YQ”? N：“Z”? Z：“S”? S:“R”? R: “L0”? L: “T”? T: “K”? K2. Lbl B ：“X”?X：“Y”? Y3Z A ：ME ：NF ：TO 4 Lbl C： ol（XE，YF）I5 J0 J+360J 6 JOU：A+S I cos（U）A8If Abs(I cos (U)）0.001 ：Then AA: “LC”: A 9. S I sin (U)B : “KD”: B 10. Goto B : IfEnd11RLC：Abs(AZ）D12If DL： Then “DL”13. Goto B : IfEnd14DD(5)（40C 2）+D(9)（3456C(4)）V15D(3)(6C)D(7)(336C(3)+D(11)(42240C(5)W16 ol（V，W）I17 T+K JP： T+90 K D2(C) O1