% Questa funzione studia le prestazioni del caso reale rispetto a quello
% ideale rifacendosi alle distanza degli iperpiani creati nei due casi
% rispetto ai punti ad essi più vicini. Dal momento che le due distanze
% (iperpiano/punti rossi e iperpiano/punti blu) non sono sempre coincidenti
% nel caso reale, si esegue una media tra le due distanze calcolate, in
% modo da poter poi confrontare questa distanza media con l'unica ottenuta
% nel caso ideale

function [var_camp] = prestazioni(dist,dist_ideale)

% inizializzazione
dist_media = zeros(length(dist),1);

for i = 1:length(dist)
    dist_media(i) = (dist(i,1) + dist(i,2))/2;
end

% errore assoluto sulle distanze (reali vs. ideali)
err = abs(dist_media(:,1) - dist_ideale(:,1));

% calcolo varianza campionaria
var_camp = var(err);

% dimensione dell'asse delle ascisse
x = 1:length(dist_ideale);

% plot errore assoluto
figure(43)
hold on
plot(x,err)
title('Errore assoluto tra test e ideale')
axis([1 length(dist_ideale) 0 50])
grid on

