曲线计算万能程序Lb10:EG：A“XA”:B“YA”：C“CA”:D“1/RA”：E“1/RB”:F“DKA”:G“DKB”Lb11:HORS:H“DKi”:“DL”:R“DR”:S“JR”HGGoto3P=（E-D）Abs（G-F）:Q=Abs（H-F）:I=PQJ=C+90（I+2D）Q兀M=C+45(I/4+2D)Q(2兀)N=C+135(3I/4+2D)Q（2兀)K=C+45(I/2+2D)Q兀X=A+Q（CosC+4(CosM+CosN)+2CosK+CosJ)12Y=B+Q(SinC+4(SinM+SinN)+2SinK+SinJ）12U“XL”=X-Cos（J+S）V“YL”=Y-Sin（J+S）W“XR”=X+RCos（J+S）Z“YR”=Y+RSin（J+S）Goto1Lb13:A=X：B=Y；D=E：F=G：C=J：Goto0注：每输完一行要按EXE。曲率输入右转为正，左转为负。程序说明：XA起点X坐标1/RA起点曲率YA1/RB起点Y坐标终点曲率CA起点方位角DKA起点里程DKB终点里程DKI所求点里程DL左边桩距离DR右边桩距离JR右前方夹角J计算点切线方位角X计算点X坐标Y计算点Y坐标第一缓和曲线（左偏）RA=0RB=-1/R（右偏）RA=0RB=1/R第二缓和曲线（左偏）RA=-1/RRB=0（右偏）RA=1/RRB=0圆曲线（左偏）RA=-1/RRB=-1/R（右偏）RA=1/RRB=1/R