路桥施工测量常用计算资料大全：5800测量程序

xf5800测量程序1、正算：ZSJOYOLXO?:?:?:?XSCOS(JL:X◢YSSIN(JO:Y2、反算：FTYIZXIOYOLXO?:?:?:?),(OTLZPOL◣II:JJJ3600DMS:JJ3、路任意里程点坐标：XL-ZBVV?IFEndGDKBFDKAERBDRACCABYAAXATHENVIF:?:?:?/1:?/1:?:?:?:0　　　KDKIKLBI?::01Pr0JogVPrJZBFogDMS:WW◢LXO:◢OYO:◢00?:1gotoZZZLBI2)(:)(:00?:2◢◢gotoYJSSINOYXJSCOSLXJZWgotoSSSLBI4、路任意坐标点里程：XL-LCTYIZXIKDKI?:?:?(任意里程)),(Pr1Pr1OTLZPOLJZBFogJogLBISW）（WCOSIWJXSKlsegotoSKSABS　　　　E:1:KTHEN05.0)(IF◢(坐标点里程)YWSINI)(◢(坐标点到中线距离)IFEnd11、极坐标法主程序：JZBF9=DimZABS(K-F)→Z［1］(E-D)/ABS(G-F)*Z［1］→Z［2］C+(Z［2］+2D)*Z［1］*90/π→WW0=W+360→WC+(Z［2］/8+2D)*Z［1］*45/(4π)→Z［3］C+(3Z［2］/8+2D)*Z［1］*135/(4π)→Z［4］C+(5Z［2］/8+2D)*Z［1］*225/(4π)→Z［5］C+(7Z［2］/8+2D)*Z［1］*315/(4π)→Z［6］C+(Z［2］/4+2D)*Z［1］*45/(2π)→Z［7］C+(Z［2］/2+2D)*Z［1］*45/π→Z［8］C+(3Z［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）)→LB+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）)→O12、直曲线资料：J-1IFK＊＊＊＊.＊＊＊:THEN*→A：*→B：*→C：*→D：*→E：*→F：*→G：Goto0:⊿----------LBI0注：K-----测点里程DKIA-----起点XXAB-----起点YYAC-----起点坐标方位角CAD-----起点曲率1／RA左偏为负；右偏为正E------终点曲率1／RB左偏为负；右偏为正F------起点里程DKAG------终点里程DKB