boyafish 发表于 2006-8-23 16:14

请问怎么画一个网状半球图

除了这个网格半球图外,上面还要加上一些截面圆,圆对球心的张角为30度,这些圆一共有7个,中间一个,旁边6个,紧密排列。
谢谢大虾

happy 发表于 2006-8-23 19:25

界面园应该可以通过下面的办法画出来

%曲面与多个截平面相交
y=-10:0.5:10;
z=y;
=meshgrid(z,y);
X=Z;
X1=0*ones(size(Z));
X2=3*ones(size(Z));
X3=-3*ones(size(Z));
Z4=(X.^2-Y.^2)/10;
mesh(X1,Y,Z);hold on
mesh(X2,Y,Z)
mesh(X3,Y,Z);
mesh(X,Y,Z4);
r1=(abs(X1-X)<0.05);
r2=(abs(X2-X)<0.05);
r3=(abs(X3-X)<0.05);
zz1=r1.*Z4;yy1=r1.*Y;xx1=r1.*X;
zz2=r2.*Z4;yy2=r1.*Y;xx2=r1.*X;
zz3=r3.*Z4;yy3=r1.*Y;xx3=r1.*X;
plot3(xx1(r1~=0),yy1(r1~=0),zz1(r1~=0),'k*');
plot3(xx2(r2~=0),yy2(r2~=0),zz2(r2~=0),'k*');
plot3(xx3(r3~=0),yy3(r3~=0),zz3(r3~=0),'k*');
colormap(hsv)
clc;
页: [1]
查看完整版本: 请问怎么画一个网状半球图