1、主程序JDNELBI 1：JDk=？C：JD=？D：Li？L：R=？R：JDX=？U：JDY=？V：JDA=？A：（+1R，-1L）？M：Z（+R，L）？B：K=？P：Prog：JDNE1：X=？XY=？YF=？FGoto 1子程序JDNE1（R+L（24R）tan（D2）+L2L（240R）TCTII+LJJ+DR180LHH+LKIf PI：Then U+（C-P）cos（A+180）+Bcos（A+90）XV+（C-P）sin（A+180）+Bsin（A+90）YAF：Return：IfEndIf PI And PJ ：Then A+M30（PI）（RL）O（PI）（PI）（90R）GU
2、+Tcos（A+180）+Gcos（O）XV+Tsin（A+180）+Gsin（O）Y90（PI）（RL）WX+Bcos（A+MW+90）XY+Bsin（A+MW+90）YA+MWF：Return：IfEndIf PJ And PH ：Then A+M90（L+PJ）（R）O2Rsin（PJ）90（R）GU+Tcos（A+180）+（LL（90R）cos（A+M（30L）（R）+Gcos（O）XV+Tsin（A+180）+（LL（90R）sin（A+M（30L）（R）+Gcsin（O）X90（PJ）（R）WX+Bcos（O+MW+90）XY+Bsin（O+MW+90）YO+MWF：Return
3、：IfEndIf PHAnd PK ：Then A+MD+180M30（PK）（RL）OKP（KP）（90R）GU+Tcos（A+MD）+Gcos（O）XV+Tsin（A+MD）+Gsin（O）Y（PK）90（RL）WX+Bcos（A+MDMW+90）XY+Bsin（A+MDMW+90）YA+MDMWF：Return：IfEndIf PK ：Then U+（T+PK）cos（A+MD）+Bcos（A+MD+90）XV+（T+PK）sin（A+MD）+Bsin（A+MD+90）YA+MDF：Return：IfEnd变量说明：JDk交点桩号CJD交点转角DLi缓和曲线长度LR圆曲线半径RJDX交点X坐标UJDY交点Y坐标VJDA交点方位角A（+1R，1L）偏向MZ（+R，L）（边桩到中桩距离）BK待求桩号PX待求点X坐标Y待求点Y坐标F待求点的方位角本程序已经测试通过，第二缓和曲线起点附近有时会有1公分误差，是公式简化过程中产生的。基本和设计方面提供的坐标误差在1mm以内。
安全达人 