0001
0002
0003
0004
0005
0006
0007
0008 function pl = ltpdv_get_params_from_panel(parampanh)
0009
0010
0011
0012 pancomps = getappdata(parampanh, 'pancomps');
0013
0014
0015 pl = plist();
0016 for j=1:size(pancomps,1)
0017
0018
0019 keyf = pancomps{j,1};
0020 valf = pancomps{j,2};
0021 actf = pancomps{j,3};
0022
0023
0024 if get(actf, 'Value')
0025
0026 key = get(keyf, 'String');
0027
0028
0029 valclass = getappdata(valf, 'valClass');
0030
0031 switch valclass
0032 case 'char'
0033 val = get(valf, 'String');
0034 case 'double'
0035 val = get(valf, 'String');
0036 try
0037 val = eval(val);
0038 end
0039 case 'sym'
0040 val = get(valf, 'String');
0041 val = sym(val);
0042 case 'specwin'
0043 strs = get(valf, 'String');
0044 idx = get(valf, 'Value');
0045 val = strs{idx};
0046 if strcmp(val, 'Kaiser')
0047 val = specwin(val, 10, 150);
0048 else
0049 val = specwin(val, 10);
0050 end
0051 case 'time'
0052 val = get(valf, 'String');
0053 val = time(val);
0054 otherwise
0055 error(['### Unsupported value class: ' valclass]);
0056 end
0057
0058
0059 pl = append(pl, key, val);
0060 end
0061 end
0062
0063 end