MATLAB 心形曲线(大赏) |
您所在的位置:网站首页 › 心形函数 › MATLAB 心形曲线(大赏) |
MATLAB 心形曲线
基本知识
clc;指令可以清除屏幕,所以你可以通过clc指令来清理屏幕 clchold on;指令可以将画的图连起来 hold onclear;清除之前所留的定义 clear笛卡尔爱心曲线 ezpolar('1-sin(t)') https://blog.csdn.net/lpsl1882/article/details/50806694?depth_1-utm_source=distribute.pc_relevant.none-task&utm_source=distribute.pc_relevant.none-task 首先添加函数保存 function ratio=HeartRate(i,heartSpeed) i=mod(i,heartSpeed); if i < heartSpeed / 2 ratio=sin( i/heartSpeed*pi); elseif i >= heartSpeed / 2 && i < heartSpeed * 3/4 ratio=2*cos(i/heartSpeed*2/3*pi); else ratio = 0; end通过Movie函数进行跳动Heartbeats clear gcp=figure; M=moviein(100,gcp); heartSpeed=15; radiusRate=3; for i = 1:100 axis([-20 20 -20 20]); axis off [A,map] = rgb2ind(frame2im(getframe),256); imwrite(A,map,'1.gif','LoopCount',inf,'DelayTime',0.1); cla(gcp); x=[]; y=[]; for t = 0:0.01:2*pi r=(sin(t)*sqrt(abs(cos(t))))/(sin(t)+7/5)-2*sin(t)+2; r = radiusRate * r; x=[x,r*cos(t)*(0.5+0.5*HeartRate(i,heartSpeed))]; y=[y,r*sin(t)*(0.5+0.5*HeartRate(i,heartSpeed))]; end hold on; fill(x,y,'r'); M(:,i)=getframe; [A,map] = rgb2ind(frame2im(getframe),256); imwrite(A,map,'1.gif','WriteMode','append','DelayTime',0.1); end movie(M,1);既然提到heartbeats天使的跳动,自然是我们的天使(不是天降之物啦,可怕想什么呢)
|
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |