mdtraffic.asv

steganography program

close all;
clear all;
buf=0;
lamda=rand(1)+0.9;
lamda=lamda*100;
tran=poissrnd(lamda,15,1);
disp(tran);
min_lp=input('Enter the minimal packet loss:');
for i=1:15,
    loss(i)=tran-100;
end
loss(find(loss<0))=0;
tot_tran=sum(tran);
l=sum(loss);
l1=(l/tot_tran)*100;
s=sprintf('loss without buffer is:%d',l1);
disp(s);
buffer=0;
while(l),
    temp=loss;
    buffer=buffer+1;
    buf=buffer;
    for i=1:15,
        if(temp(i)<buf)
            temp(i)=0;
            buf=buf-temp(i);
            if(temp(i)>buf)
                temp(i)=temp(i)-buf;
                buf=0;
            else
                temp(i)=0;
                buf=0;
            end
        end
        tot_loss=sum(temp);
        lp=(tot_loss/tot_tran)*100;
        s=sprintf('packet loss for buffer size %d=%d',buf,lp);
        if(lp==min_lp)
            break;
        end
    end
    s=dprintf('the optimal buffer size is:%d',buf);
    disp(s);