旋转的太极图,使用matlab打开绘图新世界

2021-08-05 09:56:20 浏览数 (1)

一、思路

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

主要思路就是,先画两个大的半圆,拼成太极最外圈的圆,然后画两个小圆(小圆的位置可以自己多调几次,自己看的舒服就好),接着再画两个半圆,作为太极图中间的分割线。这样,太极的轮廓就画好了。

接下来就是填充颜色。涂色的话,建议根据面积,从大到小开始,利用图层覆盖来填充颜色。

那么就可以先给其中的一个大半圆填充成黑色(反正底色就是白色,白色就不用填充啦),然后填充“分割线”那里的两个半圆(虽然画的时候展现的是圆弧,其实是个半圆啦),

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

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

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

二、完整代码:

代码语言: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函数用来播放动画帧

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

0 人点赞