kk/3D_EDFM_SIM-X
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

init

Browse Source
This commit is contained in:
xinxiao
2026-03-13 11:24:41 +08:00
commit 04e2bb29c7
238 changed files with 29102 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
post processor/pre_plot/preplot_dis.m
+40
View File
@@ -0,0 +1,40 @@
function [ downgrid, frontgrid ,leftgrid, rightgrid, backgrid, upgrid ] = preplot_dis( r )
%PREPLOT 此处显示有关此函数的摘要
% 此处显示详细说明
nx=r.nx;
ny=r.ny;
nz=r.nz;
downgrid=[];
frontgrid=[];
leftgrid=[];
rightgrid=[];
backgrid=[];
upgrid=[];
for k=1:nz
for j=1:ny
for i=1:nx
rao=i+(j-1)*nx+(k-1)*nx*ny;
if k==1
downgrid=[downgrid rao];
end
if k==nz
upgrid=[upgrid rao];
end
if i==1
leftgrid=[leftgrid rao];
end
if i==nx
rightgrid=[rightgrid rao];
end
if j==1
frontgrid=[frontgrid rao];
end
if j==ny
backgrid=[backgrid rao];
end
end
end
end
end
post processor/pre_plot/preplot_dislayer.m
+41
View File
@@ -0,0 +1,41 @@
function [ downgrid, frontgrid ,leftgrid, rightgrid, backgrid, upgrid ] = preplot_dislayer( r,k )
%PREPLOT 此处显示有关此函数的摘要
% 此处显示详细说明
% k表示从上面数的层数
nx=r.nx;
ny=r.ny;
nz=r.nz;
downgrid=[];
frontgrid=[];
leftgrid=[];
rightgrid=[];
backgrid=[];
upgrid=[];
xiang=nz+1-k;
for j=1:ny
for i=1:nx
rao=i+(j-1)*nx+(xiang-1)*nx*ny;
downgrid=[downgrid rao];
upgrid=[upgrid rao];
if i==1
leftgrid=[leftgrid rao];
end
if i==nx
rightgrid=[rightgrid rao];
end
if j==1
frontgrid=[frontgrid rao];
end
if j==ny
backgrid=[backgrid rao];
end
end
end
end
post processor/pre_plot/sort_fracture.m
+27
View File
@@ -0,0 +1,27 @@
function [ f,fellip ] = sort_fracture( inputf )
nf=size(inputf,1);
f=[];fellip=[];
for i=1:nf
ft1=inputf{i,1};
alpha=inputf{i,2}/180*pi;beta=inputf{i,3}/180*pi;gama=inputf{i,4}/180*pi;%角度转换为弧度制
lf=inputf{i,5};hf=inputf{i,6};
ft2=lf/2*[cos(alpha)*cos(gama)+sin(alpha)*cos(beta)*sin(gama),-cos(alpha)*cos(beta)*sin(gama)+sin(alpha)*cos(gama),...
sin(beta)*sin(gama)];
ft3=hf/2*[sin(alpha)*cos(beta)*cos(gama)-cos(alpha)*sin(gama),-sin(alpha)*sin(gama)-cos(alpha)*cos(beta)*cos(gama),sin(beta)*cos(gama)];
if inputf{i,7}==1 %矩形缝
ft4=[-1,1,0];ft5=[-1,1,0];
f=[f;ft1;ft2;ft3;ft4;ft5];
f(abs(f)<=1e-4)=0;
else %椭圆缝
ft4=[0,0,1];ft5=[0,0,1];
fellip=[fellip;ft1;ft2;ft3;ft4;ft5];
fellip(abs(fellip)<=1e-4)=0;
end
end
end
post processor/pre_plot/sort_fracture_project.m
+29
View File
@@ -0,0 +1,29 @@
function [ f,fellip ] = sort_fracture_project( inputf )
nf=size(inputf{1,1},1);
f=[];fellip=[];
for i=1:nf
ft1=inputf{1,1}(i,:);
% alpha=inputf{i,2}/180*pi;beta=inputf{i,3}/180*pi;gama=inputf{i,4}/180*pi;%角度转换为弧度制
% lf=inputf{i,5};hf=inputf{i,6};
alpha=90/180*pi;beta=90/180*pi;gama=0/180*pi;%角度转换为弧度制
lf=200;hf=5;
ft2=lf/2*[cos(alpha)*cos(gama)+sin(alpha)*cos(beta)*sin(gama),-cos(alpha)*cos(beta)*sin(gama)+sin(alpha)*cos(gama),...
sin(beta)*sin(gama)];
ft3=hf/2*[sin(alpha)*cos(beta)*cos(gama)-cos(alpha)*sin(gama),-sin(alpha)*sin(gama)-cos(alpha)*cos(beta)*cos(gama),sin(beta)*cos(gama)];
% if inputf{i,7}==1 %矩形缝
ft4=[-1,1,0];ft5=[-1,1,0];
f=[f;ft1;ft2;ft3;ft4;ft5];
f(abs(f)<=1e-4)=0;
% else %椭圆缝
% ft4=[0,0,1];ft5=[0,0,1];
% fellip=[fellip;ft1;ft2;ft3;ft4;ft5];
% fellip(abs(fellip)<=1e-4)=0;
% end
end
end
post processor/pre_plot/sort_input.m
+22
View File
@@ -0,0 +1,22 @@
function [ input_modi ] = sort_input( input,nx,ny,nz )
input=reshape(input',[],1);
input(input==0)=0.0001;
% hei=length(input);
hei=nx*ny*nz;
input=input(1:hei,1);
input_modi=zeros(hei,1);
for i=1:hei
zz=floor((i-1)/(nx*ny));
zzz=nz-zz;
yy=floor((i-zz*nx*ny-1)/nx);
yyy=ny-yy;
% yyy=yy+1;
xxx=mod(i-zz*nx*ny-1,nx);
if xxx==0 xxx=nx;
end
input_modi(xxx+(yyy-1)*nx+(zzz-1)*nx*ny,1)=input(i);
end