Problem with function block - SIMULINK

Hello, Sorry on my English... I have one problem, maybe somebody can solve it... I am working with multi - winding transformers. I have 9 different windings and during the simulation i change it (from 1 to 9). When I am changing this windings, I am watching what happend with losses in closed-loop arrangement of feeders... I would like to make a function, wich found me the minimum of looses and on the end set my multi - winding transformer on that position, where are looses minimum. My inpout is 17001. And i have another problem....i have to watch losses in specific time. Do you have some diference suggestions, how can I solve this problem?? So i wrote a function on function block:

function C = fcn(Pr_C)
% #eml

% 1.odcep.--------------------------------------------

for j1 = 1400:1800 

if j1==1400;

      minimum1=Pr_C(j1);

if minimum1>Pr_C(j1)

      minimum1=Pr_C(j1);

      mesto1=j1;

end
end  
end

% 2.odcep---------------------------------------------------------

for j2 = 2800:3300 

if j2==2800;
    minimum2=Pr_C(j2);

if minimum2>Pr_C(j2)
    minimum2=Pr_C(j2);

      mesto2=j2;
  end
  end      
  end

% 3.odcep---------------------------------------------------------

for j3 = 4000:4400 

if j3==4000;
     minimum3=Pr_C(j3);

if  minimum3>Pr_C(j3)
     minimum3=Pr_C(j3);

      mesto3=j3;
  end
  end    
  end

% 4.odcep---------------------------------------------------------

for j4 = 5400:5800 

if j4==5400;
     minimum4=Pr_C(j4);

if  minimum4>Pr_C(j4)
     minimum4=Pr_C(j4);

      mesto4=j4;
  end
   end   
  end

% 5.odcep---------------------------------------------------------

for j5 = 6800:7100 

if j5==6800;
     minimum5=Pr_C(j5);

if  minimum5>Pr_C(j5)
     minimum5=Pr_C(j5);

      mesto5=j5;
  end
   end   
  end

% 6.odcep---------------------------------------------------------

for j6 = 8100:8600 

if j6==8100;
     minimum6=Pr_C(j6);

if  minimum6>Pr_C(j6)
     minimum6=Pr_C(j6);

      mesto6=j6;
  end
  end     
  end

% 7.odcep---------------------------------------------------------

for j7 = 9400:9600

if j7==9400;
    minimum7=Pr_C(j7);

if minimum7>Pr_C(j7)
    minimum7=Pr_C(j7);

      mesto7=j7;
  end
   end    
  end

% 8.odcep---------------------------------------------------------

for j8 = 10800:11200 

if j8==10800;
     minimum8=Pr_C(j8);

if  minimum8>Pr_C(j8)
     minimum8=Pr_C(j8);

      mesto8=j8;
  end
   end    
  end

% 9.odcep---------------------------------------------------------

for j9 = 11700:11900 

if j9==11700;
     minimum9=Pr_C(j9);

if  minimum9>Pr_C(j9)
     minimum9=Pr_C(j9);

      mesto9=j9;
  end
   end     
  end

% 10.odcep---------------------------------------------------------

for j10 = 13000:13800 

if j10==13000;
     minimum10=Pr_C(j10);

if  minimum10>Pr_C(j10)
     minimum10=Pr_C(j10);

      mesto10=j10;
  end
   end   
  end

% 11.odcep---------------------------------------------------------

for j11 = 14600:15100 

if j11==14600;
    minimum11=Pr_C(j11);

if minimum11>Pr_C(j11)
    minimum11=Pr_C(j11);

      mesto11=j11;
  end
  end     
  end

% 12.odcep---------------------------------------------------------

for j12 = 16000:16400 

if j12==16000;
    minimum12=Pr_C(j12);

if minimum12>Pr_C(j12)
    minimum12=Pr_C(j12);

      mesto12=j12;

end
 end   
end

C=min([
 minimum1,
 minimum2,
 minimum3,
 minimum4,
 minimum5,
 minimum6,
 minimum7,
 minimum8,
 minimum9,
 minimum10,
 minimum11,
 minimum12])

Thanks, Miha