如何在球面上画等高线图

nizp1982

如何在球形表面画等高线图，部分程序如图，请大家帮忙，非常感谢！
b22=0.0037;
r=0.2;
mt=100;nt=200;
theta=linspace(0,pi,mt);
phi=linspace(0,2*pi,nt);
xt=r*sin(theta)'*cos(phi);
yt=r*sin(theta)'*sin(phi);
zt=r*cos(theta)'*ones(1,nt);

figure
B_XY=6*b22*xt.*yt;
h=surf(xt,yt,zt,B_XY);
% colormap hsv
xlabel('x/m')
ylabel('y/m')
zlabel('z/m')
title('b22(XY)')
set(h,'FaceColor','interp','EdgeColor','none')
colorbar
camlight;

messenger

试试M_Map

nizp1982

谢谢，有没有更为简便的方法

nwcwww

http://www.mathworks.com/matlabc ... a-spherical-surface

nizp1982

非常感谢！