compage1.m

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

set_param([sys,'/','Channel/Sub-system5/Sub-system7'],...
		'Mask Display','Co-channel interference')


%     Finished composite block 'Channel/Sub-system5/Sub-system7'.

set_param([sys,'/','Channel/Sub-system5/Sub-system7'],...
		'hide name',0,...
		'position',[30,142,200,178])

add_block('built-in/Mux',[sys,'/','Channel/Sub-system5/Mux'])
set_param([sys,'/','Channel/Sub-system5/Mux'],...
		'inputs','2',...
		'position',[270,46,305,79])

add_block('built-in/Outport',[sys,'/','Channel/Sub-system5/out_1'])
set_param([sys,'/','Channel/Sub-system5/out_1'],...
		'position',[395,55,415,75])
add_line([sys,'/','Channel/Sub-system5'],[205,45;230,45;230,55;265,55])
add_line([sys,'/','Channel/Sub-system5'],[205,100;230,100;230,70;265,70])
add_line([sys,'/','Channel/Sub-system5'],[310,65;390,65])
set_param([sys,'/','Channel/Sub-system5'],...
		'Mask Display','Interference')


%     Finished composite block 'Channel/Sub-system5'.

set_param([sys,'/','Channel/Sub-system5'],...
		'hide name',0,...
		'position',[165,141,235,189])

add_block('built-in/Note',[sys,'/','Channel/Satellite Communications'])
set_param([sys,'/','Channel/Satellite Communications'],...
		'position',[70,215,75,220])

add_block('built-in/Note',[sys,'/','Channel/Fiber Optic Communications'])
set_param([sys,'/','Channel/Fiber Optic Communications'],...
		'position',[80,240,85,245])


%     Subsystem  'Channel/Sub-system1'.

new_system([sys,'/','Channel/Sub-system1'])
set_param([sys,'/','Channel/Sub-system1'],'Location',[575,99,983,538])


%     Subsystem  'Channel/Sub-system1/Sub-system1'.

new_system([sys,'/','Channel/Sub-system1/Sub-system1'])
set_param([sys,'/','Channel/Sub-system1/Sub-system1'],'Location',[185,298,593,741])

add_block('built-in/Outport',[sys,'/','Channel/Sub-system1/Sub-system1/out_1'])
set_param([sys,'/','Channel/Sub-system1/Sub-system1/out_1'],...
		'position',[295,85,315,105])

add_block('built-in/Constant',[sys,'/','Channel/Sub-system1/Sub-system1/Switch Key'])
set_param([sys,'/','Channel/Sub-system1/Sub-system1/Switch Key'],...
		'position',[115,100,135,120])
add_line([sys,'/','Channel/Sub-system1/Sub-system1'],[140,110;210,110;210,95;290,95])
set_param([sys,'/','Channel/Sub-system1/Sub-system1'],...
		'Mask Display','LO phase noise')


%     Finished composite block 'Channel/Sub-system1/Sub-system1'.

set_param([sys,'/','Channel/Sub-system1/Sub-system1'],...
		'hide name',0,...
		'position',[30,26,120,74])


%     Subsystem  'Channel/Sub-system1/Sub-system2'.

new_system([sys,'/','Channel/Sub-system1/Sub-system2'])
set_param([sys,'/','Channel/Sub-system1/Sub-system2'],'Location',[568,271,976,714])

add_block('built-in/Outport',[sys,'/','Channel/Sub-system1/Sub-system2/out_1'])
set_param([sys,'/','Channel/Sub-system1/Sub-system2/out_1'],...
		'position',[295,85,315,105])

add_block('built-in/Constant',[sys,'/','Channel/Sub-system1/Sub-system2/Switch Key'])
set_param([sys,'/','Channel/Sub-system1/Sub-system2/Switch Key'],...
		'position',[130,85,150,105])
add_line([sys,'/','Channel/Sub-system1/Sub-system2'],[155,95;290,95])
set_param([sys,'/','Channel/Sub-system1/Sub-system2'],...
		'Mask Display','Random Noise')


%     Finished composite block 'Channel/Sub-system1/Sub-system2'.

set_param([sys,'/','Channel/Sub-system1/Sub-system2'],...
		'hide name',0,...
		'position',[30,101,120,149])


%     Subsystem  'Channel/Sub-system1/Sub-system3'.

new_system([sys,'/','Channel/Sub-system1/Sub-system3'])
set_param([sys,'/','Channel/Sub-system1/Sub-system3'],'Location',[568,271,976,714])

