%Rtbucku.m- Este es un programa auxiliar que  calcula
%el valor de la  razón de trabajo para el convertidor
%buck en el problema de seguimiento, este programa es 
%llamado por el  programa buckp.m 

function f=ubuck(M1);
global Alpha z j xd Phi1 Phi2 Z0 T Mua Mu i
  if Mua==0,
	Ter1=(Phi1*(1+Phi1^(M1))/2-Alpha)*z(j);
	Ter2=0;
	Ter3=0;
	Ter4=Phi2/2*(1-Phi1^(M1));
  else
	var1=Phi1^(Mua);
	var2=Phi1^(1-Mua);
	var3=Phi1^(M1);
	var4=Phi1^(-Mua);
	Ter1=(Phi1*(1+var3)/(1+var1)-Alpha)*z(j);
	Ter2=-Phi1*Phi2*(1+var3)*(1-var1)/(2*(1+var1));
	Ter3=sign(Mua)*(Phi1*(var4-1)+var2*var3*(1-var1));
	Ter4=Phi2/2*(Ter3+sign(M1)*(1-var3));
  end
f=Ter1+Ter2+Ter4+Alpha*xd(j)-xd(j+1);
end