1 | function best_control=choose_best_control(H_tilde,C,H_tilde0,k,apriori,regulator_parameters,candidates,compare_parameters) |
---|
2 | num_of_candidates=regulator_parameters.num_of_candidates; |
---|
3 | n_0=compare_parameters.n0; |
---|
4 | realization1=zeros(num_of_candidates,n_0); |
---|
5 | |
---|
6 | H0=add_H_tilde0(regulator_parameters,H_tilde); |
---|
7 | |
---|
8 | %generovani realizaci ztrat |
---|
9 | for i=1:num_of_candidates |
---|
10 | C(:,k)=candidates(:,i); |
---|
11 | for j=1:n_0 |
---|
12 | realization1(i,j)=generate_realization(apriori,H0,k,H_tilde,C,regulator_parameters); |
---|
13 | end |
---|
14 | end |
---|
15 | mean_values=mean(realization1,2); |
---|
16 | |
---|
17 | %RSSS |
---|
18 | if (compare_parameters.RSSS) |
---|
19 | h=compare_parameters.rinott; |
---|
20 | t=compare_parameters.student; |
---|
21 | variances=sum((realization1-mean_values*ones(1,n_0)).^2,2)/(n_0-1); |
---|
22 | W=t*sqrt((variances*ones(1,num_of_candidates)+ones(num_of_candidates,1)*variances')/n_0); |
---|
23 | |
---|
24 | pass=ones(num_of_candidates,1); %pass(i)=1 => i-ty kandidat jde do 2 faze |
---|
25 | for i=1:size(candidates) |
---|
26 | for j=1:size(candidates) |
---|
27 | if (mean_values(i)>mean_values(j)+max(0,W(i,j)-compare_parameters.delta)) %hledam minimum |
---|
28 | pass(i)=false; |
---|
29 | break; |
---|
30 | end |
---|
31 | end |
---|
32 | end |
---|
33 | |
---|
34 | if sum(pass)>1 |
---|
35 | %druha faze RSSS |
---|
36 | %sum(pass) |
---|
37 | for i=1:size(candidates) |
---|
38 | if (pass(i)) |
---|
39 | n_1=max(1,(-floor(-variances(i)*(h/compare_parameters.delta)^2))-n_0); |
---|
40 | n_1=min(100,n_1); |
---|
41 | realization2=zeros(1,n_1); |
---|
42 | C(index)=candidates(i); |
---|
43 | for j=1:n_1 |
---|
44 | realization2(j)=generate_realization(apriori,index,H_tilde,C,horizont); |
---|
45 | end |
---|
46 | mean_values(i)=mean_values(i)/(1+n_1/n_0)+mean(realization2)/(1+n_0/n_1); |
---|
47 | end |
---|
48 | end |
---|
49 | end |
---|
50 | end |
---|
51 | |
---|
52 | %volba kadnidata s nejmensi prumernou ztratou |
---|
53 | [min_val min_index]=min(mean_values); |
---|
54 | best_control=candidates(min_index); |
---|
55 | end |
---|