Criando Ovos de Páscoa no R!

domingo, 12 de maio de 20130 comentários




Nada como utilizar o R para algo tão útil! rsrs

Para que tenhas um pouco mais de entendimento sobre o que seria esse ovo, ele não passa de uma perturbação de uma esfera conforme podes ver na fórmula abaixo:


Onde c=0.2,b=0.3
.
Para criar este incrível Ovo de Páscoa, basta utilizar o código abaixo. P.S.: É necessário instalar o pacote 'rgl'.


meshgrid <- function(a, b) {
  list(x = outer(b * 0, a, FUN = "+"), y = outer(b, a * 0, FUN = "+"))
}
library(rgl)
c = 0.2
b = 1.7
theta = seq(0, 2 * pi, length = 40 * 4)
phi = seq(0, pi, length = 40 * 4)
theta1 = meshgrid(theta, phi)$x
phi2 = meshgrid(theta, phi)$y
x = (1 + c * phi2) * sin(phi2) * cos(theta1)
y = (1 + c * phi2) * sin(phi2) * sin(theta1)
z <- b * cos(phi2)
surface3d(x, y, z, color = rainbow(10))
par3d(zoom = 0.7)

Para outras curiosas aplicações do R recomendo: vis.supstat.com

Compartilhe :
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Estatisti.co - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger