0


520拿去表白,表白不成功你打我(Matlab代码动态图)

1 幸福和快乐的哲学追问

在过去的500年间,我们见证了一连串令人惊叹的革命。地球在生态和历史上都已经整合成一个单一的领域。经济呈现指数增长,今日人类所享有的财富在过去只有可能出现在童话里。而科学和工业革命也带给我们超人类的力量,以及几乎可以说无限的能源。不仅社会秩序完全改变,政治、日常生活和人类心理也彻底改观。
只不过,我们真的更快乐了吗?人类在过去5世纪间积蓄的财富,是不是真的让我们找到了新的满足感?有了取之不尽的能源之后,我们是不是也得到了用之不竭的快乐?如果我们往更久之前回顾,认知革命以来这动荡不安的7万年间,世界是不是真的变得更好﹖到现在,阿姆斯特朗的脚印还留在无风的月球上,而3万年前也有个不知名的人,把手印留在雪维洞穴里;他们究竟谁比较快乐?如果后来的人并没有比较快乐,我们又为什么要发展农业、城市、文字、钱币、帝国、科学和工业呢?
历史学家很少问这样的问题。
他们不去讨论秦朝人是不是比先前采集为生的人更快乐,伊斯兰兴起后,埃及人是不是对生活更满意,也不讨论欧洲帝国在非洲崩溃之后,数百万非洲人的幸福受到什么影响。
然而,这些可以说是最重要的历史问题。目前大多数的意识形态和政治纲领,虽然都说要追求人类幸福,但对于幸福快乐的真正来源为何却还是不明就里。民族主义者会说政治自决能够带来快乐。共产主义者会说无产阶级专政能够带来快乐。资本主义者会说自由市场能够创造经济成长,能够教导人类自立自强、积极进取,所以能够为最多人带来最大的快乐。
如果经过仔细研究,结果全盘推翻了这些人的假设,情况会如何﹖如果经济成长和自立自强并不会让人更快乐,又何必将资本主义奉如圭臬?【****指尊崇信奉某人或事物,并且作为自己的准则。】如果研究显示大型帝国的属民通常比独立国家的公民更幸福,例如假设阿尔及利亚人被法国统治时比较快乐,那我们该怎么办?这样一来,要怎样评价去殖民化,民族自决的价值又该怎么说?


2 提前祝女朋友节日快乐

2.1 展现

这里没上传视频图,放最后一张成品:

2.2 代码

漂亮的颜色随你挑:

clear
clc
tic
%% 构造体积方程和坐标轴
[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',[1 1 1],...? ??
'XLim',[30 120], 'YLim',[35 65], 'ZLim',[30 75]);
view([-39 30]);    %视角
axis off           %关闭坐标轴

%hidden on 

%% 制作出动态的隐形效果
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)
hold on 

%% 描出Y-Z平面的心形轮廓
for iX = 35:1:67
plane = reshape(F(:,iX,:),101,101);
cData = contourc(plane,[0 0]);
xData = iX.*ones(1,cData(2,1));
plot3(hAxes,xData,cData(2,2:end),cData(1,2:end),'r');
pause(0.1), drawnow
end
%% 描出X-Z平面的心形轮廓
for iY = 41:2:61
 plane = reshape(F(iY,:,:),101,101);
 cData = contourc(plane,[0 0]);
 yData = iY.*ones(1,cData(2,1));
 plot3(hAxes,cData(2,2:end),yData,cData(1,2:end),'r');
  pause(.5), drawnow 
end
%% 描出X-Y平面的心形轮廓
for iZ = 36:1:71
    plane = F(:,:,iZ);
    cData = contourc(plane,[0 0]);
 startIndex = 1;
 if size(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');
 end
 zData = iZ.*ones(1,cData(2,startIndex));
 plot3(hAxes,cData(1,(startIndex+1):end),...??????
 cData(2,(startIndex+1):end),zData,'r');
pause(.1), drawnow
end

%% 给三维心着色补光
alpha(1)              %恢复透明度
set(p,'facecolor','m','edgecolor','none');
camlight               %补光
lighting gouraud
pause(.2)

%做线
line([20 80],[50 50],[52.5 2.5], 'color','r')
line([50 50],[20 80],[52.5 52.5], 'color','r')
line([50 50],[50 50],[30 80], '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','Trebuchet?MS','fontsize',45,'Color','c');
pause(.5)
text(80,50,43,'YOU', 'fontWeight','bold','FontAngle','italic','FontName','Trebuchet?MS','fontsize',60,'Color','k');
pause(.2)
text(75,5,40,'超级爱你\heartsuit', 'fontWeight','bold','FontAngle','italic','FontName','Trebuchet?MS','fontsize',20,'Color','g');
pause(.2)
text(120,0,20,'xys\heartsuit', 'fontWeight','bold','FontAngle','italic','FontName','Trebuchet?MS','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,'Foregroundcolor','[1,1,1]');
pause(.5)
uicontrol(hFigure,'Style','Edit','Units','normalized','Position',[0,0.8,1,0.12],...
    'Backgroundcolor','[1,1,0]','String','520快乐','Fontsize',40,'Foregroundcolor','[1,1,1]');
toc 
标签: matlab 开发语言

本文转载自: https://blog.csdn.net/weixin_46039719/article/details/124835095
版权归原作者 电力系统与算法之美 所有, 如有侵权,请联系我们删除。

“520拿去表白,表白不成功你打我(Matlab代码动态图)”的评论:

还没有评论