单圆曲线(YQXJS)
“KO”?O: “X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号），（X0为输入起算点X坐标），（Y0为输入起算点Y坐标），（JDX输入曲线所在交点X坐标，无输入0），（JDY为输入曲线所在的Y坐标，无输入0），（FWJ为输入起算点的方位角），（F0为输入交点处的转角，带正负号，当左转时在转角前加-；右转时在转角前加+），（N为转角方向，正输入+1，负输入-1），（R为输入曲线半径）Abs(F)÷2→G◢“T=”：Rtan(G)→T◢（计算切线长）
“L=”：GRπ÷90→L◢（计算圆曲线长）
“E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离）
LbI 1←┘
?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角
“XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标）
“YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标）
tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘
If U＜0:Then U+360→U:Else U→U:If End←┘
“FW=”?U :U DMS◢（计算出的中桩与交点的方位角）
?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）
“XR=”: Z [1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标）
“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）
特别注意：
1.进行反向计算（大桩号往小桩号计算）时，起算点桩号应设为0；待求桩号与起算点距离多远桩号就为多少；
3.起算点方位角应与起算点之前的线形所对应的方位角一致。
