公路反算程序.docVIP

公路反算程序 (GL－CL) (fx－4800P编程计算器) Defm 2：Deg：Fix 3：J=θ：A=Z[2]：B=Z[1]：{AB}：APOINT Xp=：BPOINT Yp=：Z[2]=A：Z[1]=B：Lb1 θ：{XYRWNTML}：XX°=：YY°=：RR°=：W1：L 2：R 3：ZD：W≠1=W≠2=W≠3=Gotoθ⊿⊿⊿NZH－ZY=θ+：TEND N=θ+：W=1=NT=E=－1：F=－1：≠E=1：F=－1⊿⊿W=2=NT=E=－1：F=1：≠E=1：F=1⊿⊿W=3=Goto 2⊿MR=：LLs=： Lb1 2: {PQ}：PXp=：QYp=：A=(P－X)CosR＋(Q－Y)SinR：D=(Q－Y)CosR－(P－X)SinR：W=3=Goto N⊿B=(0.5L×180÷(πM))×EF：I=(MSinAbsB＋L÷2－(L^3÷(240M2)))×E：J=(M(1－CosB)＋L2÷(24M))×F：I=FMCos(B＋90)＋I：J=FMSin(B＋90)＋J：I=Pol(I－A,J－D)：E=1=Jθ=J=J＋360⊿Aθ=Goto 8⊿⊿E=－1=F=－1=J=J＋36θ⊿Aθ=Goto 8⊿⊿J=J－(Cos－1F＋90＋B)：EFθ=J≥θ=Goto M⊿⊿EFθ=J≤θ=Goto M⊿⊿ C=AbsA：Lb1 3：B=(180C2÷(2πML))×EF：A=(C－C^5÷(40M2L2)＋C^9÷(3456×M^4×L^4))×E：D=(C^3÷(6ML)－C^7÷(336M^3×L^3)＋C^11÷(42240M^5×L^5))×F：I=X＋ACosR－DSinR：J=Y＋ASinR＋DCosR：A=(P－I)Cos(R＋B)+(Q－J)Sin(R＋B)：D=(Q－J)Cos(R+B)－(P－I)Sin(R＋B)：AbsA0.001=A=E(C＋AE)：Goto N：≠C=Abs(C＋AE)：Goto 3⊿ Lb1 M：A=E(L＋(AbsJπM)÷180)：D=F(M－I)：Lb1 N：K=N＋A：NT=KT=Goto8⊿KN=Goto 8⊿⊿NT=KT=Goto 8⊿KN=Goto 8⊿⊿KN=θ＋◢DY=◢S=D：Goto 2： Lb1 8：－CX－ OK！◢Goto 2： 公路反算程序的 变量含义内容和显示结果含义内容 ( GL－CL) 1.主要赋值部分： A： (测站：) “POINT X p=” 测站X坐标； “POINT Y p=” 测站Y坐标； B： (以下为公路单元数据库内容：) “X° =” ZH（或HZ）点X坐标; ( 换算元素：) “Y ° =” ZH（或HZ）点Y坐标; “R ° =” ZH（或HZ）点到交点(JD)方位角; 状态参数：“1：L 2：R 3：ZD”选1为路线左偏;选2为路线 右偏；选3为直线段。 “ZH－ZY= θ+” 该单元起点桩号； “END N=θ+” 该单元止点桩号； “R =” 圆曲线半径； “Ls=” 缓和曲线长. C： “K=” 为输入该单元数据库内的任意桩号。 2.状态选择部分和显示结果部分。 A：“1：DM 2：FY 3：CL”为状态选择。含义为：选1为断面测量任务，即：将实测点归化到该桩号上以中桩为原点，切线方向为X轴的施工坐标系中的运算。选择2为任意桩号的放样任 务，即：可以完成不同边距点的放样。选择3为测量任务，即：可以将实测任意点坐标通过跟踪计算归化到公路桩号上，解出桩号和Y值。除以上三种选择，程序默认为放样状态。 如果选择1：程序进入断面测量状态；程序首先显示“XB=”( 或“XC=”）；“YB=”(或“YC=”);“B=”；(这三个参数表示以ZH点(或HZ，ZY，YZ点）为原点，以ZH点到交点JD方向为X轴建立施工坐标系的输入桩号所对应中桩施工坐标和该点切向方位角。该项在程序调试时，提供校核参考。)程序提示输入任意实测点坐标（Xp,Yp)，程序将实测点归化到该桩号上以中桩为原点，切线方向为X轴的施工坐标系中，显示“A=＋⊿⊿X”表示归化到该坐标中的X值，使X值趋近于零，“Y=”表示距该 桩号中桩的边距值（负值在左，正值在右，中桩为零）。然后进入“1：OK 2：END