c=1.0000;w=1;t5=1;r5=0;
x0=[3,3,3,3];
x1=[3,3,3,3];

lb=[0,0,0,0];
ub=[];
options=optimset('LargeScale','off','TolFun',0.0001);
while c>=0.0001
    x=fmincon(@atcF1,x0,[],[],[],[],lb,ub,@nonConstraintATC1,options)
    t5=x(4)
    x0=x;
    x=fmincon(@atcF2,x1,[],[],[],[],lb,ub,@nonConstraintATC2,options) 
    r5=x(2)
    x1=x
    c=abs(t5-r5)
end