com_momp.m

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

		'position',[130,165,150,185])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband1/I1']])
set_param([sys,'/',['QAM',13,'baseband1/I1']],...
		'position',[193,43,198,48])

add_block('built-in/Inport',[sys,'/',['QAM',13,'baseband1/in_2']])
set_param([sys,'/',['QAM',13,'baseband1/in_2']],...
		'Port','2',...
		'position',[135,55,155,75])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband1/R2']])
set_param([sys,'/',['QAM',13,'baseband1/R2']],...
		'position',[125,135,130,140])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband1/I2']])
set_param([sys,'/',['QAM',13,'baseband1/I2']],...
		'position',[190,155,195,160])

add_block('built-in/Product',[sys,'/',['QAM',13,'baseband1/Product3']])
set_param([sys,'/',['QAM',13,'baseband1/Product3']],...
		'position',[310,183,340,207])

add_block('built-in/Product',[sys,'/',['QAM',13,'baseband1/Product2']])
set_param([sys,'/',['QAM',13,'baseband1/Product2']],...
		'position',[310,228,340,252])

add_block('built-in/Sum',[sys,'/',['QAM',13,'baseband1/Sum1']])
set_param([sys,'/',['QAM',13,'baseband1/Sum1']],...
		'position',[385,210,405,230])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband1/I_out']])
set_param([sys,'/',['QAM',13,'baseband1/I_out']],...
		'position',[445,206,450,211])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband1/Ref: Hambley: An Intro to Comm. Systems. pp72']])
set_param([sys,'/',['QAM',13,'baseband1/Ref: Hambley: An Intro to Comm. Systems. pp72']],...
		'position',[260,370,265,375])
add_line([sys,'/',['QAM',13,'baseband1']],[550,140;580,140])
add_line([sys,'/',['QAM',13,'baseband1']],[345,240;355,240;355,225;380,225])
add_line([sys,'/',['QAM',13,'baseband1']],[345,195;355,195;355,215;380,215])
add_line([sys,'/',['QAM',13,'baseband1']],[160,65;245,65;245,100;295,100])
add_line([sys,'/',['QAM',13,'baseband1']],[250,100;250,245;305,245])
add_line([sys,'/',['QAM',13,'baseband1']],[155,175;280,175;280,110;295,110])
add_line([sys,'/',['QAM',13,'baseband1']],[280,175;280,200;305,200])
add_line([sys,'/',['QAM',13,'baseband1']],[105,155;270,155;270,50;295,50])
add_line([sys,'/',['QAM',13,'baseband1']],[270,155;270,235;305,235])
add_line([sys,'/',['QAM',13,'baseband1']],[120,40;295,40])
add_line([sys,'/',['QAM',13,'baseband1']],[238,40;238,190;305,190])
add_line([sys,'/',['QAM',13,'baseband1']],[335,105;345,105;345,75;370,75])
add_line([sys,'/',['QAM',13,'baseband1']],[335,45;345,45;345,65;370,65])
add_line([sys,'/',['QAM',13,'baseband1']],[400,70;425,70;425,130;465,130])
add_line([sys,'/',['QAM',13,'baseband1']],[410,220;425,220;425,150;465,150])
set_param([sys,'/',['QAM',13,'baseband1']],...
		'Mask Display','plot(0,0,100,100,x,y,u,v);QAM',...
		'Mask Type','QM DSB-SC AM CE')
set_param([sys,'/',['QAM',13,'baseband1']],...
		'Mask Dialogue','Modulate the in-phase and quadrature\ncomponent signal from the 1st and 2nd\ninput ports, baseband simulation.|Initial phase (rad):')
set_param([sys,'/',['QAM',13,'baseband1']],...
		'Mask Translate','Ph=@1;x1=cos(Ph);x2=sin(Ph);[x,y]=moduicon(1);[u,v]=cmplxicn(1,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['QAM',13,'baseband1']],...
		'Mask Help','This block outputs the complex envelope of the quadratic multiplexed double-sideband suppressed-carrier amplitude modulated signal. The 1st and 2nd input ports input the in-phase and quadrature components. The output is a complex signal.')
set_param([sys,'/',['QAM',13,'baseband1']],...
		'Mask Entries','0\/')


%     Finished composite block ['QAM',13,'baseband1'].

set_param([sys,'/',['QAM',13,'baseband1']],...
		'ForeGround',4,...
		'position',[150,193,230,237])


%     Subsystem  ['QAM',13,'baseband2'].

new_system([sys,'/',['QAM',13,'baseband2']])
set_param([sys,'/',['QAM',13,'baseband2']],'Location',[321,500,954,793])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband2/Ref: Hambley: An Intro to Comm. Systems. pp72']])
set_param([sys,'/',['QAM',13,'baseband2/Ref: Hambley: An Intro to Comm. Systems. pp72']],...
		'position',[260,370,265,375])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband2/I_out']])
set_param([sys,'/',['QAM',13,'baseband2/I_out']],...
		'position',[445,206,450,211])

add_block('built-in/Sum',[sys,'/',['QAM',13,'baseband2/Sum1']])
set_param([sys,'/',['QAM',13,'baseband2/Sum1']],...
		'position',[385,210,405,230])

