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@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.h... 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@ufpr.br skype: walmeszeviani twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================
_______________________________________________ R-br mailing list R-br@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.