- /
-
Porous Rock
on 5 Oct 2021
- 2
- 21
- 0
- 0
- 245
n=160;A=zeros(n,n,n);
x=1:1:n;
y=x;
z=x;
f=@(n)round(rand*(n));
[X,Y,Z]=meshgrid(x,y,z);
for i=1:4*n
a=f(n);
b=f(n);
c=f(n);
R=f(n/7);
D=sqrt((X-a).^2+(Y-b).^2+(Z-c).^2);
R=1+R;
A(D<R)=1;
end
isosurface(A);
isocaps(A)
light
axis off
material dull
view(45,20)
colormap('colorcube')