TFCalc 膜系设计

TFCalc 3.36 膜系设计 光学 不是预览版 可以添加膜料

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个文件信息