MATLAB | 两款粒子爱心复刻《点燃我，温暖你》

最近电视剧《点燃我，温暖你》大火，蹭一下热度，发一下MATLAB画爱心的代码，写的比较随意，大家可以自行调整粒子大小和颜色啥的：

粒子爱心1

function particleHeart1
% @author : slandarer% 调整背景及比例
ax=gca;hold on
ax.DataAspectRatio=[1,1,1];
ax.XLim=[-25,25];
ax.YLim=[-25,20];
ax.Color=[0,0,0];
ax.XColor='none';
ax.YColor='none';
set(gcf,'Color',[0,0,0]);% 散点位置计算函数及扩散函数
tFunc=@(n) rand([1,n]).*pi*(2-12e-2)+pi.*6e-2+pi;
dFunc=@(t) t(t>2*pi+2e-1|t<2*pi-2e-1);
xFunc=@(t) 16.*sin(t).^3;
yFunc=@(t) 13.*cos(t)-5.*cos(2.*t)-2.*cos(3.*t)-cos(4.*t);
sFunc=@(x,y,b) deal(b.*log(rand(size(x))).*x+x, b.*log(rand(size(y))).*y+y);
rFunc1=@(x,y,r) deal(r./1.2./(sqrt(x.^2+y.^2)+1).^1.8.*x+x+rand(size(x))./10,...r./1.2./(sqrt(x.^2+y.^2)+1).^1.8.*y+y+rand(size(y))./10);
rFunc2=@(x,y,r) deal(r./1.2./(sqrt(x.^2+y.^2)+1).^1.8.*x+x,r./1.2./(sqrt(x.^2+y.^2)+1).^1.8.*y+y);
aFunc=@(n) eval(char([100,105,115,112,40,39,20316,32773,58,115,108,97,110,100,97,114,101,114,39,41]));
cFunc=@(n) repmat([255,158,196]./255,[n,1])+repmat([-39,-81,-56]./255,[n,1]).*repmat(rand([n,1]),[1,3]);% 生成随机点
t1=dFunc(tFunc(4e3));L1=length(t1);
t2=dFunc(tFunc(2e3));L2=length([t1,t2]);
t3=dFunc(tFunc(2e3));aFunc(1);
[x1,y1]=sFunc(xFunc(t1),yFunc(t1),.05);
[x2,y2]=sFunc(xFunc(t2),yFunc(t2),.15);
[x3,y3]=sFunc(xFunc(t3).*1.4,yFunc(t3).*1.4,.18);
x0=[x1,x2,x3];y0=[y1,y2,y3];% 循环绘图
pHdl=scatter(x0,y0,'.','CData',cFunc(length(x0)),'SizeData',8);
for i=1:1e10[x1,y1]=rFunc2(x0(1:L1),y0(1:L1),10*sin(i/10*pi));[x2,y2]=rFunc1(x0(L1+1:L2),y0(L1+1:L2),10*sin(i/10*pi));[x3,y3]=rFunc1(x0(L2+1:end),y0(L2+1:end),10*sin((i+10)/10*pi));x=[x1,x2,x3];y=[y1,y2,y3];pHdl.XData=x;pHdl.YData=y;drawnow;pause(.05)
end
end

粒子爱心2

function particleHeart2
% @author : slandarer% 所需匿名函数
col1Func=@(n) repmat([255,158,196]./255,[n,1])+repmat([-39,-81,-56]./255,[n,1]).*repmat(rand([n,1]),[1,3]);
col2Func=@(n) repmat([118,156,216]./255,[n,1])+repmat([137,99,39].*.1./255,[n,1]).*repmat(rand([n,1]),[1,3]);
aFunc=@(n) eval(char([100,105,115,112,40,39,20316,32773,58,115,108,97,110,100,97,114,101,114,39,41]));
szFunc=@(n) rand([n,1]).*15+8;hold on
% 计算爱心点位置并绘制爱心
n=120;
x=linspace(-3,3,n);
y=linspace(-3,3,n);
z=linspace(-3,3,n);
[X,Y,Z]=ndgrid(x,y,z);
F=((-(X.^2).*(Z.^3)-(9/80).*(Y.^2).*(Z.^3))+((X.^2)+(9/4).*(Y.^2)+(Z.^2)-1).^3);
FV=isosurface(F,0);
hpnts=FV.vertices;
hpnts=(hpnts-repmat(mean(hpnts),[size(hpnts,1),1])).*repmat([.75,.7,.7],[size(hpnts,1),1]);
hpnts=hpnts+rand(size(hpnts)).*.7;
heartHdl=scatter3(hpnts(:,1),hpnts(:,2),hpnts(:,3),'.','SizeData',5,'CData',col1Func(size(hpnts,1)));% 计算星星位置并绘制星星
sx1=rand([2e3,1]).*120-60;
sy1=rand([2e3,1]).*120-60;
sz1=ones(size(sx1)).*-30;
star1Hdl=scatter3(sx1,sy1,sz1,'.','SizeData',szFunc(length(sx1)),'CData',col2Func(size(sx1,1)),'LineWidth',1);
sx2=rand([2e3,1]).*120-60;
sy2=rand([2e3,1]).*120-60;
sz2=rand([2e3,1]).*120-20;
star2Hdl=scatter3(sx2,sy2,sz2,'.','SizeData',szFunc(length(sx2)),'CData',[1,1,1]);% 坐标区域修饰
ax=gca;
ax.XLim=[-30,30];
ax.YLim=[-30,30];
ax.ZLim=[-40,30];
ax.Projection='perspective';
% ax.DataAspectRatio=[1,1,1];
view(-42,14);aFunc(1);
ax.Color=[0,0,0];
ax.XColor='none';
ax.YColor='none';
ax.ZColor='none';
set(ax,'LooseInset',[0,0,0,0]);
set(ax,'Position',[-1/5,-1/5,1+2/5,1+2/5])
set(gcf,'Color',[0,0,0]);% text(0,0,20,'slandarer','Color','w','HorizontalAlignment','center')% 旋转爱心和星星
theta1=0;theta2=0;theta3=0;
while 1theta1=theta1-0.01;theta2=theta2-0.003;theta3=theta3-0.02;set(heartHdl,'XData',hpnts(:,1).*cos(theta1)-hpnts(:,2).*sin(theta1),...'YData',hpnts(:,1).*sin(theta1)+hpnts(:,2).*cos(theta1))set(star1Hdl,'XData',sx1.*cos(theta2)-sy1.*sin(theta2),...'YData',sx1.*sin(theta2)+sy1.*cos(theta2))set(star2Hdl,'XData',sx2.*cos(theta3)-sy2.*sin(theta3),...'YData',sx2.*sin(theta3)+sy2.*cos(theta3))pause(0.05)
end
end

