斜(竖)井通用程序-fx5800P.docVIP

斜(竖)井通用程序 （fx-5800P） （起止点要素设定：） Deg:Fix4:“QD X0=”?X: “QD H0=”?Y: “QD N=0+”?N: “QD P=-0.05”?B: “SQ R=10.5M”?M: “XJ A=60°”?R: “END X0=”?U: “END H0=”?V: “END N=0+”?T: “END P=-0.001”?C:If T≥N:Then 1→W :Else -1→W : IfEnd?: (以下是程序对起止点要素数据自检核:) “SW (YX) X=”:X+M Sin(tg-1(B)) →E◢ (上弯段圆心X坐标) “SW (YX) H=”:Y-M Cos(tg-1(B)) →F◢ (上弯段圆心H坐标) “SW XJ X=”:E+M Sin(R) →S◢ (上弯段斜井起点X坐标) “SW XJ H=”:F+M Cos(R) →G◢ (上弯段斜井起点H坐标) “XW (YX) X=”:U-M Sin(tg-1(C)) →O◢(下弯段圆心X坐标) “XW (YX) H=”:V+M Cos(tg-1(C)) →L◢(下弯段圆心H坐标) “XW XJ X=”:O-M Sin(R) →A◢ (下弯段斜井终点X坐标) “XW XJ H=”:L-M Cos(R) →Z◢ (下弯段斜井终点H坐标) If S=A:Then 90°→I :Else –W×tg-1((G-Z) ÷(S-A))→I : IfEnd: “JS XJ A=”:I◢DMS◢ (斜井倾角自检) （（R+ tg-1(B)+R+ tg-1(C)）×π×M÷180+√￣（（A-S）2+（Z-G）2） “ZH S=++”:J◢ (斜井桩号自检较差) (施工坐标输入,斜井位置判断，是否在上弯段) Lb10:“Xp=”?P:“Yp=”?Q:“Hp=”?H:“R=2.3M ”?D:M-Pol(H-F,P-E)→I:WJ→J: If J≤tg-1(-B):Then Goto 1 :Else Goto 2: IfEnd: Lb11: “SPD ” ◢ Goto 0: (上平段计算程序提示调用) Lb12: If J≥R:Then Goto B :Else N+（（J- tg-1(-B)）×π×M÷180）×W→K：“（）SW K=0+”：K◢ Goto A：IfEnd：（斜井上弯段桩号径向斜高计算） Lb1B: Pol(L-H,O-P)-M→I：WJ→J: If J＜tg-1(-C):Then Goto 9 ： IfEnd: If J＞R:Then Goto C：Else T-（（J- tg-1(-C)）×π×M÷180）×W→K：“（）（）XW K=0+”：K◢ Goto A：IfEnd：（斜井下弯段桩号径向斜高计算） Lb1C ：If R=90°Then A-P →I: Else -(H＋Wtg(R) ×P- Wtg(R) ×A-Z) ÷√￣(1+ tg(R) ×tg(R)) →I: IfEnd :N+W×((R- tg-1(-B)) ×π×M÷180+√￣((H-G) 2+(P-S) 2-I2)) →K: “1+++1 XJ K=0+”：K◢:R→J: （斜井段桩号径向斜高计算） Lb1A: “Y=”：Q◢“H=”：H◢If Abs(J) ≤85°: Then “(YX) CZ +S –X”:I÷Cos(J) ◢ IfEnd：“(YX) XZ +S –X”:I◢ D-√￣(I 2+Q 2)→K：“(YX)=P S +Y -N”:K◢If I0:Then Goto D:Else Goto E: IfEnd： （显示圆心径向斜高，垂直高度，径向收敛） Lb1E: √￣(D 2-Q 2)+I→K: “XZ +S –X”:K◢ If Abs(J) ≤85°: Then “CZ +S –X”: K÷Cos(J) ◢ IfEnd：√￣(D 2-I 2)-Abs(Q)→K: “SP +Y –N”:K◢Goto 0: （显示圆心径向斜高收敛，水平收敛，垂直收敛。） Lb1D: I-√￣(D 2-Q 2)→K: “XZ +S –X”:K◢If Abs(J) ≤85°: Then “CZ +S –X”: K÷Cos(J) ◢ IfEnd ：√￣(D 2-I 2)-Abs(Q)→K: “SP +Y –N”:K◢Goto 0: （显示圆心径向斜高收敛，水平收敛，垂直收敛。） Lb19: “XPD ” ◢ Goto 0: (下平段计算程序提示调用) 参数详解： “QD X0=”上弯段起点X坐标； “QD H0=”上弯段起点H坐标； “QD N=0+” 上弯段起点桩号； “QD P=-0.05”