% Lager et scatterplott av 2D MFCC-vektorene i
% treningssettet (sett nr. 1)
% Fargelegging utfra labels_vel_1
clc, clear all, close all

% Last inn data
load taledata.mat

% Finn indeksene til observasjonene med klasse 0 og 1
find0 = find(labels_vel_1 == 0);
find1 = find(labels_vel_1 == 1);

% Opprett figur
figure(1)

% Lag scatterplott
subplot(1,2,1), hold on
scatter(mfcc_2D_1(find0,1),mfcc_2D_1(find0,2),10,'b','o');
scatter(mfcc_2D_1(find1,1),mfcc_2D_1(find1,2),10,'r','s');
xlabel('x_1')
ylabel('x_2')
title([num2str(length(mfcc_2D_1)) ' todimensjonale MFCC-vektorer {(x_1,x_2)} fra sett nr. 1'],'FontWeight','bold')
legend('Ustemt ({y = 0})','Stemt ({y = 1})','Location','SouthEast')
box on
% Plott rektangel som indikerer utsnittet
plot([-200 -200 -100 -100 -200],[-200 -100 -100 -200 -200],'k-','LineWidth',2)
hold off

% Lag forstørret utsnitt
subplot(1,2,2), hold on
scatter(mfcc_2D_1(find0,1),mfcc_2D_1(find0,2),40,'b','o','LineWidth',2);
scatter(mfcc_2D_1(find1,1),mfcc_2D_1(find1,2),40,'r','s','LineWidth',2);
xlabel('x_1')
ylabel('x_2')
xlim([-200 -100])
ylim([-200 -100])
plot(-160,-170,'k^','LineWidth',3)
% Plott linjestykker ut til naboene
plot([-160 -185.9],[-170 -174.8],'k-','LineWidth',1.6)
plot([-160 -171.3],[-170 -156.5],'k-','LineWidth',1.6)
plot([-160 -158],[-170 -158.6],'k-','LineWidth',1.6)
plot([-160 -145.5],[-170 -161.4],'k-','LineWidth',1.6)
plot([-160 -141.2],[-170 -186.9],'k-','LineWidth',1.6)
title('Utsnitt, med testpunkt (-160,-170) og naboer markert','FontWeight','bold')
box on
hold off
