IPEO-Codes/plotTextureAnalysis.m at master · Michael-Perna/IPEO-Codes · 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
function [] = plotTextureAnalysis(images, img, time)

%==========================================================================
%% Input
%==========================================================================
    Im_std = images(time).std;
    Im_rg = images(time).rg;
    Im_contrast = images(time).contrast;
    Im_corr = images(time).corr;
    Im_energy = images(time).energy;
    Im_homogen = images(time).homogen;
    Im_entropy = images(time).entropy;
    winSize = images(time).winSize;

%==========================================================================
%% PLOT 1st order statistics: standard deviation and range min,max
%==========================================================================

    figure
    subplot(1,2,1);
    imagesc(Im_std);
    axis equal tight
    title(['std ',int2str(winSize),'x',int2str(winSize)]);

    subplot(1,2,2);
    imagesc(Im_rg);
    axis equal tight
    title(['range ',int2str(winSize),'x',int2str(winSize)]);

%==========================================================================
%% PLOT 2nd order statistics: co-occurence
%==========================================================================
    figure
    subplot(2,3,1);
    imshow(img);
    title('original band');

    subplot(2,3,2);
    imagesc(Im_contrast);
    title(['contrast ',int2str(winSize),'x',int2str(winSize)]);

    subplot(2,3,3);
    imagesc(Im_corr);
    title(['correlation',int2str(winSize),'x',int2str(winSize)]);

    subplot(2,3,4);
    imagesc(Im_energy);
    title(['energy',int2str(winSize),'x',int2str(winSize)]);

    subplot(2,3,5);
    imagesc(Im_homogen);
    title(['homogeneity',int2str(winSize),'x',int2str(winSize)]);

    subplot(2,3,6);
    imagesc(Im_entropy);
    title(['entropy',int2str(winSize),'x',int2str(winSize)]);
end