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

[Rodrigo Coster]

Esse?


E aí, galera!

Tirem onda aí com as respectivas "patroas" (o ideal seria no dia dos
namorados, mas... TODO DIA É DIA!).
Mostre que você sabe R de todo o coração !!!
Basta copiar e colar o código abaixo e terão uma supresa... Muito bonita
(para elas, em especial).

#----------------------------------------------------------------
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()
# Se quiser personalizar, basta colocar o nome de sua amada (entre aspas)
como parâmetro da função core (e.g.: core("Cíntia"), escreveria o nome de
minha amada... rs)
# Bom namoro pra vocês!
#----------------------------------------------------------------

-- 
Prof. Márcio Souza, M.Sc. (DE/UFJF)
www.profmsouza.blogspot.com
http://lattes.cnpq.br/4578008002785684



2013/6/11 walmes . <walmeszeviani em gmail.com>

> 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/920aa49c/attachment.html>