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

Теоретические основы проектирования и разработки газовых месторождений. Характеристика геологического строения месторождения "Шхунное", свойства и состав пластовых газа и воды. Применение численных методов в теории разработки газовых месторождений.

Рубрика Геология, гидрология и геодезия
Вид дипломная работа
Язык русский
Дата добавления 25.01.2014
Размер файла 4,8 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

if q15<10 then q15:=10

else if q15>53.1 then q15:=53.1;

{ Writeln(q5:1:13,' ',py5:1:13);

Writeln(q8:1:13,' ',py8:1:13);

Writeln(q10:1:13,' ',py10:1:13);

Writeln(q16:1:13,' ',py16:1:13);

Writeln(q75:1:13,' ',py75:1:13);

Writeln(q11:1:13,' ',py11:1:13);

Writeln(q15:1:13,' ',py15:1:13);

WRiteln('Y1=',-gam*(r5_2*u5_2-lam)-gam*(r8_2*u8_2-lam)-gam*(r10_2*u10_2-lam)-

gam*(r16_2*u16_2-lam)-gam*(r75_2*u75_2-lam)-gam*(r11*u11-lam)-

gam*(r15*u15-lam):1:13);

WRiteln('Y2=',-gam1*(r5_1*u5_1-lam1)-gam1*(r8_1*u8_1-lam1)-gam1*(r10_1*u10_1-lam1)-

gam1*(r16_1*u16_1-lam1)-gam1*(r75_1*u75_1-lam1):1:13);

WRiteln('Y=',(q5+q8+q10+q75+q16+q11+q15):1:13)}

end;

BegiN

ClrScr;

dob:=222.55;

q5:=dob*0.16;q10:=dob*0.16;q75:=dob*0.16;q8:=dob*0.151;q16:=dob*0.151;q11:=dob*0.108;q15:=dob*0.11;

{ q5:=70;q8:=62.05;q10:=58;q16:=41;q75:=65.35;q11:=65.9;q15:=41.5;}

PcpVII:=5863450.964;

PcpVIIa:=5856873.834;

p5_1:=5.856873834;p8_1:=5.856873834;p10_1:=5.856873834;p16_1:=5.856873834;p75_1:=5.856873834;

p5_2:=5.863450964;p8_2:=5.863450964;p10_2:=5.863450964;p16_2:=5.863450964;p75_2:=5.863450964;

Debit(p5_1,p5_2,p8_1,p8_2,p10_1,p10_2,p16_1,p16_2,p75_1,p75_2,

q5,q8,q10,q16,q75,

q5_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2);

assign(f,'begin.txt');

assign(f1,'begin1.txt');

reset(f);reset(f1);

for i:=1 to 19 do

Продолжение приложения А

begin

for j:=1 to 34 do begin read(f,giv[i,j]);giv[i,j]:=giv[i,j]*1e6 end;

readln(f);

end;

for i:=1 to 16 do

begin

for j:=1 to 34 do begin read(f1,giv1[i,j]);giv1[i,j]:=giv1[i,j]*1e6 end;

readln(f1);

end;

close(f);close(f1);

assign(shit,'grdata.txt');rewrite(shit);

t:=0;dt:=day;Sum:=0;Sum1:=0;pad:=false;

repeat

if (round(t) mod (day*30))=0 then

begin

dob:=(-2.295*sin(0.45*(t/30/day+20)+2.7351)+4.98085)*1000/30;

q5:=dob*0.16;q10:=dob*0.16;q75:=dob*0.16;q8:=dob*0.151;q16:=dob*0.151;q11:=dob*0.108;q15:=dob*0.11;

Debit(PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,

q5,q8,q10,q16,q75,

q5_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2);

end;

QQ:=q5+q8+q10+q16+q75+q11+q15;

VII(giv,gi,dt,t,PcpVII,p5_2,p8_2,p10_2,p16_2,p75_2,p11,p15,

q5_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2,q11,q15);

e5_2:=PcpVII-p5_2;

e8_2:=PcpVII-p8_2;

e10_2:=PcpVII-p10_2;

e16_2:=PcpVII-p16_2;

e75_2:=PcpVII-p75_2;

e11:=PcpVII-p11;

e15:=PcpVII-p15;

JJ:=e5_2*e5_2+e8_2*e8_2+e10_2*e10_2+e16_2*e16_2+e75_2*e75_2+e11*e11+e15*e15;

JJJ:=JJ;

soprVII(gi,dt,t,u5_2,u8_2,u10_2,u16_2,u75_2,u11,u15,

e5_1,e5_2,e8_1,e8_2,e10_1,e10_2,e16_1,e16_2,e75_1,e75_2,e11,e15);

