詳解Matlab實現動態(tài)表白圖的繪制

第詳解Matlab實現動態(tài)表白圖的繪制目錄1.幸福和快樂的哲學追問2.提前祝女朋友節(jié)日快樂2.1展現2.2代碼

1.幸福和快樂的哲學追問

在過去的500年間，我們見證了一連串令人驚嘆的革命。地球在生態(tài)和歷史上都已經整合成一個單一的領域。經濟呈現指數增長，今日人類所享有的財富在過去只有可能出現在童話里。而科學和工業(yè)革命也帶給我們超人類的力量，以及幾乎可以說無限的能源。不僅社會秩序完全改變，政治、日常生活和人類心理也徹底改觀。

只不過，我們真的更快樂了嗎人類在過去5世紀間積蓄的財富，是不是真的讓我們找到了新的滿足感有了取之不盡的能源之后，我們是不是也得到了用之不竭的快樂如果我們往更久之前回顧，認知革命以來這動蕩不安的7萬年間，世界是不是真的變得更好﹖到現在，阿姆斯特朗的腳印還留在無風的月球上，而3萬年前也有個不知名的人，把手印留在雪維洞穴里;他們究竟誰比較快樂如果后來的人并沒有比較快樂，我們又為什么要發(fā)展農業(yè)、城市、文字、錢幣、帝國、科學和工業(yè)呢

歷史學家很少問這樣的問題。他們不去討論秦朝人是不是比先前采集為生的人更快樂，伊斯蘭興起后，埃及人是不是對生活更滿意，也不討論歐洲帝國在非洲崩潰之后，數百萬非洲人的幸福受到什么影響。然而，這些可以說是最重要的歷史問題。目前大多數的意識形態(tài)和政治綱領，雖然都說要追求人類幸福，但對于幸福快樂的真正來源為何卻還是不明就里。民族主義者會說政治自決能夠帶來快樂。共產主義者會說無產階級專政能夠帶來快樂。資本主義者會說自由市場能夠創(chuàng)造經濟成長，能夠教導人類自立自強、積極進取，所以能夠為最多人帶來最大的快樂。

如果經過仔細研究，結果全盤推翻了這些人的假設，情況會如何﹖如果經濟成長和自立自強并不會讓人更快樂，又何必將資本主義奉如圭臬【指尊崇信奉某人或事物，并且作為自己的準則?！咳绻芯匡@示大型帝國的屬民通常比獨立國家的公民更幸福，例如假設阿爾及利亞人被法國統治時比較快樂，那我們該怎么辦這樣一來，要怎樣評價去殖民化，民族自決的價值又該怎么說

2.提前祝女朋友節(jié)日快樂

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

%%制作出動態(tài)的隱形效果

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