matlab 玫瑰,MATLAB绘制美丽玫瑰代码

function plot_rose

draw_main(450,90);

function draw_main(x,y)

%粉红色玫瑰

arcdata{1}=[65-601503508

66-543004708

65-563023010

64-5730049017];

ellipsedata{1}=[73-302504502740

59-301002902740

65-401402702030];

arcdata{2}=[0015035012

1828047012

023023016

038024028

2818033022

-2231046025];

ellipsedata{2}=[-12301203003040

10282504233042

-4102903933040];

ellipsedata{3}=[120503601525];

ellipsedata{4}=[-701003601420];

rose_e{2}=[x+16y+322353552635

x-15y+321903103035

x+0y+351903504350];

rose_e{1}=[x+80y-482203502250

x+50y-481903202250

x+65y-281803603650];

rose_e{3}=[x+120y-62003401725

x+120y+71603801727];

rose_e{4}=[x-70y+151403901720

x-75y-102053401030

x-60y-10195340530];

arcdata{3}=[0821903506];

ss={'m','r','b','y'};

s0={'k','k','g'};

figure('menubar','none','numbertitle','off','name','美丽玫瑰');

%figure('numbertitle','off','name','rose');

hold on

for j=1:length(ellipsedata)

for i=1:size(ellipsedata{j},1)

rectangle('Position',[x+ellipsedata{j}(i,1)-ellipsedata{j}(i,5),y+ellipsedata{j}(i,2)-ellipsedata{j}(i, 6),2*ellipsedata{j}(i,5),2*ellipsedata{j}(i,6)],'Curvature',[1,1],'FaceColor',ss{j})