The Heart of Euler

I could not resist to do a bit more with the heart function. Here is the plane heart again.

>plot2d("(x^2+y^2-1)^3-x^2*y^3",r=1.3, ...
   style="#",color=red,<outline, ...

Starting form this expression, we define a numerical expression, which computes the radius given the argument of (x,y).

>expr &= (x^2+y^2-1)^3-x^2*y^3
                           2    2     3    2  3
                         (y  + x  - 1)  - x  y
>function fr(r,a) &= expr with [x=r*cos(a),y=r*sin(a)] | trigreduce
              2     3   (sin(5 a) - sin(3 a) - 2 sin(a)) r
            (r  - 1)  + -----------------------------------
>function map f(a) := bisect("fr",0,2;a)

Once, we have this, we can plot the heart turned around the y-axis.

>t=linspace(-pi/2,pi/2,100); r=f(t);
>plot3d(r*cos(t)*sin(s),r*cos(t)*cos(s),r*sin(t), ...
> >hue,<frame,color=red,zoom=4.5,amb=0,max=0.7,grid=12):

Or, if we change the definition of s a little bit,


Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht.

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.