項目三：LT短信源数据包数目情况下，譯碼性能

clc;clear;
m = 500;
K = 500;
overhead = [550 600 650 700 750 800];
i_ii =10000;%0;
for iii = 1:6
n = overhead(iii);
for i_i = 1:i_ii
if mod(i_i,100)0
i_i
end
c = 0.04;
o = 0.5;
x = ones(1,m);
x_1 = rand(1,m)<0.5 ; %信源碼字
Pgenerate = rand(1,n); %隨機生成n個數
S = c*sqrt(K)*log(K/o);
Z = 0;
for d = 1:K
index_d = 2:K;
if find(dindex_d)
PP = 1/d/(d-1);
elseif d1
PP = 1/K;
end
P_P(d) = PP;
d_index = 1:round(K/S)-1;
if (find(dd_index))
tt = S/K/d;
elseif d==round(K/S)
tt = S/Klog(S/o);
else
tt = 0;
end
t(d) = tt;
Z = Z + P_P(d)+t(d);
end
P_P;
t;
Z;
for d = 1:K
P(d) = (P_P(d)+t(d))/Z;
end