使用matlab画可以旋转的太极图

对于太极图，我在网上也找了一些方法来画。最后我选择了这个。

主要思路就是，先画两个大的半圆，拼成太极最外圈的圆，然后画两个小圆（小圆的位置可以自己多调几次，自己看的舒服就好），接着再画两个半圆，作为太极图中间的分割线。这样，太极的轮廓就画好了。
接下来就是填充颜色。涂色的话，建议根据面积，从大到小开始，利用图层覆盖来填充颜色。
那么就可以先给其中的一个大半圆填充成黑色（反正底色就是白色，白色就不用填充啦），然后填充“分割线”那里的两个半圆（虽然画的时候展现的是圆弧，其实是个半圆啦），

接下来，画一条白线，遮住黑线

（这里是我画完图最后发现的，一开始画太极轮廓的时候，中间是没有那条黑线的，但是，填充完颜色之后，就出来一条黑线，这条线大概就是把圆一分为二的直径。刚开始学，能力有限，这个地方我现在也不知道为啥，于是就想到了这个比较笨的方法，用白线覆盖掉）

最后就是给那两个小圆填充颜色啦，这样就完成了。

下面是代码：

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函数用来播放动画帧

其中的一些函数，我也是做了这个图才知道，可以多百度呀！

谁让我们的浑元形意太极门掌门人这么有“魅力”呢，搞了好久的旋转的太极图，终于搞定啦！