[R-br] [OFF-TOPIC] código R para plotar um coração com animação

[Cleber Carmo]

Olá, Walmes

Eu ainda tenho esse código e, coincidentemente, o apresentei hoje aos meus alunos.

Segue o código em questão:

#----------------------------------------------------------------
core=function(nome="Meu amor")
{
  x=seq(-2,2,0.001)
  y1=sqrt(1-((abs(x)-1)^2))
  y2=-3*sqrt(1-(sqrt(abs(x))/sqrt(2)))
  plot(main="Enfim, achei uma fórmula pra explicar", ylab="www.profmsouza.blogspot.com",xlab="o que sinto por você...",sub=nome,c(x,x),c(y1,y2),lwd=3,pch=20,cex=6)
  grid()
  cores=paste(c("red","tomato"),sort(rep(1:4,2)),sep="")
  eq=c("( AM + BC ) * X = AM ( X + BOC ) - BCTE","AMX + BCX = AMX + AMBOC - BCTE","BCX = AMX - AMX + BC (AMO - TE)","BCX = BC ( AMO - TE )","X = ???")
  pos=c(-0.3,-0.6,-0.9,-1.2,-1.5)
  cont=0
  for (i in 1:30)
  {
    points(c(x,x),c(y1,y2),col=cores[sample(1:8,1)],lwd=sample(1:4,1),pch=20,cex=round(runif(1,1,4)))
    if (i%%5 == 0 & i <=25)
    {
      cont=cont+1
      text(0,pos[cont],eq[cont])
    }
  }
  text(1.2,-2.5,"AMO-TE",col="red",cex=3)
}
core()



Um abraço
- - - - - - - - - - - - - - - - - - -
Cleber Nascimento do Carmo, Dr.
Professor Adjunto de Bioestatística e Estatística
Universidade Federal do Rio de Janeiro
Campus Macaé - www.macae.ufrj.br
E-mail: cleber em im.ufrj.br / clebercarmo em macae.ufrj.br
skype: cleber_carmo





________________________________
 De: walmes . <walmeszeviani em gmail.com>
Para: r-br em listas.c3sl.ufpr.br 
Enviadas: Terça-feira, 11 de Junho de 2013 17:30
Assunto: [R-br] [OFF-TOPIC] código R para plotar um coração com animação
 


Saudações pessoal,

Alguém tem cópia daquele código R, uma vez compartilhado na lista, acho que na época do R-STAT ainda.
O código que falo é aquele que tem um laço for(), as cores mudam com a execução.
Dou aula sobre funções hoje e quinta e queria motivar os alunos à presentear suas respectivas com um CMR amoroso.
Ou provocar logo a separação dependendo do senso de humor e diferença de nerdismo do casal.
Versões simples eu encontrei em:
http://stackoverflow.com/questions/8082429/plot-a-heart-in-r
http://blog.revolutionanalytics.com/2013/02/make-a-valentines-heart-with-r.html
http://rud.is/b/2013/02/14/happy-valentines-day-mrshrbrmstr/

Grato.
Walmes.


==========================================================================
Walmes Marques Zeviani
LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
VoIP: (3361 3600) 1053 1173
e-mail: walmes em ufpr.br
skype: walmeszeviani
twitter: @walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================
_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130611/d2bc23d6/attachment.html>