1、CASIOfx5800P实用工程测量程序知识分享一、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:FS
2、C+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
3、 :“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.
4、 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距离中线
5、距离,左负,右正 (对应变量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 : I
6、fEnd11RLC: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?
7、缓和曲线长度(L0) (对应变量L)T?为ZH(或HZ)点至本曲线JD点的方位角 (对应变量T)K?根据JD点处的偏角确定,左偏取-1,右偏取+1; 当由HZ点计算时,左偏取+1,右偏取-1 (对应变量K)? ?待求点坐标 (对应变量X Y) 运算结果: LC待求点对应桩号 (对应变量A)KD距离中线距离,左负,右正 (对应变量B)? ? 重新输入待求坐标点八、后方交汇(HFJH) 即自由设站(还未验算)8-1边长交汇,在两点不通视或不方便架仪器时可任意架设仪器,依次照准两已知点并观测记录边长(夹角不用测)由本程序推算出测站坐标及后视方位角通过配盘完成设站,在外业观测中提高测量效率,特别对于没
8、有程序功能的全站仪方便实用注意:运算结果为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
9、:“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
10、?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?
11、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
12、 辛甫森公式放样程序(示例)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 ”
13、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.
14、 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程序显示说明须
15、输入参数: 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: 放
16、样距离 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.
17、 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距离中线距离,左负,右正 ? ? 重新输入待求坐标点七、缓
18、和曲线段坐标换算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:
19、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) O18. M+I cos( P) E
20、: N+I Sin(P) F19. Goto C程序显示说明须输入参数:Z=? :输入放样点里程段号,若该段曲线资料未存入计算器内,则输入0,重新输入曲线资料。 X0? Y0?为ZH(或HZ)点坐标(X,Y) (输入Z0时,提示输入线路曲线资料)Z?为ZH(或HZ)点的桩号 S?由ZH点计算时, S取+1,否则-1 R?圆曲线半径L0?缓和曲线长度(L0)T?为ZH(或HZ)点至本曲线JD点的方位角 K?根据JD点处的偏角确定,左偏取-1,右偏取+1; 当由HZ点计算时,左偏取+1,右偏取-1 ? ?待求点坐标 (0Z跳过以上显示) 运算结果: LC待求点对应桩号 KD距离中线距离,左负,右正 ? ? 重新输入待求坐标点(DL : 表示该计算点不在该缓和曲线段内,并提示重新输入坐标。)断面检查 DMJC1. Lbl 0 : “K”?K:“KD”? A:“HA”?B2. K23060 161.23(K23060)0.013 G4. If K22340 And K23060 : Then Goto 0 :IfEnd5. (A2+(BG2.43)2)7.2 D:“CQW”:D6. Goto 0输入说明: K? 输入里程KD? 距中心宽度KA? 测点高程计算结果: CQW 超欠挖值,(“”值表示欠挖值,“”超挖值)
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1