ssa
1clear; close all; clc;
2
3% Names
4names = ["P1H1" "P1LC1" "P1LC2" "P1LC3" "P1LC4" "P1LC5" "P1LC6" "P1LC7" "P1M1" "P1M2" "P1M3" "P2LC1" "P2LC2" "P2LC3" "P2LC4" "P2LC5" "P3LC1" "P3LC2" "P3LC3" "P3LC4" "P3LC5"];
5
6
7frt = ".avi"; zrp="endh/";
8ncPrefix="";
9
10for iName = 1:length(names)
11Name = names(iName);
12disp(Name);
13
14Path=zrp+Name+'/';
15
16% Extracting a time series of RGB segments
17try
18RGB=Face_tracking(Path+Name+ncPrefix+frt);
19SaveRGB(RGB,Path+Name+ncPrefix+"_ÁåçÊîìïåíñàöèåéßðêîñòè"+'_RGB.txt');
20% RGB=load(Path+Name+ncPrefix+"_ÁåçÊîìïåíñàöèåéßðêîñòè"+'_RGB.txt');
21catch
22disp("ÎØÈÁÊÀ: Face_tracking")
23end
24
25% Calculation of the photoplethysmography signal
26try
27rgb2pw(RGB, Path+Name+ncPrefix);
28pw=load(Path+Name+ncPrefix+'_pw.txt');
29catch
30disp("ERROR: rgb2pw")
31end
32
33% Estimates of the average pitch frequencies for PW segments
34try
35chss2(pw, Path, Name+ncPrefix);
36catch
37disp("ERROR: chss2")
38end
39
40close all;
41end
42