Feliz dia dos namorados para os casais apaixonados da Engenharia!

 Professor em seu horário de folga.....

x <- seq(-1.57,1.57,by=.001)
y <- (sqrt(abs(cos(x))) * cos(200*x) + sqrt(abs(x))-0.7) * (4-x * x)^0.01 
plot(0,0, type='n', xlim=c(-2,+2),ylim=c(-1.6,+1.1)) 
lines(x,y,col='pink') 

spread <- seq(1,length(x), length.out=length(x)/10) 
cols <- c('yellow','red','orange', 'purple') 
text(x[spread],y[spread], label='love', col=sample(rep(cols, length.out=length(spread))), cex=1)