4800测量程序.docVIP

4800测量程序 大地转施工： L1：M＂X0＂：N＂Y0＂：H＂XD＂：I＂YD＂：A＂а＂ L2：X＂X（S）＂=（H-M）×CosA+(I-N) ×SinA◢ L3：Y＂Y(S)＂＝－（Ｈ－M）SinA◢ 施工转大地： Ｌ１：Ｍ＂Ｘ０＂Ｎ＂Ｙ０＂：Ｈ＂Ｘ（Ｓ）＂：Ｉ＂Ｙ（Ｓ）:Ａ＂а＂ Ｌ２：Ｘ＂Ｘ（Ｄ）＂＝Ｍ＋ＨCosＡ－ＩSinＡ◢ Ｌ３：Ｙ＂Ｙ（Ｄ）＂＝Ｎ＋ＨSinＡ＋ＩCosＡ 直线段程序： Ｌ１：Ｆixm： Ｌ２：｛ＳＡＧＤ｝：Ｓ＂Ｓ＂：Ａ＂а＂：Ｇ＂ＺＺ＝１，ＹＺ＝０＂：Ｋ＝tan-1（Ｄ÷Ｓ） Ｌ３：Ｇ＝１=Ｑ＝Ａ－Ｋ◢ ≠＞Ｑ＝Ａ＋Ｋ：Ｗ＝∑(S2+D2)⊿X=M+CosＱ×Ｗ◢ Ｙ＝Ｎ＋SinＱ×W 曲线超高加宽： Ｌ１：Lbl 0 Ｌ２：Ｅ＂I1＂：Ｆ＂Ｉ２＂：Ｄ＂ＨＣ＂：Ｌ＂ＬS＂：Ａ：Ｌ３：Ｂ：Ｑ：Ｖ＂ＺＨ＂：Ｗ＂ＨＢ＂ Ｌ４：Ｒ＝Ａbs(Ｑ－Ｖ) Ｌ５：Ｊ＂ＢＸＪ＂＝（Ｒ÷Ｌ）×Ｗ◢ Ｌ６：Ｔ＝（Ｅ÷Ｄ）×Ｌ Ｌ７：Ｒ≤Ｔ＝＞Ｇoto 1:≠Prog＂01＂⊿ Ｌ８：Ｌbl 1 Ｌ９：Ｇ＂Ｉ＂＝（Ｒ÷Ｔ）×２Ｅ Ｌ１０：Ｇ≤Ｅ＝＞Ｕ＝Ｇ－Ｅ：≠Ｕ＝Ａbs(G-E) ⊿ Ｌ１１：Ｈ＝Ｕ◢ Ｌ１２：Ｏ＂ＨＺ＂＝Ａ×Ｆ＋Ａbs(B×Ｕ) ◢ Ｌ１３：Ｎ＂ＨＷ＂＝Ｂ×Ｕ－Ａ×Ｆ◢ Ｌ１４：Ｏ＂ＨＮ＂＝（Ｂ＋Ｊ）×Ｅ＋Ａ×Ｆ Ｏ１子程序： Ｌ１：Ｉ＝（（Ｑ－（Ｖ＋Ｔ））÷（Ｌ－Ｔ））×（Ｄ－Ｅ）＋Ｅ◢ Ｌ２：Ｉ≤Ｄ＝＞Ｇoto２：＝＞Prog＂Ｏ２＂⊿ Ｌ３：Ｌbl 2 Ｌ４：Ｍ＂ＨＺ＂＝Ａ×Ｆ＋Ｂ×Ｉ◢ Ｌ５：Ｎ＂ＨＮ＂＝Ｂ×Ｉ－Ａ×Ｆ◢ Ｌ６：Ｏ＂ＨＮ＂＝（Ｂ＋Ｊ）Ｉ＋Ａ×Ｆ◢ Ｏ２子程序： Ｍ＂ＨＺ＂＝Ａ×Ｆ＋Ｂ×Ｄ◢ Ｎ＂ＨＷ＂＝Ｂ×D－Ａ×Ｆ◢ Ｏ＂ＨＮ＂＝（Ｂ＋Ｗ）×Ｄ＋Ａ×Ｆ◢ 程序说明 大地转施工、施工转大地： Ｘ０、Ｙ０：原点大地坐标Ｘ，Ｙ ＸＤ、ＹＤ：待求点大地坐标Ｘ，Ｙ ＸＳ，ＹＳ：待求点施工坐标Ｘ，Ｙ 直线段程序： Ｍ，Ｎ：原点的坐标：Ｘ，Ｙ Ｓ：距离，Ｄ：偏距，Ｇ：１为左转，０为右转，Ｑ：方位角 超高加宽计算： Ｉ１：路拱横坡度 Ｉ２：路肩横坡度 ＨＣ：最大横向坡度 ＬＳ　缓和曲线长 Ａ：　路肩宽 Ｂ：　２／１路拱宽 Ｑ：　待求点桩号 ＺＨ：缓和曲线起点桩号 ＨＢ：最大加宽值 ＢＸＪ：待求点的加宽值 Ｉ　　：待求点横向坡度 ＨＺ：中心桩超高值（与路基边缘的高差） ＨＷ：外边桩距中心桩的高差，ＨＮ：内边桩距中心桩的高差