#----------------------------------------------------
# effetto dello sfasamento su una sin/cos-inusoide 
# 
# GdA, giugno 2025 
#----------------------------------------------------

T = 1
omega <- 2*pi / T

t <- seq(0, 2*T, len=101)
plot(t, cos(omega*t),  xlab='t / T', ylab='cos( ...)', ty='l',
     lwd=2, col='blue')
grid()
Sys.sleep(1)

for (i in 1:10){
    phi <- i/10 * pi
    print(phi *180/pi)    
    points(t, cos(omega*t + phi), ty='l', col='green' )    
    Sys.sleep(0.2)    
}
Sys.sleep(1)
for (i in 1:10){
    phi <- -i/10 * pi
    print(phi *180/pi)    
    points(t, cos(omega*t + phi), ty='l', col='red ')    
    Sys.sleep(0.2)    
}