快捷導(dǎo)航

Matlab實(shí)現(xiàn)繪制立體玫瑰花的示例代碼

更新時(shí)間：2023年02月16日 09:44:55 作者：slandarer

這篇文章主要介紹了如何利用Matlab實(shí)現(xiàn)繪制更立體的玫瑰花，文中的示例代碼講解詳細(xì)，對我們學(xué)習(xí)Matlab有一定的幫助，需要的可以參考一下

基礎(chǔ)繪制

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');

坐標(biāo)區(qū)域修飾

在最后加入以下代碼能讓繪圖更好看一些：

% 坐標(biāo)區(qū)域修飾
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';

配色

可以調(diào)整顏色映射方向：

比如根據(jù)半徑映射：

roseHdl.CData=r;

根據(jù)x軸坐標(biāo)大小映射：

roseHdl.CData=r.*cos(theta);

配色可以自己弄點(diǎn)數(shù)值矩陣插值，比如：

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工具包：MATLAB全網(wǎng)最全的colormap的使用教程詳解

隨便舉點(diǎn)例子：

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)

旋轉(zhuǎn)

把代碼改成這樣就能一直旋轉(zhuǎn)：

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)


% 坐標(biāo)區(qū)域修飾
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]);

% 循環(huán)繪圖旋轉(zhuǎn)起來
while true
    theta=theta+.01;
    roseHdl.XData=r.*cos(theta);
    roseHdl.YData=r.*sin(theta);
    pause(.01),drawnow
end

若想自動保存為gif，把最后部分旋轉(zhuǎn)代碼改為如下部分即可：

% 存儲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