showqamr.m
上传用户:loeagle
上传日期:2013-03-02
资源大小:1236k
文件大小:1k
源码类别:

通讯编程文档

开发平台:

Matlab

  1. %Shows receiver 
  2. function showqamr(system)
  3. ss = get(0, 'ScreenSize');
  4. sw = ss(3);
  5. if (nargin == 0)
  6.   % find current system 
  7.   system = get_param(0,'CurrentSystem');
  8.   % find Root System 
  9.   while (~isempty(get_param(system, 'parent')))
  10.     system = get_param(system, 'parent');
  11.   end;
  12.   % check if  System loaded
  13.   if (exist(system) ~= 4)
  14.     clear system; 
  15.   end;
  16. end;
  17. if (exist('system') == 0)
  18.   disp('No Simulink model found!');
  19. else
  20.   if (exist(system) ~= 4)
  21.     disp(['System ',system,' not found.'])
  22.   else;
  23.     close_system([system, '/a_s(t) (transmitter)']);
  24.     close_system([system, '/a_c(t) (transmitter)']);
  25.     close_system([system, '/transmitted symbols']);
  26.     close_system([system, '/r(t)']);
  27.     close_system([system, '/u(t)']);
  28.     close_system([system, '/detected symbols']);
  29.     open_system([system, '/Receiver']);
  30.   end;
  31. end;