一、思路
对于太极图,我在网上也找了一些方法来画。最后我选择了这个。
主要思路就是,先画两个大的半圆,拼成太极最外圈的圆,然后画两个小圆(小圆的位置可以自己多调几次,自己看的舒服就好),接着再画两个半圆,作为太极图中间的分割线。这样,太极的轮廓就画好了。
接下来就是填充颜色。涂色的话,建议根据面积,从大到小开始,利用图层覆盖来填充颜色。
那么就可以先给其中的一个大半圆填充成黑色(反正底色就是白色,白色就不用填充啦),然后填充“分割线”那里的两个半圆(虽然画的时候展现的是圆弧,其实是个半圆啦),
接下来,画一条白线,遮住黑线
(这里是我画完图最后发现的,一开始画太极轮廓的时候,中间是没有那条黑线的,但是,填充完颜色之后,就出来一条黑线,这条线大概就是把圆一分为二的直径。刚开始学,能力有限,这个地方我现在也不知道为啥,于是就想到了这个比较笨的方法,用白线覆盖掉)
最后就是给那两个小圆填充颜色啦,这样就完成了。
二、完整代码:
代码语言:txt复制r=2;k=0.25;
delta_theta = pi/60;
theta0=0:pi/60:2*pi;%外面的大圆
theta1=0:pi/30:pi;%中间的分割线需要的半圆
x1=r*cos(theta1);
y1=r*sin(theta1);%x1,y1画最外圈的半个圆
x2=-r*cos(theta1);
y2=-r*sin(theta1);%x2,y2画最外圈的半个圆
x3=cos(0) k*cos(theta0);
y3=-sin(0) k*sin(theta0);
x4=-cos(0) k*cos(theta0);
y4=sin(0)-k*sin(theta0);%x3,y3,x4,y4画中间的两个小圆
x5=cos(theta1)-cos(0);
y5=sin(theta1) sin(0);
x6=cos(theta1) cos(0);
y6=-sin(theta1)-sin(0);%x5,y5,x6,y6画中间的分割线
h01=plot(x3,y3,'w',x4,y4,'k');%小圆
hold on;
h02=plot(x5,y5,'k',x6,y6,'k');%分割线 %生成图像
axis equal
f01=fill(x2,y2,'k'); %一个半圆涂成黑色
f02=fill(x5,y5,'k');
f03=fill(x6,y6,'w');%分割线部分那里涂成黑白
line([0,x6],[0,y6],'color','w');%画一条白线遮住黑线
f04=fill(x3,y3,'k');
f05=fill(x4,y4,'w');%中间小圆涂成黑白
h03=plot(x1,y1,'k');%大圆
h04=plot(x2,y2,'k');
%涂色的时候不一定就是想要的地方涂成想要的颜色,多调试就可以啦
F(1)=getframe;%F=getframe 捕获显示在屏幕上的当前坐标区作为影片帧
delete(h01);
delete(h02);
delete(f01);
delete(f02);
delete(f03);
delete(f04);
delete(f05);
for i=1:120
x1=r*cos(theta1 delta_theta*i);
y1=r*sin(theta1 delta_theta*i);
x2=r*cos(theta1 delta_theta*i);
y2=r*sin(theta1 delta_theta*i);
x3=cos(0-delta_theta*i) k*cos(theta0-delta_theta*i);
y3=-sin(0-delta_theta*i) k*sin(theta0-delta_theta*i);
x4=-cos(0-delta_theta*i) k*cos(theta0-delta_theta*i);
y4=sin(0-delta_theta*i) k*sin(theta0-delta_theta*i);
x5=-cos(theta1-delta_theta*i)-cos(0-delta_theta*i);
y5=sin(theta1-delta_theta*i) sin(0-delta_theta*i);
x6=cos(theta1-delta_theta*i) cos(0-delta_theta*i);
y6=-sin(theta1-delta_theta*i)-sin(0-delta_theta*i); %和上面一样,设置参数,为画图和涂色做准备
h11=plot(x3,y3,'w',x4,y4,'k');%小圆
hold on;
h12=plot(x5,y5,'k',x6,y6,'k');%分割线 %生成图像
axis equal
f11=fill(x2,y2,'k'); %一个半圆涂成黑色
f12=fill(x5,y5,'w');
f13=fill(x6,y6,'k');%分割线部分那里涂成黑白
line([0,x5],[0,y5],'color','w');
f14=fill(x3,y3,'w');
f15=fill(x4,y4,'k');%中间小圆涂成黑白
h13=plot(x1,y1,'k');%大圆
h14=plot(x2,y2,'k');
%涂色的时候不一定就是想要的地方涂成想要的颜色,多调试就可以啦
F(i 1) = getframe;
delete(h11);
delete(h12);
delete(f11);
delete(f12);
delete(f13);
delete(f14);
delete(f15);
end
movie(F); %movie函数用来播放动画帧
其中的一些函数,我也是做了这个图才知道,可以多百度呀!