comcdcon.m

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

		'position',[610,135,650,165])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Modulo',13,'operation']])
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Modulo',13,'operation']],...
		'ForeGround',3,...
		'function name','arymodu',...
		'parameters','md',...
		'Mask Display','Modulo')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Modulo',13,'operation']],...
		'Mask Type','Modulo',...
		'Mask Dialogue','Modulus operation:|Modulus base:',...
		'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Modulo',13,'operation']],...
		'Mask Help','This block output modulus operation of the input signal with module base as specified in block entry. The length of the output vector is the same as the input vector.')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Modulo',13,'operation']],...
		'Mask Entries','2\/',...
		'position',[500,65,545,95])

add_block('built-in/Sum',[sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Sum1']])
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Sum1']],...
		'position',[465,70,485,90])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Modulo',13,'operation1']])
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Modulo',13,'operation1']],...
		'ForeGround',3,...
		'function name','arymodu',...
		'parameters','md',...
		'Mask Display','Modulo')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Modulo',13,'operation1']],...
		'Mask Type','Modulo',...
		'Mask Dialogue','Modulus operation:|Modulus base:',...
		'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Modulo',13,'operation1']],...
		'Mask Help','This block output modulus operation of the input signal with module base as specified in block entry. The length of the output vector is the same as the input vector.')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Modulo',13,'operation1']],...
		'Mask Entries','2\/',...
		'position',[345,70,390,100])

add_block('built-in/Sum',[sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Sum']])
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Sum']],...
		'position',[155,65,175,85])

add_block('built-in/State-Space',[sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain1']])
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain1']],...
		'A','[]',...
		'B','[]',...
		'C','[]',...
		'D','K',...
		'Mask Display','B',...
		'Mask Type','Matrix Gain')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain1']],...
		'Mask Dialogue','Matrix Gain.|Gain matrix:',...
		'Mask Translate','K = @1;')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain1']],...
		'Mask Help','Multiplies input vector by entered matrix to produce output vector (y=Au).',...
		'Mask Entries','b\/')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain1']],...
		'position',[100,56,125,84])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/in_1']])
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/in_1']],...
		'position',[25,60,45,80])

add_block('built-in/State-Space',[sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain']])
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain']],...
		'orientation',2,...
		'A','[]',...
		'B','[]',...
		'C','[]',...
		'D','K',...
		'Mask Display','A')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain']],...
		'Mask Type','Matrix Gain',...
		'Mask Dialogue','Matrix Gain.|Gain matrix:',...
		'Mask Translate','K = @1;')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain']],...
		'Mask Help','Multiplies input vector by entered matrix to produce output vector (y=Au).',...
		'Mask Entries','a\/')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain']],...
		'position',[240,170,270,200])

add_block('built-in/State-Space',[sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain3']])
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain3']],...
		'A','[]',...
		'B','[]',...
		'C','[]',...
		'D','K',...
		'Mask Display','D',...
		'Mask Type','Matrix Gain')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain3']],...
		'Mask Dialogue','Matrix Gain.|Gain matrix:',...
		'Mask Translate','K = @1;')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain3']],...
		'Mask Help','Multiplies input vector by entered matrix to produce output vector (y=Au).',...
		'Mask Entries','d\/')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode/Matrix',13,'Gain3']],...
		'position',[250,6,275,34])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[530,190;545,190;545,90;605,90])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[545,150;185,150;185,85;210,85])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[445,190;465,190])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[645,90;685,90])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[645,90;665,90;655,150])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[550,80;605,80])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[490,80;495,80])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[50,70;95,70])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[75,70;75,20;245,20])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[605,150;585,150;585,100;605,100])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[450,85;460,85])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[280,20;450,20;460,75])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[130,70;150,70])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[395,85;415,85])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[250,85;260,85])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[310,85;320,85;320,125;195,125;195,95;210,95])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[320,85;340,85])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[180,75;210,75])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[395,85;405,85;405,185;275,185])
add_line([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],[235,185;135,185;135,80;150,80])
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);Convl en',...
		'Mask Type','Vector I/O convolution encode')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],...
		'Mask Dialogue','Convolution encode with codeword length\nN and message length K. Transfer function\nmatrix is a K-by-N matrix.|Transfer function (or SIMULINK diagram):|Trigger signal threshold:')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],...
		'Mask Translate','tf=@1;[a,b,c,d,n,k,n_st,m]=simviter(tf);thd=@2;[x,y]=codeicon(1);[v,w]=trigicon(0,25,get_param(gcb,''orientation''),2);')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],...
		'Mask Help','This block encodes length K binary vector message input into length N binary vector codeword output using convolution code. The block refreshes its register memory and output at the rising edge of the second inport pulse. You can also use a SIMULINK block diagram to define the convolution code transfer function.')
