#-------------------------------------------------
# Script per eseguire l'integrale numerico
# della funzione sin^2(x)
#
# questa versione usa la function di R integrate()
# (ovviamente esisterà una function del genere in Python)
# 
# GdA 3/3/2024
#-------------------------------------------------

myfun <- function(x) sin(x)^2

int.num <- integrate(myfun, 0, pi)
# possibili stampe del risultato
print(int.num)
cat("\n")
print(str(int.num))

# ma in genere siamo interessati al solo valore numerico del risultato
valore.integrale <- int.num$value
cat(sprintf("\nIntegrale valutato usando integrate() di : R %.3f\n",
            valore.integrale))