add_block('built-in/Product',[sys,'/',['QAM',13,'baseband2/Product2']])
set_param([sys,'/',['QAM',13,'baseband2/Product2']],...
		'position',[310,228,340,252])

add_block('built-in/Product',[sys,'/',['QAM',13,'baseband2/Product3']])
set_param([sys,'/',['QAM',13,'baseband2/Product3']],...
		'position',[310,183,340,207])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband2/I2']])
set_param([sys,'/',['QAM',13,'baseband2/I2']],...
		'position',[190,155,195,160])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband2/R2']])
set_param([sys,'/',['QAM',13,'baseband2/R2']],...
		'position',[125,135,130,140])

add_block('built-in/Inport',[sys,'/',['QAM',13,'baseband2/in_2']])
set_param([sys,'/',['QAM',13,'baseband2/in_2']],...
		'Port','2',...
		'position',[135,55,155,75])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband2/I1']])
set_param([sys,'/',['QAM',13,'baseband2/I1']],...
		'position',[193,43,198,48])

add_block('built-in/Constant',[sys,'/',['QAM',13,'baseband2/Constant1']])
set_param([sys,'/',['QAM',13,'baseband2/Constant1']],...
		'Value','x2',...
		'position',[130,165,150,185])

add_block('built-in/Constant',[sys,'/',['QAM',13,'baseband2/Constant']])
set_param([sys,'/',['QAM',13,'baseband2/Constant']],...
		'Value','x1',...
		'position',[80,145,100,165])

add_block('built-in/Outport',[sys,'/',['QAM',13,'baseband2/out_1']])
set_param([sys,'/',['QAM',13,'baseband2/out_1']],...
		'position',[585,130,605,150])

add_block('built-in/Inport',[sys,'/',['QAM',13,'baseband2/in_1']])
set_param([sys,'/',['QAM',13,'baseband2/in_1']],...
		'position',[95,30,115,50])

add_block('built-in/Mux',[sys,'/',['QAM',13,'baseband2/RI2C']])
set_param([sys,'/',['QAM',13,'baseband2/RI2C']],...
		'inputs','2',...
		'Mask Display','Real/Imag\nto Complex',...
		'Mask Type','Real/Imag to Complex',...
		'Mask Dialogue','Construct complex vector from real and imaginary vectors.')
set_param([sys,'/',['QAM',13,'baseband2/RI2C']],...
		'Mask Help','The Real/Imag to Complex block creates a complex output from the two inputs. It uses a Mux block to append the complex part (input 2) to the real part (input 1).')
set_param([sys,'/',['QAM',13,'baseband2/RI2C']],...
		'position',[470,119,545,161])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband2/R_out']])
set_param([sys,'/',['QAM',13,'baseband2/R_out']],...
		'position',[445,45,450,50])

add_block('built-in/Sum',[sys,'/',['QAM',13,'baseband2/Sum']])
set_param([sys,'/',['QAM',13,'baseband2/Sum']],...
		'inputs','+-',...
		'position',[375,60,395,80])

add_block('built-in/Product',[sys,'/',['QAM',13,'baseband2/Product1']])
set_param([sys,'/',['QAM',13,'baseband2/Product1']],...
		'position',[300,93,330,117])

add_block('built-in/Product',[sys,'/',['QAM',13,'baseband2/Product']])
set_param([sys,'/',['QAM',13,'baseband2/Product']],...
		'position',[300,33,330,57])

add_block('built-in/Note',[sys,'/',['QAM',13,'baseband2/R1']])
set_param([sys,'/',['QAM',13,'baseband2/R1']],...
		'position',[190,15,195,20])
add_line([sys,'/',['QAM',13,'baseband2']],[410,220;425,220;425,150;465,150])
add_line([sys,'/',['QAM',13,'baseband2']],[400,70;425,70;425,130;465,130])
add_line([sys,'/',['QAM',13,'baseband2']],[335,45;345,45;345,65;370,65])
add_line([sys,'/',['QAM',13,'baseband2']],[335,105;345,105;345,75;370,75])
add_line([sys,'/',['QAM',13,'baseband2']],[120,40;295,40])
add_line([sys,'/',['QAM',13,'baseband2']],[238,40;238,190;305,190])
add_line([sys,'/',['QAM',13,'baseband2']],[105,155;270,155;270,50;295,50])
add_line([sys,'/',['QAM',13,'baseband2']],[270,155;270,235;305,235])
add_line([sys,'/',['QAM',13,'baseband2']],[155,175;280,175;280,110;295,110])
add_line([sys,'/',['QAM',13,'baseband2']],[280,175;280,200;305,200])
add_line([sys,'/',['QAM',13,'baseband2']],[160,65;245,65;245,100;295,100])
add_line([sys,'/',['QAM',13,'baseband2']],[250,100;250,245;305,245])
add_line([sys,'/',['QAM',13,'baseband2']],[345,195;355,195;355,215;380,215])
add_line([sys,'/',['QAM',13,'baseband2']],[345,240;355,240;355,225;380,225])
add_line([sys,'/',['QAM',13,'baseband2']],[550,140;580,140])
set_param([sys,'/',['QAM',13,'baseband2']],...
		'Mask Display','plot(0,0,100,100,x,y,u,v);QAM',...
		'Mask Type','QM DSB-SC AM CE')
