# uso di carte logaritmiche
#
# PED (AA 2009/2010) 
#                     G. D'Agostini, ottobre 09
#-----------------------------------------------

#---------------------------------------------------
# esempio di leggi esponenziali

t <- seq(0,10, by=0.5)

# esponenziale negativo -------------------------
k <- 10
tau <- -2 
plot( t, k*exp(t/tau))

# plot su scala logaritmica  ('semi-log')
plot( t, k*exp(t/tau), log='y')

# notare la differenza/analogia rispetto a
plot( t, log( k*exp(t/tau) )  )

# esponenziale positivo -------------------------
k <- 1
alpha <- 0.5 
plot( t, k*exp(alpha * t))

# plot su scala logaritmica ('semi-log')
plot( t, k*exp(alpha * t), log='y')

# notare la differenza/analogia rispetto a
plot( t, log( k*exp(alpha* t) )  )


#--------------------------------------------------
# esempio di leggi di potenza
k <- 5
p <- -1/2

x <- seq(1,10, by=0.5)

plot( x, k* x^p)

# plot su scala logaritmica ('doppio-log')
plot( x, k* x^p, log='xy')

# notare la differenza/analogia rispetto a
plot( log(x), log(k* x^p) )

# altro esempio ------------------
k <- 1
p <- 3

x <- seq(1,10, by=0.5)

plot( x, k* x^p)

# plot su scala logaritmica ('doppio-log')
plot( x, k* x^p, log='xy')

# notare la differenza/analogia rispetto a
plot( log(x), log(k* x^p) )