clc;
clear;
close all;

%% Load Data

load HWMar26data
X=A;
clear A B C


%% Run DBSCAN Clustering Algorithm

epsilon=0.06;
MinPts=4;
IDX=DBSCAN(X,epsilon,MinPts);


%% Plot Results
PlotClusterinResult(X, IDX);
title(['DBSCAN Clustering (\epsilon = ' num2str(epsilon) ', MinPts = ' num2str(MinPts) ')']);