Предупреждение гидратообразования в системах сбора и промысловой подготовки скважинной продукции на примере Ямбургского месторождения
Дипломная работа - Геодезия и Геология
Другие дипломы по предмету Геодезия и Геология
Exp(S)= Abs(Px - Pz)= (19.9 * (1 + 0.434 * Log(Pz)) - 26.5) + 273.15Tz <= Tg Then.Caption = jSub.Caption = "гидратов нет"If
Next jSub
:"Ведены некорретные данные!"
вычисление.Enabled = TrueSubSub очистка_Click()
Rem Стирание всех данных.
вычисление.Enabled = True
Label5.Caption = "".Caption = "".Clear.Clear.Clear.ClearSubПечать данныхSub печать_Click().PrintFormSub
Приложение Б
Гидравлический и тепловой раiёт шлейфов, раiёт количества ингибитора
Private Px As Currency, Tx As Currency, Tg As Currency, ww As IntegerSub вычисление_Click()
раiёт.Enabled = True= Val(Text1(0).Text)= Val(Text1(1).Text)= Val(Text1(2).Text)= Val(Text1(3).Text)= Val(Text1(4).Text)= Val(Text1(5).Text)= Val(Text1(6).Text)= Val(Text1(7).Text)= Val(Text1(8).Text)= Val(Text1(9).Text)= Val(Text1(10).Text)Error GoTo 111Построение таблицы..Font.Bold = True" x, м";" Px, МПа";" Tx, K";" Тг, K"
Print "******************************************************"Вычисление давления и температуры по длине шлейфа.
Ld = 0.009407 / (Dvn ^ 0.333)= 262.3 * K * Dn * 1000 / (Q * Rg * C * 1000000)= Toc + (Ty - Toc) * (1 - Exp(-a * L * 0.001)) / (a * L * 0.001)= Sqr((Py ^ 2) - ((Q ^ 2) * Ld * Rg * Ts * z * L * 0.001) / (10.23 * (10 ^ (-12)) * ((Dvn * 1000) ^ 5)))\)= (2 / 3) * (Py + (Pk ^ 2) / (Py + Pk)).Font.Bold = FalseL > 12000 Then= 1000L > 7000 Then= 500L > 3600 Then= 300= 200Ifw = 0 To L Step ww= Sqr((Py ^ 2) - ((Py ^ 2) - (Pk ^ 2)) * w / L)= Toc + (Ty - Toc) * Exp(-a * w * 0.001) - 2.5 * ((Py ^ 2) - (Pk ^ 2)) * (1 - Exp(-a * w * 0.001)) / (2 * a * L * 0.001 * Ps)= (19.9 * (1 + 0.434 * Log(Px)) - 26.5) + 273.15" "; w;" ",Px;" ",Tx;" ",Tg"******************************************************"w
Rem Определения места начала гидратообразования.
For www = 0 To L= Sqr((Py ^ 2) - ((Py ^ 2) - (Pk ^ 2)) * www / L)= Toc + (Ty - Toc) * Exp(-a * www * 0.001) - 2.5 * ((Py ^ 2) - (Pk ^ 2)) * (1 - Exp(-a * www * 0.001)) / (2 * a * L * 0.001 * Ps)= (19.9 * (1 + 0.434 * Log(Px)) - 26.5) + 273.15Tx <= Tg Then.Caption = wwwSubIf
Next www.Caption = "Гидратов нет"
раiёт.Enabled = FalseSub
:
MsgBox "Введены некорректные данные!".Cls
раiёт.Enabled = FalseSubSub очистка_Click()
Rem Удаление данных и результатов.
Form1.Cls.Caption = ""
раiёт.Enabled = FalseSubSub выход_Click()SubПечать данныхSub печать_Click()
Form1.PrintFormSubОткрытие формы для раiёта количества ингибитора
Private Sub раiёт_Click().Hide
Form2.ShowSubПостроение формы и ввод данных для раiёта количества ингибитора
Private Qs As CurrencySub выход_Click()SubSub назад_Click().Hide.ShowSubSub печать_Click().PrintFormSubSub раiёт_Click()= Val(Form1.Text1(0).Text)= Val(Form1.Text1(1).Text)= Val(Form1.Text1(2).Text)= Val(Form1.Text1(3).Text)= Val(Form1.Text1(4).Text)= (Val(Form1.Text1(5).Text))= Val(Form1.Text1(6).Text)= Val(Form1.Text1(7).Text)= Val(Form1.Text1(8).Text)= Val(Form1.Text1(9).Text)= Val(Form1.Text1(10).Text)= Val(Text1(0).Text)= Val(Text1(1).Text)
Mk = Val(Text1(2).Text)Вычисление давления и температуры в конце шлейфа.
Ld = 0.009407 / (Dvn ^ 0.333)= 262.3 * K * Dn * 1000 / (Q * Rg * C * 1000000)= Toc + (Ty - Toc) * (1 - Exp(-a * L * 0.001)) / (a * L * 0.001)= Sqr((Py ^ 2) - ((Q ^ 2) * Ld * Rg * Ts * z * L * 0.001) / (10.23 * (10 ^ (-12)) * ((Dvn * 1000) ^ 5)))= (2 / 3) * (Py + (Pk ^ 2) / (Py + Pk))= L= Sqr((Py ^ 2) - ((Py ^ 2) - (Pk ^ 2)) * w / L)= Toc + (Ty - Toc) * Exp(-a * w * 0.001) - 2.5 * ((Py ^ 2) - (Pk ^ 2)) * (1 - Exp(-a * w * 0.001)) / (2 * a * L * 0.001 * Ps)
Tg = (19.9 * (1 + 0.434 * Log(Px)) - 26.5) + 273.15= Q * 1000раiёт количества ингибитора
dT = Tg - Tx= 0.457 * Exp((0.07374 * (Ty - 273.15)) - 0.000307 * ((Ty - 273.15) ^ 2)) / Py + 0.0418 * Exp(0.0537 * (Ty - 273.15) - 0.000199 * ((Ty - 273.15) ^ 2))
Продолжение приложения В.= 0.457 * Exp((0.07374 * (Tx - 273.15)) - 0.000307 * ((Tx - 273.15) ^ 2)) / Px + 0.0418 * Exp(0.0537 * (Tx - 273.15) - 0.000199 * ((Tx - 273.15) ^ 2))
dW = W1 - W2= 0.197 * (Px ^ (-0.7)) * Exp(6.054 * 0.01 * (Tx - 273.15) + 5.399)= 32= 1220= M * dT / (K1 + M * dT)= 0.000143 * Mk ^ 2 - 0.0414 * Mk + 3.174= 0.1 * Alfa * X2+0.2*(0.1*Alfa*X2)= dW * X2 / (X1 - X2)= (Gk * K2 / 100) * Exp(0.0489 * (Tx - 273.15) + Log(0.000143 * X2 + 0.00486 * X2))= Qg + Qv + Qk(2).Caption = Qs
End Sub