Documentation of idconfcp

Global Index (short | long) | Local contents | Local Index (short | long)

Function Synopsis

idconfcp(modaxes,docalc)

Help text

IDCONFCP Asks if confidence intervals should be computed, and does so if desired.

Cross-Reference Information

Listing of function idconfcp

function idconfcp(modaxes,docalc)

%   L. Ljung 9-27-94
%   Copyright (c) 1986-98 by The MathWorks, Inc.
%   $Revision: 3.3 $  $Date: 1997/12/02 03:43:20 $

global XIDplotw XIDcounters
if nargin<2,docalc=0;end

for axh=modaxes(:)'
axmod=findobj(axh,'tag','modelline');
axnam=findobj(axh,'tag','name');
axdum=findobj(axh,'tag','ny0');
complex=get(axdum(1),'userdata');
calc=1;
if ~docalc
  time=complex*XIDcounters(6);time=ceil(time/5)*5;
  text=str2mat(...
    ['It will take about ',int2str(time),' seconds to compute confidence'],...
    ['intervals for the model ',get(axnam,'string')],...
     'Do you want these calculations to be carried out?',...
    '(If you answer ''no'', the question won''t be repeated for this model)');
  click=questdlg(text,'Computing Time');
  if strcmp(click,'No')
     delete(axdum),calc=0;
  end
  if strcmp(click,'Cancel')
     calc=0;
  end
end % if docalc
if calc
tic
   Model=get(axmod,'userdata');
   modtem=Model;
   delete(axdum);
   [nr,nc]=size(Model);ny=Model(1,4);
   sizeinfo=[ny;nr;nc;nr*nc+3*ny+5];Model=Model(:);
   for ky=1:ny
         modelky=thss2th(modtem,ky,'noises');[nr,nc]=size(modelky);
         Model=[Model;modelky(:)];
         sizeinfo=[sizeinfo;nr;nc;sizeinfo(length(sizeinfo))+nr*nc];
   end
   Model=[sizeinfo;Model];
   set(axmod,'UserData',Model)
   modtag=get(axh,'tag');
   eltime=toc;XIDcounters(6)=eltime/complex;
   modnr=eval(modtag(6:length(modtag)));
   for fig=2:7,iduiclpw(fig,1,modnr);end
end
end