%% Script Description
% Identification of a force injected into the NASS (in cartesian
% coordinates) to the relative displacement of the sample
% and granite.

%%
clear; close all; clc;

%%
initializeSample(struct('mass', 1));

[G_1, G_1_raw] = identifyG();

%%
initializeSample(struct('mass', 20));

[G_20, G_20_raw] = identifyG();

%%
initializeSample(struct('mass', 50));

[G_50, G_50_raw] = identifyG();

%% Save the obtained transfer functions
save('./mat/G_f_to_d.mat', 'G_1', 'G_20', 'G_50');