534 lines
21 KiB
Matlab
534 lines
21 KiB
Matlab
function r = GridProp_DP(modelflag, r, kx, ky, kz, kx_matrixLayer, ky_matrixLayer, kz_matrixLayer, f, frac_information, fellip, Kf, Wf, pori, pori_matrixLayer, prpor, cpor, Porf, prporf, cporf, cf, ca,NTG,sigma,valid_grids)
|
|
tic;
|
|
%% 基质网格参数及网格参数计算、存储
|
|
nx = r.nx;
|
|
ny = r.ny;
|
|
nz = r.nz;
|
|
dx = r.dx;
|
|
dy = r.dy;
|
|
dz = r.dz;
|
|
coordinates = r.coordinates;
|
|
nodes = r.nodes;
|
|
nP = r.nP;
|
|
nmc = r.nmc;
|
|
dxv = r.dxv;
|
|
dyv = r.dyv;
|
|
dzv = r.dzv;
|
|
zm = r.zm;
|
|
vm = r.vm;
|
|
xrao = r.xrao;
|
|
yrao = r.yrao;
|
|
zrao = r.zrao;
|
|
cell_mid_coords = r.cell_mid_coords;
|
|
%
|
|
r.modelflag=modelflag;
|
|
r.kx_matrixLayer = kx_matrixLayer;
|
|
r.ky_matrixLayer = ky_matrixLayer;
|
|
r.kz_matrixLayer = kz_matrixLayer;
|
|
r.Kf = Kf;%裂缝面对应的渗透率，非裂缝单元
|
|
r.Wf = Wf;%裂缝面对应的缝宽，非裂缝单元
|
|
r.cf = cf;
|
|
r.ca = ca;
|
|
% r.co=co;
|
|
r.cpor=cpor;
|
|
r.cporf=cporf;
|
|
r.NTG=NTG;
|
|
r.frac_information = frac_information;
|
|
|
|
% [coordinates, nodes, nP, nE, dxv, dyv,dzv,zm,vm,xrao,yrao,zrao,cell_mid_coordinates] = GenerateNode_final(dx, dy,dz ,nx,ny,nz,NTG);
|
|
% r.coordinates = coordinates;
|
|
% r.nodes = nodes;
|
|
% nmc=nE;
|
|
% r.nmc =nmc;
|
|
% r.dxv = dxv;
|
|
% r.dyv = dyv;
|
|
% r.dzv = dzv;
|
|
% r.vm=vm;
|
|
% r.cell_mid_coordinates=cell_mid_coordinates;
|
|
%% 求解裂缝与基质网格连接情况
|
|
%% 关键参数矩阵初始化
|
|
m=size(f,1);
|
|
n=size(fellip,1);
|
|
nfr=m/5;%矩形规则裂缝条数
|
|
nfir=n/5;%不规则裂缝条数（当然包含椭圆）
|
|
r.nfr=nfr; r.nfir=nfir;
|
|
nf=nfr+nfir;
|
|
r.nf=nf;
|
|
if (nfir~=0) && (nfr~=0)
|
|
f=[f;fellip];
|
|
else if nfr~=0
|
|
f=f;
|
|
else if nfir~=0
|
|
f=fellip;
|
|
else error('Dr Rao reminds you that there is no information about fractures');
|
|
end
|
|
end
|
|
end
|
|
|
|
%d3intersection=-1000*ones(1000,3);%用-1000做标识
|
|
raopoint=cell(nfr+nfir,2);%利用元胞数组存储每条裂缝与基质网格线的交点，
|
|
%第一列是三维坐标形式，即d3intersection
|
|
%第二列是裂缝面参数形式，即anothersection
|
|
pointvsregion=cell(nfr+nfir,3);%利用元胞数组存储interarea函数的结果numofmesh, numvspoint,numofregion
|
|
fracrossfra=cell(nfr+nfir,nfr+nfir-1);%判断裂缝之间两交点坐标
|
|
fratmaxfra=zeros(nfr+nfir,nfr+nfir-1);%判断裂缝之间交线参数的最大值
|
|
fratminfra=zeros(nfr+nfir,nfr+nfir-1);%判断裂缝之间交线参数的最小值
|
|
fracturemesh=cell(nf,1);%每一行是一条裂缝面上的网格剖分情况
|
|
|
|
%% 计算裂缝与基质网格相交情况
|
|
for i=1:nfr
|
|
raopoint{i,1}= intersectionsolve_new_modified_r(f((5*i-4):(5*i),:),dx,dy,dz,nx,ny,nz,xrao,yrao,zrao );
|
|
raopoint{i,2}= anosection( f((5*i-4):(5*i),:),raopoint{i,1} );
|
|
[ pointvsregion{i,1},pointvsregion{i,2} ,pointvsregion{i,3}] = interarea( raopoint{i,1},dx,dy,dz,nx,ny,nz,xrao,yrao,zrao );
|
|
end
|
|
% 不规则缝计算
|
|
if nfir>0
|
|
for i=1:nfir
|
|
raopoint{nfr+i,1}= intersectionsolve_new_modified_irr(fellip((5*i-4):(5*i),:),dx,dy,dz,nx,ny,nz,xrao,yrao,zrao );
|
|
raopoint{nfr+i,2}= anosection( f((5*(nfr+i)-4):(5*(nfr+i)),:),raopoint{nfr+i,1} );
|
|
[ pointvsregion{nfr+i,1},pointvsregion{nfr+i,2} ,pointvsregion{nfr+i,3}] = interarea( raopoint{nfr+i,1},dx,dy,dz,nx,ny,nz,xrao,yrao,zrao );
|
|
end
|
|
end
|
|
|
|
%% 计算裂缝之间相交线情况
|
|
for i=1:nf
|
|
for j=1:nf
|
|
if i>nfr || j>nfr cross=zeros(2,3);tmax=0;tmin=0;
|
|
else
|
|
% [ cross,tmax,tmin ]=frac_cross_frac( f((5*i-4):(5*i),:),f((5*j-4):(5*j),:) );
|
|
cross=zeros(2,3);tmax=0;tmin=0;
|
|
end
|
|
fracrossfra{i,j}=cross;fratmaxfra(i,j)=tmax;fratminfra(i,j)=tmin;
|
|
end
|
|
end
|
|
%% 计算裂缝被基质网格、其它裂缝与之相交后的网格分布情况,绘制二维裂缝平面参数坐标系上的网格分布情况
|
|
% figure('color','w');
|
|
addflag=zeros(nf,1);%乘2的幂次，防止因为裂缝条数较多，造成矩阵太大
|
|
for i=1:nf
|
|
d3intersection=raopoint{i,1};anothersection=raopoint{i,2};
|
|
[ mesh ] = frac_mat_mesh( d3intersection,anothersection,pointvsregion{i,2},pointvsregion{i,1} );
|
|
% for j=1:nf
|
|
% [ mesh,d3intersection,anothersection,add_flag ]= frac_frac_mesh_modified(xrao,yrao,zrao,mesh,f(5*i-4,:),f(5*i-3,:),f(5*i-2,:),fracrossfra{i,j},fratmaxfra(i,j),fratminfra(i,j),d3intersection,anothersection,pointvsregion{i,2},pointvsregion{i,1} );
|
|
% addflag(j,1)=addflag(j,1)+add_flag;
|
|
% end
|
|
raopoint{i,1} = d3intersection; raopoint{i,2} = anothersection;%由原来裂缝与网格的交点不断更新加入其它裂缝与该裂缝的交点
|
|
fracturemesh{i,1}=mesh;
|
|
% subplot(nf,1,i);color_fill={'y','r','b','g'};
|
|
% plotmesh2D(mesh,raopoint{i,2},color_fill{1,mod(i,4)+1});
|
|
end
|
|
|
|
%% 绘制三维背景网格（基质网格）及裂缝网格分布
|
|
%figure(2)
|
|
%network3D(dx,dy,dz,nx,ny,nz );
|
|
%hold on;
|
|
figure('color','w');
|
|
% plot_reservoir_3D(max(xrao),max(yrao),dz(1),1,1,nz);
|
|
% plot_reservoir_3D(dx(1),dy(1),dz(1),nx,ny,nz);
|
|
network3D(dx(1),dy(1),dz(1),nx,ny,nz);
|
|
% network3D(1000,700,10,1,1,1);
|
|
% network3D(800,300,10,1,1,1);
|
|
hold on;
|
|
|
|
% network3D_arbitrary(dx,dy,dz,nx,ny,nz);
|
|
% refine;
|
|
% hold on;
|
|
for i=1:nf
|
|
% color_fill={'y','r','b','g','c','m'};
|
|
% color_fill={'y','r','b','g'};
|
|
% plotmesh3D( fracturemesh{i,1},raopoint{i,1},color_fill{1,mod(i,4)+1});hold on;
|
|
if i <= 100
|
|
color_fill='b'; %流动屏障
|
|
% elseif i <=19
|
|
% color_fill='b'; %压裂缝
|
|
% if i == 2 || i == 9
|
|
% color_fill='r';
|
|
% end
|
|
else
|
|
color_fill='k'; %天然裂缝
|
|
end
|
|
% plotmesh3D( fracturemesh{i,1},raopoint{i,1},color_fill{1,mod(i,4)+1});hold on;
|
|
plotmesh3D( fracturemesh{i,1},raopoint{i,1},color_fill);hold on;
|
|
end
|
|
% % % basic_node_coord = [0,0,0];
|
|
% % % x_length = 700;
|
|
% % % y_length = 800;
|
|
% % % z_length = 10;
|
|
% % % nodes_domain = [basic_node_coord;]
|
|
% % % fill3(x,y,z,'w');
|
|
% refine1;
|
|
% refine_chengjiepaper;
|
|
% refine;
|
|
% plot_reservoir_3D(max(xrao),max(yrao),dz(1),1,1,nz);
|
|
% plot_reservoir_3D(dx(1),dy(1),dz(1),nx,ny,nz);
|
|
xlabel('x, m','FontSize',14);
|
|
ylabel('y, m','FontSize',14);
|
|
zlabel('z, m','FontSize',14);
|
|
ax = gca;
|
|
ax.FontSize = 14;
|
|
%
|
|
% zticks([0, 5]);
|
|
% yticks(-1:0.5:1);
|
|
% 设置x轴和y轴的刻度标签
|
|
% zticklabels({'-2005', '-2000'});
|
|
% yticklabels({'-1', '-0.5', '0', '0.5', '1'});
|
|
% 关闭刻度标签的旋转
|
|
% xticklabels('Rotation', 0);
|
|
% yticklabels('Rotation', 0);
|
|
% axis equal;
|
|
% refine;
|
|
% hold on
|
|
% network3D(dx(1),dy(1),dz(1),nx,ny,nz);
|
|
% network3D(max(xrao),max(yrao),max(zrao),1,1,1 );
|
|
% network3D(10,10,10,2,1,1 );
|
|
% network3D(10,10,10,6,1,2 );
|
|
alpha(1)
|
|
view(3)
|
|
% axis([min(xrao),max(xrao),min(yrao),max(yrao),min(zrao),max(zrao)]);
|
|
% axis equal
|
|
% % hold off;
|
|
%% 确定裂缝编号及连接情况，计算传导系数
|
|
if modelflag==1 %表示用2014, Monifar
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,cell_divided_by_fracture_flag, flowArea, perm, matrixflag, T_diff ] = connections_2014_DP( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz, kx_matrixLayer, ky_matrixLayer, kz_matrixLayer, pori, pori_matrixLayer, Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,sigma,addflag,valid_grids );
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
r.nmc = 2*nmc;
|
|
nc=nfc+r.nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.T_convection=T_convection;
|
|
r.T_diff = T_diff;
|
|
r.vf=vf;
|
|
r.V=[vm;vm;vf];
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
r.mat_frac=mat_frac;
|
|
r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
|
|
r.flowArea=flowArea;
|
|
r.perm=perm;
|
|
r.matrixflag=matrixflag;
|
|
elseif modelflag==4 %表示用 PEDFM
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections_PEDFM_new( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.vf=vf;
|
|
r.V=[vm;vf];
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
elseif modelflag==5 % 表示实用型PEDFM
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff, flowArea, perm, matrixflag ] = connections_PEDFM_new_new( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,pori,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.vf=vf;
|
|
r.V=[vm;vf];
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
r.flowArea=flowArea;
|
|
r.perm=perm;
|
|
r.matrixflag=matrixflag;
|
|
elseif modelflag==6 % 表示基于非结构网格pEDFM的validation model
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,number_of_adding,cell_divided_by_fracture_flag] = connections_unstructured_EDFM( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
r.number_of_adding=number_of_adding;
|
|
nmc = nmc+number_of_adding;
|
|
r.nmc = nmc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.T_convection=T_convection;
|
|
r.vf=vf;
|
|
% 劈分或增加
|
|
vm_the_added_cell = vm(cell_divided_by_fracture_flag)*1/2;
|
|
vm(cell_divided_by_fracture_flag) = vm(cell_divided_by_fracture_flag)*1/2;
|
|
vm = [vm; vm_the_added_cell];
|
|
r.V=[vm;vf];
|
|
pori = [pori; pori(cell_divided_by_fracture_flag)];
|
|
r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
r.mat_frac=mat_frac;
|
|
elseif modelflag==7
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections_PEDFM_EX1_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.vf=vf;
|
|
r.V=[vm;vf];
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
elseif modelflag==8 % 表示基于非结构网格pEDFM的validation model
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,number_of_adding,cell_divided_by_fracture_flag,volume_ratio,fractureCell_matrixCell_addedMatrixCell] = connections_unstructured_EDFM_EX1_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
r.number_of_adding=number_of_adding;
|
|
nmc = nmc+number_of_adding;
|
|
r.nmc = nmc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.T_convection=T_convection;
|
|
r.vf=vf;
|
|
r.fractureCell_matrixCell_addedMatrixCell = fractureCell_matrixCell_addedMatrixCell;
|
|
r.volume_ratio=volume_ratio;
|
|
% 劈分或增加
|
|
vm_the_added_cell = vm(cell_divided_by_fracture_flag).*volume_ratio;
|
|
vm(cell_divided_by_fracture_flag) = vm(cell_divided_by_fracture_flag).*(1-volume_ratio);
|
|
vm = [vm; vm_the_added_cell];
|
|
r.V=[vm;vf];
|
|
pori = [pori; pori(cell_divided_by_fracture_flag)];
|
|
r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
r.mat_frac=mat_frac;
|
|
elseif modelflag==9 % EX2 不同情况下 pEDFM 解
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections_PEDFM_EX2_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.vf=vf;
|
|
r.V=[vm;vf];
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
elseif modelflag==10 % 表示基于非结构网格pEDFM的 EX2 参考解
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,number_of_adding,cell_divided_by_fracture_flag,volume_ratio,fractureCell_matrixCell_addedMatrixCell] = connections_unstructured_EDFM_EX2_1to3_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
r.number_of_adding=number_of_adding;
|
|
nmc = nmc+number_of_adding;
|
|
r.nmc = nmc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.T_convection=T_convection;
|
|
r.vf=vf;
|
|
r.fractureCell_matrixCell_addedMatrixCell = fractureCell_matrixCell_addedMatrixCell;
|
|
r.volume_ratio=volume_ratio;
|
|
% 劈分或增加
|
|
vm_the_added_cell = vm(cell_divided_by_fracture_flag).*volume_ratio;
|
|
vm(cell_divided_by_fracture_flag) = vm(cell_divided_by_fracture_flag).*(1-volume_ratio);
|
|
vm = [vm; vm_the_added_cell];
|
|
r.V=[vm;vf];
|
|
pori = [pori; pori(cell_divided_by_fracture_flag)];
|
|
r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
r.mat_frac=mat_frac;
|
|
elseif modelflag==11 % 表示基于非结构网格pEDFM的 EX2 参考解
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,number_of_adding,cell_divided_by_fracture_flag,volume_ratio,fractureCell_matrixCell_addedMatrixCell] = connections_unstructured_EDFM_EX2_1to2_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
r.number_of_adding=number_of_adding;
|
|
nmc = nmc+number_of_adding;
|
|
r.nmc = nmc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.T_convection=T_convection;
|
|
r.vf=vf;
|
|
r.fractureCell_matrixCell_addedMatrixCell = fractureCell_matrixCell_addedMatrixCell;
|
|
r.volume_ratio=volume_ratio;
|
|
% 劈分或增加
|
|
vm_the_added_cell = vm(cell_divided_by_fracture_flag).*volume_ratio;
|
|
vm(cell_divided_by_fracture_flag) = vm(cell_divided_by_fracture_flag).*(1-volume_ratio);
|
|
vm = [vm; vm_the_added_cell];
|
|
r.V=[vm;vf];
|
|
pori = [pori; pori(cell_divided_by_fracture_flag)];
|
|
r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
r.mat_frac=mat_frac;
|
|
elseif modelflag==12 % 表示基于非结构网格pEDFM的 EX2 参考解
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff,T_convection,mat_frac,number_of_adding,cell_divided_by_fracture_flag,volume_ratio,fractureCell_matrixCell_addedMatrixCell] = connections_unstructured_EDFM_EX2_1to4_solutions( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
r.number_of_adding=number_of_adding;
|
|
nmc = nmc+number_of_adding;
|
|
r.nmc = nmc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.T_convection=T_convection;
|
|
r.vf=vf;
|
|
r.fractureCell_matrixCell_addedMatrixCell = fractureCell_matrixCell_addedMatrixCell;
|
|
r.volume_ratio=volume_ratio;
|
|
% 劈分或增加
|
|
vm_the_added_cell = vm(cell_divided_by_fracture_flag).*volume_ratio;
|
|
vm(cell_divided_by_fracture_flag) = vm(cell_divided_by_fracture_flag).*(1-volume_ratio);
|
|
vm = [vm; vm_the_added_cell];
|
|
r.V=[vm;vf];
|
|
pori = [pori; pori(cell_divided_by_fracture_flag)];
|
|
r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
r.mat_frac=mat_frac;
|
|
elseif modelflag==13 % 表示基于非结构网格pEDFM的 EX2 参考解
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections_PEDFM_TPFA_MFD( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,perm,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.vf=vf;
|
|
r.V=[vm;vf];
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
elseif modelflag==14 %表示用 PEDFM
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections_PEDFM_new_twofractures( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag,frac_information, coordinates);
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.vf=vf;
|
|
r.V=[vm;vf];
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
else
|
|
[ matrixvsfra,connectmf,fracnumber,fracstart,corevsfra,connect_infrac, N,T,zf,fcinff,vf,porf,fcff ] = connections( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,Kf,Wf,Porf,dxv,dyv,dzv,NTG );
|
|
nfc=size(fracnumber,1);
|
|
nex=size(T,1);
|
|
r.nfc=nfc;
|
|
nc=nfc+nmc;
|
|
r.nc=nc;%基质网格和裂缝单元总数
|
|
r.nex=nex;%具有流体交换的总数
|
|
kf=Kf(fcinff);
|
|
wf=Wf(fcinff);
|
|
r.kf=kf;%裂缝单元对应的渗透率
|
|
r.wf=wf;%裂缝单元对应的缝宽
|
|
r.N=N;
|
|
r.T=T;
|
|
r.vf=vf;
|
|
r.V=[vm;vf];
|
|
r.porf=porf;
|
|
r.fcff=fcff;
|
|
%% 计算传导系数
|
|
% dxvector=ones(1,nx);dyvector=ones(1,ny);dzvector=ones(1,nz);
|
|
% [ transmatrix,transfracture ] = trans(dxvector,dyvector,dzvector ,nx,ny,nz,nf,fracnumber,lengthvsfra,disvsfra,fracstart,connect_infrac,corevsfra,matrixvsfra,raopoint,f );
|
|
%% 计算基质与裂缝之间窜流的相关系数
|
|
if modelflag==2 %表示用2018, Rao
|
|
[ G,Gfm,Gff,Gf,Ap,Apf ]=interflowmf1(r,dxv,dyv,dzv,matrixvsfra,connectmf,fracstart,fracnumber,raopoint,f,nodes,coordinates,nf,corevsfra );
|
|
[Ka, M, F2M , MF_coef] = transFunc_aniso(nc,coordinates, nodes, connectmf,Ap,Apf, matrixvsfra,N,T,kx, ky,kz);
|
|
r.Ka = Ka;
|
|
r.M = M;
|
|
r.F2M = F2M;
|
|
r.MF_coef = MF_coef;
|
|
elseif modelflag==5 %表示用 Modified Rao, steady, 2018
|
|
[ G,Gfm,Gff,Gf,Ap,Apf ] = interflowmf_MODIFIED(r,dxv,dyv,dzv,matrixvsfra,connectmf,fracstart,fracnumber,raopoint,f,nodes,coordinates,nf,corevsfra );
|
|
[Ka, M, F2M , MF_coef] = transFunc_aniso_MODIFIED(nc,coordinates, nodes, connectmf,Ap,Apf, matrixvsfra,N,T,kx, ky,kz);
|
|
r.Ka = Ka;
|
|
r.M = M;
|
|
r.F2M = F2M;
|
|
r.MF_coef = MF_coef;
|
|
% [ G,Gfm,Gff,Gf,Ap,Apf,Apmt,Apft ]=interflowmf1_transient(dxv,dyv,dzv,matrixvsfra,connectmf,fracstart,fracnumber,raopoint,f,nodes,coordinates,nf,corevsfra );
|
|
end
|
|
% [ G,Gfm,Gff,Gf,Ap,Apf ]=interflowmf1(dxv,dyv,dzv,matrixvsfra,connectmf,fracstart,fracnumber,raopoint,f,nodes,coordinates,nf,corevsfra );
|
|
%%
|
|
|
|
% r.MF_deltt=MF_deltt;
|
|
end
|
|
%% 计算深度（以下平面为基准计算得到的高度，值为正数）
|
|
z=[zm;zm;zf];
|
|
r.z=z;
|
|
rpt = [ones(r.nmc, 1); zeros(nfc, 1)];
|
|
r.rpt = rpt;
|
|
r.Porf = Porf;
|
|
pori = [pori; pori_matrixLayer; porf];
|
|
r.pori = pori;
|
|
r.por = @(p)por(p, prpor, pori, cpor, prporf, cporf, r.rpt);
|
|
tpre=toc;
|
|
r.tpre=tpre;
|
|
end |