Kreslíme matematikou v Matlabe

Doplnené o obrázky vygenerované službou Plotly.

Make love, not war:

t = linspace(0, 2*pi, 1000);x = 16*(sin(t)).^3;y = 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t);plot(x, y, 'r');

Známa zelená rastlinka:

t = linspace(-pi, pi, 1000);y1 = (1+0.9*cos(8*t)).*(1+0.1*cos(24*t));y2 = ((0.9+0.05*cos(200*t)).*(1+sin(t)));polar(t, y1.*y2, 'g');

Lorenzov atraktor:

f = @(t, x) [10*(x(2)-x(1)); x(1)*(28-x(3))-x(2); x(1)*x(2)-8/3*x(3)];[t, y] = ode45(f, [0 20], [10 10 10]);plot3(y(:, 1), y(:, 2), y(:, 3));view(-6.5, 32);

Animovaná verzia: comet3(y(:, 1), y(:, 2), y(:, 3))

Nejaké "čudo judo":

t = linspace(0, 2*pi, 1000);x = sin(2*t);y = sin(3*t);plot(x, y);

Trigonometrická ryba:

f = @(t) sin(t).*cos(201*t);t = linspace(0, 1.1*pi, 1000);plot(t, f(t));

Smiley:

c=4;R = [];for x = linspace(-4, 4, 200)  for y = linspace(-4, 4, 200)    if ((x-1)^2+y^2-4)*((x+1)^2+y^2-4)*(x^2+(y-sqrt(3))^2-4) < c      R = [R; x y];    end  endendplot(R(:, 1), R(:, 2), 'm.');axis([-6 6 -5 5]);

Bonus: Gangnam style

Zdroj: http://functionspace.org/topic/360/What-are-the-funniest-beautiful-graph-s-equations-