function?tf=tfcalc（pdatfreqv）
%TFCALC?Calculate?transfer?function?values?from?parameters
%
%???????tf=TFCALC（pdatfreqv）
%
%???????Output?arguments:
%???????tf?=?transfer?function?values
%
%???????Input?arguments:
%???????pdat?=?parameter?vector?（see?expfou）
%???????freqv?=?frequency?vector
%
%???????Usage:?tf=tfcalc（pdatfreqv）;

%???????Copyright?（c）?I.?Kollar?and?Vrije?Universiteit?Brussel?ELEC?1991-98
%???????All?rights?reserved.
%???????$Revision:?1.6?$
%???????Last?modified:?04-Oct-1996

if?nargin<2?error（‘freqv?is?not?given‘）?end
if?min（size（freqv））~=1?error（‘freqv?is?not?a?vector‘）?end
freqv=freqv（:）;
[domainnumdenomdelayfsZnumZdenom]=imppar（pdat）;
if?strcmp（domain‘z‘）
??tf=exp（-sqrt（-1）*freqv/fs*2*pi*delay）...
????????.*polyval（num（length（num）:-1:1）exp（-sqrt（-1）*freqv*2*pi/fs））...
????????./polyval（denom（length（denom）:-1:1）exp（-sqrt（-1）*freqv*2*pi/fs））;
elseif?strcmp（domain‘s‘）
??tf=exp（-sqrt（-1）*freqv*2*pi*delay/fs）...
????????.*polyval（numsqrt（-1）*2*pi*freqv/fs）...
????????./polyval（denomsqrt（-1）*2*pi*freqv/fs）;
elseif?strcmp（domain‘p‘）
??%tf=exp（-sqrt（-1）*freqv*2*pi*delay/fs）...
??%??????.*orthpval（numZnumfreqv/fs）./orthpval（denomZdenomfreqv/fs）;
elseif?strcmp（domain‘w‘）
??tf=exp（-sqrt（-1）*freqv*2*pi*delay/fs）...
????????.*polyval（numsqrt（sqrt（-1）*2*pi*freqv/fs））...
????????./polyval（denomsqrt（sqrt（-1）*2*pi*freqv/fs））;
end
tf=tf（:）;
%%%%%%%%%%%%%%%%%%%%%%%%?end?of?tfcalc?%%%%%%%%%%%%%%%%%%%%%%%%

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

?????文件????1575936??1999-05-14?14:20??TFCALC3.36\Tfcal.exe

?????文件????????774??2008-12-24?23:09??TFCALC3.36\TFCALC.CFG

?????文件??????93239??1998-08-18?21:27??TFCALC3.36\TFCALC.HLP

????..A..H.?????16826??2005-03-12?11:18??TFCALC3.36\TFCALC.GID

?????文件???????2823??2005-09-26?15:02??TFCALC3.36\Crash15015932.TFD

?????文件??????31747??2005-09-29?15:09??TFCALC3.36\Crash15091450.TFD

?????文件???????1416??2005-11-19?11:26??TFCALC3.36\Crash11262864.TFD

????..A.SH.???????281??2005-12-03?09:53??TFCALC3.36\Desktop.ini

????..A.SH.????????10??2006-10-10?09:23??TFCALC3.36\_desktop.ini

?????文件???????2115??2002-03-22?09:14??TFCALC3.36\AUTOTARG\4layer.TFD

?????文件???????3024??2002-03-22?09:15??TFCALC3.36\AUTOTARG\CONTEST.TFD

?????文件???????3613??2002-03-22?09:15??TFCALC3.36\AUTOTARG\EDGE.TFD

?????文件???????4833??2002-03-22?09:15??TFCALC3.36\AUTOTARG\POLAR_BS.TFD

?????文件???????3250??2002-03-22?09:16??TFCALC3.36\AUTOTARG\RAMP.TFD

?????文件???????4349??2004-08-04?16:16??TFCALC3.36\AUTOTARG\IR-CUT.TFD

?????文件???????3707??2003-10-09?15:42??TFCALC3.36\AUTOTARG\1092-2.TFD

?????文件???????6367??2004-04-21?21:32??TFCALC3.36\AUTOTARG\1310-1550.tfd

?????文件???????7413??2004-04-27?08:47??TFCALC3.36\AUTOTARG\1310-1550-2.tfd

?????文件???????7414??2004-04-27?08:54??TFCALC3.36\AUTOTARG\1310-1550-3.tfd

?????文件???????5580??2005-03-09?01:23??TFCALC3.36\AUTOTARG\200-380HR?420-500HT?520-1100HR.tfd

?????文件???????4880??2004-11-26?19:39??TFCALC3.36\AUTOTARG\200-400HR?420-740HT?760-1100HR.tfd

?????文件???????6426??2005-03-12?17:35??TFCALC3.36\AUTOTARG\2222222.tfd

?????文件???????3848??2004-11-24?22:43??TFCALC3.36\AUTOTARG\300-380hr?415-465ht?520-600hr-29.tfd

?????文件???????4750??2005-01-08?16:30??TFCALC3.36\AUTOTARG\300-400HR?420-480HT?500-600HR.tfd

?????文件???????3561??2004-12-15?20:04??TFCALC3.36\AUTOTARG\350-400HR420-460HT480-520HR540-680HT700-800HR.tfd

?????文件???????4007??2004-11-23?23:41??TFCALC3.36\AUTOTARG\380-630ht?660-860hr.tfd

?????文件???????3766??2002-03-22?09:17??TFCALC3.36\AUTOTARG\4_layer.TFD

?????文件???????5544??2005-03-12?11:06??TFCALC3.36\AUTOTARG\400-1100hr?1140-1550ht.tfd

?????文件???????4952??2005-03-02?22:52??TFCALC3.36\AUTOTARG\400-500PBF.tfd

?????文件???????6181??2005-01-08?16:35??TFCALC3.36\AUTOTARG\400-500PBF-2.tfd

............此處省略891個文件信息