tceps2cd.m

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

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

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

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

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

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

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

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

add_block('built-in/Note',[sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1/Ref: Hambley: An Intro to Comm. Systems. pp72']])
set_param([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1/Ref: Hambley: An Intro to Comm. Systems. pp72']],...
		'position',[260,370,265,375])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[550,140;580,140])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[345,240;355,240;355,225;380,225])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[345,195;355,195;355,215;380,215])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[160,65;245,65;245,100;295,100])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[250,100;250,245;305,245])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[155,175;280,175;280,110;295,110])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[280,175;280,200;305,200])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[105,155;270,155;270,50;295,50])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[270,155;270,235;305,235])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[120,40;295,40])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[238,40;238,190;305,190])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[335,105;345,105;345,75;370,75])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[335,45;345,45;345,65;370,65])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[400,70;425,70;425,130;465,130])
add_line([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],[410,220;425,220;425,150;465,150])
set_param([sys,'/',['C-map QASK',13,'mod baseband/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,'/',['C-map QASK',13,'mod baseband/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,'/',['C-map QASK',13,'mod baseband/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,'/',['C-map QASK',13,'mod baseband/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,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],...
		'Mask Entries','Ph\/')


%     Finished composite block ['C-map QASK',13,'mod baseband/QAM',13,'baseband1'].

set_param([sys,'/',['C-map QASK',13,'mod baseband/QAM',13,'baseband1']],...
		'ForeGround',4,...
		'hide name',0,...
		'position',[180,23,260,67])
add_line([sys,'/',['C-map QASK',13,'mod baseband']],[45,45;60,45])
add_line([sys,'/',['C-map QASK',13,'mod baseband']],[265,45;285,45])
add_line([sys,'/',['C-map QASK',13,'mod baseband']],[150,55;175,55])
add_line([sys,'/',['C-map QASK',13,'mod baseband']],[150,35;175,35])
set_param([sys,'/',['C-map QASK',13,'mod baseband']],...
		'Mask Display','plot(0,0,100,100,x,y,u,v);C-QASK',...
		'Mask Type','Baseband C-QASK modulation')
set_param([sys,'/',['C-map QASK',13,'mod baseband']],...
		'Mask Dialogue','Output the complex envelope of a QASK\nmodulated signal. The QASK circle conste-\nllation is defined by the NIC, RIC, and PIC.|Number of symbols in each circle (NIC):|Radii in each circle (RIC):|Phase shift in each circle (PIC, rad):|Initial phase (rad):|Symbol interval (sec):|Sampling time (sec):')
set_param([sys,'/',['C-map QASK',13,'mod baseband']],...
		'Mask Translate','NIR=@1;AIR=@2;PIR=@3;Ph=@4;td=@5;ts=@6;[x,y]=moduicon(5);[u,v]=cmplxicn(1,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['C-map QASK',13,'mod baseband']],...
		'Mask Help','This block outputs the complex envelope of a QASK modulated signal. This block uses circle constellation. The vector lengths of numbers on each circle, radii on each circle, and phases on each circle should be the same. Use function DMODCE to view the constellation of the signal distribution.')
set_param([sys,'/',['C-map QASK',13,'mod baseband']],...
		'Mask Entries','NIR\/AIR\/PIR\/0\/td\/ts\/')


%     Finished composite block ['C-map QASK',13,'mod baseband'].

set_param([sys,'/',['C-map QASK',13,'mod baseband']],...
		'hide name',0,...
		'position',[165,63,245,107])


%     Subsystem  ['Rician noise',13,'channel'].

new_system([sys,'/',['Rician noise',13,'channel']])
set_param([sys,'/',['Rician noise',13,'channel']],'Location',[80,369,342,515])

add_block('built-in/Sum',[sys,'/',['Rician noise',13,'channel/Sum']])
set_param([sys,'/',['Rician noise',13,'channel/Sum']],...
		'position',[150,55,170,75])

add_block('built-in/Outport',[sys,'/',['Rician noise',13,'channel/out_1']])
set_param([sys,'/',['Rician noise',13,'channel/out_1']],...
		'position',[200,55,220,75])


%     Subsystem  ['Rician noise',13,'channel/Gaussian',13,'noise'].

new_system([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']])
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],'Location',[358,505,706,710])

add_block('built-in/Outport',[sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/out_1']])
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/out_1']],...
		'position',[295,85,315,105])

add_block('built-in/White Noise',[sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/Random',13,'Number']])
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/Random',13,'Number']],...
		'Seed','s',...
		'position',[25,82,70,118])

add_block('built-in/State-Space',[sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/Matrix',13,'Gain']])
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/Matrix',13,'Gain']],...
		'A','[]',...
		'B','[]',...
		'C','[]',...
		'D','K',...
		'Mask Display','K',...
		'Mask Type','Matrix Gain')
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/Matrix',13,'Gain']],...
		'Mask Dialogue','Matrix Gain.|Gain matrix:',...
		'Mask Translate','K = @1;')
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/Matrix',13,'Gain']],...
		'Mask Help','Multiplies input vector by entered matrix to produce output vector (y=Au).',...
		'Mask Entries','d\/',...
		'position',[115,86,140,114])

add_block('built-in/Constant',[sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/Constant']])
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/Constant']],...
		'Value','m',...
		'position',[150,50,170,70])

add_block('built-in/Sum',[sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/Sum']])
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise/Sum']],...
		'position',[235,85,255,105])
add_line([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],[175,60;205,60;205,90;230,90])
add_line([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],[75,100;110,100])
add_line([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],[145,100;230,100])
add_line([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],[260,95;290,95])
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],...
		'Mask Display','Gaussian\nnoise',...
		'Mask Type','Gaussian noise.',...
		'Mask Dialogue','Gaussian distribution noise.|Mean value:|Standard deviation:|Initial Seed(s):')
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],...
		'Mask Translate','m=@1;d=@2;s=@3;[m,d,s]=gwnoise(m,d,s);')
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],...
		'Mask Help','When the mean value, seed are vectors, the output of this block is a vector with the length of the vector same as the length of mean value vector or that of the seed.')
