[1351] | 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 |
---|