复合钻柱的设计-Read.docVIP

复合钻柱的设计 变量说明 qc1—— qc=1632N/m的钻挺单位长度的重量 qc2 ——qc=2860N/m的钻挺单位长度的重量 qc3 ——qc=1362.4N/m的钻挺单位长度的重量 Wmax ——钻压 FyE ——E级钻杆在最小屈服强度的抗拉力 FyX ——F级钻杆在最小屈服强度的抗拉力 FyG ——G级钻杆在最小屈服强度的抗拉力 St ——安全系数 K ——卡瓦挤毁系数 MOP——拉力余量 qp1 ——E级单位长度钻杆在空气中的重量 qp2——95(X)级单位长度钻杆在空气中的重量 Lc1——qc=1632N/m的钻挺长度 Lc2——qc=2860N/m的钻挺长度 Lc3 ——qc=1362.4N/m的钻挺长度 FaE1——E级钻杆的最大静拉负荷（按安全系数法计算） FaE2—— E级钻杆的最大静拉负荷（按卡瓦挤压安全计算） FaE3——E级钻杆的最大静拉负荷（按拉力余量计算） FaE——取FaE1 FaE2 FaE3中最小的值 L1—— 第一段钻杆长度 FaX1 ——X级钻杆的最大静拉负荷（按安全系数法计算） FaX3——X级钻杆的最大静拉负荷（按卡瓦挤压安全计算） FaX2——X级钻杆的最大静拉负荷（按拉力余量计算） Fax——取FaX1 FaX3 FaX2中最小的值 L2——第二段钻杆长度 编程 Private Sub Command1_Click() qc1 = 1.632 qc2 = 1.3624 qc3 = 2.86 Wmax = 200 FyE = 1760.31 FyX = 2229.71 FyG = 2464.39 St = 1.3 K = 1.42 MOP = 450 qp1 = 0.28478 qp2 = 0.28478 qc = 1.632 Lc1 = Round(1.21 * Wmax / qc1) Lc2 = Round(1.21 * Wmax / qc2) Lc3 = Round(1.21 * Wmax / qc3) If Lc1 = 81 Then Lc = Lc1 Text1.Text = Lc ElseIf Lc3 = 27 Then Lc = Lc3 Text1.Text = Lc Else Lc = Lc2 Text1.Text = Lc End If FaE1 = 0.9 * FyE / St FaE2 = 0.9 * FyE / K FaE3 = 0.9 * FyE - MOP If FaE1 FaE2 And FaE1 FaE3 Then FaE = FaE1 Text2.Text = FaE ElseIf FaE2 FaE1 And FaE2 FaE3 Then FaE = FaE2 Text2.Text = FaE Else FaE = FaE3 Text2.Text = FaE End If L11 = FaE / qp1 - qc * Lc / qp1 If L11 = 900 Then L1 = L11 Else L1 = 900 End If Text3.Text = L1 FaX1 = 0.9 * FyX / St FaX3 = 0.9 * FyX - MOP FaX2 = 0.9 * FyX / K If FaX1 FaX2 And FaX1 FaX3 Then Fax = FaX1 ElseIf FaX2 FaX1 And FaX2 FaX3 Then Fax = FaX2 Else Fax = FaX3 End If Text4.Text = Fax L22 = (Fax - (qc * Lc + qp1 * L1)) / qp2 If L22 = 2600 Then L2 = L22 Else L2 = 3500 - Lc - L1 End If Text5.Text = L2 End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text3.Text = Text4.Text = Text5.Text = End Sub 界面输出 4．结果输出