(g*pp^[i,j- 1] + c * pp ^ [i - 1, j] + a * pp ^ [i, j] + b * pp ^ [i +1, j] + f * pp ^ [i, j +1]) ; odd (count) then k:=k +1; k> 4 then k:=1; (i, j, g, c, a, b, f, R, g1 ^ [i - 1, j], f1 ^ [i, j +1], al [k], V ^ [i - 1, j], V ^ [i, j +1], ggg, fff, v1); ^ [i, j]:=v1 ; ^ [i, j]:=ggg; ^ [i, j]:=fff;;;:=true; i:=N - 1 downto 2 doj:=2 to M - 1 doh [i, j] < ;> 0 then ^ [i, j]:=V ^ [i, j]-g1 ^ [i, j] * dp ^ [i, j - 1]-f1 ^ [i, j] * dp ^ [ i +1, j]; abs (dp ^ [i, j])> 1e - 4 then flag:=false; ^ [i, j]:=pp ^ [i, j] + dp ^ [i, j ];; i:=1 to N doj:=1 to M do begin g1 ^ [i, j]:=0; f1 ^ [i, j]:=0 end; i:=2 to N - 1 do
Продовження додатка А
for j:=2 to M - 1 do
begin:=0; c:=0; b:=0; f:=0; a:=0; d:=0; R:=0; h [i, j] <> 0 thenh [i, j - 1]=0 then g:=0g:=(dx / dy) * p [i, j] * (kh ^ [i, j - 1] + kh ^ [i, j]) / mu/z (p [i, j] / 1e6) / 2; h [i - 1, j]=0 then c:=0c:=(dy / dx) * p [i, j] * (kh ^ [i- 1, j] + kh ^ [i, j]) / mu / z (p [i, j] / 1e6) / 2; h [i +1, j]=0 then b:=0b:=(dy/dx) * p [i, j] * (kh ^ [i +1, j] + kh ^ [i, j]) / mu / z (p [i, j] / 1e6) / 2; h [i , j +1]=0 then f:=0f:=(dx/dy)*p[i,j]*(kh^[i,j+1]+kh^[i,j])/mu/z(p[i,j]/1e6)/2;:=-(g+c+b+f)-dx*dy/dt*al1*kp*h[i,j];:=pat*qm[i,j]/dx/dy-dx*dy/dt*al1*kp*h[i,j]*p[i,j]/z(p[i,j]/1e6)*u[i,j];:=d-(g*pp^[i,j- 1] + c * pp ^ [i - 1, j] + a * pp ^ [i, j] + b * pp ^ [i +1, j] + f * pp ^ [i, j +1]) ; odd (count) then k:=k +1; k> 4 then k:=1; (i, j, g, c, a, b, f, R, b1 ^ [i, j - 1], f1 ^ [i - 1, j], al [k], V ^ [i - 1, j], V ^ [i, j - 1], bbb, fff, v1); ^ [i, j]:=v1 ; ^ [i, j]:=bbb; ^ [i, j]:=fff;;;:=true; i:=N - 1 downto 2 doj:=M - 1 downto 2 doh [i, j] < ;> 0 then ^ [i, j]:=V ^ [i, j]-b1 ^ [i, j] * dp ^ [i +1, j]-f1 ^ [i, j] * dp ^ [ i, j +1]; abs (dp ^ [i, j])> 1e - 4 then flag:=false; ^ [i, j]:=pp ^ [i, j] + dp ^ [i, j ];; i:=1 to N doj:=1 to M do begin b1 ^ [i, j]:=0; f1 ^ [i, j]:=0 end;;flag;_1:=pp^[9,13];_1:=pp^[9,26];_1:=pp^[5,15];_1:=pp^[6,29];_1:=pp^[8,5];(kh,M*N*SizeOf(tipR));(b1,M*N*SizeOf(tipR));(pp,M*N*SizeOf(tipR));(dp,M*N*SizeOf(tipR));(V,M*N*SizeOf(tipR));(g1,M*N*SizeOf(tipR));(f1,M*N*SizeOf(tipR));;=86400;,f1,shit:text;,j,iter:integer;,gi:m;giv1,gi1:m1;,py8,py10,py16,py75,py11,py15:real;_1,p5_2,p8_1,p8_2,p10_1,p10_2,p16_1,p16_2,p75_1,p75_2,p11,p15:real;_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2:real;
e5_1,e5_2,e8_1,e8_2,e10_1,e10_2,e16_1,e16_2,e75_1,e75_2,e11,e15:real;_1,u5_2,u8_1,u8_2,u10_1,u10_2,u16_1,u16_2,u75_1,u75_2,u11,u15:real;
r5_1,r5_2,r8_1,r8_2,r10_1,r10_2,r16_1,r16_2,r75_1,r75_2,r11,r15:real;,q8,q10,q16,q75,q11,q15,dob:real;,t,PcpVII,PcpVIIa,Qdob,Qdob1,Sum,Sum1:real;,Q1,JJJ,JJ,J1,JJ1,J11,JJJ1,lam,gam,lam1,gam1:real;:boolean;zab(py,q:real):real;,cp,p3,pp3,tcp,s:real;:=abs(q);:=py;:=(299-297)/ln(299/297);:=pp3;:=(p3+py)/2;:=0.03415*0.57*700/tcp/z(cp);
tet:=1.325e - 12 * 0.025 * z (cp) * z (cp) * tcp * tcp * (exp (2 * s) - 1) /
.22 e - 2/6.22e - 2/6.22e - 2/6.22e - 2/6.22e - 2;
pp3:=sqrt (py * py * exp (- 2 * s)-tet * q * q * exp (- 2 * s)); abs (pp3-p3) <0.05;:=pp3;;
Продовження додатка АDebit(p5_1,p5_2,p8_1,p8_2,p10_1,p10_2,p16_1,p16_2,p75_1,p75_2:real;q5,q8,q10,q16,q75:real;q5_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2:real);=0;,pc15,q,pc5_1,pc8_1,pc10_1,pc16_1,pc75_1,pc5_2,pc8_2,pc10_2,pc16_2,pc75_2:real;
{5}:=q5 / 2; _1:=q; q> 0 then_1:=sqrt (p5_1 * p5_1-0.0011 * abs (q5_1) - 0.000005*q5_1*q5_1)_1:=sqrt(p5_1*p5_1+0.0011*abs(q5_1)+0.000005*q5_1*q5_1);_2:=...
