💥💥💞💞欢迎来到本博客❤️❤️💥💥
🏆博主优势:🌞🌞🌞博客内容尽量做到思维缜密,逻辑清晰,为了方便读者。
⛳️座右铭:行百里者,半于九十。
📋📋📋本文目录如下:🎁🎁🎁
目录
目录
💥1 概述
在星光下的夜晚蔓延,
心中的波澜如潮水般喧嚣。
思念的光辉照亮着黑夜,
诗意的时刻,我要告白。
月亮婆娑舞动银辉,
你的笑容,是星辰的灿烂。
在这宇宙中,我找到了你,
像彩虹穿越暴雨的坚强。
我要用心中的音符,
弹奏出爱的旋律。
那是一曲轻柔的夜曲,
为你而创作,为你而奏响。
你的眼眸,是星空的传说,
闪烁着爱的光芒。
我要在这宇宙的边缘,
为你写下一篇告白的篇章。
在时光的编织机里,
我将我们的故事纺织。
每一个瞬间都是诗,
你是我心中永远的旋律。
今夜,我要将心声诉说,
宇宙见证,我深深爱着你。
从地球到星辰,不远不近,
只为与你一起闪烁。
亲爱的,你是我的彩虹,
给我生命带来美妙的颜色。
在这宇宙尽头,我倾诉,
愿你愿意,与我携手。
📚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');
文章中一些内容引自网络,会注明出处或引用为参考文献,难免有未尽之处,如有不妥,请随时联系删除。