golfpallo.jl

# Golfpallon pomput
# Juhani Kaukoranta 26.12.2022
# x pudotuskorkeus, y pomppauskorkeus
# lasketaan lineaarinen regressio y = k*x + b
# siis pomppukorkeuden riippuvuus pudostuskorkeudesta
using LinearRegression, Statistics
pudotus =[12,12,24,24,36,48,48,60,]; #pudotuskorkeus (tuumaa)
pomppu = [10,10,20.5,20.5,31,39,39.5,48];

function golfpallo(pudotus,pomppu)
    lr = linregress(pudotus,pomppu);
    korrelaatio = cor(pudotus,pomppu);
    k = coef(lr)[1]; # kerroin
    b = coef(lr)[2]; # vakiotermi
    println("pomppu = kerroin * pudotus + vakio")
    println("kerroin = ",k);
    println("vakio = ",b);
    println("korrelaatio = ",korrelaatio);
    pomppupros = Int(round(100*mean(pomppu ./ pudotus)))
    println("pomppu on keskimäärin ",pomppupros," % pudotuskorkeudesta")
end