* Tc) = 1.325 * (10 ^ (-12)) * L * (Zc ^ 2) * (Tc ^ 2) * ((Exp (2 * S)) - 1)/(d ^ 5) = Sqr ((Pu ^ 2) * Exp (2 * S) + ku * (q ^ 2)) = Abs (Px - Pz) = (19.9 * (1 + 0.434 * Log (Pz)) - 26.5) + 273.15Tz <= Tg Then.Caption = jSub.Caption = "гідратів немає" IfjSub
111: "дені некорретние дані!"
вичісленіе.Enabled = True
End SubSub очістка_Click ()
Rem Видалення всіх даних.
вичісленіе.Enabled = True
Label2.Caption = "". Caption = "". Clear.Clear.Clear.ClearSubРаспечатывание даннихSub печать_Click ()
Form1.PrintFormSub
Розрахунок розподілу температури і тиску в зупиненій свердловині
Private Pz As Currency, Tz As Currency, Tg As CurrencySub виход_Click () SubSub вичісленіе_Click ()
вичісленіе.Enabled = False = Val (Text1 (2). Text) = Val (Text1 (0). Text) = Val (Text1 (4). Text)
Г = Val (Text1 (3). Text) = Val (Text1 (1). Text) Error GoTo 111
Tg = (19.9 * (1 + 0.434 * Log (Pu)) - 26.5) + 273.15Построеніе таблиці
List1.AddItem "H, м". AddItem "***************". AddItem "0". AddItem "******* ******** ". AddItem" Pz, МПа ". AddItem" *************** ". AddItem Pu.AddItem" **** *********** ". AddItem" Tz, К ". AddItem" *************** ". AddItem Tu.AddItem" * ************** "
List4.AddItem "Tg, К"
Продовження додатка А.
List4.AddItem "***************". AddItem Tg.AddItem "***************"
Rem Задаємо крок алгоритму залежно від глибини свердловини.
If H> 5150 Then = 500H> 3450 Then = 300H> 1800 Then = 200H> 900 Then = 100 = 50
End IfRem Обчислення тиску і температури по довжині свердловини.
For j = 50 To H Step w = Tu + Г * j = (Tz - Tu)/Log (Tz/Tu) = 1 = PuWhile c> 0.05 = Pz = (Px + Pu)/2 = 4.82 * (10 ^ (-4)) * (Pc ^ 2) - 1.658 * (10 ^ (-2)) * Pc + 1.01 = (0.03415 * R * j)/(Zc * Tc) = Pu * Exp (S ) = Abs (Px - Pz) = (19.9 * (1 + 0.434 * Log (Pz)) - 26.5) + 273.15.AddItem j.AddItem "***************" ;. AddItem Pz.AddItem "***************". AddItem Tz.AddItem "***************". AddItem Tg.AddItem "***************"
Next jОпределеніе тиску на вибої свердловини. = H = Tu + Г * j = (Tz - Tu)/Log (Tz/Tu)
c = 1 = PuWhile c> 0.05 = Pz = (Px + Pu)/2 = 4.82 * (10 ^ (-4)) * (Pc ^ 2) - 1.658 * (10 ^ (-2)) * Pc + 1.01 = (0.03415 * R * j)/(Zc * Tc) = Pu * Exp (S) = Abs (Px - Pz). Caption = Pz.AddItem j.AddItem "******* ******** ". AddItem Pz.AddItem" *************** "
Продовження додатка А.. AddItem Tz
List3.AddItem "***************". AddItem Tg.AddItem "***************"
Rem Визначення максимальної глибини гідратоутворення.
For j = H To 0.01 Step -1 = Tu + Г * j = (Tz - Tu)/Log (Tz/Tu) = 1 = PuWhile c> 0.05 = Pz = (Px + Pu)/2 = 4.82 * (10 ^ (-4)) * (Pc ^ 2) - 1.658 * (10 ^ (-2)) * Pc + 1.01 = (0.03415 * R * j)/(Zc * Tc) = Pu * Exp ( S) = Abs (Px - Pz) = (19.9 * (1 + 0.434 * Log (Pz)) - 26.5) + 273.15Tz <= Tg Then....
