function?PT?=?findpitch（s）
[B?A]?=?butter（5?700/4000）;
s?=?filter（BAs）;
R?=?zeros（1431）;
for?k=1:143
????R（k）?=?s（144:223）‘*s（144-k:223-k）;
end
[R1T1]?=?max（R（80:143））;
T1?=?T1?+?79;
R1?=?R1/（norm（s（144-T1:223-T1））+1）;
[R2T2]?=?max（R（40:79））;
T2?=?T2?+?39;
R2?=?R2/（norm（s（144-T2:223-T2））+1）;
[R3T3]?=?max（R（20:39））;
T3?=?T3?+?19;
R3?=?R3/（norm（s（144-T3:223-T3））+1）;
Top?=?T1;
Rop?=?R1;
if?R2?>=?0.85*Rop
????Rop?=?R2;
????Top?=?T2;
end
if?R3?>?0.85*Rop
????Rop?=?R3;
????Top?=?T3;
end
PT?=?Top;
return

?屬性????????????大小?????日期????時(shí)間???名稱(chēng)
-----------?---------??----------?-----??----

?????文件???????7053??2012-07-14?15:11??speechproc.m

?????文件????????511??2012-07-14?10:56??tf_1.m

?????文件????????395??2012-07-14?10:57??tf_12.m

?????文件???????4032??2012-07-14?16:09??Tomvoice_14.m

?????文件????????198??2012-07-13?15:42??unitSample_7.m

?????文件????????537??2012-07-14?19:25??findpitch.m

?????文件???????6266??2012-07-14?19:41??GUItone_15.m

?????文件????????210??2012-07-13?16:48??PT_8.m

?????文件????????361??2012-07-13?19:52??PTfilter_9.m

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

????????????????19563????????????????????9