Code covered by the BSD License

# Valentines Day Greetings

### Ajit ranjan (view profile)

Just a Mathematical relationship ...

Valentines_beating_heart.m
```% Written by Ajit kumar Ranjan on 5th Feb, 2013.
% Dedicated to Cleve Molar Sir!! & MathWorks &
% Please use the code if anyone wants to !!
clc;
clear all;
close all;
h=figure('color','k');axis off;
hold on;
syms x y
s=uicontrol('style','pushbutton','units','normal','position',[.05 .05 .12 .05],'string','Close','callback','close all');
i=0.25;x=0;
a=[-1.5-(x*i) 1.5+(x*i) -1.5-(x*i) 1.5+(x*i)];
text(a(1)+0.01,a(3)+0.05,'Valentine''s Day Special','color','w','fontsize',2*get(0,'defaulttextfontsize'));
a=randn(1,75);c=randn(1,75);
h1=plot(a,c);
set(h1,'linestyle','none','marker','*','markersize',10,'color','r');axis tight;axis off;axis equal;
iter=0;
while(iter<10)
x=3;i=0.25;
while((x*i)<=2.00 && (x*i)>0)
f1=inline('x.^6+y.^6+3*(x.^4)*(y.^2)+3*(x.^2)*(y.^4)-(x.^2)*(y.^3)-3*(x.^4)-6*(x.^2)*(y.^2)-3*(y.^4)+3*(x.^2)+3*(y.^2)-1');
f2=vectorize(f1);
h=ezplot(f2);axis([-1.5-(x*i) 1.5+(x*i) -1.5-(x*i) 1.5+(x*i)]);
set(h,'LineWidth',6);
set(h,'LineStyle','-.');
x=x-1;
drawnow;
end
pause(0.3);
x=3;i=0.25;
while((x*i)<=0.90)
f1=inline('x.^6+y.^6+3*(x.^4)*(y.^2)+3*(x.^2)*(y.^4)-(x.^2)*(y.^3)-3*(x.^4)-6*(x.^2)*(y.^2)-3*(y.^4)+3*(x.^2)+3*(y.^2)-1');
f2=vectorize(f1);
h=ezplot(f2);axis([-1.5-(x*i) 1.5+(x*i) -1.5-(x*i) 1.5+(x*i)]);
set(h,'LineWidth',6);
set(h,'LineStyle','-.');
x=x+1;
drawnow;
end
iter=iter+1;
end```