set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],...
		'Mask Entries','[m1 m2]\/[d d]\/s\/')


%     Finished composite block ['Rician noise',13,'channel/Gaussian',13,'noise'].

set_param([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],...
		'position',[10,50,85,90])

add_block('built-in/Inport',[sys,'/',['Rician noise',13,'channel/in_1']])
set_param([sys,'/',['Rician noise',13,'channel/in_1']],...
		'position',[45,10,65,30])
add_line([sys,'/',['Rician noise',13,'channel']],[90,70;145,70])
add_line([sys,'/',['Rician noise',13,'channel']],[70,20;115,20;115,60;145,60])
add_line([sys,'/',['Rician noise',13,'channel']],[175,65;195,65])
set_param([sys,'/',['Rician noise',13,'channel']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w,u,z);Rician N',...
		'Mask Type','Rician noise channel, fixed parameter')
set_param([sys,'/',['Rician noise',13,'channel']],...
		'Mask Dialogue','Additive Rician noise channel for\nbaseband signal simulation. Input\nand output signals are complex.|In-phase m:|Quadrature m:|sigma:|Seed (1x2 vector):')
set_param([sys,'/',['Rician noise',13,'channel']],...
		'Mask Translate','m1=@1;m2=@2;d=@3;s=@4;if length(s)<2,s=[s s+s];end;[x,y]=chanicon;[v,w]=cmplxicn(0,50,get_param(gcb,''orientation''));[u,z]=cmplxicn(1,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['Rician noise',13,'channel']],...
		'Mask Help','This block adds Rician noise to the input signal. The input and output of this block are complex signals. The Rician noise is composed with two independant Gaussian noise elements. The two Gaussian components have the same standard deviation, sigma. Their mean values are in-phase m and quadrature m respectively.')
set_param([sys,'/',['Rician noise',13,'channel']],...
		'Mask Entries','.1\/.2\/.2\/[12324 4321]\/')


%     Finished composite block ['Rician noise',13,'channel'].

set_param([sys,'/',['Rician noise',13,'channel']],...
		'hide name',0,...
		'position',[285,63,365,107])


%     Subsystem  ['C-map QASK',13,'demod baseband'].

new_system([sys,'/',['C-map QASK',13,'demod baseband']])
set_param([sys,'/',['C-map QASK',13,'demod baseband']],'Location',[23,618,381,756])


%     Subsystem  ['C-map QASK',13,'demod baseband/QASK',13,'circle-demap'].

new_system([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap']],'Location',[96,182,645,417])

add_block('built-in/Constant',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/imag_pt']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/imag_pt']],...
		'BackGround',5,...
		'Value','y2',...
		'position',[165,169,190,191])

add_block('built-in/Constant',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/real_pt']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/real_pt']],...
		'BackGround',3,...
		'Value','y1',...
		'position',[170,84,195,106])

add_block('built-in/Outport',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/out_1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/out_1']],...
		'position',[495,85,515,105])

add_block('built-in/S-Function',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Minimum1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Minimum1']],...
		'function name','arymimai',...
		'parameters','''min''',...
		'position',[415,85,475,105])

add_block('built-in/Sum',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Sum2']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Sum2']],...
		'position',[370,78,390,107])

add_block('built-in/Product',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Product1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Product1']],...
		'position',[300,130,325,150])

add_block('built-in/Product',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Product']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Product']],...
		'position',[300,45,325,65])

add_block('built-in/Sum',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Sum6']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Sum6']],...
		'ForeGround',4,...
		'inputs','+-',...
		'position',[230,123,250,152])

add_block('built-in/Sum',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Sum1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Sum1']],...
		'ForeGround',2,...
		'inputs','+-',...
		'position',[230,38,250,67])

add_block('built-in/Zero-Order Hold',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Zero-Order',13,'Hold1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Zero-Order',13,'Hold1']],...
		'ForeGround',4,...
		'Sample time','td',...
		'position',[120,114,155,146])

add_block('built-in/Inport',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/imag']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/imag']],...
		'Port','2',...
		'position',[45,120,65,140])

add_block('built-in/Inport',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/real']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/real']],...
		'position',[45,35,65,55])

add_block('built-in/Zero-Order Hold',[sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Zero-Order',13,'Hold']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QASK',13,'circle-demap/Zero-Order',13,'Hold']],...
		'ForeGround',2,...
		'Sample time','td',...