EnsembleInfo(filename)

function EnsembleInfo(filename)
%% Provides basic information about neural ensemble

%% Copyright (C) by Charles. H. Anderson and Chris Eliasmith (All Rights Reserved)
%% Dept. Anatomy and Neurobiology
%% Washington Univ. School of Medicine
%% St. Louis, MO
%% [e-mail]
%% [e-mail])

%% Modified Dec. 5, 2003 CHA

%% Feb. 25, 2001 Consolidation


if~exist(filename)
    if~exist([filename,'.mat'])
        DataBase = ['.',filesep];
        fullName = [DataBase,filename,'.mat'];
        if ~exist(fullName)
            DataBase = ['..',filesep,'NeuronData',filesep]; % Directory for storing the database.
            fullName = [DataBase,filename,'.mat'];
            if( ~exist(fullName))
                errstr= sprintf('Cannot find %s\n',filename);
                error(errstr);
            end    
        end
    else
        fullName = [filename,'.mat'];
    end
else
    fullName=filename;
end
% fprintf('%s\n',fullName);
load (fullName);
fprintf('%s: N=%d, D=%d, ModelType=%d, RandSeed=%d\n',filename,N,D,ModelType,RandSeed);
fprintf('maxFR=%5.2f, TRange=[%5.2f,%5.2f], SRange=[%5.2f,%5.2f]\n',maxFR,TRange,SRange);
if(ModelType==2)
    fprintf('trc=%7.3f, tref=%7.3f, epsilon=%5.2f, Radius=%5.2f, dR=%5.2e\n', trc, tref, trc/tref,Radius,dR);
end