送给她一朵漂亮的百合花（Matlab代码实现）

目录

​​1 思卿不见倍思亲​​

​​2 送她一朵小百合——Matlab代码 ​​

1 思卿不见倍思亲

见到她感觉还好，一天不见心里总是空落落的，有点想丢了魂.......

红尘万千相遇，人海熙熙攘攘，总觉得，我当是前世修来的福分，所以才会在今世红尘中与你相遇。

见卿一眼，倾亲一心，陪丽一程，思姿一世。

我漫步于阳光下的春风里，春风翩跹，相思痴缠，关于你的一切记忆，在我脑海中串联成挥之不去的美丽。

在我回忆的世界里，一个我，一个你，我和你相眷，相惜，相知，相懂，那些爱的温软与盈动，将这红尘间的薄凉尽数消弭。

那年，那月，你就是我的全世界，你就是我心中全部的依恋。

2 送她一朵小百合——Matlab代码 

%===欢迎关注公众号：电力系统与算法之美===========

function y=hb(x)

[m n]=size(x);

for i=1:m
    
    for j=1:n
        
        if rem(x(i,j),2*pi)>=0&&rem(x(i,j),2*pi)<0.5*pi
            
            y(i,j)=sin(2*x(i,j)-0.5*pi)+1
            
        elseif rem(x(i,j),2*pi)>=0.5*pi&&rem(x(i,j),2*pi)<1.5*pi
            
            y(i,j)=2
            
        elseif rem(x(i,j),2*pi)>=1.5*pi&&rem(x(i,j),2*pi)<2*pi
            
            y(i,j)=-cos(2*x(i,j))+1
            
        end
        
    end
    
end

end

t=0:0.01*pi:2*pi

for i=1:5

r(i,:)=i-0.9:0.1:i+0.1;

end

%绘制花瓣

for i=1:5

a=r(i,:);

b=t;

[a,b]=meshgrid(a,b)

z=(log(a)+5).*hb(5*b+pi*i).*abs(sin(pi*a))

[x,y,z]=pol2cart(b,a,z)

surf(x,y,z,(40+i)*ones(size(z)))

hold on

end

%绘制花托

[xx,yy]=meshgrid(-5:0.1:5);

h=2*cos((xx.^2+yy.^2).^0.5)-0.64;

surf(xx,yy,h,27*ones(size(h)));

hold on

%绘制补色

xxx=[-0.1 0.1];

yyy=xxx;

[xxx,yyy]=meshgrid(xxx,yyy);

c=zeros(size(xxx))

for i=1:50

surf(xxx,yyy,c,i*ones(size(c)))

hold on

end