comtmpo.m

来自「数字通信第四版原书的例程」· M 代码 · 共 14 行

%scrip file for commgui

%       Wes Wang 12/29/95
%       Copyright (c) 1995-96 by The MathWorks, Inc.
%       $Revision: 1.1 $  $Date: 1996/04/01 17:55:08 $

handle_com_tmp = get(gcf, 'UserData');
value_com_tmp = get(handle_com_tmp(34), 'string');
if ~isempty(deblank(value_com_tmp))
    eval(['set(', num2str(handle_com_tmp(34), 20), ',''UserData'',' value_com_tmp, ');']);
end;
clear handle_com_tmp
clear value_com_tmp