1. Ocho.

\[\begin{equation*} r=\sqrt{|sen(\theta)|} \end{equation*}\]

t <- deg2rad(seq(0, 360, by = 2))
polar(t, sqrt(abs(sin(t))),  main = "Ocho",bxcol="red",col="red",lwd=3)

2. Ocho acostado.

\[\begin{equation*} r=\sqrt{|cos(\theta)|} \end{equation*}\]

t <- deg2rad(seq(0, 360, by = 2))
polar(t, sqrt(abs(cos(t))),  main = "Ocho acostado",bxcol="red",col="red",lwd=3)

3. Espiral de Arquímedes.

\[\begin{equation*} r=\theta \end{equation*}\]

t <- deg2rad(seq(0, 4*360, by = 2))
polar(t, t, bxcol="red",col="blue",main="Espiral de Arquimedes",lwd=3)

4. Espiral de Arquímedes.

t <- deg2rad(seq(0, 4*360, by = 2))
polar(t, -t, bxcol="red",col="blue",main="Espiral de Arquimedes",lwd=3)

5. Circunferencia tangente al eje Y.

\[\begin{equation*} r=2 cos(\theta) \end{equation*}\]

t <- deg2rad(seq(-180, 180, by = 2))
polar(t,2*cos(t), bxcol="blue",col="green",lwd=3,main="Circunferencia tangente al eje y")

6. Circunferencia tangente al eje Y.

t <- deg2rad(seq(-180, 180, by = 2))
polar(t,-2*cos(t), bxcol="blue",col="green",lwd=3,main="Circunferencia tangente al eje y")

7. Dos circunferencias tangentes al eje Y.

t <- deg2rad(seq(-180, 180, by = 2))
polar(t,-2*abs(cos(t)), bxcol="blue",col="green",lwd=3,main="Dos Circunferencias tangente al eje y")

8. Circunferencia tangente al eje X.

\[\begin{equation*} r=2 sen(\theta) \end{equation*}\]

t <- deg2rad(seq(-180, 180, by = 2))
polar(t,2*sin(t), bxcol="blue",col="yellow",lwd=3,main="Circunferencia tangente al eje X")

9. Circunferencia tangente al eje X.

t <- deg2rad(seq(-180, 180, by = 2))
polar(t,-2*sin(t), bxcol="blue",col="yellow",lwd=3,main="Circunferencia tangente al eje X")

10. Dos circunferencias tangentes al eje X,

t <- deg2rad(seq(-180, 180, by = 2))
polar(t,2*abs(sin(t)), bxcol="blue",col="yellow",lwd=3,main="Dos circunferencias tangentes al eje X")

11. Rosa de 3 pétalos.

\[\begin{equation*} r=sen(3\theta) \end{equation*}\]

t <- deg2rad(seq(-180, 180, by = 2))
polar(t,sin(3*t), bxcol="blue",col="pink",lwd=3,main="Rosa de 3 pétalos")

12. Rosa de 4 pétalos.

\[\begin{equation*} r=sen(2\theta) \end{equation*}\]

t <- deg2rad(seq(-180, 180, by = 2))
polar(t,sin(2*t), bxcol="blue",col="pink",lwd=3,main="Rosa de 4 pétalos")

13. Trébol de 4 hojas.

\[\begin{equation*} r=\sqrt{|(2*\theta)|} \end{equation*}\]

t <- deg2rad(seq(0, 360, by = 2))
polar(t,sqrt(abs(cos(2*t))), bxcol="blue",lwd=3,col="purple",main="Trébol de 4 hojas ")

14. Cardioide.

\[\begin{equation*} r=1+cos(\theta) \end{equation*}\]

t <- deg2rad(seq(0, 360, by = 2))
polar(t,1+cos(t), bxcol="blue",col="orange",main="Cardioide",lwd=3)

15. Cardioide.

t <- deg2rad(seq(0, 360, by = 2))
polar(t,1-cos(t), bxcol="blue",col="orange",main="Ccardioide",lwd=3)

16. Cardioide.

t <- deg2rad(seq(0, 360, by = 2))
polar(t,2+2*sin(t), bxcol="blue",col="orange",main="cCrdioide",lwd=3)

17. Cardioide.

t <- deg2rad(seq(0, 360, by = 2))
polar(t,2-2*sin(t), bxcol="blue",col="orange",main="cCrdioide",lwd=3)

18. Cardioide con lazo.

t <- deg2rad(seq(0, 360, by = 2))
polar(t,1+2*sin(t), bxcol="blue",col="red",main="Cardioide con lazo ",lwd=3)

19. Cardioide con lazo.

t <- deg2rad(seq(0, 360, by = 2))
polar(t,1-2*sin(t), bxcol="blue",col="red",main=" Cardioide  con lazo",lwd=3)

20. Cardioide con lazo.

t <- deg2rad(seq(0, 360, by = 2))
polar(t,1+2*cos(t), bxcol="blue",col="red",main="Cardioide con lazo ",lwd=3)

21. Cardioide con lazo.

t <- deg2rad(seq(0, 360, by = 2))
polar(t,1-2*cos(t), bxcol="blue",col="red",main=" Cardioide con lazo",lwd=3)

22. Lemniscata.

t <- deg2rad(seq(0, 360, by = 2))
polar(t,sqrt(10*cos(2*t)), bxcol="blue",col="red",main=" Lemniscata",lwd=3)
## Warning in sqrt(10 * cos(2 * t)): Se han producido NaNs

23. Lemniscata.

t <- deg2rad(seq(0, 360, by = 2))
polar(t,sqrt(-10*sin(2*t)), bxcol="blue",col="red",main=" Lemniscata",lwd=3)
## Warning in sqrt(-10 * sin(2 * t)): Se han producido NaNs

24. Caracol.

t <- deg2rad(seq(0, 360, by = 2))
polar(t,2+6*cos(2*t), bxcol="blue",col="red",main="Caracol ",lwd=3)

|-|-|-|

Paquete utilizado: pracma

O.M.F.