# esegue plot delle forme d'onda per un dato valore di nu
# Att: usa i valori di RCL.gp e anche le funzioni ivi definite
# -> deve essere chiamato dopo RCL.gp, ad es. 
#    load "RCL.gp"
#    nu = 2*nu0
#    load "RCL-t.gp"
#    nu = 5*nu0
#    load "RCL-t.gp"
#    etc...
# 
#             GdA, Maggio 04
##########################################

v0t(t)   = V0 *  cos( omega * t )
vrt(t)   = abs(VR(nu)) * cos( omega * t + arg( VR(nu) ) ) 
vct(t)   = abs(VC(nu)) * cos( omega * t + arg( VC(nu) ) ) 
vlt(t)   = abs(VL(nu)) * cos( omega * t + arg( VL(nu) ) ) 
voutt(t) = abs(Vout(nu)) * cos( omega * t + arg( Vout(nu) ) ) 

set title "Forme d'onda"
set xlabel "t (s)"
set ylabel "V(t)"
plot [t = 0:2*T] v0t(t), vrt(t), vct(t), vlt(t), voutt(t)
pause -1 "Premi un tasto per continuare"

set title "Forme d'onda - solo Vo, Vr, Vout
plot [t = 0:2*T] v0t(t), vrt(t), voutt(t)