com_chan.m

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

		'Mask Entries','P\/(randint(1, M)+100)*1000*max(P)\/')


%     Finished composite block ['Binary error',13,'channel/Poisson',13,'noise'].

set_param([sys,'/',['Binary error',13,'channel/Poisson',13,'noise']],...
		'position',[40,94,115,136])

add_block('built-in/Inport',[sys,'/',['Binary error',13,'channel/in_1']])
set_param([sys,'/',['Binary error',13,'channel/in_1']],...
		'position',[95,30,115,50])
add_line([sys,'/',['Binary error',13,'channel']],[195,80;230,80])
add_line([sys,'/',['Binary error',13,'channel']],[210,80;210,135;270,135])
add_line([sys,'/',['Binary error',13,'channel']],[260,75;295,75])
add_line([sys,'/',['Binary error',13,'channel']],[120,115;140,115;140,80;160,80])
add_line([sys,'/',['Binary error',13,'channel']],[120,40;210,40;210,70;230,70])
add_line([sys,'/',['Binary error',13,'channel']],[365,75;385,75])
set_param([sys,'/',['Binary error',13,'channel']],...
		'Mask Display','plot(0,0,100,100,x,y);B-error',...
		'Mask Type','Add binary errors')
set_param([sys,'/',['Binary error',13,'channel']],...
		'Mask Dialogue','The error probability can be a scalar or a vector with the same length as the\ninput vector length.|Error probability:|Input vector length:')
set_param([sys,'/',['Binary error',13,'channel']],...
		'Mask Translate','M=@2;P=@1;if length(P)~=M,P=ones(1,M)*P(1);end;[x,y]=chanicon;')
set_param([sys,'/',['Binary error',13,'channel']],...
		'Mask Help','This block adds binary errors to transmitted binary signals. The error probability is given in the parameter setting. The first output port outputs the transmitting signal (after adding noise). The second port outputs the errors signal added to the transmitting signal.')
set_param([sys,'/',['Binary error',13,'channel']],...
		'Mask Entries','0.05\/15\/')


%     Finished composite block ['Binary error',13,'channel'].

set_param([sys,'/',['Binary error',13,'channel']],...
		'position',[35,228,115,272])


%     Subsystem  ['QASK Mo//Dem',13,'demo'].

new_system([sys,'/',['QASK Mo//Dem',13,'demo']])
set_param([sys,'/',['QASK Mo//Dem',13,'demo']],'Location',[175,552,335,697])
set_param([sys,'/',['QASK Mo//Dem',13,'demo']],...
		'Mask Display','Rayleigh\nnoise\ndemo',...
		'Mask Dialogue','eval(''ts=.04;[num,den]=butter(2,100/pi/2*ts);td=.2;M=64;tcemqask'')')


%     Finished composite block ['QASK Mo//Dem',13,'demo'].

