www.pudn.com > communication-systems-using-MATLAB-m-files.rar > closmskt.m

%Closes transmitter 
 
function closmskt(system) 
 
ss = get(0, 'ScreenSize'); 
sw = ss(3); 
 
if (nargin == 0) 
  % find current system 
  system = get_param(0,'CurrentSystem'); 
  % find Root System 
  while (~isempty(get_param(system, 'parent'))) 
    system = get_param(system, 'parent'); 
  end; 
  % check if  System loaded 
  if (exist(system) ~= 4) 
    clear system;  
  end; 
end; 
 
if (exist('system') == 0) 
  disp('No Simulink model found!'); 
else 
 
  if (exist(system) ~= 4) 
    disp(['System ',system,' not found.']) 
  else; 
 
    close_system([system, '/Transmitter/d(t)']); 
    close_system([system, '/Transmitter/a(t)']); 
    close_system([system, '/Transmitter/s_c(t)']); 
    close_system([system, '/Transmitter/s_s(t)']); 
    close_system([system, '/Transmitter/u_c(t)']); 
    close_system([system, '/Transmitter/u_s(t)']); 
    close_system([system, '/Transmitter/u(t)']); 
    close_system([system, '/Transmitter/phi(t)']); 
    close_system([system, '/Transmitter']); 
 
   
  end; 
 
end;