How can I plot Spherical Coordinates, showing R, Theta and Phi, like animated image attached? And Cylindrical Coordinates?

Question

EngEdgarHS 2021-3-29

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/786361-how-can-i-plot-spherical-coordinates-showing-r-theta-and-phi-like-animated-image-attached-and-cy

评论： darova 2021-4-5

I need to make an animation in which it would be possible to check the variation between R, Theta and Phi in the sphere as it varies from 0 to 2pi at one end and from 0 to pi at the other. Of course, R can be constant, but the idea is to make an animation just like the attached GIF. Honestly, I don't even know how to start doing that. Consequently, a particular case would be to animate a cylindrical coordinate. I hope you guys can clear my path.

2 个评论
显示无隐藏无

J. Alex Lee 2021-3-29

i think a problem that you may not even know that you have yet, is how to get coordinates organized in such a way as to be able to represented as the mesh/surface you are seeing rather than a simple collection of points.

take a look at the functions "cylinder" and "sphere" for that.

then, you can interoperate between cartesian coordinates and spherical/cylindrical coordinates with the functions "cart2pol", "pol2cart", "cart2sph", "sph2cart"

EngEdgarHS 2021-3-30

I'll try it, thanks.

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

darova 2021-3-31

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/786361-how-can-i-plot-spherical-coordinates-showing-r-theta-and-phi-like-animated-image-attached-and-cy#answer_663679

编辑：darova 2021-3-31

在 MATLAB Online 中打开

Try this

clc,clear
t = 0:10:180;
[T,R] = meshgrid(0:10:360,0:10);
[X,Y] = pol2cart(T*pi/180,R);
Z = R;
h = surf(X,Y,Z);
for i = 1:length(t)
    set(h,'xdata',X*cosd(t(i)));
    set(h,'ydata',Y*cosd(t(i)));
    set(h,'zdata',Z*sind(t(i)));
    pause(0.2)
end

4 个评论
显示 2更早的评论隐藏 2更早的评论

EngEdgarHS 2021-4-5

编辑：darova 2021-4-5

darova 2021-4-5

在 MATLAB Online 中打开

Sorry, deleted your comment for an instance

JUst draw lines

clc,clear
[x,y,z] = sphere(20);                               % sphere data
[x1,y1] = pol2cart((0:10:360)*pi/180,1);            % circle data
surf(x,y,z,'facecolor','none','edgecolor',[1 1 1]/2)% plot sphere
h = line(x1,y1,x1*0,'color','k');                   % draw circle
for t = 0:10:180
    set(h,'xdata',sind(t)*x1)
    set(h,'ydata',sind(t)*y1)
    set(h,'zdata',cosd(t)*1+x1*0)
    pause(0.1)
end