www.pudn.com > tfarma10.rar > param_dim.asv, change:2005-08-13,size:1147b


function [M, L, F]= param_dim(Cml)
% function 
%   This file is part of the TFPM toolbox v1.0 (c)
%   michael.jachan@tuwien.ac.at and underlies the GPL.
% 
% Determines the system dimensions M and L from the parameter
% matrix Cml. 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clear;%tfpm;
N    = 256;
MAR  =   3;
LAR  =   2;
MMA  =   0;
LMA  = LAR;
re_im= 'i';
mo_no= 'n';
F    =   4;
%filename= sprintf('vtfar%02d%02d%02d%04d', MAR, LAR, F, N)
%load(filename);
%-------------
Cml= AML;

clear;%tfpm;
N    = 256;
MAR  =   3;
LAR  =   2;
MMA  =   0;
LMA  = LAR;
re_im= 'i';
mo_no= 'n';
tfpm_file_gen;
%-------------
Cml= Aml;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

dimension= size(Cml);

if(length(dimension)==2)
   M= dimension(2)-1;
   L= (dimension(1)-1)/2;
   F= 1;
else
   M= dimension(4)-1;
   L= (dimension(3)-1)/2;
   F= dimension(1);   
end;