ConvexHullEsim.jl

# Convex Hull esimerkki Julia-kielellä
# Juhani Kaukoranta 12.12.2023
using QHull, Plots
# arvotaan 100 pistettä ,koordinaatistoon 300x300
pisteet = rand(0:300,100,2);
ch = chull(pisteet);
A = ch.points;         # pistejoukko
x=A[:,1]; # joukon pisteiden x-koordinaatit
y=A[:,2]; # joukon pisteiden y-koordinaatit
p = scatter(x,y,aspect_ratio=:equal,title="pistejoukko",ms=:5,legend=false);
plot(p) # plotataan pistejoukko
ind = ch.vertices;  # convex hull-reunapisteiden järjestysindeksit
preuna = scatter!(x[ind],y[ind],aspect_ratio=:equal,mc=:red,ms=:3,title="reunapisteet pun",legend=:false);
plot!(preuna) # värjää reunapisteet
reunaviiva=plot!(x[ind],y[ind],aspect_ratio=:equal,color=:red,legend=:false);
plot!(reunaviiva)