n=1:1000;
f=25;
fs=8000;
x=10*sin(2*pi*n*f/fs);
subplot(2,1,1);
stem(n,x);
delta=0.125;
inc=0;
y(n)=0;
for n=1:1000
    if(x(n)>=inc)
       inc=inc+delta;
       y(n)=1;
    end
    if(x(n)<=inc)
        inc=inc-delta;
        y(n)=0;
    end
end
n=1:1000;
subplot(2,1,2);
stem(n,y);