CatAnalysisCode/TresSceneRevCorr.m at master · shihchengyen/CatAnalysisCode · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
function [all_tres_scene_rev] = tresscenerevcorr(num_sub_bins,fig)

load jonscellsdata

all_tres_scene_rev = [];

for x = 1:length(jonscells)

        sc_num = jonscells(x).scene_changes;

        frames = jonscells(x).frame_times;

        frames = frames(1:end-1);

        sub_bins = [10 6 3 2];

        nsb = find(sub_bins == num_sub_bins);

        tres = jonscells(x).tresscores{nsb};

        if sc_num(1) == 1;

        else
            sc_num = [1 sc_num];
        end

    tres_above = find(tres > 99);

    tres_scene_rev = [];

    for f = 1:length(tres_above)

        sc_frame = fliplr(tres_above(f)-1:-1:tres_above(f)-5);

        sc_rev = [0 0 0 0 0];

        for s = 1:length(sc_num);

            sc_rev_ind = [sc_frame == sc_num(s)];

            sc_rev = sc_rev+sc_rev_ind;

        end

        tres_scene_rev = [tres_scene_rev;sc_rev];

    end

    all_tres_scene_rev = [all_tres_scene_rev;tres_scene_rev];

end %for


if exist('fig')

    hold on
    bar(sum(all_tres_scene_rev));
    set(gca,'XTickLabel',5:-1:1)
    xlabel('Scene Change Frames Before TRES Score Frames > 99')
    ylabel('Number of Scene Changes')
    title(['TRES Scores using ',num2str(num_sub_bins) ' Sub Bins'])

end