tau = 3 
t <- 0:10
2*3
3*3
3^3
t
t <- 0:20
t
t^2
plot(t, t^2)
plot(t, t^2, ty='l')
plot(t, t^2, ty='l', col='magenta')
t
exp(t/tau)
plot(t, exp(t/tau), ty='l', col='magenta')
plot(t, exp(-t/tau), ty='l', col='magenta')
q()
plot(t, exp(-t/tau), ty='l', col='magenta')
t <- seq(0, 20, by=5)
t
plot(t, exp(-t/tau), ty='l', col='magenta')
plot(t, exp(-t/tau), col='magenta')
t <- seq(0, 50, by=5)
t
length(t)
plot(t, exp(-t/tau), col='magenta')
tau*log(2)
plot(t, exp(-t/tau), log='y', col='magenta')
t[1:7]
exp(-t/tau)[1:7]
t[1:5]
exp(-t/tau)[1:5]
tau <- runif(2,6)
tau <- runif(1,2,6)
runif(1,0,3)
runif(1,0,3)
runif(1,0,3)
runif(1,0,3)
runif(10,0,3)
runif(10,0,3)
runif(10,0,3)
runif(10,0,3)
tau <- runif(1,2,6)
tau
tau <- runif(1,2,6)
z0 <- runif(1,0.8,1)
t <- 0:10
( z <- z0*exp(-t/tau) )
plot(t, z, pch=19, col='cyan')
t
z[1]
z[2]
z[1:4]
z[1]
z[1]*exp(-1)
tau
tau <- runif(1,2,6)
z0 <- runif(1, 600000, 1300000)
t <- 1:20
( z <- z0*exp(t/tau) )
t
cat(sprintf("%.2e\n",z))
cat(sprintf("%.1e\n",z))
z
t
plot(t, z, pch=19,col='blue', log='y')
tau
z0
points(t, z0*exp(t/tau), ty='l', col='cyan)
points(t, z0*exp(t/tau), ty='l', col='cyan')
plot(t, z, pch=19,col='blue', log='y', xlim=c(0,20))
plot(t, z, pch=19,col='blue', log='y', xlim=c(0,20), ylim=c(1e6,1e9))
points(t, z0*exp(t/tau), ty='l', col='cyan')
tau*log(2)
ls()
q()