Category: авто

Category was added automatically. Read all entries about "авто".

Формула мандарина

1.44 x^2 + y^2 + z^2 + \frac1{\sqrt{|\cos{5 \mathrm{arctg} \frac{z}{y}}|}} + \frac1{y^2 + z^2} + \frac3{x^2 + y^2 + z^2} = 9

ContourPlot3D[
  1.44*x^2 + y^2 + z^2 + 1/Sqrt[Abs[Cos[5*ArcTan[z/y]]]] +
    1/(y^2 + z^2) + 3/(x^2 + y^2 + z^2) == 9,
  {x, -3, 3}, {y, -3, 3}, {z, -3, 3}, Mesh -> None,
  ContourStyle -> Directive[
    Specularity[RGBColor[1, 0.8, 0], 20], Orange,
    Lighting -> {{"Directional", White, {0, 0, 4}},
      {"Ambient", Darker[White]}}]]


Collapse )
  • Current Music
    ВИА Самоцветы — [Вся жизнь впереди #15] Багульник
  • Tags
    ,

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

С подачи 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 );


Collapse )
  • Current Music
    Caamora — [Journey's End... An Acoustic Anthology (CD1) #01] Journey's End (Bonus Track)
  • Tags