测量计算程序汇篇知识点.docVIP

测量计算程序一，平曲线计算程序 1，主程序【WXA】 “1,SZ＞XY” ： “2,XY＞SZ” ：N ：U“X0” ：V“Y0” ： O“S0” ：G “F0” ： H“LS” ：P“R0” ：R“RN” ：Q ：C1÷P:DP-R÷2HPR：E180÷∏：N1＞Goto 1：≠＞Goto 2 ⊿ LbI 1：｛SZ｝：S“DK”：Z“ZJ”：WAbs（S-O）:Prog“SUB1” ： X“XP”X◢ Y“YP”Y◢ Goto 1 LbI 2：｛XY｝：X“XP ” ：Y“YP” ：IX ： JY ： Prog“SUB2” ：S“DK”O+W◢ Z“ZJ”Z◢ Prog“SUB3” Goto 2 2,子程序【SUB1】 A0.1座机电话号码6 ： B0.座机电话号码74 ：K0.0座机电话号码2 ： L0.座机电话号码82 ： F1-L ： M1-K ： XU+WAcosG+QEKWC+KWD +BcosG+QELWC+LWD+BcosG+QEFWC+FWD+AcosG+QEMWC+MWD： YV+WAsinG+QEKWC+KWD+BsinG+QELWC+LWD+BsinG+QEFWC+FWD+AsinG+QEMWC+MWD：FG+QEWC+WD+90 ： XX+ZcosF ： YY+ZsinF 3,子程序【SUB2】 TG-90 ： WAbsY-VcosT-X-UsinT ： Z0 ： LbI 0 ： Prog“SUB1” ： LT+QEWC+WD ： ZJ-YcosL-I-XsinL ： AbsZ＜1E-6＞Goto 1：≠＞WW+Z：Goto 0 ⊿ LbI 1：Z0：Prog“SUB1” ：Z（J-Y）÷sinF 4, 子程序【SUB3】 KAbsZ : ｛Z｝：Z“ZP” S≥6009.2 ＞A36.44-0.0146250-S-S-6009.2∧2÷2*20000: ≠＞A36.44-0.0146250-S ⊿ Z≥A+5.421＞B“R1”√K∧2+Z-A+1.2 ∧2 ◢≠＞B“R2” √K-3.31 ∧2+Z-A-1.56 ∧2 ◢ 使用说明 线路前进方向分左右，线路左偏转时Q-1右偏转时Q1；当线路为直线时Q0。 所求点位于线路左侧时ZJ取负值右侧取正值中线上取零。 直线上的点的曲率半径为无穷大以10的45次方代替。曲线上的点的曲率半径为该点半径。 N1坐标正算，N2坐标反算；X0，Y0起点坐标；S0起点里程；F0起点切线方位角；Ls线元长度；R0起点曲率半径，RN止点曲率半径；DK所求点里程；ZJ所求点的支距；XP，YP所求点的坐标；F测点法线方位角；（F-90）所求点切线方位角。竖曲线计算程序 【SQX】 ｛D｝：D“SJD” ：｛E｝：E“I1” ：｛F｝：F“I2” ：｛R｝：R ：｛H｝：H：TR/2*E-F LbI 0 ｛K｝：K≤D＝＞Prog“AB” ：≠＞Prog“CD” Goto 0 【AB】 K≤D-T＝＞I “H0”H+EK-D ◢≠＞I “H0”H-ED-K-K-D+T ∧2/2R ◢ 【CD】 K≥D+T＝＞I “H0”H+FK-D ◢≠＞I “H0”H+FK-D-D+T-K ∧2/2R ◢ 说明：SJD竖交点；I1，I2纵坡设计坡度；R竖曲线半径；H变坡点设计高程；H0所求点高程。缓和曲线计算公式 βL*180/2R∏Ls切线角 δL*180/6R∏Ls弦偏角 xL-L/40RLs yL/6RLs -L/336RLs 缓和曲线参数方程。 PLs/24R内移距 qLs/2 -Ls/240R切线增长值 T（R+p）tg a/2 + q切线长 Lha-2β∏R/180 + 2Ls曲线长 LyLh-2Ls ER+psec a/2 –R外矢距 D2T-LQ切曲差 直缓点里程ZHJD-T 缓圆点里程HYZH+Ls 圆缓点里程YHHY+Ly 缓直点里程HZYH+Ls圆曲线计算公式 弦切角 δ90L/∏R 弦长D2Rsinδ 切线长 TR tga/2 弦心距 dR cosδ 弧长La∏R/180 δ∏R/90 弦弧距 d1R（1-cosδ）Go to 0单曲线坐标计算程序 【ZBJS】 LbI 0 ｛A｝：A“X1” ：｛B｝：B“Y1” ：｛C｝：C“W1” ：｛D｝：D“JD” ：｛G｝：G“PJ” ：｛E｝：E“Ls” ：｛F｝：F“R” ：｛V｝：V“IZ” Z90/∏/F：Prog “M” ｛Q｝：Q“X0” ：｛N｝：N“Y0” LbI 1 ｛P｝：P“K” ：｛K｝：K“BZ” C≥180＝＞HC-180：≠＞HC+180 △:P＞M+2E+L＝＞Go to 0 △ P≤M＝＞Prog