function?[RC]=interleaving（x）
%****************************************************************
%?內容概述：3GPP標準交織器
%?創?建?人：朱殿榮/QQ:235347/MSN:njzdr@msn.com
%?單????位：南京郵電大學，通信工程系
%?創建時間：2005年9月11日
%?修改時間：
%?參考文獻：
%?版權聲明：任何人均可復制、傳播、修改此文件，同時需保留原始版權信息。
%****************************************************************
%???K	Number?of?bits?input?to?Turbo?code?internal?interleaver
%???R	Number?of?rows?of?rectangular?matrix
%???C	Number?of?columns?of?rectangular?matrix
%???p	Prime?number
%???v	Primitive?root


K=length（x）;
%（1）	Determine?the?number?of?rows?of?the?rectangular?matrix?R
if?K>=40?&?K<=159
????R=5;
elseif?（K>=160?&?K<=200）|（K>=481?&?K<=530）
????R=10;
else
????R=20;
end

%（2）	Determine?the?prime?number?to?be?used?in?the?intra-permutation?p
%and?the?number?of?columns?of?rectangular?matrix?C
p_table=[7	11	13	17	19	23	29	31	37	41	43?...
????47	53	59	61	67	71	73	79	83	89	97?...
????101	103	107	109	113	127	131	137	139	149	151?...
????157	163	167	173	179	181	191	193	197	199	211?...
????223	227	229	233	239	241	251	257];
if?K>=481?&?K<=530
????p=53;
????C=p;
else
????%Find?minimum?prime?number?p?from?p_table
????ii=1;
????while?（p_table（ii）+1）*R????????ii=ii+1;
????end
????p=p_table（ii）;
????%determine?C?
????if?K<=（p-1）*R
????????C=p-1;
????elseif?K>（p-1）*R?&?K<=R*p
????????C=p;
????elseif?K>R*p
????????C=p+1;
????end
end
????????
????


%p_table=[7????47???101???157???223;...
%????11????53???103???163???227;...
%????13????59???107???167???229;...
%????17????61???109???173???233;...
%????19????67???113???179???239;...
%????23????71???127???181???241;...
%????29????73???131???191???251;...
%????31????79???137???193???257;...
%????37????83???139???197?????0;...
%????41????89???149???199?????0;...
%????43????97???151???211?????0];
???

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2013-06-12?21:05??turbo碼\
?????文件????????1282??2006-04-09?12:14??turbo碼\ReadMe.txt
?????目錄???????????0??2006-04-09?12:01??turbo碼\WuYuFei\
?????文件??????135600??2005-07-03?15:19??turbo碼\WuYuFei\00216.pdf
?????文件??????188329??2005-07-03?15:19??turbo碼\WuYuFei\Wu_Ebel_Woerner_vtc2k.pdf
?????文件?????1189332??2005-07-03?15:16??turbo碼\WuYuFei\prelim.pdf
?????文件??????199376??2005-07-03?15:19??turbo碼\WuYuFei\stop_criteria_final.pdf
?????目錄???????????0??2006-04-09?12:01??turbo碼\WuYufei_matlab\
?????文件?????????437??2005-09-02?21:23??turbo碼\WuYufei_matlab\bin_state.m
?????文件????????1134??2005-09-02?21:23??turbo碼\WuYufei_matlab\demultiplex.m
?????文件?????????653??2005-09-02?21:23??turbo碼\WuYufei_matlab\encode_bit.m
?????文件????????1752??2005-09-02?21:23??turbo碼\WuYufei_matlab\encoderm.m
?????文件?????????281??2005-09-02?21:23??turbo碼\WuYufei_matlab\int_state.m
?????文件????????3177??2005-09-02?21:23??turbo碼\WuYufei_matlab\logmapo.m
?????文件????????1104??2005-09-02?21:23??turbo碼\WuYufei_matlab\rsc_encode.m
?????文件????????3127??2005-09-02?21:23??turbo碼\WuYufei_matlab\sova0.m
?????文件????????1879??2005-09-02?21:24??turbo碼\WuYufei_matlab\trellis.m
?????文件??????107756??2005-09-02?21:37??turbo碼\WuYufei_matlab\turbo_logmap.txt
?????文件????????6403??2005-09-03?10:19??turbo碼\WuYufei_matlab\turbo_sys_demo.m
?????文件?????????324??2005-09-02?21:37??turbo碼\WuYufei_matlab\turbo_sys_demo.mat
?????目錄???????????0??2013-05-28?19:24??turbo碼\cap_turbo\
?????文件?????????301??2005-07-29?09:53??turbo碼\cap_turbo\14620x1000-zhang.mat
?????文件?????????360??2005-07-29?09:53??turbo碼\cap_turbo\2次迭代.mat
?????文件?????????643??2005-09-11?09:30??turbo碼\cap_turbo\3GPP_interleaving.asv
?????文件????????1916??2005-09-11?09:56??turbo碼\cap_turbo\3GPP_interleaving.m
?????文件?????????422??2005-07-29?09:54??turbo碼\cap_turbo\Loo算法不同迭代次數對比（S=0.625）.mat
?????文件????????9395??2005-07-29?09:54??turbo碼\cap_turbo\Loo算法不同迭代次數對比（遞歸S=0.625）.png
?????文件????????9107??2005-07-29?09:54??turbo碼\cap_turbo\Loo算法不同迭代次數對比（遞歸S=0.8）.png
?????文件?????????424??2005-07-29?09:54??turbo碼\cap_turbo\Loo算法不同迭代次數對比.mat
?????文件????????7454??2005-07-29?09:54??turbo碼\cap_turbo\Loo算法不同迭代次數對比.png
?????文件????????6144??2006-04-07?09:26??turbo碼\cap_turbo\Thumbs.db
............此處省略255個文件信息