MATLAB | 两款粒子爱心复刻《点燃我，温暖你》相关推荐

HTML爱心代码 | 《点燃我温暖你》中男主角——理工男李峋同款
运行示例: 完整代码: 不知道怎么运行的,或者想添加背景图片的往后看!!!! HTML代码如下: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4. ...
跳动的爱心代码，点燃我温暖你爱心代码
如果能好好被爱,谁不想待在一个人身边一年有一年创建一个文本,代码粘贴进去,后缀改为html,浏览器打开即可 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HT ...
天锋w2019_天锋W2019复刻的如此登峰造极？网友大呼：三星你怎么看？
不管黑的白的红的绿的,对很多人来说能满足自己的需求就是顶呱呱.买手机也是如此,不管价位如何品牌与否,对很多年轻人来说只要可以接打电话刷抖音,用起来666,都可以选择收入囊中.毕竟在这个口号胜于本质的潮 ...
用Spring Boot复刻一款天猫商城，你可以做到！
日子一天天的在过,TJ君这两天一直有点惆怅,为啥呢?因为TJ君发现双11越来越近了,一想到等到了那天,TJ君的荷包会被某种不可抗拒之力打开大门,TJ君真是食不知味.寝食难安. 不过想到了双11就想到了 ...
MATLAB | 绘图复刻(二) | 折线图+误差棒+柱状图+散点抖动+灰色背景+图片叠加
看到gzh R语言ggplot2科研绘图发布了一篇绘图复刻类文章,复刻了: Nature(IF=49.962)文章(Gut microbiota modulates weight gain in mi ...
214 情人节来袭，电视剧《点燃我温暖你》李峋同款 Python爱心表白代码，赶紧拿去用吧
大家好,我是徐公,六年大厂程序员经验,今天为大家带来的是动态心形代码,电视剧 <点燃我温暖你>同款的,大家赶紧看看,拿去向你心仪的对象表白吧,下面说一下灵感来源. 灵感来源今天,早上起来 ...
超火的举牌加油小人生成器MATLAB复刻版(app designer)
突然发现cla函数也可以应用到app designer控件上,因而对部分内容做出更改. 手痒,用matlab app designer复刻了一款举牌加油小人生成器,效果如下: 该程序可以生成正方形和长 ...
MATLAB | 绘图复刻(三) | 分层聚类分析图：树状图+热图
好久不见啊,今天时绘图复刻第三期,这期画的比较难应该文章也不会太短... 前段时间发现公众号SCIPainter发布了一期名为<如何对基因和蛋白质的表达丰度进行相关性分析>,其中有一幅图很 ...
MATLAB | 绘图复刻(九) | 泰勒图及组合泰勒图
有粉丝问我这个图咋画: 我一看,这不就泰勒图嘛,就fileexchange上搜了一下泰勒图绘制代码,但是有的代码比较新的版本运行要改很多地方,有的代码需要包含一些压缩包没并没有的别人写的函数,于是我干 ...

MATLAB | 两款粒子爱心复刻《点燃我，温暖你》

粒子爱心1

粒子爱心2

MATLAB | 两款粒子爱心复刻《点燃我，温暖你》相关推荐

最新文章

热门文章

MATLAB | 两款粒子爱心 复刻《点燃我，温暖你》

粒子爱心1

粒子爱心2

MATLAB | 两款粒子爱心 复刻《点燃我，温暖你》相关推荐

最新文章

热门文章

MATLAB | 两款粒子爱心复刻《点燃我，温暖你》

MATLAB | 两款粒子爱心复刻《点燃我，温暖你》相关推荐