ssa

1
clear; close all; clc;
2

3
% Names
4
names = ["P1H1"    "P1LC1" "P1LC2" "P1LC3" "P1LC4" "P1LC5" "P1LC6" "P1LC7"     "P1M1" "P1M2" "P1M3"     "P2LC1" "P2LC2" "P2LC3" "P2LC4" "P2LC5"     "P3LC1" "P3LC2" "P3LC3" "P3LC4" "P3LC5"];
5

6

7
frt = ".avi"; zrp="endh/";
8
ncPrefix="";
9

10
for iName = 1:length(names)
11
    Name = names(iName);
12
    disp(Name);
13
    
14
    Path=zrp+Name+'/';
15
    
16
    % Extracting a time series of RGB segments
17
    try
18
        RGB=Face_tracking(Path+Name+ncPrefix+frt);
19
        SaveRGB(RGB,Path+Name+ncPrefix+"_ÁåçÊîìïåíñàöèåéßðêîñòè"+'_RGB.txt');
20
%         RGB=load(Path+Name+ncPrefix+"_ÁåçÊîìïåíñàöèåéßðêîñòè"+'_RGB.txt');
21
    catch
22
        disp("ÎØÈÁÊÀ: Face_tracking")
23
    end
24

25
    % Calculation of the photoplethysmography signal
26
    try
27
        rgb2pw(RGB, Path+Name+ncPrefix);
28
        pw=load(Path+Name+ncPrefix+'_pw.txt');
29
    catch
30
        disp("ERROR: rgb2pw")
31
    end
32

33
    % Estimates of the average pitch frequencies for PW segments
34
    try
35
        chss2(pw, Path, Name+ncPrefix);
36
    catch
37
        disp("ERROR: chss2")
38
    end
39
    
40
    close all;
41
end
42