Graficar un corazon con R mediante ecuaciones parametricas

Hola, para grficar un corazon en R se necesitan sus ecuaciones parametricas que son las siguientes:

Pasandolas de tal forma que R pueda entenderlas:

t <- seq(-pi, pi, length=100)

x <- 12 * sin(t) - 4 * sin(3 * t) 

y <- 13 * cos(t) - 5 * cos(2*t) * 2 - cos(3 * t) - cos(4 * t)

plot(x,y, type="l", col="red", las=1, asp =1)

 

En la primera linea se genera el intervalo de valores de t, en la segunda linea se adecua la ecuacion para x, en la tercera para y, en la cuarta linea se da la orde para que la grafica sea realizada (color roja, y linea en vez de puntos).

El resultado es el siguiente:

graficar corazon ecuaciones R

Cualquier cosa pregunten; saludos desde Colombia papá =)

Anuncios