Tools/distType.m at master · Buczman/Tools · 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 distribution = distType(input, fixed, input_length, type)

if nargin == 4 && strcmp(type,'lml')
    distribution = cell(length(input),1);
    for i = 1:length(input)
        switch input(i)
            case 0
                distribution(i,1) = {'a n'};
            case -1
                distribution(i,1) = {'f'};
            case 1
                distribution(i,1) = {'a l'};
            case 2
                distribution(i,1) = {'LP (n)'};
            case 3
                distribution(i,1) = {'LP (ln)'};
            case 4
                distribution(i,1) = {'Sf'};
            case 5
                distribution(i,1) = {'LSp'};
            case 6
                distribution(i,1) = {'CSp'};
            case 7
                distribution(i,1) = {'Pw CSp'};
            case 8
                distribution(i,1) = {'Pw CHISp'};
        end
    end
elseif nargin >= 3 && fixed == 1
    distribution = cell(input_length,1);
else
    distribution = cell(length(input),1);
    for i = 1:length(input)
        switch input(i)
            case 0
                distribution(i,1) = {'n'};
            case -1
                distribution(i,1) = {'f'};
            case 1
                distribution(i,1) = {'l'};
            case 2
                distribution(i,1) = {'S'};
            case 3
                distribution(i,1) = {'t'};
            case 4
                distribution(i,1) = {'W'};
            case 5
                distribution(i,1) = {'s-a'};
            case 6
                distribution(i,1) = {'JSb'};
            case 7
                distribution(i,1) = {'JSu'};
        end
    end
end

end