r5_2:=1-(e5_2*e5_2)/(JJ/7);

r8_2:=1-(e8_2*e8_2)/(JJ/7);

r10_2:=1-(e10_2*e10_2)/(JJ/7);

r16_2:=1-(e16_2*e16_2)/(JJ/7);

r75_2:=1-(e75_2*e75_2)/(JJ/7);

r11:=1-(e11*e11)/(JJ/7);

r15:=1-(e15*e15)/(JJ/7);

lam:=(r5_2*u5_2+r8_2*u8_2+r10_2*u10_2+r16_2*u16_2+r75_2*u75_2+r11*u11+r15*u15)/7;

gam:=1e-4{-7*1e-9/(u5_2+u8_2+u10_2+u16_2+u75_2+u11+u15)};

VIIa(giv1,gi1,dt,t,PcpVIIa,p5_1,p8_1,p10_1,p16_1,p75_1,

q5_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2);

e5_1:=PcpVIIa-p5_1;

e8_1:=PcpVIIa-p8_1;

e10_1:=PcpVIIa-p10_1;

e16_1:=PcpVIIa-p16_1;

e75_1:=PcpVIIa-p75_1;

JJ1:=e5_1*e5_1+e8_1*e8_1+e10_1*e10_1+e16_1*e16_1+e75_1*e75_1;

JJJ1:=JJ1;

soprVIIa(gi1,dt,t,u5_1,u8_1,u10_1,u16_1,u75_1,

e5_1,e5_2,e8_1,e8_2,e10_1,e10_2,e16_1,e16_2,e75_1,e75_2);

r5_1:=1-(e5_1*e5_1)/(JJ1/5);

r8_1:=1-(e8_1*e8_1)/(JJ1/5);

r10_1:=1-(e10_1*e10_1)/(JJ1/5);

r16_1:=1-(e16_1*e16_1)/(JJ1/5);

r75_1:=1-(e75_1*e75_1)/(JJ1/5);

lam1:=(r5_1*u5_1+r8_1*u8_1+r10_1*u10_1+r16_1*u16_1+r75_1*u75_1)/5;

gam1:=1e-4{5*1e-9/(u5_1+u8_1+u10_1+u16_1+u75_1)};

Qdob:=(q5_2+q8_2+q10_2+q16_2+q75_2+q11+q15)*dt/day;

Qdob1:=(q5_1+q8_1+q10_1+q16_1+q75_1)*dt/day;

Ytoch(q5,q8,q10,q16,q75,q11,q15);

Debit(PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,

q5,q8,q10,q16,q75,

q5_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2);

writeln(QQ:1:13);

iter:=0;

repeat

iter:=iter+1;

writeln('JJ+JJ1=',JJ+JJ1:1:1,' ',gam:1:13);

Q1:=q5+q8+q10+q16+q75+q11+q15;

writeln('Q1=',Q1:1:13);

if abs(QQ-Q1)>=0.1 then

begin

q5:=dob*0.16;q10:=dob*0.16;q75:=dob*0.16;q8:=dob*0.151;q16:=dob*0.151;q11:=dob*0.108;q15:=dob*0.11;

break;

end;

Продолжение приложения А

VII(giv,gi,dt,t,PcpVII,p5_2,p8_2,p10_2,p16_2,p75_2,p11,p15,

q5_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2,q11,q15);

e5_2:=PcpVII-p5_2;

e8_2:=PcpVII-p8_2;

e10_2:=PcpVII-p10_2;

e16_2:=PcpVII-p16_2;

e75_2:=PcpVII-p75_2;

e11:=PcpVII-p11;

e15:=PcpVII-p15;

J1:=e5_2*e5_2+e8_2*e8_2+e10_2*e10_2+e16_2*e16_2+e75_2*e75_2+e11*e11+e15*e15;

soprVII(gi,dt,t,u5_2,u8_2,u10_2,u16_2,u75_2,u11,u15,

e5_1,e5_2,e8_1,e8_2,e10_1,e10_2,e16_1,e16_2,e75_1,e75_2,e11,e15);

r5_2:=1-(e5_2*e5_2)/(J1/7);

r8_2:=1-(e8_2*e8_2)/(J1/7);

r10_2:=1-(e10_2*e10_2)/(J1/7);

r16_2:=1-(e16_2*e16_2)/(J1/7);

r75_2:=1-(e75_2*e75_2)/(J1/7);

r11:=1-(e11*e11)/(J1/7);

r15:=1-(e15*e15)/(J1/7);

