520表白季,教你用matlab画动态心形曲线图,可自动保存GIF格式图片,送给女...
520表⽩季,教你⽤matlab画动态⼼形曲线图,可⾃动保存GIF格式图⽚,送给
⼥朋友,她。。。
昨天发表了⼀篇⽤python教你画⼼形图表⽩的⽂章:
⾥⾯详细介绍了各种⼼形图的画法以及最终的表⽩神器,值得点赞收藏!!
同样matlab也可以实现相同的功能并且还可以做得更好,今天就⽤教你⽤matlab画动态⼼形曲线图,不信请看下⾯:
虏获芳⼼
matlab画动态⼼形曲线图
利⽤数学上的格式f(x)=x^2^/^3+e/3*(π-x^2)^1^/^2*sin(a*π*x)可以为你展现⾮常完美的图像。
% matlab动态⼼形曲线(保存GIF格式)
clc;clear all;
a=10;
x=-2:0.01:2;
figure(1);
set(gcf,'position',[0,0,800,600],'color','w');
for i=1:100
str_title = strcat('\color{red}a=',num2str(a));
y = abs(x).^(2/3)+(0.9*sqrt((3.3-x.^2))).*sin(a*pi*x);
a=i/10;
figure(i);
set(gcf,'position',[0,0,800,600],'color','w');
p1 = plot(x,y,'r','LineWidth',3);
hold on;
title('\color{red}f(x)=x^2^/^3+e/3*(π-x^2)^1^/^2*sin(a*π*x)','fontsize',15);
text(-0.2,2.3,str_title,'FontName','Times New Roman','FontSize',20);
xlim([-2 2]);
ylim([-1.5 2.5]);
frame = getframe(gcf);
im = frame2im(frame);
[I,map]= rgb2ind(im,256);
if i==1
imwrite(I,map,'⼼形图.gif','gif','Loopcount',Inf,'DelayTime',0.05);
else
imwrite(I,map,'⼼形图.gif','gif','WriteMode','append','DelayTime',0.05);
end
close(figure(i));
end
成果图:
这是其中的⼀张(a=4.6)
怎么样是不是很震撼,喜欢的话感觉点赞收藏起来吧
matlab画动态⼼形曲线图(基础版)
clc;clear all;
t=0:0.1:2*pi;
x=16*sin(t).^3;
y=13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t);
figure;
h = plot(x(1),y(1),'r');
axis([-20,20,-20,20]);
axis off
[A,map]= rgb2ind(frame2im(getframe),256);520怎么折爱心
imwrite(A,map,'love.gif','LoopCount',inf,'DelayTime',0.1);
for i = 2:length(t)
h.XData(i)= x(i);
h.YData(i)= y(i);
drawnow
title('\color{red}I LOVE YOU','fontsize',15);
%在本地保存的图⽚也能显⽰出来,保存地址默认
[A,map]= rgb2ind(frame2im(getframe),256);
imwrite(A,map,'love.gif','WriteMode','append','DelayTime',0.1);
end
matlab画3D⼼形图
f=@(x,y,z)(x.^2+ (9./4).*y.^2 + z.^2 - 1).^3 - x.^2.*z.^3 - (9./80).*y.^2.*z.^3;
[x,y,z]=meshgrid(linspace(-3,3));
val=f(x,y,z);
[p,v]=isosurface(x,y,z,val,0);
patch('faces',p,'vertices',v,'facevertexcdata',jet(size(v,1)),'facecolor','w','edgecolor','flat'); view(3);grid on;axis equal;
f=@(x,y,z)(x.^2+ (9./4).*y.^2 + z.^2 - 1).^3 - x.^2.*z.^3 - (9./80).*y.^2.*z.^3; [x,y,z]=meshgrid(linspace(-1.5,1.5));
val=f(x,y,z);
isosurface(x,y,z,val,0);
axis equal;view(3);colormap([1 0.2 0.2])
备注
1. 觉得喜欢的⼩伙伴们来个三连击(点赞+关注+收藏);
2. 让更多的⼈可以看到这篇⽂章;
3. 最重要的是希望可以帮助那些羞涩的程序猿们表⽩成功。

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。