clc;
clear;
close all;

%% Load Data

load NGData;  %Loads Data
X = DataFiles.Ring;
clear DataFiles

%Set parameters:

params.N = 30;

params.MaxIt = 50;

params.tmax = 10000;

params.epsilon_initial = 0.4;
params.epsilon_final = 0.02; 

params.lambda_initial = 2;  
params.lambda_final = 0.1;  

params.T_initial = 5;
params.T_final = 10;

net = NeuralGasNetwork(X, params, true);

%PlotResults(X,net.w,net.C);