comsave.m

数字通信第四版原书的例程

function comsave(com_fig)
%

%       Copyright (c) 1995-96 by The MathWorks, Inc.
%       $Revision: 1.1 $  $Date: 1996/04/01 17:54:49 $

handle = get(com_fig, 'UserData');
if ~isempty(handle)
    h_axes = handle(1);
    h_plot = handle(2);
    testl  = handle(3:7);
    popmu  = handle(8:12);
    entr_text = handle(13:32);
    entr_valu = handle(33:52);
    exec = handle(53:63);
    data_h = handle(60:63);
    load_save = handle(64:67);
    bar_color = handle(68:69);
else
    error('The GUI figure is distroyed. Close the window and restart COMMGUI.');
end;

for i = 1: 5
  popm_valu(i) = get(popmu(i), 'Value');
end;

valu_size = [];
valu_valu = [];
for i = 1 : 20
  str = get(entr_valu(i), 'String');
  valu_size = [valu_size length(str)];
  valu_valu = [valu_valu str];
end;
str = get(exec(5), 'String');
valu_size = [valu_size length(str)];
valu_valu = [valu_valu str];

comp_data = get(data_h(1), 'UserData');
for i = 2:3
  tmp  = get(data_h(i), 'UserData');
  if isempty(comp_data)
    comp_data = tmp;
  elseif ~isempty(tmp)
    if size(comp_data, 2) >= size(tmp, 2)
      comp_data = [comp_data; [tmp zeros(2, size(comp_data, 2)-size(tmp, 2))]];
    else
      comp_data = [[comp_data zeros(size(comp_data,1), size(tmp, 2)-size(comp_data, 2))] tmp];
    end;
  end;
end;
curr_data = get(data_h(4), 'UserData');

for i = 1:2
%  str = get(load_save(i), 'String');
  str = '';
  valu_size = [valu_size length(str)];
%  valu_valu = [valu_valu str];
end;

[filename, filepath] = uiputfile('*.mat', 'Save communication error rate computation GUI setting data to');
if isempty(filename) | (filename == 0)
    return;
end;
str = [filepath filename];
eval(['save ', str, ' popm_valu valu_size valu_valu comp_data curr_data'])