我写了个比较笨的程序,大概得到我要的分布在球体表面的电场
我要怎么样才能把那个球体上的网格去掉呢?
k = 6;
n = 2^k-1;
[X,Y,Z] = sphere(n);
for i=1:length(X)
for j=1:length(Y)
XX=X(i,j);
YY=Y(i,j);
ZZ=Z(i,j);
fun=['0.2*cos(x)./((',num2str(XX),'-0.2-0.2*cos(x)).^2+(',num2str(YY),'-0.2*sin(x)).^2+(',num2str(ZZ),'-1.1).^2).^(1/2)-0.2*cos(x)./((',num2str(XX),'+0.2-0.2*cos(x)).^2+(',num2str(YY),'+0.2*sin(x)).^2+(',num2str(ZZ),'-1.1).^2).^(1/2)'];
c0(i,j)=quadl(inline(fun),0,2*pi);
%计算电场,即为颜色矩阵
end
end
C=c0;
surf(X,Y,Z,C);
h=surf(X,Y,Z,C);
rotate(h,[1 0 0],60); |