function sun_0(X,Y,Z)
%[0 0 0]黑,[1 1 1]白;
% 1 0 0――红
% 0 1 0――绿
% 0 0 1――兰;
% 1 0 1――粉红=红+兰;
% 1 1 0――黄 =红+绿;
% 0 1 1――天兰=绿+兰;
%0<N<1=中间色;
surf(X,Y,Z);hold on;%树(H=0.3)
for I=1:100
II=100-I;
A(I,1:3)=[1-I*0.01 1-I*0.001 0+I*0.00]; %y-g
B(I,1:3)=[0-I*0.00 0+I*0.01 0+I*0.00]; %k-g
C(I,1:3)=[0-I*0.00 0+(100-I)*0.001 0+I*0.00]; %kg-k
D(I,1:3)=[1-(100-I)*0.01 1-(100-I)*0.001 0+0*0.00];%g-y
WB(I,1:3)=[1-II*0.01 1-II*0.01 1+II*0.00]; %w-b
G(I,1:3)=[0-I*0.00 0+I*0.001 0.5+I*0.001]; %kb-k
WKB(I,1:3)=[0+II*0.001 0+II*0.001 0+II*0.01]; %w-kb
WR(I,1:3)=[1+I*0.00 1-I*0.01 1-I*0.01 ]; %w-R
BW(I,1:3)=[1-I*0.01 1-I*0.01 1+I*0.00]; %w-b
end
%A
%B
%C
%h=[A;C;B];
%h=[C;C;B;D];
h=[WB;WKB;WB;WR];
colormap(h);
brighten(.5);
%darken(0.5);
%light('color','w');
%light('color','y');
%
%surf(X,Y,z);hold on;%海平面
%light('color','g');
评论