T{k,:} = readtable(files(k).name);
T{k}.Properties.VariableNames([1 2]) = {'Time','Force'};
fprintf('\n--------------------\n\t\tFile: %s —\n',files(k).name)
end
--------------------
File: Messung1.csv —
Data =
Time Force Var3
______ ________ _______
4.3372 0.14522 0.15575
4.3374 0.14522 0.15575
4.3376 0.14522 0.15575
4.3378 0.14522 0.15575
4.338 0.14522 0.15575
4.3382 0.14522 0.15575
4.3384 0.14522 0.15575
4.3386 0.14522 0.15575
4.3388 0.14522 0.15575
4.339 0.14522 0.15575
4.3392 0.20898 0.28217
4.3394 0.017689 0.21896
4.3396 0.017689 0.21896
4.3398 0.017689 0.21896
4.34 0.017689 0.21896
4.3402 0.017689 0.21896
--------------------
File: Messung2.csv —
Data =
Time Force Var3
______ _________ _________
0.0158 0.017689 -0.16032
0.016 -0.046074 -0.033894
0.0162 -0.046074 -0.033894
0.0164 -0.046074 -0.033894
0.0166 -0.046074 -0.033894
0.0168 -0.046074 -0.033894
0.017 -0.046074 -0.033894
0.0172 -0.046074 -0.033894
0.0174 -0.046074 -0.033894
0.0176 -0.046074 -0.033894
0.0178 -0.046074 -0.033894
0.018 -0.046074 -0.033894
0.0182 -0.046074 -0.033894
0.0184 -0.046074 -0.033894
0.0186 0.017689 -0.097108
0.0188 0.017689 -0.033894
--------------------
File: Messung3.csv —
Data =
Time Force Var3
______ ________ _________
0.0158 -0.10984 -0.033894
0.016 -0.10984 0.02932
0.0162 -0.10984 0.02932
0.0164 -0.10984 0.02932
0.0166 -0.10984 0.02932
0.0168 -0.10984 0.02932
0.017 -0.10984 0.02932
0.0172 -0.10984 0.02932
0.0174 -0.10984 0.02932
0.0176 -0.10984 0.02932
0.0178 -0.10984 0.02932
0.018 -0.10984 0.02932
0.0182 -0.10984 0.02932
0.0184 -0.10984 0.02932
0.0186 -0.10984 0.02932
0.0188 0.081453 0.02932
plot(T{k}.Time, T{k}.Force, 'DisplayName',["Table "+k])
legend('Location','best')
[i1,i2,d3] = findsignal(T{k}.Force, T{end}.Force);
[t1(k,:),t2(k,:)] = bounds(T{k}.Time);
T{k}.Time = T{k}.Time - T{k}.Time(istart(k));
T{k}.Force = T{k}.Force(1:numel(T{k}.Time));
len(k,:) = numel(T{k}.Time);
ts(k,:) = [mean(diff(T{k}.Time)) std(diff(T{k}.Time)) 1/mean(diff(T{k}.Time))];
[Force,Time] = resample([T{k}.Force T{k}.Var3], T{k}.Time, 5E+3);
Tr{k} = table(Time,Force(:,1),Force(:,2));
Tr{k}.Properties.VariableNames = {'Time','Force','Var3'};
plot(T{k}.Time, T{k}.Force, 'DisplayName',["Table "+k])
title('Shifted & Resampled Data')
legend('Location','best')
fprintf('\n--------------------\n\t\tFile: %s —\n',files(k).name)
Resampled_Shifted_Data = Tr{k}
end
--------------------
File: Messung1.csv —
Resampled_Shifted_Data =
Time Force Var3
_______ ________ _______
-5.14 0.14522 0.15575
-5.1398 0.14522 0.15575
-5.1396 0.14522 0.15575
-5.1394 0.14522 0.15575
-5.1392 0.14522 0.15575
-5.139 0.14522 0.15575
-5.1388 0.14522 0.15575
-5.1386 0.14522 0.15575
-5.1384 0.14522 0.15575
-5.1382 0.14522 0.15575
-5.138 0.20898 0.28217
-5.1378 0.017689 0.21896
-5.1376 0.017689 0.21896
-5.1374 0.017689 0.21896
-5.1372 0.017689 0.21896
-5.137 0.017689 0.21896
--------------------
File: Messung2.csv —
Resampled_Shifted_Data =
Time Force Var3
______ _________ _________
0.0158 0.017689 -0.16032
0.016 -0.046074 -0.033894
0.0162 -0.046074 -0.033894
0.0164 -0.046074 -0.033894
0.0166 -0.046074 -0.033894
0.0168 -0.046074 -0.033894
0.017 -0.046074 -0.033894
0.0172 -0.046074 -0.033894
0.0174 -0.046074 -0.033894
0.0176 -0.046074 -0.033894
0.0178 -0.046074 -0.033894
0.018 -0.046074 -0.033894
0.0182 -0.046074 -0.033894
0.0184 -0.046074 -0.033894
0.0186 0.017689 -0.097108
0.0188 0.017689 -0.033894
--------------------
File: Messung3.csv —
Resampled_Shifted_Data =
Time Force Var3
______ ________ _________
0.0158 -0.10984 -0.033894
0.016 -0.10984 0.02932
0.0162 -0.10984 0.02932
0.0164 -0.10984 0.02932
0.0166 -0.10984 0.02932
0.0168 -0.10984 0.02932
0.017 -0.10984 0.02932
0.0172 -0.10984 0.02932
0.0174 -0.10984 0.02932
0.0176 -0.10984 0.02932
0.0178 -0.10984 0.02932
0.018 -0.10984 0.02932
0.0182 -0.10984 0.02932
0.0184 -0.10984 0.02932
0.0186 -0.10984 0.02932
0.0188 0.081453 0.02932
[t1(k,:),t2(k,:)] = bounds(T{k}.Time);
plot(Tr{k}.Time, Tr{k}.Force, 'DisplayName',["Resampled Table "+k])
title('Shifted & Resampled Data')
legend('Location','best')
Tbounds = [t1 t2]
Tbounds =
-5.1400 38.1038
0.0158 33.3770
0.0158 34.0900
fprintf('\n--------------------\n\t\tFile: %s —\n',files(k).name)
Lv = Tr{k}.Time >= max(Tbounds(:,1)) & Tr{k}.Time <= min(Tbounds(:,2));
Standardised_Resampled_Shifted_Data = Tr{k}
end
--------------------
File: Messung1.csv —
Standardised_Resampled_Shifted_Data =
Time Force Var3
______ _______ _______
0.0158 0.40027 0.97753
0.016 0.40027 0.97753
0.0162 0.40027 0.97753
0.0164 0.40027 0.97753
0.0166 0.40027 0.97753
0.0168 0.40027 0.97753
0.017 2.8233 0.59824
0.0172 3.4609 0.66146
0.0174 3.4609 0.66146
0.0176 3.4609 0.66146
0.0178 3.4609 0.66146
0.018 3.4609 0.66146
0.0182 3.4609 0.66146
0.0184 3.4609 0.66146
0.0186 3.4609 0.66146
0.0188 3.4609 0.66146
--------------------
File: Messung2.csv —
Standardised_Resampled_Shifted_Data =
Time Force Var3
______ _________ _________
0.0158 0.017689 -0.16032
0.016 -0.046074 -0.033894
0.0162 -0.046074 -0.033894
0.0164 -0.046074 -0.033894
0.0166 -0.046074 -0.033894
0.0168 -0.046074 -0.033894
0.017 -0.046074 -0.033894
0.0172 -0.046074 -0.033894
0.0174 -0.046074 -0.033894
0.0176 -0.046074 -0.033894
0.0178 -0.046074 -0.033894
0.018 -0.046074 -0.033894
0.0182 -0.046074 -0.033894
0.0184 -0.046074 -0.033894
0.0186 0.017689 -0.097108
0.0188 0.017689 -0.033894
--------------------
File: Messung3.csv —
Standardised_Resampled_Shifted_Data =
Time Force Var3
______ ________ _________
0.0158 -0.10984 -0.033894
0.016 -0.10984 0.02932
0.0162 -0.10984 0.02932
0.0164 -0.10984 0.02932
0.0166 -0.10984 0.02932
0.0168 -0.10984 0.02932
0.017 -0.10984 0.02932
0.0172 -0.10984 0.02932
0.0174 -0.10984 0.02932
0.0176 -0.10984 0.02932
0.0178 -0.10984 0.02932
0.018 -0.10984 0.02932
0.0182 -0.10984 0.02932
0.0184 -0.10984 0.02932
0.0186 -0.10984 0.02932
0.0188 0.081453 0.02932
ForceMtx = zeros(size(Tr{1},1), numel(Tr));
ForceMtx(:,k) = Tr{k}.Force;
Force_Median = median(ForceMtx,2);
Force_Mean = mean(ForceMtx, 2);
Force_Std = std(ForceMtx, [], 2);
Force_SEM = Force_Std/sqrt(size(ForceMtx,2));
tci95 = tinv([0.025 0.975], size(ForceMtx,2)-1);
Force_95CI = Force_Mean + Force_SEM*tci95;
[t1(k,:),t2(k,:)] = bounds(T{k}.Time);
plot(Tr{k}.Time, Tr{k}.Force, 'DisplayName',["Resampled Table "+k])
plot(Tr{1}.Time, Force_Median, '-r', 'LineWidth',1, 'DisplayName','Force Median')
title('Time Standardised Shifted & Resampled Data')
legend('Location','best')