Предупреждение гидратообразования в системах сбора и промысловой подготовки скважинной продукции на примере Ямбургского месторождения

Дипломная работа - Геодезия и Геология

Другие дипломы по предмету Геодезия и Геология



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