%%
clear; close all; clc
%%
celldim = [10, 10, 3];
physdim = [100, 100, 100];
G = cartGrid(celldim, physdim);
G = computeGeometry(G);
G.rock=makeRock(G,100*milli*darcy,0.3);
[I,J,K] = gridLogicalIndices(G);
%%
points = [20 20 0;
60 60 0;
60 60 100;
20 20 100]; %vertices
f2normal = getnormal(points);
points([1,2],:)=points([1,2],:)-f2normal*15; % displace top points
points([3,4],:)=points([3,4],:)+f2normal*15; % displace bottom points
fracplanes(1).points = points;
fracplanes(1).aperture = 1/25;
fracplanes(1).poro=0.8;
fracplanes(1).perm=10000*darcy;
figure;
plotfracongrid(G,fracplanes);
view(30,45)
%%
tol=1e-5;
[G,fracplanes]=EDFMgrid(G,fracplanes,...
'Tolerance',tol,'fracturelist',1:length(fracplanes));
%%
figure;
plotGrid(G,'facealpha',0,'edgealpha',0.5);
view(30,45); axis equal tight; hold on;
plotGrid(G, G.FracGrid.Frac1.matrix_connection.cells, 'facecolor', 'y', 'facealpha', 0.5);
plotfracongrid(G, fracplanes, 'fracfacealpha', 1, 'fracfacecolor', 'r');
%%
I1 = I(G.FracGrid.Frac1.matrix_connection.cells);
J1 = J(G.FracGrid.Frac1.matrix_connection.cells);
K1 = K(G.FracGrid.Frac1.matrix_connection.cells);
IJK = [I1 J1 K1];