omega = 1       # (s^-1)   tanto per metterci qualcosa
T = 2*pi/omega
curve( cos(omega*t), -T/2, 1.5*T, xname='t', lwd=2, ylab='sinusoidi')
grid()
curve( cos(omega*t + pi/10), xname='t', lwd=2, col='red', add=TRUE)
curve( cos(omega*t - pi/10), xname='t', lwd=2, col='green', add=TRUE)