# Genera dati esperimento termalizzazione
#
# G. D'Agostini  PED, 10/12/09
#
#------------------------------------------------

tau = 30 # costante di tempo (s)

tmax=7*tau

T0 = 20  # temperatura bassa (C)
T1 = 60  # temperatura alta  (C)

t <- seq(0,tmax, by=5)

# tempi di riscaldamento
Ts <- T1 - (T1-T0)*exp(-t/tau)

# tempi di raffreddamento
Td <- T0 - (T0-T1)*exp(-t/tau)

# fare grafici lineari dei due andamenti

# fare linearizzazione [attenzione a Ts(t) !]

# ricavarsi tau dai dati simulati (ovviamente deve
# ritornare il vaore che e' stato inserito e deve essere
# lo stesso sia nel riscaldamento che nel raffreddamento)


# INOLTRE: come simulare possibili errori strumentali
# e di lettura?
# Domanda non banale, richiede una opportuna modellizzazione:
# si pensi a quando la temperatura ha praticamente
# raggiunto la temperatura asintotica: il valore letto
# rimarra' costante e non ('in genere non')
# fluttua da una lettura all'altra.


# INFINE: si immagini che il liquido a temperatura elevata
# si raffredda verso T0 (temperatura ambiente assunta costante)
# conu una costante di tempo di 60 volte tau (ovvero 1/2 ora):
# che valori di riscaldamento osserveremo?
# (Istante per istante il termometro tende al valore istantaneo
# dell'acqua in cui e' immerso.)