Rich_E Rich_E
关注数: 1 粉丝数: 10 发帖数: 161 关注贴吧数: 43
2D颜色 % Colors of Figure Plot 2D clear clf clc close tic %---Set constants C01 = [ 0.1333 0.1569 0.1922; 0.2235 0.2431 0.2745; 0.0000 0.6784 0.7098; 0.9333 0.9333 0.9333; ]; C02 = [ 0.9765 0.9294 0.4118; 0.9412 0.5412 0.3647; 0.7216 0.2314 0.3686; 0.4157 0.1725 0.4392; ]; C03 = [ 0.9529 0.5059 0.5059; 0.9882 0.8902 0.5412; 0.9176 1.0000 0.8157; 0.5843 0.8824 0.8275; ]; C04 = [ 0.0314 0.8510 0.8392; 0.1451 0.1647 0.2039; 1.0000 0.1804 0.3882; 0.9176 0.9176 0.9176; ]; C05 = [ 0.6588 0.8471 0.9176; 0.6667 0.5882 0.8549; 0.9882 0.7294 0.8275; 1.0000 1.0000 0.8235; ]; C06 = [ 0.2118 0.3098 0.4196; 0.2471 0.7569 0.7882; 0.9608 0.9608 0.9608; 0.9882 0.3176 0.5216; ]; C07 = [ 0.8902 0.9922 0.9922; 0.7961 0.9451 0.9608; 0.6510 0.8902 0.9137; 0.4431 0.7882 0.8078; ]; C08 = [ 0.8941 0.9765 0.9608; 0.1882 0.8902 0.7922; 0.0667 0.6000 0.6196; 0.2510 0.3176 0.3059; ]; C09 = [ 0.0000 0.7216 0.6627; 0.9725 0.9529 0.8314; 0.9647 0.2549 0.4235; 1.0000 0.8706 0.4902; ]; C10 = [ 0.2824 0.2745 0.4275; 0.2392 0.5176 0.6588; 0.2745 0.8039 0.8118; 0.6706 0.9294 0.8471; ]; %---Set variables x=linspace(-3,4); y=5*ones(size(x)); %---Open a figure window figure(1) %---Set the graphics root object default properties set(groot,'defaultFigureColor','w') % Create axes in tiled position subplot(2,5,1) %---Fill 2-D polygons h1=fill([x,fliplr(x)],[y,fliplr(y-3)],C01(1,:),'LineStyle','none');hold on; h2=fill([x,fliplr(x)],[y-3,fliplr(y-5)],C01(2,:),'LineStyle','none');hold on; h3=fill([x,fliplr(x)],[y-5,fliplr(y-6)],C01(3,:),'LineStyle','none');hold on; h4=fill([x,fliplr(x)],[y-6,fliplr(y-7)],C01(4,:),'LineStyle','none');hold on; %---Set axis limits and aspect ratios axis equal; axis([-3 4 -2 5]); %---Set the graphics current axes properties set(gca,'Visible','off') % Create axes in tiled position subplot(2,5,2) %---Fill 2-D polygons h1=fill([x,fliplr(x)],[y,fliplr(y-3)],C02(1,:),'LineStyle','none');hold on; h2=fill([x,fliplr(x)],[y-3,fliplr(y-5)],C02(2,:),'LineStyle','none');hold on; h3=fill([x,fliplr(x)],[y-5,fliplr(y-6)],C02(3,:),'LineStyle','none');hold on; h4=fill([x,fliplr(x)],[y-6,fliplr(y-7)],C02(4,:),'LineStyle','none');hold on; %---Set axis limits and aspect ratios axis equal; axis([-3 4 -2 5]); %---Set the graphics current axes properties set(gca,'Visible','off') % Create axes in tiled position subplot(2,5,3) %---Fill 2-D polygons h1=fill([x,fliplr(x)],[y,fliplr(y-3)],C03(1,:),'LineStyle','none');hold on; h2=fill([x,fliplr(x)],[y-3,fliplr(y-5)],C03(2,:),'LineStyle','none');hold on; h3=fill([x,fliplr(x)],[y-5,fliplr(y-6)],C03(3,:),'LineStyle','none');hold on; h4=fill([x,fliplr(x)],[y-6,fliplr(y-7)],C03(4,:),'LineStyle','none');hold on; %---Set axis limits and aspect ratios axis equal; axis([-3 4 -2 5]); %---Set the graphics current axes properties set(gca,'Visible','off') % Create axes in tiled position subplot(2,5,4) %---Fill 2-D polygons h1=fill([x,fliplr(x)],[y,fliplr(y-3)],C04(1,:),'LineStyle','none');hold on; h2=fill([x,fliplr(x)],[y-3,fliplr(y-5)],C04(2,:),'LineStyle','none');hold on; h3=fill([x,fliplr(x)],[y-5,fliplr(y-6)],C04(3,:),'LineStyle','none');hold on; h4=fill([x,fliplr(x)],[y-6,fliplr(y-7)],C04(4,:),'LineStyle','none');hold on; %---Set axis limits and aspect ratios axis equal; axis([-3 4 -2 5]); %---Set the graphics current axes properties set(gca,'Visible','off') % Create axes in tiled position subplot(2,5,5) %---Fill 2-D polygons h1=fill([x,fliplr(x)],[y,fliplr(y-3)],C05(1,:),'LineStyle','none');hold on; h2=fill([x,fliplr(x)],[y-3,fliplr(y-5)],C05(2,:),'LineStyle','none');hold on; h3=fill([x,fliplr(x)],[y-5,fliplr(y-6)],C05(3,:),'LineStyle','none');hold on; h4=fill([x,fliplr(x)],[y-6,fliplr(y-7)],C05(4,:),'LineStyle','none');hold on; %---Set axis limits and aspect ratios axis equal; axis([-3 4 -2 5]); %---Set the graphics current axes properties set(gca,'Visible','off') % Create axes in tiled position subplot(2,5,6) %---Fill 2-D polygons h1=fill([x,fliplr(x)],[y,fliplr(y-3)],C06(1,:),'LineStyle','none');hold on; h2=fill([x,fliplr(x)],[y-3,fliplr(y-5)],C06(2,:),'LineStyle','none');hold on; h3=fill([x,fliplr(x)],[y-5,fliplr(y-6)],C06(3,:),'LineStyle','none');hold on; h4=fill([x,fliplr(x)],[y-6,fliplr(y-7)],C06(4,:),'LineStyle','none');hold on; %---Set axis limits and aspect ratios axis equal; axis([-3 4 -2 5]); %---Set the graphics current axes properties set(gca,'Visible','off') % Create axes in tiled position subplot(2,5,7) %---Fill 2-D polygons h1=fill([x,fliplr(x)],[y,fliplr(y-3)],C07(1,:),'LineStyle','none');hold on; h2=fill([x,fliplr(x)],[y-3,fliplr(y-5)],C07(2,:),'LineStyle','none');hold on; h3=fill([x,fliplr(x)],[y-5,fliplr(y-6)],C07(3,:),'LineStyle','none');hold on; h4=fill([x,fliplr(x)],[y-6,fliplr(y-7)],C07(4,:),'LineStyle','none');hold on; %---Set axis limits and aspect ratios axis equal; axis([-3 4 -2 5]); %---Set the graphics current axes properties set(gca,'Visible','off') % Create axes in tiled position subplot(2,5,8) %---Fill 2-D polygons h1=fill([x,fliplr(x)],[y,fliplr(y-3)],C08(1,:),'LineStyle','none');hold on; h2=fill([x,fliplr(x)],[y-3,fliplr(y-5)],C08(2,:),'LineStyle','none');hold on; h3=fill([x,fliplr(x)],[y-5,fliplr(y-6)],C08(3,:),'LineStyle','none');hold on; h4=fill([x,fliplr(x)],[y-6,fliplr(y-7)],C08(4,:),'LineStyle','none');hold on; %---Set axis limits and aspect ratios axis equal; axis([-3 4 -2 5]); %---Set the graphics current axes properties set(gca,'Visible','off') % Create axes in tiled position subplot(2,5,9) %---Fill 2-D polygons h1=fill([x,fliplr(x)],[y,fliplr(y-3)],C09(1,:),'LineStyle','none');hold on; h2=fill([x,fliplr(x)],[y-3,fliplr(y-5)],C09(2,:),'LineStyle','none');hold on; h3=fill([x,fliplr(x)],[y-5,fliplr(y-6)],C09(3,:),'LineStyle','none');hold on; h4=fill([x,fliplr(x)],[y-6,fliplr(y-7)],C09(4,:),'LineStyle','none');hold on; %---Set axis limits and aspect ratios axis equal; axis([-3 4 -2 5]); %---Set the graphics current axes properties set(gca,'Visible','off') % Create axes in tiled position subplot(2,5,10) %---Fill 2-D polygons h1=fill([x,fliplr(x)],[y,fliplr(y-3)],C10(1,:),'LineStyle','none');hold on; h2=fill([x,fliplr(x)],[y-3,fliplr(y-5)],C10(2,:),'LineStyle','none');hold on; h3=fill([x,fliplr(x)],[y-5,fliplr(y-6)],C10(3,:),'LineStyle','none');hold on; h4=fill([x,fliplr(x)],[y-6,fliplr(y-7)],C10(4,:),'LineStyle','none');hold on; %---Set axis limits and aspect ratios axis equal; axis([-3 4 -2 5]); %---Set the graphics current axes properties set(gca,'Visible','off') toc
1 下一页