又是一年情人節,今年帶來一款更有立體感的玫瑰:
曲面的函數表達式來自:
http://www.bugman123.com/Math/index.html
這個網站,上面還有很多其他帥氣的玩意。
基礎繪制
x=linspace(0,1,300);
theta=linspace(-2*pi,15*pi,300);
[x,theta]=meshgrid(x,theta);
phi=(pi/2).*exp(-theta./8./pi);
X=1-.5.*(1.25.*(1-mod(3.6.*theta,2*pi)./pi).^2-1/4).^2;
y=1.95653.*x.^2.*(1.27689.*x-1).^2.*sin(phi);
r=X.*(x.*sin(phi)+y.*cos(phi));
roseHdl=surf(r.*cos(theta),r.*sin(theta),X.*(x.*cos(phi)-y.*sin(phi)),'EdgeColor','none');
坐标區域修飾
在最後加入以下代碼能讓繪圖更好看一些:
% 坐标區域修飾
ax=gca;hold on;grid on;
axis([-1,1,-1,1,-.5,1])
ax.FontName='Cambria';
ax.LineWidth=1;
ax.GridLineStyle='-.';
ax.Projection='perspective';
ax.XMinorTick='on';
ax.YMinorTick='on';
ax.ZMinorTick='on';
配色
可以調整顔色映射方向:
比如根據半徑映射:
根據x軸坐标大小映射:
配色可以自己弄點數值矩陣插值,比如:
roseHdl.CData=r;
CM=[0.5300 0.8300 0.8100
0.5200 0.7500 0.8200
0.4900 0.6200 0.8400
0.4900 0.5600 0.8400
0.4700 0.4900 0.8500
0.4500 0.3500 0.8700
0.9500 0.9500 0.9500];
CMX=linspace(0,1,size(CM,1));
CMXX=linspace(0,1,256)';
CM=[interp1(CMX,CM(:,1),CMXX,'pchip'),interp1(CMX,CM(:,2),CMXX,'pchip'),interp1(CMX,CM(:,3),CMXX,'pchip')];
colormap(CM)
還可以配合之前寫的slanCM工具包:
https://blog.csdn.net/slandarer/article/details/127719784
随便舉點例子:
roseHdl.CData=r.*cos(theta);
CM=slanCM('blues');
colormap(CM)
roseHdl.CData=r;
CM=slanCM(134);
colormap(CM)
roseHdl.CData=r;
CM=slanCM(136);
colormap(CM)
旋轉
把代碼改成這樣就能一直旋轉:
function valentinesRose2
% 繪制玫瑰花
x=linspace(0,1,300);
theta=linspace(-2*pi,15*pi,300);
[x,theta]=meshgrid(x,theta);
phi=(pi/2).*exp(-theta./8./pi);
X=1-.5.*(1.25.*(1-mod(3.6.*theta,2*pi)./pi).^2-1/4).^2;
y=1.95653.*x.^2.*(1.27689.*x-1).^2.*sin(phi);
r=X.*(x.*sin(phi)+y.*cos(phi));
roseHdl=surf(r.*cos(theta),r.*sin(theta),X.*(x.*cos(phi)-y.*sin(phi)),'EdgeColor','none');
roseHdl.CData=r;
CM=slanCM('copper2');
CM=CM(1:180,:);
colormap(CM)
% 坐标區域修飾
ax=gca;hold on;grid on;
axis([-1,1,-1,1,-.5,1])
ax.FontName='Cambria';
ax.LineWidth=1;
ax.GridLineStyle='-.';
ax.Projection='perspective';
ax.XMinorTick='on';
ax.YMinorTick='on';
ax.ZMinorTick='on';
set(gcf,'Color',[1,1,1]);
% 循環繪圖旋轉起來
while true
theta=theta+.01;
roseHdl.XData=r.*cos(theta);
roseHdl.YData=r.*sin(theta);
pause(.01),drawnow
end
若想自動儲存為gif,把最後部分旋轉代碼改為如下部分即可:
% 存儲gif =================================================================
% R2022a及之後版本
n=0;
while true
theta=theta+.01;
roseHdl.XData=r.*cos(theta);
roseHdl.YData=r.*sin(theta);
if n<50
exportgraphics(gcf,'test1.gif','Append',true)
end
n=n+1;
pause(.01),drawnow
end
% R2022a之前版本
% n=0;DelayTime=.02;
% F=getframe(ax);
% [imind,cm]=rgb2ind(F.cdata,256);
% imwrite(imind,cm,'test2.gif','gif','Loopcount',inf,'DelayTime',DelayTime);
% while true
% theta=theta+.01;
% roseHdl.XData=r.*cos(theta);
% roseHdl.YData=r.*sin(theta);
% if n<50
% F=getframe(ax);
% [imind,cm]=rgb2ind(F.cdata,256);
% imwrite(imind,cm,'test2.gif','gif','WriteMode','append','DelayTime',DelayTime);
% end
% n=n+1;
% pause(.01),drawnow
% end