x = linspace(-5, 5, 20);
y = x;
[X,Y] = ndgrid(x,y);
z = @(x,y,s,h,a) a .* exp(s*(x.^2+y.^2)) + h;
figure
surf(X, Y, z(X,Y,-0.1,10,1))
grid on
hv = (0:1:5)*25;
av = linspace(0, 50, numel(hv));
figure
hold on
for k = 1:numel(hv)
hs = surf(X, Y, z(X,Y,-0.1,hv(k),av(k)));
hs.FaceAlpha = 0.5;
hs.EdgeColor = 'none';
hs.FaceColor = 'r';
if (k == 1) | (k == numel(hv))
hs.FaceColor = [1 1 1]*0.5;
end
end
hold off
set(gca, 'Color','none', 'GridAlpha',0, 'XColor','none', 'YColor','none', 'ZColor','none')
view(-60, 10)
0 Comments
Sign in to comment.