init
This commit is contained in:
xinxiao
@@ -0,0 +1,510 @@
|
||||
function r = GridProp_new(modelflag,nx, ny, nz, dx, dy, dz, kx, ky, kz, f, frac_information, fellip, Kf, Wf, pori, prpor, cpor, Porf, prporf, cporf, cf, ca,co,NTG)
|
||||
tic;
|
||||
%% 基质网格参数及网格参数计算、存储
|
||||
r.modelflag=modelflag;
|
||||
r.nx = nx;
|
||||
r.ny = ny;
|
||||
r.nz = nz;
|
||||
r.dx = dx;
|
||||
r.dy = dy;
|
||||
r.dz = dz;
|
||||
r.kx = kx;
|
||||
r.ky = ky;
|
||||
r.kz = kz;
|
||||
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_xy_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_xy_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);
|
||||
hold on;
|
||||
|
||||
% network3D_arbitrary(dx,dy,dz,nx,ny,nz);
|
||||
hold on;
|
||||
% 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 <= 30
|
||||
color_fill='b'; %流动屏障
|
||||
% elseif i <=19
|
||||
% color_fill='b'; %压裂缝
|
||||
if i == 2 || i == 9
|
||||
|
||||
rnf
|
||||
elseif
|
||||
color_fill='r'; %天然裂缝
|
||||
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',12);
|
||||
ylabel('y, m','FontSize',12);
|
||||
zlabel('z, m','FontSize',12);
|
||||
%
|
||||
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(2)
|
||||
% 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 ] = connections_2014( fracturemesh,pointvsregion,raopoint,f,nf,nx,ny,nz,kx,ky,kz,pori,Kf,Wf,Porf,dxv,dyv,dzv,coordinates,nodes,NTG,addflag );
|
||||
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.T_convection=T_convection;
|
||||
r.vf=vf;
|
||||
r.V=[vm;vf];
|
||||
r.porf=porf;
|
||||
r.fcff=fcff;
|
||||
r.mat_frac=mat_frac;
|
||||
r.cell_divided_by_fracture_flag = cell_divided_by_fracture_flag;
|
||||
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 ] = 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;
|
||||
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;zf];
|
||||
r.z=z;
|
||||
|
||||
|
||||
rpt = [ones(nmc, 1); zeros(nfc, 1)];
|
||||
r.rpt = rpt;
|
||||
r.Porf = Porf;
|
||||
pori = [pori; porf];
|
||||
r.pori = pori;
|
||||
r.por = @(p)por(p, prpor, pori, cpor, prporf, cporf, r.rpt);
|
||||
tpre=toc;
|
||||
r.tpre=tpre;
|
||||
Reference in New Issue
Block a user