77 * Q * ro / (l .205 * Dvn * my / l 0);:=ln(10)*0.25/sqr(ln(6.81/(exp(0.9*ln(re)))+7.41/epsil));:=kz(psr,tsr,st,u,kk);:=(0.03415*Ro*x)/(z*TSR);
Продовження додатка А
Teta:=0.01413e - 10 * lam * z * z * tsr * tsr * (exp (2 * s)-l) / (Dvn * Dvn * Dvn * Dvn * Dvn); ( Pxl * Pxl-teta * q * q) <0 then begin err:=l; goto 3; enderr:=0;:=sqrt (Pxl * Pxl-teta * q * q) / exp (s);:= Cpm ((px 1 + px22) / 2, (tx 1 + Tx21 )/2,st,u,kk);:=Dpi((pxl+px22)/2,(txl+Tx21)/2,st,u,kk);:=Tempr(tau,px22,Pz,ppl,x*i,tpl,hc,Q,cp,dp,dps,Ro);abs(Px22-Px21)>le- 5thentx21:=Tx22; Px21:=Px22; goto 1; end [i]:=Px22;: =: Cpm ((pxl + px22) / 2, (txl + Tx22) / 2, st, u, kk); :=Dpi ((pxl + px22) / 2, (tx 1 + Tx22) / 2, st, u, kk);:=Tempr (tau, px22, Pz, ppl, x * i, tpl, hc, Q, cp, dp, dps, Ro);
Т1 [i]:=ТХ22;:=Tx22; Pxl:=px22; end;;
: end; Tgid (p, t, b, bl: real): real; (t - 273)> 0 then Tgid:=18.47 * (ln (p) / ln (10) )-B +18.65 +273; (t - 273) <= 0 then Tgid:=58.5 * (ln (p) / ln (10)) + Bl - 59.32 +273;;
{Основна програма}
BEGIN
CIrScr;
st [l]:=«мeтaн»; u [l]:=0.9959;
Продовження додатка А [2]:=«етан»; u [2]:=0.0019
{st [3]:="; u [3]:=0;}
st [3]:=«ізобутан» ; U [3]:=0.0001; [4]: ??= «вуглекислий газ»; u [4]: ??= 0.0014;
{st [5]:=«бутан»; u [5]:=0.00003;}
st [5J:=«aзот» ; U [5]:=0.0007;:=5; q <(9-a + sqrt (a * a - 4 * b * (1-ppl * ppl))) / (2 * b) then (Q, st , u, kk, numpoint, X 1, P 1, t 1, err); err=l then goto 2;;:=Ror (0.1013,293, st, u, kk); (0.55 <= del) and (del <0.6) then:=2507.1 * del * del - 3072.6 * del +958.65;:=6357.1 * del * del - 7907.3 * del +2511.9;; (0.6 <= del) and (del <0.71) then: =255.24 * del * del - 368.45 * del +146.78;:=797.7 * del * del - 1150.55 * del +458.62;; (del> 0.71) then:=8.3054 * del * del - 24.823 * del +27.275;:= 36.771 * del * del - 100.16 * del +96.455;: i:=0 to numpoint do:=pl [i]; t:-tl [i]; [i]:=Tgid (p, t, bO, bl) ;; i:=0 to numpoint do («x =», xl [i]: 7:2, «p =», pl [i]: 7:2, «t=l, tl [ i]: 7:2, ». Tг=l, Tr [i]: 6:2); (« q=», q,«=», tl [numpoint]: 6:2,« ; tz=», tl [0]: 6:2,« tru=», tr [numpoint]: 6:2,« trz=», tr [0]: 6:2);;
: Readin;
END.
ДОДАТОК Б
(обов'язковий)
Рисунок Б.1 - Залежність коефіцієнта стисливості газу від псевдопріведенних параметрів
Рисунок Б.2 - Залежність в'язкості газу від наведених параметрів
Малюнок Б.3 - Залежність питомої теплоємності від наведених параметрів.
Малюнок Б.4 - Залежність функції коефіцієнта Джоуля - Томсона від наведених тиску і температури
ДОДАТОК В
(обов'язковий)
Таблиця В.1 - Тепловий і гідравлічний розрахунок шлейфу свердловини 57
НаименованиеОбозначениеЕдиницы измеренияЗначение1234Исходные данниеРасход газу QМлн.м 3 / сут.0, 13Дліна газопроводаLкг2, 1Температура газу на початку участкаTнК290Температура грунтаТоК273Давленіе на початку газопроводаРнМПа11, 4Внутренній діаметр газопроводаd...
