mud.asv

这是盲信号的代码 都已经通过编译了 做这方面的同仁可以参考一下 我觉得蛮惯用的

function mud()

% copyright:2006.3.14
%author :xiaobing zhang

%盲多用户检测——线形同步DS-CDMA
%
% 图形用户界面
% 
% 本系统包括的盲多用户检测算法
% 最小输出能量盲多用户检测
% 恒模算法盲多用户检测
% Kalman滤波盲多用户检测
% 子空间盲多用户检测（特征值分解，自适应跟踪算法）
% 
%全局句柄
global hf_mud_MAIN;
global hf_mud_Load; 
%全局变量
global g_mud_name;
global ht_mud_Status;
global g_mud_mixedsig;
%
g_mud_name='';

%
FIGURENAME = '盲多用户检测系统';
FIGURETAG = 'f_FastICA';
SCREENSIZE = get(0,'ScreenSize');
FIGURESIZE = [round(0.1*SCREENSIZE(3)) (SCREENSIZE(4)-round(0.1*SCREENSIZE(4))-370) 530 370];
% Create the figure
a = figure('Color',[0.8 0.8 0.8], ...
       'PaperType','a4letter', ...
       'Name', FIGURENAME, ...
       'NumberTitle', 'off', ...
       'Tag', FIGURETAG, ...
       'Position', FIGURESIZE, ...
       'MenuBar', 'none');
   
set (a, 'Resize', 'off');

hf_mud_MAIN = a;
 
set(hf_mud_MAIN, 'HandleVisibility', 'callback');

% Create the frames
pos_l=2;
pos_w=FIGURESIZE(3)-4;
pos_h=FIGURESIZE(4)-4;
pos_t=FIGURESIZE(4)-2-pos_h;
h_f_background = uicontrol('Parent',a, ...
  'BackgroundColor',[0.701961 0.701961 0.701961], ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'Style','frame', ...
  'Tag','f_background');%背景框架
 
pos_l=4;
pos_w=400;
pos_h=106;
pos_t=FIGURESIZE(4)-4-pos_h;
h_f_mixed = uicontrol('Parent',a, ...
  'BackgroundColor',[0.701961 0.701961 0.701961], ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'Style','frame', ...
  'Tag','f_mixed');%数据信息


 
pos_h=pos_t - 4 - 2;
pos_t=4;
h_f_ica = uicontrol('Parent',a, ...
  'BackgroundColor',[0.701961 0.701961 0.701961], ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'Style','frame', ...
  'Tag','f_ica');
 
pos_w=120;
pos_l=FIGURESIZE(3)-(pos_w+2+2);
pos_h=FIGURESIZE(4)-2*4;
pos_t=FIGURESIZE(4)-(4)-pos_h;
h_f_side = uicontrol('Parent',a, ...
  'BackgroundColor',[0.5 0.8 0.5], ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'Style','frame', ...
  'Tag','f_side');

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Controls in f_mixed
bgc = get(h_f_mixed, 'BackgroundColor');
 
pos_vspace = 6;
pos_hspace = 6;
%提示信息 
pos_frame=get(h_f_mixed, 'Position');
pos_l = pos_frame(1) + 15;
pos_h = 30;
pos_t = pos_frame(2) + pos_frame(4) - pos_h - 26;
pos_w = 120;
b = uicontrol('Parent',a, ...
  'BackgroundColor',bgc, ...
  'HorizontalAlignment','left', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','接收信号:', ...
  'Style','text', ...
  'FontSize',16,...
  'Tag','t_mixed'); 
pos_l = pos_l + pos_w;
pos_w = 150;
ht_mud_signal = uicontrol('Parent',a, ...
  'BackgroundColor',bgc, ...
  'HorizontalAlignment','left', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','请加载接收信号', ...
  'FontSize',16,...
  'Style','text', ...
  'Tag','t_mixedstatus');

pos_l = pos_frame(1) + 15;
pos_w = 120;
pos_t = pos_frame(2) + pos_frame(4) - pos_h - 60;
b = uicontrol('Parent',a, ...
  'BackgroundColor',bgc, ...
  'HorizontalAlignment','left', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','扩 频 码:', ...
  'Style','text', ...
  'FontSize',16,...
  'Tag','t_mixed');
 