lam:=(r5_2*u5_2+r8_2*u8_2+r10_2*u10_2+r16_2*u16_2+r75_2*u75_2+r11*u11+r15*u15)/7;

if J1>JJ then gam:=-gam/2

else gam:=gam*2;

VIIa(giv1,gi1,dt,t,PcpVIIa,p5_1,p8_1,p10_1,p16_1,p75_1,

q5_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2);

e5_1:=PcpVIIa-p5_1;

e8_1:=PcpVIIa-p8_1;

e10_1:=PcpVIIa-p10_1;

e16_1:=PcpVIIa-p16_1;

e75_1:=PcpVIIa-p75_1;

J11:=e5_1*e5_1+e8_1*e8_1+e10_1*e10_1+e16_1*e16_1+e75_1*e75_1;

soprVIIa(gi1,dt,t,u5_1,u8_1,u10_1,u16_1,u75_1,

e5_1,e5_2,e8_1,e8_2,e10_1,e10_2,e16_1,e16_2,e75_1,e75_2);

r5_1:=1-(e5_1*e5_1)/(J11/5);

r8_1:=1-(e8_1*e8_1)/(J11/5);

r10_1:=1-(e10_1*e10_1)/(J11/5);

r16_1:=1-(e16_1*e16_1)/(J11/5); r75_1:=1-(e75_1*e75_1)/(J11/5);

lam1:=(r5_1*u5_1+r8_1*u8_1+r10_1*u10_1+r16_1*u16_1+r75_1*u75_1)/5;

if J11>JJ1 then gam1:=-gam1/2

else gam1:=gam1*2;

Qdob:=(q5_2+q8_2+q10_2+q16_2+q75_2+q11+q15)*dt/day;

Qdob1:=(q5_1+q8_1+q10_1+q16_1+q75_1)*dt/day;

Ytoch(q5,q8,q10,q16,q75,q11,q15);

Debit(PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,

q5,q8,q10,q16,q75,

q5_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2);

JJ:=J1;

JJ1:=J11;

until {(JJ+JJ1)<0.9*(JJJ+JJJ1)}iter>1;

giv:=gi;

giv1:=gi1;

t:=t+dt;

if (round(t) mod (day*30))=0 then

begin

Writeln(shit,q5:1:13,' ',py5:1:13);

Writeln(shit,q8:1:13,' ',py8:1:13);

Writeln(shit,q10:1:13,' ',py10:1:13);

Writeln(shit,q16:1:13,' ',py16:1:13);

Writeln(shit,q75:1:13,' ',py75:1:13);

Writeln(shit,q11:1:13,' ',py11:1:13);

Writeln(shit,q15:1:13,' ',py15:1:13);

end;

Qdob:=(q5_2+q8_2+q10_2+q16_2+q75_2+q11+q15)*dt/day;

Qdob1:=(q5_1+q8_1+q10_1+q16_1+q75_1)*dt/day;

Sum:=Sum+Qdob;

Sum1:=Sum1+Qdob1;

if (round(t) mod (day*30))=0 then

writeln(shit,'VIIa: Qdob=',Sum1/1e3:5:6,' Pcp/z=',PcpVIIa/1e6/z(PcpVIIa/1e6):1:13,' Pcp=',PcpVIIa/1e6:1:13);

if (round(t) mod (day*30))=0 then

writeln(shit,'VII : Qdob=',Sum/1e3:5:6,' Pcp/z=',PcpVII/1e6/z(PcpVII/1e6):1:13,' Pcp=',PcpVII/1e6:1:13);

writeln('t=',t/day:1:0);

until {pad}t>=day*1440;

writeln('t=',t/day:1:0);

writeln(shit,'VII : Qdob=',Sum/1e3:5:6,' Pcp/z=',PcpVII/1e6/z(PcpVII/1e6):1:13,' Pcp=',PcpVII/1e6:1:13);

writeln(shit,'VIIa: Qdob=',Sum1/1e3:5:6,' Pcp/z=',PcpVIIa/1e6/z(PcpVIIa/1e6):1:13,' Pcp=',PcpVIIa/1e6:1:13);

close(shit);

assign(f,'grad.txt');

assign(f1,'grad1.txt');

rewrite(f);rewrite(f1);

Продолжение приложения А

for i:=1 to 19 do

begin

for j:=1 to 34 do write(f,giv[i,j]/1e6:1:13,' ');

writeln(f);

end;

for i:=1 to 16 do

begin

for j:=1 to 34 do write(f1,giv1[i,j]/1e6:1:13,' ');

writeln(f1);

end;

close(f);close(f1);

repeat until keypressed;

EnD.

Размещено на Allbest.ru


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.