文档介绍：直线 +完整缓和曲线 +圆曲线 +非完整缓和曲线 +直线一、 坐标计算源程序1. 主程序 (TYQXjs )"  => XY " :"  => SZ " :N:U" X0" : V" Y0" :O" S0" :G" F0" :H" LS" :P" R0" :R" RN" :Q:C=1÷P: D=(P-R)÷(2HPR):E=180÷ π: N=1=>Goto 1:≠>Go to 2 Δ ←┘Lbl 1 :{SZ} :SZ:W=Abs(S-O): Prog " SUB1":X" XS" =X◢Y" YS" =Y◢Goto 1←┘◢Lbl 2 :{XY} :XY:I=X :J=Y:Prog " SUB2" :S" S" =O+WZ" Z" =Z◢Goto 22. 正算子程序 (SUB1)A=: B=: K=: L= :F=1-L : M=1-K :X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) :Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD)):+Asin(G+QEMW(C+MWD))):F=G+QEW(C+WD)+90:X=X+ZcosF Y=Y+ZsinF3. 反算子程序 (SUB2)T=G-90 : W=Abs((Y-V)cosT-(X-U)sinT) : Z=0 : Lbl 0 : Prog " SUB1" :: :L=T+QEW(C+WD)Z=(J-Y)cosL-(I-X)sinL : AbsZ<1E-6=>Goto1:≠ >W=W+ZGoto 0 Δ←┘Lbl 1 :Z=0:Prog " SUB1" :Z=(J-Y) ÷sinF二、使用说明1、规定(1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时, Q=1;当线元为直线时, Q=0。(2) 当所求点位于中线时, Z=0;当位于中线左铡时, Z 取负值;当位于中线中线右侧时, Z 取正值。(3) 当线元为直线时,其起点、止点的曲率半径为无穷大,以10 的 45 次代替。(4) 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以 10 的 45 次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径为无穷大,以 10 的 45 次代替;与圆曲线相接时,曲率半径等于圆曲线的 半径。(6) 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相 接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。2、输入与显示说明输入部分:1. SZ => XY2. XY = > SZN? 选择计算方式,输入 1 表示进行由里程、边距计算坐标 ;输入 2表示由坐标反算里程和边距。X0 ?线元起点的 X 坐标Y0 ?线元起点的 Y 坐标S0 ?线元