开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 文章/文档 > 通讯编程文档 > 查看源码
closmskr.m
资源名称：现代通信系统matlab版源代码.zip　[点击查看]
上传用户：loeagle
上传日期：2013-03-02
资源大小：1236k
文件大小：1k
源码类别：

通讯编程文档

开发平台：

Matlab

closmskr.m：源码内容
  1. %Closes receiver
  3. function closmskr(system)
  5. ss = get(0, 'ScreenSize');
  6. sw = ss(3);
  8. if (nargin == 0)
  9.   % find current system
  10.   system = get_param(0,'CurrentSystem');
  11.   % find Root System
  12.   while (~isempty(get_param(system, 'parent')))
  13.     system = get_param(system, 'parent');
  14.   end;
  15.   % check if  System loaded
  16.   if (exist(system) ~= 4)
  17.     clear system; 
  18.   end;
  19. end;
  21. if (exist('system') == 0)
  22.   disp('No Simulink model found!');
  23. else
  25.   if (exist(system) ~= 4)
  26.     disp(['System ',system,' not found.'])
  27.   else;
  29.     close_system([system, '/Receiver/r(t)']);
  30.     close_system([system, '/Receiver/x_c(t)']);
  31.     close_system([system, '/Receiver/x_s(t)']);
  32.     close_system([system, '/Receiver/s_rc(t)']);
  33.     close_system([system, '/Receiver/s_rs(t)']);
  34.     close_system([system, '/Receiver/v(t)']);
  35.     close_system([system, '/Receiver/y(t)']);
  36.     close_system([system, '/Receiver']);
  38. %    open_system([system, '/Bin鋜signal']);
  39. %    open_system([system, '/gesendetes',13,'Symbol']);
  40. %    open_system([system, '/s(t)']);
  41. %    open_system([system, '/r(t)']);
  42. %    open_system([system, '/empfangenes',13,'Symbol']);
  44.   end;
  46. end;