ben2asys.m

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

%     Finished composite block ['Pitch Autopilot',13,'Channel/G6'].

set_param([sys,'/',['Pitch Autopilot',13,'Channel/G6']],...
		'position',[405,175,435,225])

add_block('built-in/Gain',[sys,'/',['Pitch Autopilot',13,'Channel/Gain7']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Gain7']],...
		'hide name',0,...
		'Gain','k9',...
		'position',[555,180,585,210])

add_block('built-in/Sum',[sys,'/',['Pitch Autopilot',13,'Channel/Sum2']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Sum2']],...
		'hide name',0,...
		'inputs','-+++',...
		'position',[505,172,525,218])


%     Subsystem  ['Pitch Autopilot',13,'Channel/G7G8G9'].

new_system([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9']],'Location',[100,100,300,300])


%     Subsystem  ['Pitch Autopilot',13,'Channel/G7G8G9/G9'].

new_system([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9']],'Location',[100,100,300,300])

add_block('built-in/Transfer Fcn',[sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9/Transfer Fcn8']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9/Transfer Fcn8']],...
		'hide name',0,...
		'Numerator','gn92',...
		'Denominator','gd92',...
		'position',[155,15,210,55])

add_block('built-in/Transfer Fcn',[sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9/Transfer Fcn7']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9/Transfer Fcn7']],...
		'hide name',0,...
		'Numerator','gn91',...
		'Denominator','gd91',...
		'position',[70,15,125,55])

add_block('built-in/Outport',[sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9/Out_1']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9/Out_1']],...
		'position',[260,30,280,40])

add_block('built-in/Inport',[sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9/In_1']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9/In_1']],...
		'position',[25,30,45,40])
add_line([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9']],[50,35;65,35])
add_line([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9']],[130,35;150,35])
add_line([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9']],[215,35;255,35])


%     Finished composite block ['Pitch Autopilot',13,'Channel/G7G8G9/G9'].

set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/G9']],...
		'position',[240,10,270,60])

add_block('built-in/Inport',[sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/In_1']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/In_1']],...
		'position',[25,30,45,40])

add_block('built-in/Outport',[sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/Out_1']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/Out_1']],...
		'position',[320,30,340,40])

add_block('built-in/Transfer Fcn',[sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/Transfer Fcn5']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9/Transfer Fcn5']],...
		'hide name',0,...
		'Numerator','gn7',...
		'Denominator','gd7',...
		'position',[70,15,115,55])
add_line([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9']],[50,35;65,35])
add_line([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9']],[120,35;235,35])
add_line([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9']],[275,35;315,35])


%     Finished composite block ['Pitch Autopilot',13,'Channel/G7G8G9'].

set_param([sys,'/',['Pitch Autopilot',13,'Channel/G7G8G9']],...
		'position',[605,170,635,220])

add_block('built-in/Outport',[sys,'/',['Pitch Autopilot',13,'Channel/U']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/U']],...
		'position',[670,184,685,206])

add_block('built-in/Sum',[sys,'/',['Pitch Autopilot',13,'Channel/Sum']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Sum']],...
		'hide name',0,...
		'inputs','2',...
		'position',[130,110,160,130])

add_block('built-in/Gain',[sys,'/',['Pitch Autopilot',13,'Channel/Gain8']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Gain8']],...
		'hide name',0,...
		'Gain','k3',...
		'position',[70,165,100,195])

add_block('built-in/Gain',[sys,'/',['Pitch Autopilot',13,'Channel/Gain1']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Gain1']],...
		'hide name',0,...
		'Gain','k1 * k2',...
		'position',[260,20,290,50])

add_block('built-in/Gain',[sys,'/',['Pitch Autopilot',13,'Channel/Gain']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Gain']],...
		'hide name',0,...
		'Gain','1.2',...
		'position',[190,20,220,50])

add_block('built-in/Gain',[sys,'/',['Pitch Autopilot',13,'Channel/Gain6']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Gain6']],...
		'hide name',0,...
		'Gain','k2 * k5',...
		'position',[190,190,220,220])

add_block('built-in/Inport',[sys,'/',['Pitch Autopilot',13,'Channel/Y1']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Y1']],...
		'Port','4',...
		'position',[30,245,45,265])

add_block('built-in/Inport',[sys,'/',['Pitch Autopilot',13,'Channel/Y4']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Y4']],...
		'Port','3',...
		'position',[30,170,45,190])

add_block('built-in/Inport',[sys,'/',['Pitch Autopilot',13,'Channel/Np']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Np']],...
		'Port','2',...
		'position',[30,105,45,125])

add_block('built-in/Inport',[sys,'/',['Pitch Autopilot',13,'Channel/Ncp']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Ncp']],...
		'position',[30,25,45,45])

add_block('built-in/Transfer Fcn',[sys,'/',['Pitch Autopilot',13,'Channel/Transfer Fcn4']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Transfer Fcn4']],...
		'hide name',0,...
		'Numerator','gn5',...
		'Denominator','gd5',...
		'position',[330,235,375,275])

add_block('built-in/Gain',[sys,'/',['Pitch Autopilot',13,'Channel/Gain5']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Gain5']],...
		'hide name',0,...
		'Gain','k2 * k6',...
		'position',[190,240,220,270])

add_block('built-in/Gain',[sys,'/',['Pitch Autopilot',13,'Channel/Gain4']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Gain4']],...
		'hide name',0,...
		'Gain','k2 * k4',...
		'position',[190,140,220,170])

add_block('built-in/Gain',[sys,'/',['Pitch Autopilot',13,'Channel/Gain2']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/Gain2']],...
		'hide name',0,...
		'Gain','k1 * k2',...
		'position',[190,70,220,100])


%     Subsystem  ['Pitch Autopilot',13,'Channel/G1G2'].

new_system([sys,'/',['Pitch Autopilot',13,'Channel/G1G2']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G1G2']],'Location',[100,100,300,300])

add_block('built-in/Inport',[sys,'/',['Pitch Autopilot',13,'Channel/G1G2/In_1']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G1G2/In_1']],...
		'position',[25,30,45,40])

add_block('built-in/Transfer Fcn',[sys,'/',['Pitch Autopilot',13,'Channel/G1G2/Transfer Fcn']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G1G2/Transfer Fcn']],...
		'hide name',0,...
		'Numerator','gn2',...
		'Denominator','gd2',...
		'position',[145,15,195,55])

add_block('built-in/Outport',[sys,'/',['Pitch Autopilot',13,'Channel/G1G2/Out_1']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G1G2/Out_1']],...
		'position',[230,30,250,40])
add_line([sys,'/',['Pitch Autopilot',13,'Channel/G1G2']],[50,35;140,35])
add_line([sys,'/',['Pitch Autopilot',13,'Channel/G1G2']],[200,35;225,35])


%     Finished composite block ['Pitch Autopilot',13,'Channel/G1G2'].

set_param([sys,'/',['Pitch Autopilot',13,'Channel/G1G2']],...
		'position',[260,62,290,108])


%     Subsystem  ['Pitch Autopilot',13,'Channel/G1G3'].

new_system([sys,'/',['Pitch Autopilot',13,'Channel/G1G3']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G1G3']],'Location',[100,100,300,300])

add_block('built-in/Inport',[sys,'/',['Pitch Autopilot',13,'Channel/G1G3/In_1']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G1G3/In_1']],...
		'position',[25,30,45,40])

add_block('built-in/Transfer Fcn',[sys,'/',['Pitch Autopilot',13,'Channel/G1G3/z']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G1G3/z']],...
		'hide name',0,...
		'Numerator','gn3',...
		'Denominator','gd3',...
		'position',[150,12,205,58])

add_block('built-in/Outport',[sys,'/',['Pitch Autopilot',13,'Channel/G1G3/Out_1']])
set_param([sys,'/',['Pitch Autopilot',13,'Channel/G1G3/Out_1']],...
		'position',[235,30,255,40])
add_line([sys,'/',['Pitch Autopilot',13,'Channel/G1G3']],[50,35;145,35])
add_line([sys,'/',['Pitch Autopilot',13,'Channel/G1G3']],[210,35;230,35])


%     Finished composite block ['Pitch Autopilot',13,'Channel/G1G3'].

set_param([sys,'/',['Pitch Autopilot',13,'Channel/G1G3']],...
		'position',[260,130,290,180])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[165,120;175,120;185,85])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[175,120;185,155])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[50,255;185,255])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[115,255;115,205;185,205])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[375,200;400,200])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[590,195;600,195])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[530,195;550,195])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[225,35;255,35])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[50,180;65,180])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[50,115;125,115])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[50,35;185,35])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[295,155;315,155;315,195;335,195])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[225,155;255,155])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[225,85;255,85])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[225,255;325,255])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[225,205;335,205])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[380,255;415,255;475,210;500,210])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[440,200;500,200])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[105,180;115,180;125,125])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[295,35;330,35;475,180;500,180])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[295,85;370,85;475,190;500,190])
add_line([sys,'/',['Pitch Autopilot',13,'Channel']],[640,195;665,195])


%     Finished composite block ['Pitch Autopilot',13,'Channel'].

set_param([sys,'/',['Pitch Autopilot',13,'Channel']],...
		'position',[230,20,285,100])

add_block('built-in/Inport',[sys,'/','u'])
set_param([sys,'/','u'],...
		'position',[20,70,40,90])

add_block('built-in/Scope',[sys,'/','Np'])
set_param([sys,'/','Np'],...
		'Vgain','1.500000',...
		'Hgain','10.200000',...
		'Vmax','2.000000',...
		'Hmax','20.400000',...
		'Window',[686,245,930,407],...
		'position',[545,73,575,107])
add_line(sys,[400,35;490,35;490,187;150,187;150,50;225,50])
add_line(sys,[490,90;540,90])
add_line(sys,[45,80;65,80;65,35;125,35])
add_line(sys,[60,25;125,25])
add_line(sys,[155,30;225,30])
add_line(sys,[490,145;545,145])
add_line(sys,[400,35;530,35])
add_line(sys,[400,60;475,60;475,167;175,167;175,70;225,70])
add_line(sys,[400,85;460,85;460,145;195,145;195,90;225,90])
add_line(sys,[290,60;340,60])

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
end