【测量学】5800测量程序.pdfVIP

xf 5800 测量程序 1、正算：Z XO ?L :YO?O : ?J : ?S X: L +SCOS(J →X ◢ Y : O +SSIN(J →Y 2、反算：F XO? L :YO?O : XI? Z :YI?T POL(Z −L,T −O) I: I◣ J  0 =J +360 →J J : J DMS 3、路任意里程点坐标：XL-ZB V?V IF　V =0　: THEN　 XA? A :YA? B :CA?C :1/ RA? D :1/ RB? E : DKA? F : DKB?G : IFEnd   LBI 0 : K : DKI? K V  0 =Pr og J −1 Pr og JZBF W:W  DMS◢ XO: L ◢ YO: O ◢ 1 读万卷书 行万里路 LBI1 : Z? Z Z = 0 = goto0 LBI 2 : S? S S = 0 = goto0 W + Z → J X : L + SCOS(J ) → X ◢ Y: O + SSIN (J ) →Y◢ goto2 4、路任意坐标点里程：XL-LC DKI? K : XI? Z :YI?T (任意里程) LBI1 Pr og J −1 Pr og JZBF POL(Z − L,T −O) J −W → W I COS（W）→S IF　ABS (S)  0.05　THEN　K +S →K : goto1: Else　K +S → X ◢(坐标点里程) I SIN(W ) →Y ◢(坐标点到中线距离) IFEnd 11、极坐标法主程序：JZBF 9=DimZ ABS(K-F)→ Z ［1 ］ (E-D)/ABS(G-F)* Z ［1 ］→Z ［2 ］ C+( Z ［2 ］+2D)* Z ［1 ］*90/π→W W0=W+360→W C+( Z ［2 ］/8+2D)* Z ［1 ］*45/(4π) →Z ［3 ］ C+(3 Z ［2 ］/8+2D)* Z ［1 ］*135/(4π) →Z ［4 ］ C+(5 Z ［2 ］/8+2D)* Z ［1 ］*225/(4π) →Z ［5 ］ C+(7 Z ［2 ］/8+2D)* Z ［1 ］*315/(4π) →Z ［6 ］ 2 读万卷书 行万里路 C+( Z ［2 ］/4+2D)* Z ［1 ］*45/(2π) →Z ［7 ］ C+( Z ［2 ］/2+2D)* Z ［1 ］*45/π→Z ［8 ］ C+(3 Z ［2 ］/4+2D)* Z ［1 ］*135/(2π) →Z ［9 ］ A+ Z ［1 ］/24*(COS （C ）+4(COS （Z ［3 ］）+COS （Z ［4 ］）+COS （Z ［5 ］）+COS （Z ［6 ］）)+2(COS （Z ［7 ］）+COS （Z ［8 ］）+COS （Z ［9 ］）)+COS （W ）) →L B+ Z ［1 ］/24*(SIN （C ）+4(SIN （Z ［3 ］）+SIN （Z ［4 ］）+SIN （Z ［5 ］）+SIN （Z ［6 ］）)+2(SIN （Z ［7 ］）+SIN （Z ［8 ］）+SIN （Z ［9 ］）)+SIN （W ）) →O 12、直曲线资料：J-1 IF K ＊＊＊＊. ＊＊＊: THEN *→A ：*→B ：*→C ：*→D ：*→E ：*→ F ：*→G ：Goto 0 :⊿ LBI 0 注：K测点里程 DKI A起点 X XA B起点 Y YA C起点坐标方位角 CA D起点曲率