fx-4850P_基本型平曲线中边桩坐标计算程序PM5-3.pdfVIP

fx-4850P 程序 单交点非对称基本型平曲线中边桩坐标计算程序PM5-3 (2) 主程序——PM5-3 SINGLE BASIC TYPE CURVE 显示程序标题1 METHOD OF COORDINATE PM5-3 显示坐标法标题2 Deg:Fix 3 基本设置 Defm 44 定义扩充变量存储器 ZJD MILEAGE PEG(m)= 输入以m 为单位的交点桩号 AJD X(m)=:BJD Y(m)= 输入交点坐标 UZD X(m)=:VZD Y(m)= 输入转点坐标 QTURNING ANGLE -L,+R(Deg)= 输入交点路线转角,左偏为负,右偏为正 Q0 Z[30]=-1: Z[30]=1 存储转角符号系数 D=Abs Q 计算转角绝对值 SLh1(m)= 输入第一缓和曲线长 RR(m)= 输入圆曲线半径 TLh2(m)= 输入第二缓和曲线长 I=0:J=0 Pol(A-U,B-V):Cls J0 J=J+360 Z[31]=J 计算ZD→JD 的方位角Z[31] F=Z[31]+Q 计算HZ→JD 的方位角Z[32] F 180 F=F-180 F=F+180 Z[32]=F Z[1]=S2 ÷24R-S^4÷2688R^3 计算第一缓和曲线内移值Z[1] Z[2]=S÷2-S^3÷240R2 +S^5÷240R^4 计算第一缓和曲线切线增量Z[2] Z[3]=T2 ÷24R-T^4÷2688R^3 计算第二缓和曲线内移值Z[3] Z[4]=T÷2-T^3÷240R2 +T^5÷240R^4 计算第二缓和曲线切线增量Z[4] Z[5]=(R+Z[3])÷sin D-(R+Z[1])÷tan D+Z[2] 计算第一切线长Z[5] Z[6]=(R+Z[1])÷sin D-(R+Z[3])÷tan D+Z[4] 计算第二切线长Z[6] Z[7]=90S÷πR 计算第一缓和曲线偏角Z[7] Z[8]=90T÷πR 计算第二缓和曲线偏角Z[8] Z[9]=πR(D-Z[7]-Z[8])÷180 计算圆曲线长Z[9] Z[10]=S+T+Z[9] 计算曲线总长Z[10] J=Z[5]+Z[6]-Z[10] 计算切曲差 T1(m)=:Z[5] 显示第一切线长 T2(m)=:Z[6] 显示第二切线长 LY(m)=:Z[9] 显示圆曲线长 L(m)=:Z[10] 显示总曲线长 J(m)=:J 显示切曲差 Z[11]=Z-Z[5] 计算ZH 点桩号Z[11] Z[14]=Z[11]+S