a=2.215
b=5.8
a*b
a <- c(-0.001, 0, 0.001) + a
a
b <- c(-0.1, 0, 0.1) + b
b
outer(a,b)
x1 <- c(-0.1, 0, 0.1) + 312.4 
x1
x2 <- c(-0.01, 0, 0.01) + 0.23
x2
outer(x1,x2, '+')
source("affondamenti_overview.R")
source("affondamenti_overview.R")
q()