/span>
. Технологічний регламент на експлуатацію об'єктів ДП-5 Ямбурзького ГКР РАО Газпром. ДП В«ЯмбурггаздобичаВ». 2004
. Чеботарьов В.В. Розрахунки основних технологічних процесів при зборі та підготовці свердловини продукції. - УФА: УГНТУ, 2001. - 331 с.
Додаток А
Розрахунок розподілу температури і тиску в працюючій свердловині
Private Pz As Currency, Tz As Currency, Tg As CurrencySub виход_Click () SubSub вичісленіе_Click ()
вичісленіе.Enabled = False = Val (Text1 (4). Text) = Val (Text1 (0). Text) = Val (Text1 (1). Text) = Val (Text1 (2). Text) = Val (Text1 (3). Text)
Г = Val (Text1 (5). Text) = Val (Text1 (6). Text) = Val (Text1 (7). Text) Error GoTo 111 = (19.9 * (1 + 0.434 * Log (Pu) ) - 26.5) + 273.15Построеніе табліци.AddItem "H, м". AddItem "***************". AddItem "0". AddItem "*** ************ ". AddItem" Pz, МПа ". AddItem" *************** ". AddItem Pu.AddItem" *************** "
List3.AddItem "Tz, К"
Продовження додатка А.
List3.AddItem "***************". AddItem Tu.AddItem "***************". AddItem "Tg, К". AddItem "***************". AddItem Tg.AddItem "*************** "
Rem Задаємо крок алгоритму залежно від глибини свердловини.
If H> 5000 Then = 500H> 3450 Then = 300H> 1800 Then = 200H> 900 Then = 100 = 50
End IfВичісленіе тиску і температури по довжині свердловини.
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.0683 * R * j)/(2 * Zc * 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.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.0683 * R * j)/(2 * Zc * 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). Caption = Pz. AddItem j.AddItem "***************". AddItem Pz.AddItem "***************". AddItem Tz . 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.0683 * R * j)/(2 * Zc ...
