Index: mttroot/mtt/bin/trans/dm2fr_m ================================================================== --- mttroot/mtt/bin/trans/dm2fr_m +++ mttroot/mtt/bin/trans/dm2fr_m @@ -13,10 +13,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.11 1998/08/11 13:32:42 peterg +## Lowercase mttLAST etc +## ## Revision 1.10 1998/07/27 20:27:25 peterg ## Now get parameters for simpar file. ## ## Revision 1.9 1998/02/26 15:12:26 peterg ## Removed parameter stuff @@ -92,28 +95,29 @@ mttwsteps = 100; end; W = logspace(mttwmin,mttwmax,mttwsteps)'; - if exist('u0')==0 - u0 = zeros(nu,1); - u0(1) = 1; + if exist('mttinput')==0 + mttinput = 1; end; + mttu0 = zeros(nu,1); + mttu0(mttinput) = 1; [n,m]=size(W); if m>n W=W'; end; - [n,m]=size(u0); + [n,m]=size(mttu0); if m>n - u0=u0'; + mttu0=mttu0'; end; [A,B,C,D,E] = $1_dm - fr = dm2fr(A,B,C,D,E,W,u0) + fr = dm2fr(A,B,C,D,E,W,mttu0); lw = log10(W); lmfr = log10(abs(fr)); pfr = angle(fr)*180/pi; % Complex frequency response