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

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）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????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

?????目錄??????????0??2018-01-17?17:40??encode_ME

-----------?---------??----------?-----??----

???????????????149659????????????????????10