道路平曲线中、边桩坐标及两侧直线中计算程序

道路平曲线中、边桩坐标及两侧直线中、边桩坐标计算程序 （CASIO　fx-4800p）（第三版）

　　程序名：PQX

　　J＂ZH（JD）＂：O＂X（JD）＂：K＂Y（JD）＂：R：T：A：B：L：D＂L（ZH-HZ）＂
　　LbI 1
　　{QMN}：M：N
　　C=J-T：V=C+L：F=C+D
　　B<0=>P=-1⊿
　　B>0=>P=1⊿
　　QGoto 5⊿
　　Q-C≤L=>Goto 2⊿
　　Q>V=>E=Q-V⊿
　　E≤D-2*L=>Goto 3⊿
　　Q≤F=>E=F-Q⊿
　　E≤L=>Goto 4⊿
　　Q>F=>Goto 6⊿　⊿表示条件转移结束码
　　LbI 2
　　H=Q-C：Z=H-H^5/40/R^2/L^2：W=30*H^2/π/R/L
　　U=Cos（A+180）*T+O+Z/CosW*Cos（A+P*W）
　　G=Sin（A+180）*T+K+Z/CosW*Sin（A+P*W）
　　I=A+P*H^2/R/L*90/π-90：S= A+P*H^2/R/L*90/π+90
　　Goto 7
　　LbI 3
　　H=Q-V：Z=L-L^3/40/R^2：W=30*L/π/R
　　U=Cos（A+180）*T+O+Z/CosW*Cos（A+P*W）+2*R*Sin（90*H/π/R）*Cos（A+90*（H+L）/π/R*P）
　　G=Sin（A+180）*T+K+Z/CosW*Sin（A+P*W）+2*R*Sin（90*H/π/R）*Sin（A+90*（H+L） /π/R*P）
　　I=A+P*90/π/R*（2H+L）-90：S= A+P*90/π/R*（2H+L）+90
　　Goto 7
　　LbI 4
　　H=F-Q：Z=H-H^5/40/R^2/L^2：W=30*H^2/π/R/L
　　U=Cos（A+B）*T+O+Z/CosW*Cos（A+B+180-P*W）
　　G=Sin（A+B）*T+K+Z/CosW*Sin（A+B+180-P*W）
　　I=A+B+180-P*H^2*90/π/R/L+90：S=A+B+180-P*H^2*90/π/R/L-90
　　Goto 7
　　LbI 5
　　U=Cos（A+180）*（J-Q）+O：G= Sin （A+180）*（J-Q）+K
　　I=A+270：S=A+90
　　Goto 7
　　LbI 6
　　U=Cos（A+B）*（Q-F+T）+O：G= Sin （A+B）*（Q-F+T）+K
　　I=A+B-90：S=A+B+90
　　Goto 7
　　LbI 7
　　X＂X（M）＂=U◢
　　Y＂Y（M）＂=G◢
　　E＂X（L）＂=CosI*M+U◢
　　H＂Y（L）＂=SinI*M+G◢
　　W＂X（R）＂=CosS*N+U◢
　　Z＂Y（R）＂=SinS*N+G◢
　　Goto 1

　　输入说明：　

　　ZH（JD）——交点桩号　　　 A——起始方位角　　　　　　
　　X（JD）——交点坐标X　　　 B——路线转角，左为“-”，右为“+”
　　Y（JD）——交点坐标Y　　　 L——缓和曲线长　
　　R——曲线半经　　　　 L（ZH-HZ）——曲线总长
　　T——切线长　　　　M——左边桩距　
　　N——右边桩距
　　结果显示说明：X（M），Y（M）——中桩坐标
　　X（L）， Y（L）——左边桩坐标
　　X（R）， Y（R）——右边桩坐标