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@im.ufrj.br / clebercarmo@macae.ufrj.br
skype: cleber_carmo
De: walmes . <walmeszeviani@gmail.com>
Para: r-br@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