3D plotting of given parametric equations

Hi everyone, I need 3D plot of given parametric equations:

Here also R varies between [25 75], i tried to use meshgrid and ndgrid functions but had a problem using them with varying 3 variables U, V and R. How can i plot this? Also, 3D plot should look like this: (Don't mind numbers they are different in my case)

Thank you in advance

Answer 1

[KSSV]

m = 50 ; n = 50 ;
p = 5 ; 
u = linspace(0,pi,m) ;
v = linspace(0,2*pi,n) ;
r = linspace(25,75,p) ;
[U,V,R] = meshgrid(u,v,r) ; 

Z = R.*cos(U).*cos(V) ;
Y = R.*cos(U).*sin(V) ;
X = sqrt(R.^2-Z.^2-Y.^2); 

figure
hold on
for i = 1:p
    mesh(abs(X(:,:,i)),Y(:,:,i),Z(:,:,i))
end
view(3)

[Ahmet Turan]

Thank you so much, i made some modifications on my code based on yours an it works!

[KSSV]

Thats great.....Show your answer here..so that it can be useful for others who have a similiar question like yours.

[Ahmet Turan]

a = 0.0201; b = 0.0924;
alpha = 0.1063; beta = 0;
u = linspace(0,pi);
v = linspace(0,2*pi);
r = linspace(25,75);
[U V R] = meshgrid(u,v,r);
Z = -a*R.*cos(U).*cos(V);
Y = b*R.*cos(U).*sin(V);
X = sqrt((R.^2)-(Z.^2)-(Y.^2));
figure
hold on
for i = 1:100
    s = surf(X(:,:,i),Y(:,:,i),Z(:,:,i));
    direction = [0 1 0];
    rotate(s,direction,-rad2deg(alpha));
    direction = [0 0 1];
    rotate(s,direction,rad2deg(beta));
end
view(3)
xlabel('x');
ylabel('y');
zlabel('z');
grid on
shading interp
colorbar
hold off

[Ahmet Turan]

I am trying to get rid of wiggly side surfaces now, any help would be appreciated.