Create a hemisphere with slats

n = 12;
p = 30;
%
tht = linspace(0,pi,1+p).';
ang = linspace(0,pi,2*n);
%
x = cos(tht)*ones(1,2*n);
y = sin(tht)*cos(ang);
z = sin(tht)*sin(ang);
%
V = [x(:),y(:),z(:)];
F = bsxfun(@plus,(1:p).',0:2*(p+1):size(V,1)-1);
F = F(:);
F(:,2:4) = [1+F,F+2+p,F+1+p];
%
patch('Faces',F, 'Vertices',V, 'FaceColor','green', 'EdgeColor','none')
view(3)

Creates this:

3 个评论
显示 1更早的评论隐藏 1更早的评论

KSSV 2016-9-2

编辑：KSSV 2016-9-2

Good one...I had lot to learn from the code...!

Stephen23 2016-9-2

编辑：Stephen23 2016-9-2

@viet le: I hope that you find my code useful. if my answer resolved your question, then please accept it by clicking the accept button

请先登录，再进行评论。

Answer 2

KSSV 2016-9-1

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/301578-create-a-hemisphere-with-slats#answer_233352

在 MATLAB Online 中打开

clc; clear all ;
R = 1. ;
%
N1 = 100 ;
th1 = linspace(0,pi,N1) ;
x = R*cos(th1) ;
y = R*sin(th1) ;
z = zeros(size(x)) ;
%
N2 = 100 ;
th2 = linspace(0,pi,N2) ;
X = zeros(N1,N2) ;
Y = X ;
Z = X ;
for i = 1:N1
    for j = 1:N2
        Rot = [1 0 0 ; 0 cos(th2(j)) -sin(th2(j)) ; 0 sin(th2(j)) cos(th2(j))] ;
        k = Rot*[x(i) ; y(i) ;z(i)] ;
        X(i,j) = k(1) ; 
        Y(i,j) = k(2) ;
        Z(i,j) = k(3) ;
    end         
end
figure
hold on
count = 0 ;
for i = 1:2:N1
    count = count+1 ;
    x = [X(:,i) ; flipud(X(:,1+1))] ;
    y = [Y(:,i) ; flipud(Y(:,i+1))] ;
    z = [Z(:,i) ; flipud(Z(:,1+1))] ;
    if mod(count,2)
        fill3(x,y,z,'g','edgecolor','none')
    else
        fill3(x,y,z,'w','edgecolor','none')
    end
    drawnow
end