复曲线坐标4800计算程式-第1部分

按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！


复曲线坐标4800计算程式


该程式主要适用于对称复曲线（直线、缓曲、圆曲、缓曲、直线）中边桩坐标计算，单次半算范围为前一交点HZ点到后一交点ZH点。
E“JDK”　F“JDX”　G“JDY”　R　H“LS”　I“ALF”J“ZJ”
Ｔ＝（Ｒ＋Ｈ２÷２４Ｒ－Ｈ3÷２６８８Ｒ3）Ｔａｎ（ＡｂｓＪ÷２）＋Ｈ÷２－Ｈ3÷２４０Ｒ２
Ｌ＝Ｒ（πＡｂｓＪ÷１８０－Ｈ÷Ｒ）
Ｌｂｏ０：｛ＫＱ｝：Q=90：X＝F－TCosM：Y=G＋TSinM：Z＝Ｅ－Ｔ：Z＝K－O：K＞Z　→ＧOTO１：Z=K…Z：　M＝I：　P＝M－Q：GOTO5　
Ｌbo１：Ｊ＜０→Ｎ＝１：←Ｎ＝２△Ｋ＞Z＋Ｈ→ＧOto２：p＝（－１）Ｎ（Ｋ－Z）２÷Ｈ÷Ｒ÷６×１８０÷π：Ｍ＝Ｉ＋p：Ｚ＝Ｋ－Z－（Ｋ－Z）５÷９０÷Ｒ２Ｈ２：Ｐ＝Ｍ＋P－Ｑ：Ｇto５
Ｌbo２：z＝z＋Ｈ：Ｋ＞z＋Ｌ→Ｇoto３：o＝Ｉ＋（－１）ＮＨ÷２÷Ｒ×１８０÷π：p＝（－１）Ｎ（Ｋ－Z）÷Ｒ×１８０÷π：Ｍ＝Ｉ＋（－１）ＮＨ÷Ｒ÷６×１８０／π：Ｚ＝Ｈ－Ｈ３÷９０Ｒ２：Ｘ＝Ｘ＋ＸＣosＭ：Ｙ＝Ｙ＋ＳinＭ：Ｍ＝o＋p÷２：Ｚ＝２ＲＳin（（－１）ＮP÷２）：q＝o＋p－Ｑ：ＧotoＯ５
Ｌbo３：z＝zＨ＋Ｌ：Ｍ＝Ｉ＋Ｊ：Ｘ＝Ｆ＋ＴＣosＭ：Ｙ＝Ｇ＋ＴＳinＭ：ＫＬbo４：Ｊ