公路工程施工施工测量常用公式程序编写及应用.docVIP

摘自《公路工程施工施工测量常用公式程序编写及应用》 CASIO fx-4500PA（4500P）、4800P（4850P）型计算机程序计算专集 编著：韩山农 人民交通出版社 （第286页） 一、中、边桩计算程序 “坐标法”放样点位x，y计算程序清单二——线路点位中桩及边桩坐标计算程序 程序清单二： 文件名：XY-2 {R V N G Q W K F} M＝V÷2－V3÷（240R2）↓ P＝V2÷（24R）－V4÷（2688R3）↓ L＝πRN÷180＋V↓ T＝（R＋P）tan（N÷2）＋M↓ A＝Q－T：B＝A＋V：D＝A＋L：C＝D－V↓ Z[1]＝W＋Tcos（F＋180）↓ Z[2]＝K＋Tsin（F＋180）↓ Z[3]＝W＋Tcos（F＋GN）↓ Z[4]＝K＋Tsin（F＋GN）↓ Lb1 0↓ {H S E}↓ H＜A＝＞Goto 1：≠＝＞H＜B＝＞Goto 2：↓ ≠＝＞H＜C＝＞Goto 3： ≠＝＞H＜D＝＞Goto 4： ≠＝＞Goto 5 △△△△△↓ Lb1 1↓ X“XZ1”＝W＋（Q－H）cos（F＋180）◢ Y“YZ1”＝K＋（Q－H）sin（F＋180）◢ X＝X“XZ1”＋Scos（（F＋180－（180－E））◢ Y＝Y“YZ1”＋Ssin（（F＋180－（180－E））◢ Goto 0◢ Lb1 2↓ Z＝H－A↓ O＝90Z2÷（πRV）↓ X＝Z－Z5÷（40R2V2）＋Z9÷（3456R4V4）↓ Z＝Z3÷（6RV）－Z7÷（336R3V3）＋Z11÷（42240R5V5）↓ Rec（X，F）↓ X＝Z[1]＋I：Y＝Z[2]＋J↓ Rec（Z，F＋90G）↓ X“XF1”＝X＋I◢ Y“YF1”＝Y＋J◢ X＝X“XF1”＋Scos（F＋OG＋E）◢ Y＝Y“YF1”＋Ssin（F＋OG＋E）◢ Goto 0↓ LbI 3↓ Z＝H－A－V↓ T＝180V÷（2Rπ）↓ O＝180Z÷（Rπ）＋T↓ X＝RsinO＋M↓ Z＝R（1－cosO）＋P↓ Rec（X，F）↓ X＝Z[1]＋I：Y＝Z[2]＋J↓ Rec（Z，F＋90G）↓ X“XY”＝X＋I◢ Y“YY”＝Y＋J◢ X＝X“XY”＋Scos（F＋OG＋E）◢ Y＝Y“YY”＋Ssin（F＋OG＋E）◢ Goto 0↓ LbI 4↓ Z＝D－H↓ O＝90Z2÷（πRV）↓ X＝Z－Z5÷（40R2V2）＋Z9÷（3456R4V4）↓ Z＝Z3÷（6RV）－Z7÷（336R3V3）＋Z11÷（42240R5V5）↓ Rec（X，F＋GN＋180）↓ X＝Z[3]＋I：Y＝Z[4]＋J↓ Rec（Z，F＋GN＋180－90G）↓ X“XF2”＝X＋I◢ Y“YF2”＝Y＋J◢ X＝X“XF2”＋Scos（F＋GN＋180－OG－E）◢ Y＝Y“YF2”＋Ssin（F＋GN＋180－OG－E）◢ Goto 0↓ LbI 5↓ X“XZ2”＝Z[3]＋（H－D）cos（F＋NG）◢ Y“YZ2”＝Z[4]＋（H－D）sin（F＋NG）◢ X＝X“XZ2”＋Scos（F＋NG＋E）◢ Y＝Y“YZ2”＋Ssin（F＋NG＋E）◢ Goto 0 程序中：R—圆曲线半径； V—缓和曲线长度； N—线路转角（偏角），输入时不考虑符号； G—偏角控制条件，左偏角输入-1，右偏角输入1； Q—交点里程桩号； W，K—交点的x，y坐标； F—前切线正方位角； M—加设缓和曲线后使切线增长的距离； P—加设缓和曲线后圆曲线相对于切线的内移量； L—有缓和曲线的圆曲线的曲线长（含缓和段）； T—有缓和曲线的圆曲线的切线长； A—直缓（ZH）点的里程桩号； B—缓圆（HY）点的里程桩号； D—缓直（HZ）点的里程桩号； C—圆缓（YH）点的里程桩号； Z[1]，Z[2]—ZH点的x，y坐标； Z[3]，Z[4]—HZ点的x，y坐标。 上述M，P，L，T，A，B，D，C，Z[1]，Z[2]，Z[3]，Z[4]程序设计为不显示，若需要显示，则在其后追加一显示符号“◢”。例如：M＝V÷2－V3÷（240R2）◢，其余仿此。 程序以拼音字母表示：“Z”表示直线段，“F”表示缓和曲线段，“Y”表示圆曲线段，下面符号意义如下： XZ1，YZ1—前直线段中桩坐标的x，y值； XF1，YF1—前缓和曲线段中桩坐标的x，y值； XY，YY—圆曲线段中桩坐标的x，y值； XF2，YF2—后缓和曲线段中桩坐标的x，y值； XZ2，YZ2—后直线段中桩坐标的x，y值； X，Y—前述各段与中桩同一横断面的左、右边桩坐标值； H—前述各段上任意一点（待求点）的里程桩号； S—同一横断面的中—边桩距离； E—中—边连线与线路中线夹角，输入“＋E”，计