【matlab程序】matlab画太极图|阴阳










%% 海洋与大气科学；
% 时间：20231205；
%
clear;clc;close all;
t=0:1/100000:2pi+0.00001;
t1=-pi/2:1/100000:pi/2+0.00001;
t2=pi/2:1/100000:3pi/2+0.00001;
R=10;
r=1;
figure
plot(Rcos(t),Rsin(t),‘color’,‘k’,‘linestyle’,‘-’,‘LineWidth’,2)% 最外围大圆
set(gcf,‘Position’,[50 50 1200 1200],‘color’,‘w’)
set(gca,‘xcolor’,‘w’,‘ycolor’,‘w’,‘XTickLabel’,[],‘yticklabel’,[])
axis equal
title(‘无极图’,‘FontSize’,20)
export_fig(‘无极图.jpg’,‘-r300’)
%%
figure
set(gcf,‘Position’,[50 50 1200 1200],‘color’,‘w’)
plot(Rcos(t),Rsin(t),‘color’,‘k’,‘linestyle’,‘-’,‘LineWidth’,2)% 最外围大圆
hold on
plot(rcos(t),R/2+rsin(t),‘color’,‘k’,‘linestyle’,‘-’,‘LineWidth’,2)% 阴中阳
hold on
plot(rcos(t),-R/2+rsin(t),‘color’,‘k’,‘linestyle’,‘-’,‘LineWidth’,2)% 阳中阴
hold on
plot(R/2cos(t1),R/2+R/2sin(t1),‘color’,‘k’,‘linestyle’,‘-’,‘LineWidth’,2)% S曲线
hold on
plot(R/2cos(t2),-R/2+R/2sin(t2),‘color’,‘k’,‘linestyle’,‘-’,‘LineWidth’,2)% S曲线
hold on
se