详解Matlab实现动态表白图的绘制

第详解Matlab实现动态表白图的绘制目录1.幸福和快乐的哲学追问2.提前祝女朋友节日快乐2.1展现2.2代码

1.幸福和快乐的哲学追问

在过去的500年间，我们见证了一连串令人惊叹的革命。地球在生态和历史上都已经整合成一个单一的领域。经济呈现指数增长，今日人类所享有的财富在过去只有可能出现在童话里。而科学和工业革命也带给我们超人类的力量，以及几乎可以说无限的能源。不仅社会秩序完全改变，政治、日常生活和人类心理也彻底改观。

只不过，我们真的更快乐了吗人类在过去5世纪间积蓄的财富，是不是真的让我们找到了新的满足感有了取之不尽的能源之后，我们是不是也得到了用之不竭的快乐如果我们往更久之前回顾，认知革命以来这动荡不安的7万年间，世界是不是真的变得更好﹖到现在，阿姆斯特朗的脚印还留在无风的月球上，而3万年前也有个不知名的人，把手印留在雪维洞穴里;他们究竟谁比较快乐如果后来的人并没有比较快乐，我们又为什么要发展农业、城市、文字、钱币、帝国、科学和工业呢

历史学家很少问这样的问题。他们不去讨论秦朝人是不是比先前采集为生的人更快乐，伊斯兰兴起后，埃及人是不是对生活更满意，也不讨论欧洲帝国在非洲崩溃之后，数百万非洲人的幸福受到什么影响。然而，这些可以说是最重要的历史问题。目前大多数的意识形态和政治纲领，虽然都说要追求人类幸福，但对于幸福快乐的真正来源为何却还是不明就里。民族主义者会说政治自决能够带来快乐。共产主义者会说无产阶级专政能够带来快乐。资本主义者会说自由市场能够创造经济成长，能够教导人类自立自强、积极进取，所以能够为最多人带来最大的快乐。

如果经过仔细研究，结果全盘推翻了这些人的假设，情况会如何﹖如果经济成长和自立自强并不会让人更快乐，又何必将资本主义奉如圭臬【指尊崇信奉某人或事物，并且作为自己的准则。】如果研究显示大型帝国的属民通常比独立国家的公民更幸福，例如假设阿尔及利亚人被法国统治时比较快乐，那我们该怎么办这样一来，要怎样评价去殖民化，民族自决的价值又该怎么说

2.提前祝女朋友节日快乐

2.1展现

这里没上传视频图，放最后一张成品：

2.2代码

漂亮的颜色随你挑：

clear

%%构造体积方程和坐标轴

[X,Y,Z]=meshgrid(linspace(-3,3,101));

%%3D心型图方程

F=-X.^2.*Z.^3-(9/80).*Y.^2.*Z.^3+(X.^2+(9/4).*Y.^2+Z.^2-1).^3;

%%展开画布

hFigure=figure;

sz=get(hFigure,'Position');

set(hFigure,'Position',[sz(1)-0.15*sz(3)sz(2)1.3*sz(3)sz(4)]);%设置画布大小

set(hFigure,'color','w','menu','none')%隐藏菜单，颜色做白

hAxes=axes('Parent',hFigure,...

'DataAspectRatio',[111],...

'XLim',[30120],'YLim',[3565],'ZLim',[3075]);

view([-3930]);%视角

axisoff%关闭坐标轴

%hiddenon

%%制作出动态的隐形效果

p=patch(isosurface(F,0));

set(p,'FaceColor','none','EdgeColor','none');%心形线和面隐藏

alpha(0);%使其为0透明度以便显示文字

text(45,50,60,'WLZ','fontweight','bold','fontsize',25,'color','m');%显示出文字

pause(2)

holdon

%%描出Y-Z平面的心形轮廓

foriX=35:1:67

plane=reshape(F(:,iX,:),101,101);

cData=contourc(plane,[00]);

xData=iX.*ones(1,cData(2,1));

plot3(hAxes,xData,cData(2,2:end),cData(1,2:end),'r');

pause(0.1),drawnow

%%描出X-Z平面的心形轮廓

foriY=41:2:61

plane=reshape(F(iY,:,:),101,101);

cData=contourc(plane,[00]);

yData=iY.*ones(1,cData(2,1));

plot3(hAxes,cData(2,2:end),yData,cData(1,2:end),'r');

pause(.5),drawnow

%%描出X-Y平面的心形轮廓

foriZ=36:1:71

plane=F(:,:,iZ);

cData=contourc(plane,[00]);

startIndex=1;

ifsize(cData,2)(cData(2,1)+1)

startIndex=cData(2,1)+2;

zData=iZ.*ones(1,cData(2,1));

plot3(hAxes,cData(1,2:(startIndex-1)),...

cData(2,2:(startIndex-1)),zData,'r');

zData=iZ.*ones(1,cData(2,startIndex));

plot3(hAxes,cData(1,(startIndex+1):end),...

cData(2,(startIndex+1):end),zData,'r');

pause(.1),drawnow

%%给三维心着色补光

alpha(1)%恢复透明度

set(p,'facecolor','m','edgecolor','none');

camlight%补光

lightinggouraud

pause(.2)

line([2080],[5050],[52.52.5],'color','r')

line([5050],[2080],[52.552.5],'color','r')

line([5050],[5050],[3080],'color','r')

pause(0.5)

%文字部分;

text(0,50,107,'好好疼你，陪你长大\heartsuit','fontweight','bold','fontsize',25,'color','r');

pause(2)

text(7,100,70,['WLZ\heartsuit'],'fontWeight','bold','FontAngle','italic','FontName','TrebuchetMS','fontsize',45,'Color','c');

pause(.5)

text(80,50,43,'YOU','fontWeight','bold','FontAngle','italic','FontName','TrebuchetMS','fontsize',60,'Color','k');

pause(.2)

text(75,5,40,'超级爱你\heartsuit','fontWeight','bold','FontAngle','italic','FontName','TrebuchetMS','fontsize',20,'Color','g');

pause(.2)

text(120,0,20,'xys\heartsuit','fontWeight','bold','FontAngle','italic','FontName','TrebuchetMS','fontsize',10,'Color','r');

pause(.2)

uicontrol(hFigure,'Style','Edit','Units','normalized','Position',[0,0.8,1,0.12],...

'Backgroundcolor','[0,1,1]','String','520快乐','Fontsize',40,'Foregroundcolor','[1,0,1]');

pause(.5)

uicontrol(hFigure,'Style','Edit','Units','normalized','Position',[0,0.8,1,0.12],...

'Backgroundcolor','[0.3,0.75,0.93]','String','520快乐','Fontsize',40,'Foregroundcolor','[1,0,1]');

pause(.5)

uicontrol(hFigure,'Style','Edit','Units','normalized','Position',[0,0.8,1,0.12],...

'Backgroundcolor','[1,0.5,0]','String','520快乐','Fontsize',40,'Foregroundcolor','[1,0,1]');

pause(.5)

uicontrol(hFigure,'Style','Edit','Units','normalized','Position',[0,0.8,1,0.12],...

'Backgroundcolor','[1,1,1]','String','520快乐','Fontsize',40,'Fore