#-------------------------------------
# Carica e scarica di un condensatore
# 
# GdA, 29/10/2021
#--------------------------------------

f   = 10    # V 
R   = 1000  # Ohm
C   = 1e-6  # Farad (-> un microFarad)
tau <- R * C

curve(f*(1-exp(-t/tau)), 0, 6*tau, xname='t', xlim=c(0,12*tau),
      lwd=2, col='blue', xlab='t (s)', ylab='Vc')
curve(f*exp(-(t-6*tau)/tau), 6*tau, 12*tau, xname='t', add=TRUE, 
      lwd=2, col='blue')

# vediamo cosa succede dimezzando tau:
tau1 = tau/2
curve(f*(1-exp(-t/tau1)), 0, 6*tau, xname='t', add=TRUE,
      lwd=2, col='red')
curve(f*exp(-(t-6*tau)/tau1), 6*tau, 12*tau, xname='t', add=TRUE, 
      lwd=2, col='red')