clear; close all; clc;

%%
datapath = './data/';
savepath = './Macros_ttt_spindle/';

name_of_the_datafile = '10turns_60rpm_IcepapFIR.txt';
NbTurn = 10;    % Be careful that this value match with the measure

%%
% [y, x, z, y2, x2] = importfile(fullfile(datapath,name_of_the_datafile),12, inf);

spindle_table  = readtable([datapath, name_of_the_datafile]);

data  = table2array(spindle_table);

% data = [y x z y2 x2];
data = data(:, 3:end);
texte = {'Y Axis' 'X Axis' 'Z Axis' 'Y2 Axis' 'X2 Axis'};
texte2 = {'Rotating radial Error XY' 'Rotating radial Error X2Y2' 'Tilt Error XX2' 'Tilt Error YY2' };

%%
for i = 1:5
  Spindle_error(data(:,i), NbTurn, texte(:,i), savepath);
end

%%
Dual_Spindle_error(data(:,2), data(:,1),NbTurn,texte2(:,1), savepath);
Dual_Spindle_error(data(:,5), data(:,4),NbTurn,texte2(:,2), savepath);

Tilt_Spindle_error(data(:,2), data(:,5),NbTurn,texte2(:,3), savepath);
Tilt_Spindle_error(data(:,1), data(:,4),NbTurn,texte2(:,4), savepath);