fx-4800p缓和曲线中桩坐标及放样计算程序第一次优化.docVIP

?⑵ZH—1程序设计AC??MODE??5??1??Z??H??ALPHA — 1??EXE??1 Defm??10 M B″XM″C″YM″A″J D″D″X J D″F ″Y J D″N″Z H ″ O*″H Y″H″YH″P″H Z″EG″T 1″R L″L S″∶Fixm∶Pol D-B , F-C ∶Z［6］ J Rec N - M ,Z［6］Z［2］ B + I Z［3］ C + J Lbl 0 ∶｛ K ｝??K ≤ N→ S Z［6］Z［10］ K - M Prog ″XY3″∶ Rec Z［1 0］,Z［6］X B+ I?? ▲ Y C + J ▲ Goto??0 ∶ △??K ≤ O* → Z［5］ K- NProg ″X Y 2″∶Prog ″X Y 1″∶Prog″XY3″∶X Z［9］▲ Y Z［4］▲ Goto??0 K≤ H →Z［5］ O*- N Prog ″X Y 2 ″∶Prog ″X Y 1 ″∶Z［5］ K- O*Z［1］ 9 0 Z［5］÷π÷R S S + Z［1］+2 QZ［10］ 2 Rsin 9 0 Z［5］÷ΠR Prog ″XY3″∶ Rec Z［10］,SX Z［9］+ I ▲ Y Z［4］+ J??▲ Goto??0 ??K≤ P →Z［1］ Z［6］+ E Rec G ,Z［1］Z［7］ D+ IZ［8］ F+ JZ［5］ P-KProg″X Y 2 ″∶ S 180 +Z［1］- Q Prog ″XY3 ″∶ Rec?? Z［10］,S X Z［7］+ I ▲ Y Z［8］+ J ▲??Goto??0??EXE ??注：有*号者为英文字母。请注意英文字母O与零0的区别，以后均不再注明。??子程序??XY1程序AC??MODE??5??1??XY??ALPHA??1??EXE??1 Rec Z［10］,S Z［9］ Z［2］+I Z［4］ Z［3］+ J ??⒉XY2程序AC??MODE??5??1??X Y??ALPHA??2??EXE??1 Q 30Z［5］2÷πR L∶ S Q+Z［6］ Z［10］ Z［5］-Z［5］5÷40 R∧2 L∧2 ÷cos Q∶⒊XY3程序AC??MODE??5??1??X Y??ALPHA??3??EXE??1 U ″S P″ Z［10］ ▲S ≥0 →S″Q P″ S ▲ ≠→ S″Q P ″ 360 + S??▲ ??计算??例内宜高速公路一段曲线JD72 K55+917.27 坐标为 229978.000,478073.000，az 13°21′19″，R 1200m，LS1 LS2 135m，T1 208.062m，L 414.717m，E 8.834M，ZH桩号K55+709.21M，HY桩号K55+844.210M，YH桩号K55+988.92M，HZ桩号K56+123.92M，直线点K55+485.430M，坐标为230332.867，478319.076。用偏角法进行曲线放样。用ZH—1程序计算：AC??FILE??FUNCTION??1??Z H??ALPHA — 1??EXE?? EXE?? 输入数据顺序：M??485.43 EXE??输入直线起点M的桩号尾数 M ，XM??230332.867????EXE??输入直线起点M的坐标 M ，YM??478319.076????EXEJD??917.270 EXE??输入JD转点的桩号尾数 M ，XJD??229978 EXE??输入JD转点的坐标 M ， YJD??408073 EXEZH 709.21 EXE??输入直缓点ZH的桩号尾数 M ，HY??844.21 EXE??? 输入缓圆点HY的桩号尾数 M ，YH??988.92 EXE?? 输入圆缓点YH的桩号尾数 M ，HZ??1123.92 EXE?? 输入缓直点HZ的桩号尾数 M ，E -13°21′19″?? EXE??输入转角 度 ,即代表ay或az，前者右转，输入正值，后者左转输入负值。R -1200 EXE????输入半径 M 。路线左转为负值；右转为正值。LS??135 EXE?? 输入缓和曲线长度 M ，T1??208.062 EXE??? 输入切线长 M K??600 EXE??? 输入放样点桩号的尾数 M SP ?114.57 EXE??? 显示平距 M QP ?? 214°44′19.19″ EXE??? 显示方位角 度 ,X ?230238.718????EXE??? 显示放样