2+2
2^3
cos(0)
cos(pi/2)
exp(1)
1/exp(1)
1/exp(1)*2
1-1/exp(1)
( 1-1/exp(1) ) *2
exp.x0.xf <- function(t, tau, x0, xf) xf + (x0-xf)*exp(-t/tau)
tau = 1 # 'u', unità opportuna (s, h, etc. purché ci sia consistenza!)
x0 = 0
xf = 2
xf
x0
ciccio
xf^2
t <- seq(0, 10*tau, by=tau/10)
t
plot(t, t^2)
plot(t, cos(t))
plot(t, sin(t))
plot(t, sin(t), ty='l')
plot(t, sin(t), ty='l', col='red')
points(t, cos(t), ty='l', col='orange')
points(t, cos(t), ty='l', col='blue')
plot(t, sin(t), ty='l', col='red')
points(t, cos(t), ty='l', col='blue', lty=2)
plot(t, exp.x0.xf(t, tau, x0, xf), ty='l', xlab='t (u)', ylab='x (Unità arbitraria)', col='blue')
plot(t, exp.x0.xf(t, tau, x0, xf), ty='l', col='blue')
plot(t, exp.x0.xf(t, tau, x0, xf), ty='l', xlab='t (u)', ylab='x (Unità arbitraria)', col='blue')
points(t, exp.x0.xf(t, tau/2, x0, xf), ty='l', col='red')
points(t, exp.x0.xf(t, 2*tau, x0, xf), ty='l', col='orange')
points(t, exp.x0.xf(t, tau/4, x0, xf), ty='l', lty=2, col='red')
points(t, exp.x0.xf(t, 4*tau, x0, xf), ty='l', lty=2, col='orange')
abline(h=xf*(1-exp(-1)), lty=2)
abline(v=1/4, lty=2)
abline(v=1/2, lty=2)
abline(v=1, lty=2)
abline(v=2, lty=2)
abline(v=4, lty=2)
x0 = 2
xf = 0
# altro plot
plot(t, exp.x0.xf(t, tau, x0, xf), ty='l', xlab='t (u)', ylab='x (Unità arbitraria)', col='blue')
points(t, exp.x0.xf(t, tau/2, x0, xf), ty='l', col='red')
points(t, exp.x0.xf(t, 2*tau, x0, xf), ty='l', col='orange')
points(t, exp.x0.xf(t, tau/4, x0, xf), ty='l', lty=2, col='red')
points(t, exp.x0.xf(t, 4*tau, x0, xf), ty='l', lty=2, col='orange')
# aggiungiamo griglia per evidenziare punti importanti
abline(h=x0*exp(-1), lty=2)
abline(v=1/4, lty=2)
abline(v=1/2, lty=2)
abline(v=1, lty=2)
abline(v=2, lty=2)
abline(v=4, lty=2)
source("crescite-decrescite_esponenziali.R")
source("crescite-decrescite_esponenziali.R")
tau
alpha
t2
x0
source("crescite-decrescite_esponenziali.R")
t2
source("crescite-decrescite_esponenziali.R")
t2
tau
tau*log(2)
source("crescite-decrescite_esponenziali.R")
source("crescite-decrescite_esponenziali.R")
5700/log(2)
q()