#--------------------------------------------------------
#  Campo elettrico vettore di Poynting in funzione del tempo 
#  per un'onda piana (valore massimo unitario)
#
#   GdA gen 2022
# --------------------------------------------------------

old.mar = par("mar")
par(mar=c(4.5,4.5,0.3,0.3))   # margini ottimizzati

curve(sin(2*pi*t), 0, 3, xlim=c(0,2.5), xname='t', lwd=2, col='blue', n=501,
      xlab='t / T', ylab='E(t)  e  S(t)  normalizzati al loro massimo')
curve(sin(2*pi*t)^2, 0, 3, xname='t', col='red', lwd=2, n=501, add=TRUE)
abline(h=0)
abline(h=1/2, col='red', lty=2)
par(mar=old.mar)