pos_l = pos_l + pos_w;
pos_w = 150;
ht_mud_code = uicontrol('Parent',a, ...
  'BackgroundColor',bgc, ...
  'HorizontalAlignment','left', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','请加载扩频码', ...
  'FontSize',16,...
  'Style','text', ...
  'Tag','t_mixedstatus');


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Controls in main frame
pos_frame=get(h_f_ica, 'Position');
pos_l = pos_frame(1) + 10;
pos_h = 20;
pos_t = pos_frame(2) + pos_frame(4) - pos_h - 16;
pos_w = 150;
b = uicontrol('Parent',a, ...
  'BackgroundColor',bgc, ...
  'HorizontalAlignment','left', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','盲多用户检测算法:', ...
  'FontSize',12,...
  'Style','text', ...
  'Tag','t_white');
 
pos_l = pos_l + pos_w;
pos_w = 240;
ht_mud_Status = uicontrol('Parent',a, ...
  'BackgroundColor',bgc, ...
  'HorizontalAlignment','left', ...
  'Position',[pos_l-10 pos_t pos_w pos_h], ...
  'String','请选择算法', ...
  'FontSize',12,...
  'Style','text', ...
  'Tag','t_icaStatus');


%**************增加算法单选按钮*************************************
h = uibuttongroup('Parent',a,...
    'visible','off','Position',[0 0 .4 1]);
 
u1 = uicontrol('Style','Radio','String','最小输出能量盲多用户检测',...
    'pos',[40 170 250 40],'parent',h,'FontSize',12,'HandleVisibility','off');
u2 = uicontrol('Style','Radio','String','恒模算法盲多用户检测',...
    'pos',[40 120 250 40],'parent',h,'FontSize',12,'HandleVisibility','off');
u3 = uicontrol('Style','Radio','String','Kalman滤波盲多用户检测',...
    'pos',[40 70 250 40],'parent',h,'FontSize',12,'HandleVisibility','off'); 
u4 = uicontrol('Style','Radio','String','子空间盲多用户检测',...
    'pos',[40 20 250 40],'parent',h,'FontSize',12,'HandleVisibility','off');
set(h,'SelectionChangeFcn',@selcbk);
set(h,'SelectedObject',[]);  % No selection
set(h,'Visible','on');

%***********右边按钮*****************************
% Controls in f_side
pos_vspace = 16;
pos_hspace = 10;
pos_temp=get(h_f_side, 'Position');
pos_l=pos_temp(1)+pos_hspace;
pos_w=100;
pos_h=30;
pos_t=pos_temp(2)+pos_temp(4)-pos_vspace-pos_h;
 
b = uicontrol('Parent',a, ...
  'BackgroundColor',[0.701961 0.701961 0.701961], ...
  'Callback','gui_cb LoadData', ...
  'Interruptible', 'off', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','加载数据', ...
  'FontSize',12,...
  'Tag','b_LoadData');
 
 
pos_t=pos_t-pos_h-pos_vspace;
b = uicontrol('Parent',a, ...
  'BackgroundColor',[0.701961 0.701961 0.701961], ...
  'Callback','gui_cb DoFPICA', ...
  'Interruptible', 'on', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','期望扩频码', ...
  'FontSize',12,...
  'Tag','b_LoadCode');
 
pos_t=pos_t-pos_h-pos_vspace;
b = uicontrol('Parent',a, ...
  'BackgroundColor',[0.701961 0.701961 0.701961], ...
  'Callback','gui_cb DoMud', ...
  'Interruptible', 'off', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','盲检测', ...
  'FontSize',12,...
  'Tag','b_mud');
 
pos_t=pos_t-pos_h-pos_vspace;
b = uicontrol('Parent',a, ...
  'BackgroundColor',[0.701961 0.701961 0.701961], ...
  'Callback','gui_cb Quit', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','退  出', ...
  'FontSize',12,...
  'Tag','b_Quit');
 
pos_t=pos_t-pos_h-pos_vspace;
b = uicontrol('Parent',a, ...
  'BackgroundColor',[0.701961 0.701961 0.701961], ...
  'Callback','gui_cb Interrupt', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','Interrupt', ...
  'Visible','off', ...
  'Tag','b_Interrupt');
 
pos_t = pos_frame(2) + pos_vspace + pos_h + pos_vspace;
b = uicontrol('Parent',a, ...
  'BackgroundColor',[0.701961 0.701961 0.701961], ...
  'Callback','gui_cb About', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','About...', ...
  'Tag','b_About');
 
pos_t = pos_frame(2) + pos_vspace;
b = uicontrol('Parent',a, ...
  'BackgroundColor',[0.701961 0.701961 0.701961], ...
  'Callback','gui_cb Help', ...
  'Position',[pos_l pos_t pos_w pos_h], ...
  'String','Help', ...
  'Tag','b_Help');