function [C,ktetnien, Usr, Ut, kt, ir, vr, ta, td] = doborC_2(P,z1,z2,v0,f,t0,t2,dt)
%z1,z2 zakres pojemności
%P -moc żarówki
%v0 amplituda wartosc poczatkowa
%t2 to tmax w prostowniku
%[vs,vr,ic,ir,id,ta,td,indta,indtd] = prostownik(R,C,v0,f,tmax,krok)
krok=10/10^6;
Rnom=v0^2/P;
zakres=z1:krok:z2; %zakres(i) - wartość C w chwili i




for i=1:length(zakres)
    C=zakres(i);
    [vs,vr,ic,ir,id,ta,td] = prostownik(Rnom,C,v0,f,t2,t0,dt);
    kiedy=find(ir+ic<=0);
    ind1=kiedy(1,1);
    n=2:(length(kiedy)-1);
    ind3=find(kiedy(n)~=(kiedy(n+1)-1),1);
    ind2=kiedy(1,ind3);
    ind2=ind2+1;
    vrnowe=vr(1,ind1:ind2);
    Usr=mean(vrnowe);
    Ut=max(vrnowe)-min(vrnowe);
    kt=Ut/Usr;
    moc=vrnowe.^2/Rnom;    %wektor
    mocsr=mean(moc);
    Pt=max(moc)-min(moc);       %amplituda tetnien
    ktetnien=Pt/mocsr;
    if ktetnien<0.05
        break;
    else
    end
end
end