-
大小: 4KB文件類(lèi)型: .m金幣: 1下載: 0 次發(fā)布日期: 2021-06-16
- 語(yǔ)言: Matlab
- 標(biāo)簽:
資源簡(jiǎn)介
用matlab編寫(xiě)的表白代碼,可自行更換文字、名字,歡迎使用~
代碼片段和文件信息
%?%單純3D心
%?clear
%?clc
%?[xyz]=meshgrid(linspace(-1.31.3));
%?val=(x.^2?+?(9/4)*y.^2?+?z.^2?-?1).^3?-?x.^2.*z.^3?-?(9/80)*y.^2.*z.^3;
%?isosurface(xyzval0)
%?axis?equal
%?view(-1024)
%?colormap?flag
%?camlight
%?lighting?phong
%?title(‘\fontsize{16}I?Love?You!‘);
%?axis?off
%?%動(dòng)畫(huà)黑白3D心
%?%構(gòu)造體積方程和坐標(biāo)軸,畫(huà)出圖形;
%?[XYZ]?=?meshgrid(linspace(-33101));
%?%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‘NextPlot‘‘a(chǎn)dd‘‘DataAspectRatio‘[1?1?1]‘XLim‘[30?120]‘YLim‘[35?65]‘ZLim‘[30?75]);
%?view([-39?30]);
%?axis?off
%?%?制作出動(dòng)態(tài)的隱形效果;
%?hidden?on
%?%?畫(huà)出網(wǎng)格,制作網(wǎng)格動(dòng)態(tài)效果;
%?
%?%?快渲染心得背面:
%?p?=?patch(isosurface(F-0.001));
%?set(p‘FaceColor‘‘w‘‘EdgeColor‘‘w‘);
%?
%?%?構(gòu)造Y-Z平面描完函數(shù)在該平面的點(diǎn):
%?for?iX?=?[35?38?41?45?48?51?54?57?61?64?67]
%?????plane?=?reshape(F(:iX:)101101);
%?????cData?=?contourc(plane[0?0]);
%?????xData?=?iX.*ones(1cData(21));
%?????plot3(hAxesxDatacData(22:end)cData(12:end)‘k‘);
%?????pause(.1)?drawnow
%?end
%?%?構(gòu)造X-Z平面描完函數(shù)在該平面的點(diǎn):
%?for?iY?=?[41?44?47?51?55?58?61]
%?????plane?=?reshape(F(iY::)101101);
%?????cData?=?contourc(plane[0?0]);
%?????yData?=?iY.*ones(1cData(21));
%?????plot3(hAxescData(22:end)yDatacData(12:end)‘k‘);
%?????pause(.1)?drawnow
%?end
%?%?構(gòu)造X-Y平面描完函數(shù)在該平面的點(diǎn):
%?for?iZ?=?[36?38?40?42?44?46?48?50?52?54?56?58?60?62?64?66?69?71]
%?????plane?=?F(::iZ);
%?????cData?=?contourc(plane[0?0]);
%?????startIndex?=?1;
%?????if?size(cData2)?>?(cData(21)+1)
%?????????startIndex?=?cData(21)+2;
%?????????zData?=?iZ.*ones(1cData(21));
%?????????plot3(hAxescData(12:(startIndex-1))cData(22:(startIndex-1))zData‘k‘);
%?????end
%?????zData?=?iZ.*ones(1cData(2startIndex));
%?????plot3(hAxescData(1(startIndex+1):end)cData(2(startIndex+1):end)zData‘k‘);
%?????pause(.1)?drawnow
%?end
%?
%?%函數(shù)已經(jīng)畫(huà)完接下來(lái)為文字部分
評(píng)論
共有 條評(píng)論