复曲线坐标4800计算程式

复曲线坐标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Ｏ５...。...
    PS：再请大家收藏与推荐本书，谢谢。
　**** ****　**** ****　**** ****　**** ****　**** ****　****
赶快推广加积分吧！（↓ 下方为推广链接，开始轻松赚积分吧！）