-
Notifications
You must be signed in to change notification settings - Fork 7
/
setPMFAlgIndices.m
executable file
·82 lines (70 loc) · 3.98 KB
/
setPMFAlgIndices.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
function PMFalgIDs=setPMFAlgIndices
global NumOfMode PMFActParas
global XSpread YSpread backGroundColor lFontSize defaultFontName sFontSize;
if NumOfMode<1
errordlg('Load a tensor data first.','Input error');
return;
end
PMFActParas=[];
PMFalgIDs=ones(1,NumOfMode);
bkcolor=[0.8314 0.8157 0.7843];
nBorderWidth=.01;
dnBorderWidth=nBorderWidth*2;
PMFActParas=[];
hfigAlgID=figure('position',[0 0 max(240*XSpread,NumOfMode*150*XSpread) 250*YSpread],'Units','Characters','menu','none','toolbar','none',...
'Name','Select BSS algorithm','numbertitle','on','color',backGroundColor,'windowstyle','modal','visible','off','CloseRequestFcn',@exitBSSAlgID);
uicontrol('parent',hfigAlgID,'units','normalized','position',[nBorderWidth 0.8 1-dnBorderWidth 0.15],'style','text',...
'string','Set BSS algorithms for each mode:','backgroundcolor',bkcolor,'fontsize',lFontSize,'fontname',defaultFontName);
w=(1-dnBorderWidth)/NumOfMode;wp=w*0.8;
for n=1:NumOfMode
uicontrol('parent',hfigAlgID,'units','normalized','position',[nBorderWidth+(n-1)*w 0.65 wp 0.15],'style','text',...
'string',horzcat('Mode ',num2str(n)),'backgroundcolor',bkcolor,'fontsize',lFontSize,'fontname',defaultFontName,'horizontalalignment','left');
uicontrol('parent',hfigAlgID,'units','normalized','position',[nBorderWidth+(n-1)*w 0.55 wp 0.15],'style','popupmenu',...
'string',defstr('penalized matrix factorization'),'fontsize',lFontSize,'fontname',defaultFontName,'horizontalalignment','left','value',1,...
'userdata',n,'callback',@selPMFalg,'createFcn',@selPMFalg);
end
uicontrol('parent',hfigAlgID,'units','normalized','position',[nBorderWidth 0.45 1-dnBorderWidth 0.1],'style','text',...
'string','*[Free]: do not run BSS on this mode.','backgroundcolor',bkcolor,'fontsize',sFontSize+1,'fontname',defaultFontName,'horizontalalignment','left');
uicontrol('parent',hfigAlgID,'units','normalized','position',[0.3 0.3 0.4 0.13],'style','pushbutton',...
'string','Algorithm options','fontsize',lFontSize,'fontname',defaultFontName,'callback',@setPMFalgOpts);
uicontrol('parent',hfigAlgID,'units','normalized','position',[0.4 0.05 0.2 0.15],'style','pushbutton',...
'string','Confirm','fontsize',lFontSize,'fontname',defaultFontName,'horizontalalignment','left','value',1,...
'callback',@exitBSSAlgID);
movegui(hfigAlgID,'center');
set(hfigAlgID,'visible','on');
waitfor(hfigAlgID);
function selPMFalg(hObject,eventdata,source)
PMFalgIDs(get(hObject,'userdata'))=get(hObject,'value');
end
function setPMFalgOpts(hObject,eventdata,source)
flag=PMFalgIDs>1;
if sum(flag)>0
%% call guiSetOpts
[PMFparaList PMFalgs PMFparaTList]=PMFalgInit();
algPMFalgIDs=PMFalgIDs(flag)-1;
opts=guiSetOpts(PMFalgs(algPMFalgIDs),PMFparaTList(algPMFalgIDs),PMFparaList(algPMFalgIDs));
pos=1;
PMFActParas=cell(1,numel(algPMFalgIDs));
for cidx=1:numel(algPMFalgIDs)
PMFActParas{cidx}=opts{pos};
pos=pos+1;
end
end
end
function exitBSSAlgID(hObject,eventdata,source)
PMFalgIDs=reshape(PMFalgIDs,1,[]);
%% set default options for PMF here if it is empty
if isempty(PMFActParas) %% if the parameters are not set yet
flag=PMFalgIDs>1;
indices=PMFalgIDs(flag)-1;
[PMFparaList PMFalgs PMFparaTypeList]=PMFalgInit();
PMFparaList=ParaListParsing(PMFparaList,PMFparaTypeList,unique(indices));
pos=1;
for cidx=indices
PMFActParas{pos}=PMFparaList{cidx};
pos=pos+1;
end
end
delete(hfigAlgID);
end
end