Формула любви: sharpc

sharpc

Формула любви

Mar 11, 2011 02:51

С подачи sie1over я ее таки получил. Слабо вывести лучше? :)

$\rho \left( \phi \right) = 6 + \left( 3 \left| \left( \frac{\phi}{\pi}-\frac12 \right) - 2 \lfloor \frac{ \left( \frac{\phi}{\pi}-\frac12 \right) + 1 }{2} \rfloor \right| - \frac32 \right)^3 - \\- \left( 3 \left| \left( \frac{\phi}{\pi}-\frac12 \right) - 2 \lfloor \frac{ \left( \frac{\phi}{\pi}-\frac12 \right) + 1 }{2} \rfloor \right| - \frac32 \right)^2$

Код на Maple:

modf := (x,y) -> frac(x/y) * y;
magic1 := x -> abs(modf(abs(x+1),2)-1);
magic2 := x -> 3 * (magic1((x - Pi/2)/Pi)-1/2);
magic3 := x -> x^3-x^2;
plot( 6 + magic3(magic2(x)), x = -Pi..Pi, coords = polar );

Перезалил картинку, на той забыл тыцнуть кнопку 1:1.

математика