4580圆曲线综合计算程序.xlsVIP

算例 4850圆曲线计算程序 H=0?Goto 5 △ G0?Z[5]=0:Z[6]=W:≠Z[5]=W:Z[6]=0 △ Lbl 3:Z[7]=X+(R+H)cos(K+F+G÷2):Z[8]=Y+(R+H)sin(K+F+G÷2): Z[9]=X+(R-H-W)cos(K+F+G÷2):Z[10]=Y+(R-H-W)sin (K+F+G÷2):G0?QZ.XZ: Z[7] ▲ QZ.YZ:Z[8] ▲ QZ.XY:Z[9] ▲ QZ.YY:Z[10] ▲:≠QZ.XZ:Z[9]▲ Lbl 4:YZ.XZ:Z[3]+(H+Z[5])cos(J-90)▲YZ.YZ:Z[4]+(H+Z[5])sin(J-90)▲ 纵横坐标: YZ.XY:Z[3]+(H+Z[6])cos(J+90)▲ YZ.YY:Z[4]+(H+Z[6])sin(J+90)▲ X.ZZ:A+Icos J+Hcos(J-90) ▲ Y.ZZ:B+Isin J+Hsin (J-90)▲ X.ZY:A+Icos J+Hcos(J+90) ▲ Y.ZY:B+Isin J+Hsin (J+90)▲ Lbl 4:N=N-S ← Lbl 1: N=N+S:NZ+L?Goto 4 △ ← Lbl 3:H=0?Goto 1 △ YQXZB(圆曲线坐标计算) YQXZD(圆曲线主点计算) SJDYQX(实交单圆曲线主程序) XJDYQX(虚交单圆曲线主程序) T:T=Rtan Q ▲ L:L=2RQπ÷180▲E:E=R(1÷cos Q-1)▲ fx--4850P圆曲线计算套件程序 交点（或交点1）、起点的纵横坐标； X1、Y1、X2、Y2 = 第一次输入表示为 X1、Y1、X2、Y2 = 第二次输入表示为 交点（或交点1）、终点（或交点2）的 入终点纵横坐标。 2、输 入 共同显示内容： 1、按左侧套件程序（包括程序名） X.ZD、Y.ZD =（复反曲线计算时）输 3、显 示 ZY.ZH= 直圆点桩号； QZ.ZH= 曲中点桩号； YZ.ZH= 圆直点桩号； ZY.X、ZY.Y= 直圆点（x，y） XP.Y、YP.Y=所求边右桩点（x，y） T = 切线长； L = 圆弧长； E= 外矢距； ZZJ=左转角； YZJ=右转角； QZ.X、QZ.Y= 曲中点（x，y） YZ.X、YZ.Y= 圆直点（x，y） XP.Z、YP.Z=所求边左桩点（x，y） 单独显示内容： X.GJ、Y.GJ= 公交点（x，y）（在虚交 单圆曲线中显示）。 运行 SJDYQX(实交单圆曲线主程序) 步骤 X.QD X.QZ、Y.QZ=起点边左（x，y） X.ZZ、Y.ZZ=终点边左（x，y） X.ZY、Y.ZY=终点边右（x，y） 主程序，兰色框 为子程序（子程序一 显示 注 输入 R？ Z？ H？ X1？ Y1？ R QD.ZH X.JD Y.JD X2？ Y2？ Y.ZD 编码输入4850中即可使用。黄色框 为 R？ = 圆曲线半径；Z？ = 起点桩号； H？ = 设计路宽（可输可不输，不输不计 算边桩点坐标）；V？ = 加宽缓和段长； E？=终点X、F？=终点Y；（虚交时有效） X.HQ、YHQ=（两次显示）为加宽缓和段 起点（x，y），加宽缓和段终点与圆曲线 起点或终点接。 本程序套件适用于实交单圆曲线、虚交单圆 曲线、主曲元、中边桩坐标（含直线段）计算， 以及加宽缓和段计算。 W？ = 全加宽尺寸；（V、W不输不计算加宽） Mcl: R:Z:H:V:W←Prog ZBFS←K=J:P=I←Prog ZBFS←S=I：L=J：G=J-K: (Abs E)÷sin (180-2Q):X.GJ:A=A-Scos K ▲Y.GJ:B=B-Wsin K ▲ H=H÷2: Q=Abs( G÷2):H=H÷2←Prog YQXZD← X.QY、Y.QY=起点右左（x，y） X.HQY、Y.HQY=加宽缓和段起点边右坐标； 计算该曲线主点和中边桩点坐标及加宽计算？ 全加宽 显示 路宽 V？ Lj W Y2？ X.ZD Y.ZD T 按键 L 数 据 录 入 显示 结果 注 E YZJ 右转角 ZY.ZH 直圆点桩号 QZ.ZH 曲中点桩号 YZ.ZH 圆直点桩号 ZY.X 直圆点X ZY.Y 直圆点Y QZ.X 曲中点X QZ.Y 曲中点Y YZ.X 圆直点X 圆直点Y X.QZ Y.QZ 起点左Y 起点左X X.QY Y.QY 起点右X 起点右Y ZD.ZH 终点桩号 YZ.Y X.ZZ Y.ZZ X.ZY Y.ZY 终点左Y 终点左X 终点右X 终点右Y 以下为细部桩号点坐标及加宽值