function?x?=?crt（am）;
%?This?function?solves?the?Chinese?Remainder?Theorem?problem:
%???x=?a（1）?mod?m（1）
%???x=?a（2）?mod?m（2）
%???...
%???x=?a（r）?mod?m（r）
%?The?values?for?a?and?m?should?be?a?vector?of?the?same?dimension

if?any（size（a）?~=?size（m））
???error（‘The?vectors?a?and?m?should?be?the?same?size‘）;
end;

r=length（a）;

M=prod（m）;??%?calculate?the?total?modulus

x=0;

for?j=1:r
???x=x+?a（j）*（M/m（j））*invmodn（M/m（j）m（j））;
???x=mod（xM）;
end;???

???

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

?????文件????????459??2011-11-06?14:31??crt（matlab）\crt.m

?????文件????????477??2014-07-23?10:24??crt（matlab）\invmodn.m

?????目錄??????????0??2014-10-29?12:59??crt（matlab）

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

??????????????????936????????????????????3