Por cierto...
NO LO HE HECHO YO, eh?

Esta es la fuente...
http://experienceinstatistics.blogspot.com.es/2010/12/feliz-navidad-con-r.html


Un Saludo,
Miguel.




De: Carlos Ortega [mailto:cof@qualityexcellence.es]
Enviado el: viernes, 14 de diciembre de 2012 12:49
Para: Rodríguez Muíños, Miguel Ángel
CC: Lista R
Asunto: Re: [R-es] Feliz Navidad (R code)

Uf, disculpad del copy&paste introduje un bucle adicional.

Este es el código correcto...

###########################################
win.graph(width=800, height=600)
for (j in 1:999) {
  th = th - pi/120
  center.x = 3 + 5 * cos(th)
  cols = c(cols[-1], cols[1])
  alpha = 0.1 + (50 * (1 - sin(th)))/100
  alpha = ifelse(alpha > 1, 1, alpha)
  xscale = -sin(th) * 1.2
  plot(1, xlim = c(-2, 8), ylim = c(-2.5, 3.5), type = "n", axes=F, ylab="", xlab="")
  plot.order = (1:12)[order(xscale > 0)]
  for (k in 1:12) {
    i = plot.order[k]
    draw.ch<http://draw.ch>(x1[[i]], y1[[i]], x2[[i]], y2[[i]], center.x[i],
            color = cols[k + 60 * ( i >= 6 & i <= 8 ) + 120 *
                           (i > 8)], alpha[i], xscale[i])
  }
}
########################################



2012/12/14 Carlos Ortega <cof@qualityexcellence.es<mailto:cof@qualityexcellence.es>>
####################################
win.graph(width=800, height=600)
for (j in 1:999) {
for (j in 1:999) {
  th = th - pi/120
  center.x = 3 + 5 * cos(th)
  cols = c(cols[-1], cols[1])
  alpha = 0.1 + (50 * (1 - sin(th)))/100
  alpha = ifelse(alpha > 1, 1, alpha)
  xscale = -sin(th) * 1.2
  plot(1, xlim = c(-2, 8), ylim = c(-2.5, 3.5), type = "n", axes=F, ylab="", xlab="")
  plot.order = (1:12)[order(xscale > 0)]
  for (k in 1:12) {
    i = plot.order[k]
    draw.ch<http://draw.ch>(x1[[i]], y1[[i]], x2[[i]], y2[[i]], center.x[i],
            color = cols[k + 60 * ( i >= 6 & i <= 8 ) + 120 *
                           (i > 8)], alpha[i], xscale[i])
  }
}



####################################



--
Saludos,
Carlos Ortega
www.qualityexcellence.es<http://www.qualityexcellence.es>

________________________________
Nota: A información contida nesta mensaxe e os seus posibles documentos adxuntos é privada e confidencial e está dirixida únicamente ó seu destinatario/a. Se vostede non é o/a destinatario/a orixinal desta mensaxe, por favor elimínea. A distribución ou copia desta mensaxe non está autorizada.

Nota: La información contenida en este mensaje y sus posibles documentos adjuntos es privada y confidencial y está dirigida únicamente a su destinatario/a. Si usted no es el/la destinatario/a original de este mensaje, por favor elimínelo. La distribución o copia de este mensaje no está autorizada.

See more languages: http://www.sergas.es/aviso_confidencialidad.htm

	[[alternative HTML version deleted]]

