%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%將BEC信道的各子信道進行容量計算并排序，確定相應(yīng)的凍結(jié)比特的位置
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%?
%?

function?A_c?=?choose_frozen_code（N?R?p）
n?=?2^N;?
Iw?=?zeros（1n）;
Iw_s?=?Iw;
A?=?zeros（1n*R）;
flag?=?1?:?n?;
flag_s?=?flag?;

for?index?=?0?:?N
????n_temp=?2^index;
????I?=?zeros（1n_temp）;
????if?index?==?0
????????I_temp?=?1-p?;
????else?
????????for?i?=?1?:?n_temp/2
????????????I（12*i-1）?=?I_temp（i）^2;
????????????I（12*i）?=?2*I_temp（i）?-?I（12*i-1）;
????????end
????????clear?I_temp;
????????I_temp?=?I;
????end
end
????Iw?=?I_temp?;

[Iw_sflag_s]=??qsort_main?（Iwflag）;

A_c?=?flag_s（1n*R+1:end）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2016-09-09?09:30??encode_ME\
?????文件?????????747??2015-10-15?14:39??encode_ME\choose_frozen_code.m
?????文件?????????498??2015-10-15?14:59??encode_ME\encode.m
?????文件?????????332??2015-10-13?15:14??encode_ME\polar_transform.m
?????文件?????????716??2015-10-15?14:36??encode_ME\qPartition.m
?????文件?????????316??2015-10-15?14:36??encode_ME\QSort.m
?????文件?????????494??2015-10-15?14:37??encode_ME\qsort_main.m
?????文件??????????39??2015-10-15?11:27??encode_ME\test.m
?????文件?????????157??2015-10-15?15:03??encode_ME\verifying.m
?????文件??????146360??2015-10-15?11:26??encode_ME\程序解釋說明.docx