%% Script Description
% Identification of the transfer function
% from Ground Motion to sample displacement.

%%
clear; close all; clc;

%%
initializeSample(struct('mass', 20));
initializeSimConf(struct('cl_time', 0));

%% Open Loop
[Gd_ol_20, Gd_ol_20_raw] = identifyGd(struct('cl', false));

%% Close Loop
[Gd_cl_20, Gd_cl_20_raw] = identifyGd(struct('cl', true));

%% Save the identified transfer functions
save('./mat/Gd_ol_cl.mat', 'Gd_ol_20', 'Gd_cl_20');