add_block('built-in/Outport',[sys,'/','Channel/Sub-system1/Sub-system3/out_1'])
set_param([sys,'/','Channel/Sub-system1/Sub-system3/out_1'],...
		'position',[295,85,315,105])

add_block('built-in/Constant',[sys,'/','Channel/Sub-system1/Sub-system3/Switch Key'])
set_param([sys,'/','Channel/Sub-system1/Sub-system3/Switch Key'],...
		'position',[110,85,130,105])
add_line([sys,'/','Channel/Sub-system1/Sub-system3'],[135,95;290,95])
set_param([sys,'/','Channel/Sub-system1/Sub-system3'],...
		'Mask Display','Atmosphere Noise')


%     Finished composite block 'Channel/Sub-system1/Sub-system3'.

set_param([sys,'/','Channel/Sub-system1/Sub-system3'],...
		'hide name',0,...
		'position',[30,171,135,219])


%     Subsystem  'Channel/Sub-system1/Sub-system4'.

new_system([sys,'/','Channel/Sub-system1/Sub-system4'])
set_param([sys,'/','Channel/Sub-system1/Sub-system4'],'Location',[568,271,976,714])

add_block('built-in/Outport',[sys,'/','Channel/Sub-system1/Sub-system4/out_1'])
set_param([sys,'/','Channel/Sub-system1/Sub-system4/out_1'],...
		'position',[295,85,315,105])

add_block('built-in/Constant',[sys,'/','Channel/Sub-system1/Sub-system4/Switch Key'])
set_param([sys,'/','Channel/Sub-system1/Sub-system4/Switch Key'],...
		'Value','2',...
		'position',[95,80,115,100])
add_line([sys,'/','Channel/Sub-system1/Sub-system4'],[120,90;200,90;200,95;290,95])
set_param([sys,'/','Channel/Sub-system1/Sub-system4'],...
		'Mask Display','IM Noise')


%     Finished composite block 'Channel/Sub-system1/Sub-system4'.

set_param([sys,'/','Channel/Sub-system1/Sub-system4'],...
		'hide name',0,...
		'position',[30,231,135,279])


%     Subsystem  'Channel/Sub-system1/Sub-system5'.

new_system([sys,'/','Channel/Sub-system1/Sub-system5'])
set_param([sys,'/','Channel/Sub-system1/Sub-system5'],'Location',[568,271,976,714])

add_block('built-in/Outport',[sys,'/','Channel/Sub-system1/Sub-system5/out_1'])
set_param([sys,'/','Channel/Sub-system1/Sub-system5/out_1'],...
		'position',[295,85,315,105])

add_block('built-in/Constant',[sys,'/','Channel/Sub-system1/Sub-system5/Switch Key'])
set_param([sys,'/','Channel/Sub-system1/Sub-system5/Switch Key'],...
		'position',[100,85,120,105])
add_line([sys,'/','Channel/Sub-system1/Sub-system5'],[125,95;290,95])
set_param([sys,'/','Channel/Sub-system1/Sub-system5'],...
		'Mask Display','Terrestrial Noise')


%     Finished composite block 'Channel/Sub-system1/Sub-system5'.

set_param([sys,'/','Channel/Sub-system1/Sub-system5'],...
		'hide name',0,...
		'position',[30,291,135,339])


%     Subsystem  'Channel/Sub-system1/Sub-system6'.

new_system([sys,'/','Channel/Sub-system1/Sub-system6'])
set_param([sys,'/','Channel/Sub-system1/Sub-system6'],'Location',[568,271,976,714])

add_block('built-in/Outport',[sys,'/','Channel/Sub-system1/Sub-system6/out_1'])
set_param([sys,'/','Channel/Sub-system1/Sub-system6/out_1'],...
		'position',[295,85,315,105])

add_block('built-in/Constant',[sys,'/','Channel/Sub-system1/Sub-system6/Switch Key'])
set_param([sys,'/','Channel/Sub-system1/Sub-system6/Switch Key'],...
		'position',[65,85,85,105])
add_line([sys,'/','Channel/Sub-system1/Sub-system6'],[90,95;290,95])
set_param([sys,'/','Channel/Sub-system1/Sub-system6'],...
		'Mask Display','Receiver Noise')


%     Finished composite block 'Channel/Sub-system1/Sub-system6'.

set_param([sys,'/','Channel/Sub-system1/Sub-system6'],...
		'hide name',0,...
		'position',[30,361,135,409])

add_block('built-in/Mux',[sys,'/','Channel/Sub-system1/Mux'])
set_param([sys,'/','Channel/Sub-system1/Mux'],...
		'inputs','2',...
		'position',[220,206,255,239])