set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],...
		'Mask Entries','tf\/.5\/')


%     Finished composite block ['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode'].

set_param([sys,'/',['Binary sequence',13,'convolution encode/Binary vector',13,'convol encode']],...
		'hide name',0,...
		'position',[325,23,405,67])
add_line([sys,'/',['Binary sequence',13,'convolution encode']],[185,105;420,105;420,65;440,65])
add_line([sys,'/',['Binary sequence',13,'convolution encode']],[185,90;195,90;195,55;225,55])
add_line([sys,'/',['Binary sequence',13,'convolution encode']],[110,100;135,100])
add_line([sys,'/',['Binary sequence',13,'convolution encode']],[290,55;305,55;305,85;410,85;410,55;440,55])
add_line([sys,'/',['Binary sequence',13,'convolution encode']],[80,35;225,35])
add_line([sys,'/',['Binary sequence',13,'convolution encode']],[290,35;320,35])
add_line([sys,'/',['Binary sequence',13,'convolution encode']],[410,45;440,45])
add_line([sys,'/',['Binary sequence',13,'convolution encode']],[510,50;570,50])
add_line([sys,'/',['Binary sequence',13,'convolution encode']],[510,65;530,65])
add_line([sys,'/',['Binary sequence',13,'convolution encode']],[305,55;320,55])
set_param([sys,'/',['Binary sequence',13,'convolution encode']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);Convl en',...
		'Mask Type','Sequence I/O convolution encode')
set_param([sys,'/',['Binary sequence',13,'convolution encode']],...
		'Mask Dialogue','Convolution encode with codeword length\nN and message length K. Transfer function\nmatrix is a K-by-N matrix.|Transfer function (or SIMULINK diagram):|Input sample time T_in (sec):')
set_param([sys,'/',['Binary sequence',13,'convolution encode']],...
		'Mask Translate','tf=@1;if isstr(tf), tf=sim2tran(tf);end;n=tf(1,size(tf,2));k=tf(2,size(tf,2));samp=@2;[x,y]=codeicon(3);[v,w]=trigicon(1,75,get_param(gcb,''orientation''));')
set_param([sys,'/',['Binary sequence',13,'convolution encode']],...
		'Mask Help','This block encodes length K binary message into length K binary codeword using convolutio n code. The block uses sequential input/output format. The output sequence sample time is K*T_in/N. The block causes a K*T_in delay. The second outport outputs a pulse when Kth message signal is received. You can also use a SIMULINK block diagram to define the convolution code transfer function.')
set_param([sys,'/',['Binary sequence',13,'convolution encode']],...
		'Mask Entries','[1 1 1 3;0 1 0 2;0 0 1 1;1 0 1 -Inf]\/1/2\/')


%     Finished composite block ['Binary sequence',13,'convolution encode'].

set_param([sys,'/',['Binary sequence',13,'convolution encode']],...
		'position',[35,138,115,182])


%     Subsystem  'transfer function'.

new_system([sys,'/','transfer function'])
set_param([sys,'/','transfer function'],'Location',[436,197,856,343])
set_param([sys,'/','transfer function'],...
		'Mask Display','Generate\ntran_func',...
		'Mask Dialogue','eval(''fig_10_9; tf = sim2tran(''''fig_10_9'''');N_con_demo=tf(1,size(tf,2));K_con_demo=tf(2,size(tf,2));'')')


%     Finished composite block 'transfer function'.

set_param([sys,'/','transfer function'],...
		'BackGround',5,...
		'hide name',0,...
		'position',[425,140,505,187])


%     Subsystem  ['Vector convolution',13,'co//dec demo3'].

new_system([sys,'/',['Vector convolution',13,'co//dec demo3']])
set_param([sys,'/',['Vector convolution',13,'co//dec demo3']],'Location',[175,552,335,697])
set_param([sys,'/',['Vector convolution',13,'co//dec demo3']],...
		'Mask Display','Convolution\nco/dec\ndemo',...
		'Mask Dialogue','eval(''tutconc2'')')


%     Finished composite block ['Vector convolution',13,'co//dec demo3'].

set_param([sys,'/',['Vector convolution',13,'co//dec demo3']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[540,58,620,102])


%     Subsystem  ['Vector convolution',13,'co//dec demo4'].

new_system([sys,'/',['Vector convolution',13,'co//dec demo4']])
set_param([sys,'/',['Vector convolution',13,'co//dec demo4']],'Location',[175,552,335,697])
set_param([sys,'/',['Vector convolution',13,'co//dec demo4']],...
		'Mask Display','Convolution\nco/dec\ndemo',...
		'Mask Dialogue','eval(''K_con_demo=2;N_con_demo=3;connonli;tf=sim2tran(''''connonli'''');tutconc3'')')