%% Parameterized Mesh Plot
% Plot the parameterized mesh
% \matrix{x = r\cos(s)\sin(t) \cr y = r\sin(s)\sin(t) \cr z = r\cos(t)
% \cr {\rm where\quad} r = 8+\sin(7s+5t)}
% for 0<s<2\pi and 0<t<\pi. Make the aspect ratio of the axes equal using axis equal. See the entire mesh by making the mesh partially transparent using alpha.

syms s t
r = 8 + sin(7*s + 5*t);
x = r*cos(s)*sin(t);
y = r*sin(s)*sin(t);
z = r*cos(t);
fmesh(x, y, z, [0 2*pi 0 pi], 'Linewidth', 2)
axis equal
alpha(0.8)

% Copyright 2012 The MathWorks, Inc.