set_param([sys,'/',['QASK Mo//Dem',13,'demo']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[470,228,550,272])


%     Subsystem  ['QASK Mo//Dem',13,'demo1'].

new_system([sys,'/',['QASK Mo//Dem',13,'demo1']])
set_param([sys,'/',['QASK Mo//Dem',13,'demo1']],'Location',[175,552,335,697])
set_param([sys,'/',['QASK Mo//Dem',13,'demo1']],...
		'Mask Display','Rician\nnoise\ndemo')
set_param([sys,'/',['QASK Mo//Dem',13,'demo1']],...
		'Mask Dialogue','eval(''ts=.01;td=.2;Fc=100/2/pi;NIR=[6 12 18 24 30 38];AIR=[1 1.93 2.88 3.83 4.78 6.05];PIR=zeros(1,6);[num,den]=butter(4,100/pi*ts);M=sum(NIR);tceps2cd'')')


%     Finished composite block ['QASK Mo//Dem',13,'demo1'].

set_param([sys,'/',['QASK Mo//Dem',13,'demo1']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[470,378,550,422])


%     Subsystem  ['QASK Mo//Dem',13,'demo5'].

new_system([sys,'/',['QASK Mo//Dem',13,'demo5']])
set_param([sys,'/',['QASK Mo//Dem',13,'demo5']],'Location',[175,552,335,697])
set_param([sys,'/',['QASK Mo//Dem',13,'demo5']],...
		'Mask Display','Rician\nnoise\ndemo2')
set_param([sys,'/',['QASK Mo//Dem',13,'demo5']],...
		'Mask Dialogue','eval(''ts=.01;td=.2;Fc=100/2/pi;NIR=[6 12 18 24 30 38];AIR=[1 1.93 2.88 3.83 4.78 6.05];PIR=zeros(1,6);[num,den]=butter(4,100/pi*ts);M=sum(NIR);tceps2c2'')')


%     Finished composite block ['QASK Mo//Dem',13,'demo5'].

set_param([sys,'/',['QASK Mo//Dem',13,'demo5']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[470,453,550,497])


%     Subsystem  ['QASK Mo//Dem',13,'demo7'].

new_system([sys,'/',['QASK Mo//Dem',13,'demo7']])
set_param([sys,'/',['QASK Mo//Dem',13,'demo7']],'Location',[175,552,335,697])
set_param([sys,'/',['QASK Mo//Dem',13,'demo7']],...
		'Mask Display','AWGN\nnoise\ndemo2')
set_param([sys,'/',['QASK Mo//Dem',13,'demo7']],...
		'Mask Dialogue','eval(''ts=.01;td=.2;Fc=100/2/pi;NIR=[6 12 18 24 30 38];AIR=[1 1.93 2.88 3.83 4.78 6.05];PIR=zeros(1,6);[num,den]=butter(4,100/pi*ts);M=sum(NIR);tddps2cd'')')


%     Finished composite block ['QASK Mo//Dem',13,'demo7'].

set_param([sys,'/',['QASK Mo//Dem',13,'demo7']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[180,153,260,197])


%     Subsystem  ['Vector BCH',13,'Co//Dec demo'].

new_system([sys,'/',['Vector BCH',13,'Co//Dec demo']])
set_param([sys,'/',['Vector BCH',13,'Co//Dec demo']],'Location',[175,552,335,697])
set_param([sys,'/',['Vector BCH',13,'Co//Dec demo']],...
		'Mask Display','Limited\nbinary error\ndemo',...
		'Mask Dialogue','eval(''N_bch_demo=15;K_bch_demo=5;T_bch_demo=3;tstbchcd'')')


%     Finished composite block ['Vector BCH',13,'Co//Dec demo'].

set_param([sys,'/',['Vector BCH',13,'Co//Dec demo']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[180,303,260,347])


%     Subsystem  ['Sequence BCH',13,'Co//Dec demo'].

new_system([sys,'/',['Sequence BCH',13,'Co//Dec demo']])
set_param([sys,'/',['Sequence BCH',13,'Co//Dec demo']],'Location',[175,552,335,697])
set_param([sys,'/',['Sequence BCH',13,'Co//Dec demo']],...
		'Mask Display','Binary\nerror\ndemo',...
		'Mask Dialogue','eval(''N_bch_demo=15;K_bch_demo=5;T_bch_demo=3;tstbchsq'')')


%     Finished composite block ['Sequence BCH',13,'Co//Dec demo'].

set_param([sys,'/',['Sequence BCH',13,'Co//Dec demo']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[180,228,260,272])

add_block('built-in/Note',[sys,'/','Channel Library'])
set_param([sys,'/','Channel Library'],...
		'ForeGround',3,...
		'Font Weight','bold',...
		'Font Size',12,...
		'position',[290,10,295,15])


%     Subsystem  ['QASK Mo//Dem',13,'demo8'].

new_system([sys,'/',['QASK Mo//Dem',13,'demo8']])
set_param([sys,'/',['QASK Mo//Dem',13,'demo8']],'Location',[175,552,335,697])
set_param([sys,'/',['QASK Mo//Dem',13,'demo8']],...
		'Mask Display','Rayleigh\nfading\ndemo2',...
		'Mask Dialogue','eval(''ts=.02;[num,den]=butter(3,100/pi/2*ts);td=.2;M=32;tceps3cd'')')


%     Finished composite block ['QASK Mo//Dem',13,'demo8'].

set_param([sys,'/',['QASK Mo//Dem',13,'demo8']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[470,153,550,197])


%     Subsystem  ['QASK Mo//Dem',13,'demo3'].

new_system([sys,'/',['QASK Mo//Dem',13,'demo3']])
set_param([sys,'/',['QASK Mo//Dem',13,'demo3']],'Location',[175,552,335,697])
set_param([sys,'/',['QASK Mo//Dem',13,'demo3']],...
		'Mask Display','Rayleigh\nnoise\ndemo2',...
		'Mask Dialogue','eval(''ts=.02;[num,den]=butter(3,100/pi/2*ts);td=.2;M=32;tcemqas2'')')


%     Finished composite block ['QASK Mo//Dem',13,'demo3'].

set_param([sys,'/',['QASK Mo//Dem',13,'demo3']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[470,303,550,347])


%     Subsystem  ['AWGN',13,'channel'].

new_system([sys,'/',['AWGN',13,'channel']])
set_param([sys,'/',['AWGN',13,'channel']],'Location',[11,262,273,408])


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

new_system([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']])
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],'Location',[22,119,370,243])

add_block('built-in/Outport',[sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/out_1']])
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/out_1']],...
		'position',[285,60,305,80])

add_block('built-in/Sum',[sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/Sum']])
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/Sum']],...
		'position',[220,60,240,80])

add_block('built-in/Constant',[sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/Constant']])
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/Constant']],...
		'Value','m',...
		'position',[140,20,160,40])

add_block('built-in/White Noise',[sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/Random',13,'Number']])
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/Random',13,'Number']],...
		'Seed','s',...
		'position',[35,57,80,93])

add_block('built-in/State-Space',[sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/Matrix',13,'Gain']])
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/Matrix',13,'Gain']],...
		'A','[]',...
		'B','[]',...
		'C','[]',...
		'D','K',...
		'Mask Display','K',...
		'Mask Type','Matrix Gain')
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/Matrix',13,'Gain']],...
		'Mask Dialogue','Matrix Gain.|Gain matrix:',...
		'Mask Translate','K = @1;')
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator/Matrix',13,'Gain']],...
		'Mask Help','Multiplies input vector by entered matrix to produce output vector (y=Au).',...
		'Mask Entries','d\/',...
		'position',[140,61,165,89])
add_line([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],[85,75;135,75])
add_line([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],[170,75;215,75])
add_line([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],[245,70;280,70])
add_line([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],[165,30;190,30;190,65;215,65])
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],...
		'Mask Display','plot(0,0,100,100,x,y);Gaussian',...
		'Mask Type','Gaussian noise generator')
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],...
		'Mask Dialogue','Generate Gaussian distributed noise with\ngiven mean and variance value.|Mean value:|Variance (vector or matrix):|Initial seed:')
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],...
		'Mask Translate','m=@1;d=@2;s=@3;[m,d,s]=gwnoise(m,d,s);[x,y]=srcsicon(3);')
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],...
		'Mask Help','When the mean value and seed are vectors, the output of this block is a vector. The length of the vector is the same as the length of the mean value vector or the length of the seed. When the variance entry is a vector, the variance is a diagonal matrix.')
set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],...
		'Mask Entries','m\/d\/s\/')


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

set_param([sys,'/',['AWGN',13,'channel/Gaussian noise',13,'generator']],...
		'position',[25,48,105,92])

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

add_block('built-in/Outport',[sys,'/',['AWGN',13,'channel/out_1']])