set_param([sys,'/',['QAM',13,'baseband2']],...
		'Mask Dialogue','Modulate the in-phase and quadrature\ncomponent signal from the 1st and 2nd\ninput ports, baseband simulation.|Initial phase (rad):')
set_param([sys,'/',['QAM',13,'baseband2']],...
		'Mask Translate','Ph=@1;x1=cos(Ph);x2=sin(Ph);[x,y]=moduicon(1);[u,v]=cmplxicn(1,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['QAM',13,'baseband2']],...
		'Mask Help','This block outputs the complex envelope of the quadratic multiplexed double-sideband suppressed-carrier amplitude modulated signal. The 1st and 2nd input ports input the in-phase and quadrature components. The output is a complex signal.')
set_param([sys,'/',['QAM',13,'baseband2']],...
		'Mask Entries','0\/')


%     Finished composite block ['QAM',13,'baseband2'].

set_param([sys,'/',['QAM',13,'baseband2']],...
		'ForeGround',4,...
		'position',[150,268,230,312])


%     Subsystem  ['PM',13,'baseband'].

new_system([sys,'/',['PM',13,'baseband']])
set_param([sys,'/',['PM',13,'baseband']],'Location',[320,489,688,666])

add_block('built-in/Mux',[sys,'/',['PM',13,'baseband/Mux']])
set_param([sys,'/',['PM',13,'baseband/Mux']],...
		'inputs','2',...
		'position',[250,51,285,84])

add_block('built-in/Outport',[sys,'/',['PM',13,'baseband/out_1']])
set_param([sys,'/',['PM',13,'baseband/out_1']],...
		'position',[315,60,335,80])

add_block('built-in/Fcn',[sys,'/',['PM',13,'baseband/sin']])
set_param([sys,'/',['PM',13,'baseband/sin']],...
		'Expr','sin(u)',...
		'position',[155,106,210,134])

add_block('built-in/Fcn',[sys,'/',['PM',13,'baseband/cos']])
set_param([sys,'/',['PM',13,'baseband/cos']],...
		'Expr','cos(u)',...
		'position',[155,46,210,74])

add_block('built-in/Inport',[sys,'/',['PM',13,'baseband/in_1']])
set_param([sys,'/',['PM',13,'baseband/in_1']],...
		'position',[35,50,55,70])
add_line([sys,'/',['PM',13,'baseband']],[215,60;245,60])
add_line([sys,'/',['PM',13,'baseband']],[290,70;310,70])
add_line([sys,'/',['PM',13,'baseband']],[215,120;230,120;230,75;245,75])
add_line([sys,'/',['PM',13,'baseband']],[60,60;150,60])
add_line([sys,'/',['PM',13,'baseband']],[130,60;130,120;150,120])
set_param([sys,'/',['PM',13,'baseband']],...
		'Mask Display','plot(0,0,100,100,x,y,u,v);PM',...
		'Mask Type','PM CE',...
		'Mask Dialogue','Output the complex envelope of a PM\nmodulated signal.|Initial phase (rad):')
set_param([sys,'/',['PM',13,'baseband']],...
		'Mask Translate','Ph=@1;pi2=2*pi;[x,y]=moduicon(3);[u,v]=cmplxicn(1,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['PM',13,'baseband']],...
		'Mask Help','This block outputs the complex envelope of the phase modulated signal. The output of this block is a complex signal.',...
		'Mask Entries','0\/')


%     Finished composite block ['PM',13,'baseband'].

set_param([sys,'/',['PM',13,'baseband']],...
		'ForeGround',4,...
		'position',[150,493,230,537])


%     Subsystem  ['DSB AM',13,'baseband'].

new_system([sys,'/',['DSB AM',13,'baseband']])
set_param([sys,'/',['DSB AM',13,'baseband']],'Location',[212,430,575,573])

add_block('built-in/Outport',[sys,'/',['DSB AM',13,'baseband/out_1']])
set_param([sys,'/',['DSB AM',13,'baseband/out_1']],...
		'position',[320,50,340,70])

add_block('built-in/Product',[sys,'/',['DSB AM',13,'baseband/Product']])
set_param([sys,'/',['DSB AM',13,'baseband/Product']],...
		'position',[255,42,280,73])

add_block('built-in/Inport',[sys,'/',['DSB AM',13,'baseband/in_1']])
set_param([sys,'/',['DSB AM',13,'baseband/in_1']],...
		'position',[115,15,135,35])

add_block('built-in/Mux',[sys,'/',['DSB AM',13,'baseband/Mux']])
set_param([sys,'/',['DSB AM',13,'baseband/Mux']],...
		'inputs','2',...
		'position',[170,66,205,99])

add_block('built-in/Constant',[sys,'/',['DSB AM',13,'baseband/Constant1']])
set_param([sys,'/',['DSB AM',13,'baseband/Constant1']],...
		'Value','x2',...