"darkolivegreen4", "red") t<-seq(0,2,length=1000) set.seed(17091945) png(filename="SQRTDiffusion.png", width=1200, height=900, pointsize=12) par(bg="lightgrey")...