4800基本复曲线极坐标放样程式

坐标正算程式：
A“J－X” B“J－Y” C“S－X” D“S－Y” E“JDK” F“JDX” G“JDY” H“LS” I“ALF”
J“ZJ” R
Ｔ＝（Ｒ＋Ｈ２÷２４Ｒ－Ｈ３÷２６８８Ｒ３）Ｔａｎ（ＡｂｓＪ÷２）＋Ｈ÷２－Ｈ３÷２４０Ｒ２
Ｌ＝Ｒ（πＡｂｓＪ÷１８０－Ｈ÷Ｒ）
Ｌｂｏ０：｛ＫＱ｝：Ｏ＝Ｅ－Ｔ：Z＝K－O：M＝I：X＝F－TCosM：Y=G＋TSinM：P＝M－Q：S＝P＋180：
K＞E-T →Ｇoto１：←Ｇoto５
Ｌbo１：Ｊ＜０→Ｎ＝１：←Ｎ＝２△Ｚ［２］＝（－１）Ｎ（Ｋ－Ｏ）２÷Ｈ÷Ｒ÷６×１８０÷π：Ｍ＝Ｉ＋Ｚ［２］：Ｐ＝Ｍ＋２Ｚ［２］－Ｑ：Ｓ＝P +１８０：Ｚ＝Ｋ－Ｏ－（Ｋ－Ｏ）５÷９０÷Ｒ２Ｈ２：Ｋ＞Ｅ－Ｔ＋Ｈ→Ｇto２：←Ｇto５
Ｌbo２：Ｏ＝Ｅ－Ｔ＋Ｈ：Ｚ［３］＝Ｉ＋（－１）ＮＨ÷２÷Ｒ×１８０÷π：Ｚ［４］＝（－１）Ｎ（Ｋ－Ｏ）÷Ｒ×１８０÷π：Ｍ＝Ｉ＋（－１）ＮＨ÷Ｒ÷６×１８０／π：Ｚ＝Ｈ－Ｈ３÷９０Ｒ２：Ｘ＝Ｘ＋ＸＣosＭ：Ｙ＝Ｙ＋ＳinＭ：Ｍ＝Ｚ［３］＋Ｚ［４］÷２：Ｚ＝２ＲＳin（（－１）ＮＺ［４］÷２）：Ｐ＝Ｚ［３］＋Ｚ［４］－Ｑ：Ｓ＝Ｐ＋１８０：Ｋ＞Ｅ－Ｔ＋Ｈ＋Ｌ→Ｇoto３：←ＧotoＯ５
Ｌbo３：Ｏ＝Ｅ－Ｔ＋２Ｈ＋Ｌ：Ｍ＝Ｉ＋Ｊ：Ｚ＝Ｋ－Ｏ：Ｘ＝Ｆ＋ＴＣosＭ：Ｙ＝Ｇ＋ＴＳinＭ：Ｐ＝Ｍ－Ｑ：Ｓ＝Ｐ＋１８０：Ｋ<Ｏ→Ｇoto４：←Ｇoto５
Ｌbo４：Ｊ<０→Ｎ＝２：←Ｎ＝２△Ｚ［１］＝（－１）Ｎ（Ｋ－Ｏ）２÷Ｈ÷Ｒ÷６×１８０÷π：Ｚ＝Ｋ－Ｏ－（Ｋ－Ｏ）５÷９０÷Ｒ２Ｈ２：Ｍ＝Ｍ＋Ｚ［１］：Ｐ＝Ｍ＋２Ｚ［１］－Ｑ：Ｓ＝Ｐ＋１８０：Ｇoto５
Ｌbo５：Ｘ“ＸＺ”＝Ｘ＋ＺＣosＭ▲Ｙ“ＹＺ”＝Ｙ＋ＺＳinＭ▲Ｖ＝Ｘ：Ｗ＝Ｙ：Ｐrog“Ａ”：｛Ｕ｝：Ｖ“ＸＬ”＝Ｘ＋Ｕ“ＬＬ”ＣosＰ▲Ｗ“ＹＬ”＝Ｙ＋ＵＳinＰ▲Ｐrog“Ａ”：｛Ｕ｝：Ｖ“ＸＲ”＝Ｘ＋Ｕ“ＬＲ”ＣosＳ▲Ｗ“ＹＲ”＝Ｙ＋ＵＳinＳ▲Ｐrog“Ａ”
“Ａ”
Ｚ“ＬＩＮＥ”＝√（（Ｖ－Ｃ）２＋（Ｗ－Ｄ）２）▲Ｎ“ＤＭＳ”＝ＡＲＧ（（Ｖ－Ｃ）＋Ｗ－Ｄ）i）－ＡＲＧ（（Ａ－Ｃ）＋（Ｂ－Ｄ）i）▲Ｎ“ＤＭＳ＋３６０”＝Ｎ＋３６０▲｛ＵＶ｝Ｚ“Ｑ×ＱＬＩＮＥ”＝Ｚ－Ｕ“ＳＬＩＮＥ”×ＣＯＳ（９０－Ｖ“ＱＱ”）▲
符号说明：
Ｊ－Ｘ？：前视点（定向点）Ｘ坐标；　　Ｊ－Ｙ？：前视点（定向点）Ｙ坐标；
Ｓ－Ｘ？：置仪点Ｘ坐标；　　　　　　　Ｓ－Ｙ？：置仪点Ｙ坐标；
ＪＤＸ？：曲线交点桩Ｘ坐标；　　　　　ＪＤＹ？：曲线交点Ｙ坐标；
Ｒ？：圆曲线半径Ｍ；　　　　　　　　　　ＬＳ？：缓和曲线长Ｍ；
ＡＬＦ？：该交点与前一交点直线段的方位角（以度计）；
ＺＪ？：该曲线转角（左转为正、右转为负）；
Ｋ？：欲求点桩号；　　　　　　　　　Ｑ？：左边桩与路线前进方向的夹角；
ＸＺ：欲求点Ｘ坐标；　　　　　　　　ＹＺ：欲求点Ｙ坐标；
ＤＭＳ：欲求点与定向点的夹角；　　　ＤＭＳ＋３６０：夹角＋３６０度；
（当ＤＭＳ为正时采用ＤＭＳ、当ＤＭＳ为负时采用ＤＭＳ＋３６０值）
ＬＩＮＥ：欲求点至置仪点平距；　　ＳＬＩＮＥ？：测距仪测得梭镜到置仪点斜距；
ＱＱ？：坚直角；　　　ＱＱ＊ＬＩＮＥ：梭镜顺视线方向移动距离（正为延长、负为缩短）　
ＬＬ？：左幅路宽；　　　ＬＲ：右幅路宽；
ＸＬ：左边桩Ｘ值；　　　ＹＬ：左边桩Ｙ值；　　
ＸＲ：右边桩Ｘ值；　　ＹＲ：右边桩Ｙ坐标；