add_block('built-in/Mux',[sys,'/','Channel/Sub-system1/Mux1'])
set_param([sys,'/','Channel/Sub-system1/Mux1'],...
		'inputs','2',...
		'position',[230,81,265,114])

add_block('built-in/Mux',[sys,'/','Channel/Sub-system1/Mux2'])
set_param([sys,'/','Channel/Sub-system1/Mux2'],...
		'inputs','2',...
		'position',[235,321,270,354])

add_block('built-in/Outport',[sys,'/','Channel/Sub-system1/out_1'])
set_param([sys,'/','Channel/Sub-system1/out_1'],...
		'position',[365,215,385,235])

add_block('built-in/Sum',[sys,'/','Channel/Sub-system1/Sum'])
set_param([sys,'/','Channel/Sub-system1/Sum'],...
		'inputs','+++',...
		'position',[325,207,345,243])
add_line([sys,'/','Channel/Sub-system1'],[125,50;170,50;170,90;225,90])
add_line([sys,'/','Channel/Sub-system1'],[125,125;170,125;170,105;225,105])
add_line([sys,'/','Channel/Sub-system1'],[140,195;170,195;170,215;215,215])
add_line([sys,'/','Channel/Sub-system1'],[140,255;170,255;170,230;215,230])
add_line([sys,'/','Channel/Sub-system1'],[140,315;180,315;180,330;230,330])
add_line([sys,'/','Channel/Sub-system1'],[140,385;180,385;180,345;230,345])
add_line([sys,'/','Channel/Sub-system1'],[270,100;280,100;280,215;320,215])
add_line([sys,'/','Channel/Sub-system1'],[260,225;320,225])
add_line([sys,'/','Channel/Sub-system1'],[275,340;280,340;280,235;320,235])
add_line([sys,'/','Channel/Sub-system1'],[350,225;360,225])
set_param([sys,'/','Channel/Sub-system1'],...
		'Mask Display','Noise')


%     Finished composite block 'Channel/Sub-system1'.

set_param([sys,'/','Channel/Sub-system1'],...
		'hide name',0,...
		'position',[165,10,235,60])

add_block('built-in/Sum',[sys,'/','Channel/Sum'])
set_param([sys,'/','Channel/Sum'],...
		'inputs','+++',...
		'position',[340,77,360,113])

add_block('built-in/Outport',[sys,'/','Channel/out_1'])
set_param([sys,'/','Channel/out_1'],...
		'position',[455,85,475,105])
add_line([sys,'/','Channel'],[60,95;160,95])
add_line([sys,'/','Channel'],[240,35;295,35;295,85;335,85])
add_line([sys,'/','Channel'],[240,165;295,165;295,105;335,105])
add_line([sys,'/','Channel'],[240,95;335,95])
add_line([sys,'/','Channel'],[365,95;450,95])
set_param([sys,'/','Channel'],...
		'Mask Display','Channel',...
		'Mask Dialogue','eval(''com_chan;'')')


%     Finished composite block 'Channel'.

set_param([sys,'/','Channel'],...
		'hide name',0,...
		'move name',0,...
		'position',[460,270,540,320])

add_block('built-in/Note',[sys,'/','a communication system:'])
set_param([sys,'/','a communication system:'],...
		'ForeGround',4,...
		'Font Weight','bold',...
		'position',[100,306,105,311])


%     Subsystem  'Click here'.

new_system([sys,'/','Click here'])
set_param([sys,'/','Click here'],'Location',[136,230,381,439])
set_param([sys,'/','Click here'],...
		'Mask Display','A complete\nstructure',...
		'Mask Dialogue','eval(''commu'')')


%     Finished composite block 'Click here'.

set_param([sys,'/','Click here'],...
		'BackGround',7,...
		'Font Angle','italic',...
		'position',[385,336,470,382])
add_line(sys,[655,295;675,295])
add_line(sys,[545,295;565,295])
add_line(sys,[435,295;455,295])
add_line(sys,[325,295;345,295])

drawnow

% Return any arguments.
if (nargin | nargout)
	% Must use feval here to access system in memory
	if (nargin > 3)
		if (flag == 0)
			eval(['[ret,x0,str,ts,xts]=',sys,'(t,x,u,flag);'])
		else
			eval(['ret =', sys,'(t,x,u,flag);'])
		end
	else
		[ret,x0,str,ts,xts] = feval(sys);
	end
else
	drawnow % Flash up the model and execute load callback
end