com_chan.m

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

		'Seed','s',...
		'position',[60,77,105,113])

add_block('built-in/Outport',[sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise/out_1']])
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise/out_1']],...
		'position',[300,75,320,95])

add_block('built-in/Sum',[sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise/Sum']])
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise/Sum']],...
		'position',[250,75,270,95])

add_block('built-in/Product',[sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise/Product']])
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise/Product']],...
		'position',[180,80,205,100])

add_block('built-in/Inport',[sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise/in_2']])
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise/in_2']],...
		'Port','2',...
		'position',[110,30,130,50])

add_block('built-in/Inport',[sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise/in_1']])
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise/in_1']],...
		'position',[195,30,215,50])
add_line([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise']],[275,85;295,85])
add_line([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise']],[210,90;245,90])
add_line([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise']],[110,95;175,95])
add_line([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise']],[220,40;230,40;230,80;245,80])
add_line([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise']],[135,40;165,40;175,85])
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise']],...
		'Mask Display','Gaussian\nnoise',...
		'Mask Type','Gaussian noise.',...
		'Mask Dialogue','Gaussian distribution noise.|Initial Seed(s):')
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise']],...
		'Mask Translate','s=@1;')
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise']],...
		'Mask Help','The meanvalue is determined by value from the frist input. The standard deviation is determined by the second input. ')
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise']],...
		'Mask Entries','s\/')


%     Finished composite block ['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise'].

set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/Gaussian',13,'noise']],...
		'position',[75,50,150,90])

add_block('built-in/Inport',[sys,'/',['Rayleigh noise channel',13,'w vary var CE/in_2']])
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE/in_2']],...
		'Port','2',...
		'position',[10,70,30,90])
add_line([sys,'/',['Rayleigh noise channel',13,'w vary var CE']],[220,65;240,65])
add_line([sys,'/',['Rayleigh noise channel',13,'w vary var CE']],[125,25;160,25;160,60;190,60])
add_line([sys,'/',['Rayleigh noise channel',13,'w vary var CE']],[155,70;190,70])
add_line([sys,'/',['Rayleigh noise channel',13,'w vary var CE']],[35,80;70,80])
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w,u,z);Rayl N',...
		'Mask Type','Rayleigh noise channel, vary parameter')
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE']],...
		'Mask Dialogue','Add Rayleigh noise to the transmitting signal with noise variant (2nd port) as input. Seed should be a 1x2 vector.|Initial Seeds (1x2 vector):')
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE']],...
		'Mask Translate','s=@1;if length(s)<1,s=[s s+s+1];end;[x,y]=chanicon;x=x*.9+10;[v,w]=cmplxicn(0,75,get_param(gcb,''orientation''));[u,z]=cmplxicn(1,55,get_param(gcb,''orientation''));')
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE']],...
		'Mask Help','This block adds Rayleigh noise to the transmitting signal. The input and output of this block are complex data. The Rayleigh noise is composed with two independant zero mean Gaussian noise. These two Gaussian components have the same standard deviation sigma. The sigma value is provided at the 2nd inport of this block.')
set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE']],...
		'Mask Entries','[12345, 54321]\/')


%     Finished composite block ['Rayleigh noise channel',13,'w vary var CE'].

set_param([sys,'/',['Rayleigh noise channel',13,'w vary var CE']],...
		'position',[325,303,405,347])


%     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/Inport',[sys,'/',['Rician noise',13,'channel/in_1']])
set_param([sys,'/',['Rician noise',13,'channel/in_1']],...
		'position',[45,10,65,30])


%     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/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_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/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/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/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_line([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],[260,95;290,95])
add_line([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],[145,100;230,100])
add_line([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],[75,100;110,100])
add_line([sys,'/',['Rician noise',13,'channel/Gaussian',13,'noise']],[175,60;205,60;205,90;230,90])
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/Outport',[sys,'/',['Rician noise',13,'channel/out_1']])
set_param([sys,'/',['Rician noise',13,'channel/out_1']],...
		'position',[200,55,220,75])

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_line([sys,'/',['Rician noise',13,'channel']],[175,65;195,65])
add_line([sys,'/',['Rician noise',13,'channel']],[70,20;115,20;115,60;145,60])
add_line([sys,'/',['Rician noise',13,'channel']],[90,70;145,70])
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']],...
		'position',[325,383,405,427])


%     Subsystem  ['Rician noise channel',13,'w vary para CE'].

new_system([sys,'/',['Rician noise channel',13,'w vary para CE']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE']],'Location',[107,289,478,470])

add_block('built-in/Inport',[sys,'/',['Rician noise channel',13,'w vary para CE/in_3']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/in_3']],...
		'Port','3',...
		'position',[15,95,35,115])

add_block('built-in/Inport',[sys,'/',['Rician noise channel',13,'w vary para CE/in_1']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/in_1']],...
		'position',[180,10,200,30])

add_block('built-in/Inport',[sys,'/',['Rician noise channel',13,'w vary para CE/in_4']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/in_4']],...
		'Port','4',...
		'position',[25,135,45,155])

add_block('built-in/Mux',[sys,'/',['Rician noise channel',13,'w vary para CE/Mux']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Mux']],...
		'inputs','2',...
		'position',[80,46,115,79])

add_block('built-in/Inport',[sys,'/',['Rician noise channel',13,'w vary para CE/in_2']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/in_2']],...
		'Port','2',...
		'position',[15,45,35,65])


%     Subsystem  ['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise'].

new_system([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],'Location',[482,386,971,557])

add_block('built-in/Product',[sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/Product']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/Product']],...
		'position',[175,85,200,105])

add_block('built-in/Sum',[sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/Sum']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/Sum']],...
		'position',[265,80,285,100])

add_block('built-in/Outport',[sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/out_1']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/out_1']],...
		'position',[350,80,370,100])

add_block('built-in/Inport',[sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/in_2']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/in_2']],...
		'Port','2',...
		'position',[105,45,125,65])

add_block('built-in/Inport',[sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/in_1']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/in_1']],...
		'position',[185,40,205,60])

add_block('built-in/White Noise',[sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/Random',13,'Number']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise/Random',13,'Number']],...
		'Seed','s',...
		'position',[40,82,85,118])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],[290,90;345,90])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],[205,95;260,95])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],[90,100;170,100])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],[130,55;145,55;145,90;170,90])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],[210,50;230,50;230,85;260,85])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],...
		'Mask Display','Gaussian\nnoise',...
		'Mask Type','Gaussian noise.',...
		'Mask Dialogue','Gaussian distribution noise.|Initial Seed(s):')
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],...
		'Mask Translate','s=@1;')
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],...
		'Mask Help','The meanvalue is determined by value from the frist input. The standard deviation is determined by the second input. ')
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],...
		'Mask Entries','s\/')


%     Finished composite block ['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise'].

set_param([sys,'/',['Rician noise channel',13,'w vary para CE/Gaussian',13,'noise']],...
		'position',[155,55,230,95])

add_block('built-in/Sum',[sys,'/',['Rician noise chan