matlab数学之美多边形边接半圆

matlab数学之美多边形边接半圆

% matlab画雪花

clear;clc;close all;

% 背景设置为黑色

figure('Color', 'w');

set(groot, 'defaultAxesColor', 'w');

% 颜色包

for nm=2:69

cmap=load(['D:\matlab_work\函数名为colormore的颜色索引表制作\colormore_txt\colormore_',num2str(nm),'.txt']);

% 画图

% 底座

for ij=1:5

t=0:pi/ij:2pi;
for jj=1:30
R=jj;
x=R cos(t);

y=Rsin(t);
plot(x,y,'color',cmap(jj 3,:),'LineStyle','-','LineWidth',2)

hold on

% 花朵

t0=-pi/ij:0.01:2/ijpi;
for i=1:length(x)-1
plot(R/2 cos(t0)+((x(i)+x(i+1))/2),R/2sin(t0)+((y(i)+y(i+1))/2),'color',cmap(jj 3,:),'LineStyle','-','LineWidth',2)

t0=t0+pi/ij;

hold on

end

end

axis equal

set(gca,'xtick',[],'xticklabel',[],'xcolor','w','ytick',[],'yticklabel',[],'ycolor','w')

xlim([-(R+20) (R+20)])

ylim([-(R+20) (R+20)])

export_fig([num2str(ij),'_',num2str(nm),'2.jpg'],'-r300')

close all

end

end