0001 function ltpdv_buildSpectralPanel(panH, mainfig)
0002
0003
0004 Gproperties = getappdata(mainfig, 'Gproperties');
0005
0006
0007 preFcns = {'psd';...
0008 'lpsd'; ...
0009 'tfe'; ...
0010 'ltfe'; ...
0011 'cohere'; ...
0012 'lcohere'; ...
0013 'cpsd'; ...
0014 'lcpsd'; ...
0015 'linedetect'; ...
0016 'rms'; ...
0017 };
0018
0019
0020 pmarg = 0.025;
0021
0022
0023 ll = pmarg;
0024 lh = 0.05;
0025 lb = 1-pmarg-lh;
0026 lw = 0.3;
0027 sth = uicontrol(panH,'Style','text',...
0028 'String','Functions',...
0029 'Units', 'normalized', ...
0030 'BackgroundColor', Gproperties.Gcol, ...
0031 'Fontsize', 14, ...
0032 'Position',[ll lb lw lh]);
0033
0034
0035 pl = pmarg + 0.3 + pmarg;
0036 pb = 0.1;
0037 pw = 1-pl-pmarg;
0038 ph = 1 - pb - pmarg;
0039
0040 paramh = uipanel('Parent',panH,'Title','Parameters',...
0041 'Units', 'normalized', ...
0042 'BackgroundColor', 0.8*[0.99 0.92 0.82], ...
0043 'Fontsize', 14, ...
0044 'Tag', 'LTPDVspectralparampan', ...
0045 'Position',[pl pb pw ph]);
0046
0047
0048 ll = pmarg;
0049 lb = pmarg;
0050 lw = 0.3;
0051 lh = 1-2*pmarg - 0.05;
0052 lh = uicontrol(panH, 'Style', 'listbox', ...
0053 'String', preFcns,...
0054 'BackgroundColor', 'w', ...
0055 'Value',1, 'Units', 'normalized', ...
0056 'Fontsize', 14, ...
0057 'Tag', 'LTPDVspectralfcnlist', ...
0058 'Position',[ll lb lw lh], ...
0059 'Callback', {@ltpdv_spectral_fcnlist, paramh, mainfig});
0060
0061
0062 ltpdv_spectral_fcnlist(lh, paramh, mainfig);
0063
0064
0065 phght = 0.05;
0066 pbott = pmarg;
0067 pwidt = 0.2;
0068 pleft = 1-pmarg-pwidt;
0069 pbh = uicontrol(panH,'Style','pushbutton',...
0070 'String','Process',...
0071 'Callback', {@ltpdv_fcn_run, 'spectral', panH, mainfig}, ...
0072 'Units', 'normalized', ...
0073 'Position',[pleft pbott pwidt phght]);
0074
0075
0076