com_pres.m

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

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

new_system([sys,'/',['Vector Convolution',13,'Co//Dec demo']])
set_param([sys,'/',['Vector Convolution',13,'Co//Dec demo']],'Location',[175,552,335,697])
set_param([sys,'/',['Vector Convolution',13,'Co//Dec demo']],...
		'Mask Display','Convol\nCo/Dec',...
		'Mask Dialogue','eval(''tstconcd'')')


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

set_param([sys,'/',['Vector Convolution',13,'Co//Dec demo']],...
		'BackGround',7,...
		'position',[420,1905,505,1941])

add_block('built-in/Note',[sys,'/','A SIMULINK demo for convolution coding with trellis display.'])
set_param([sys,'/','A SIMULINK demo for convolution coding with trellis display.'],...
		'position',[435,1870,440,1875])


%     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','Generating\ntran_func',...
		'Mask Dialogue','eval(''fig_10_9; tf = sim2gen(''''fig_10_9''''),[tmp,tmp2]=simviter(tf);N_con_demo=tmp(1);K_con_demo=tmp(2);'')')


%     Finished composite block 'transfer function'.

set_param([sys,'/','transfer function'],...
		'BackGround',7,...
		'position',[415,1805,500,1847])

add_block('built-in/Note',[sys,'/','Add redundancy bits//words in the transfer side.'])
set_param([sys,'/','Add redundancy bits//words in the transfer side.'],...
		'position',[400,1485,405,1490])

add_block('built-in/Note',[sys,'/','Use the redundancy bits//words to detect//correct errors caused by transformation'])
set_param([sys,'/','Use the redundancy bits//words to detect//correct errors caused by transformation'],...
		'position',[515,1505,520,1510])

add_block('built-in/Note',[sys,'/','Example of using Reed-Solomon code to transfer a text through a noisy channel.'])
set_param([sys,'/','Example of using Reed-Solomon code to transfer a text through a noisy channel.'],...
		'position',[515,1535,520,1540])

add_block('built-in/Note',[sys,'/','This example is designed to be able to correct 6 errors per every 127 characters.'])
set_param([sys,'/','This example is designed to be able to correct 6 errors per every 127 characters.'],...
		'position',[515,1560,520,1565])

add_block('built-in/Note',[sys,'/','Error control Code//Decode:'])
set_param([sys,'/','Error control Code//Decode:'],...
		'Font Weight','bold',...
		'position',[115,1485,120,1490])

add_block('built-in/Note',[sys,'/','Convolution code: constructed with shift registers and Modulo-2 sum (XOR) blocks. '])
set_param([sys,'/','Convolution code: constructed with shift registers and Modulo-2 sum (XOR) blocks. '],...
		'position',[520,1770,525,1775])


%     Subsystem  ['DPCM data',13,'training3'].

new_system([sys,'/',['DPCM data',13,'training3']])
set_param([sys,'/',['DPCM data',13,'training3']],'Location',[111,168,452,354])
set_param([sys,'/',['DPCM data',13,'training3']],...
		'Mask Display','BCH code\nexample',...
		'Mask Dialogue','eval(''tstbchdm'')')


%     Finished composite block ['DPCM data',13,'training3'].

set_param([sys,'/',['DPCM data',13,'training3']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[415,1718,505,1761])


%     Subsystem  ['Click to see',13,'results'].

new_system([sys,'/',['Click to see',13,'results']])
set_param([sys,'/',['Click to see',13,'results']],'Location',[111,168,452,354])
set_param([sys,'/',['Click to see',13,'results']],...
		'Mask Display','DPCM\nexample')
set_param([sys,'/',['Click to see',13,'results']],...
		'Mask Dialogue','eval(''x=sin([0:.1:40]);[pt,co,pa]=dpcmopt(x,1,8);sig=sin(x*pi/3);id=dpcmenco(sig,co,pa,pt);qu=dpcmdeco(id,co,pt);subplot(211);plot(id);subplot(212);plot([sig;qu]'''');'')')


%     Finished composite block ['Click to see',13,'results'].

set_param([sys,'/',['Click to see',13,'results']],...
		'BackGround',7,...
		'position',[735,1403,805,1456])


%     Subsystem  'Synchronization'.

new_system([sys,'/','Synchronization'])
set_param([sys,'/','Synchronization'],'Location',[618,158,867,453])
set_param([sys,'/','Synchronization'],...
		'Mask Display','Synchronization',...
		'Mask Dialogue','eval(''com_clos;com_sync;'')')


%     Finished composite block 'Synchronization'.

set_param([sys,'/','Synchronization'],...
		'ForeGround',6,...
		'hide name',0,...
		'Font Angle','italic',...
		'position',[415,409,505,461])


%     Subsystem  'Utility1'.

new_system([sys,'/','Utility1'])
set_param([sys,'/','Utility1'],'Location',[136,230,381,439])
set_param([sys,'/','Utility1'],...
		'Mask Display','Utilities',...
		'Mask Dialogue','eval(''com_clos;com_util;'')')


%     Finished composite block 'Utility1'.

set_param([sys,'/','Utility1'],...
		'ForeGround',6,...
		'hide name',0,...
		'Font Angle','italic',...
		'position',[415,459,505,511])


%     Subsystem  'Utility2'.

new_system([sys,'/','Utility2'])
set_param([sys,'/','Utility2'],'Location',[136,230,381,439])
set_param([sys,'/','Utility2'],...
		'Mask Display','Demos',...
		'Mask Dialogue','eval(''com_clos;comtest;'')')


%     Finished composite block 'Utility2'.

set_param([sys,'/','Utility2'],...
		'ForeGround',6,...
		'hide name',0,...
		'Font Angle','italic',...
		'position',[415,509,505,561])

add_block('built-in/Note',[sys,'/','Partially done'])
set_param([sys,'/','Partially done'],...
		'position',[460,380,465,385])

add_block('built-in/Note',[sys,'/','Marketing Analysis'])
set_param([sys,'/','Marketing Analysis'],...
		'Font Weight','bold',...
		'position',[75,760,80,765])

add_block('built-in/Note',[sys,'/','Competation'])
set_param([sys,'/','Competation'],...
		'Font Weight','bold',...
		'position',[50,895,55,900])

add_block('built-in/Note',[sys,'/','FUNCTIONALITIES'])
set_param([sys,'/','FUNCTIONALITIES'],...
		'ForeGround',2,...
		'Font Weight','bold',...
		'Font Size',11,...
		'position',[315,1185,320,1190])

add_block('built-in/Note',[sys,'/','Lack of flexibility. Fixed methods avaialable. Have to extend by independantly'])
set_param([sys,'/','Lack of flexibility. Fixed methods avaialable. Have to extend by independantly'],...
		'position',[540,920,545,925])

add_block('built-in/Note',[sys,'/','write your own C-file. The source code for some of the blocks are available with'])
set_param([sys,'/','write your own C-file. The source code for some of the blocks are available with'],...
		'position',[545,940,550,945])

add_block('built-in/Note',[sys,'/','__________________________________________________________________________________________________'])
set_param([sys,'/','__________________________________________________________________________________________________'],...
		'position',[450,3025,455,3030])

add_block('built-in/Note',[sys,'/','_________________________________________________________________________________________________'])
set_param([sys,'/','_________________________________________________________________________________________________'],...
		'position',[450,3345,455,3350])

add_block('built-in/Note',[sys,'/','Access the Toolbox:'])
set_param([sys,'/','Access the Toolbox:'],...
		'position',[380,3380,385,3385])

add_block('built-in/Note',[sys,'/','cd //home//wang//comm'])
set_param([sys,'/','cd //home//wang//comm'],...
		'position',[125,3425,130,3430])

add_block('built-in/Note',[sys,'/','COSSAP'])
set_param([sys,'/','COSSAP'],...
		'position',[265,990,270,995])

add_block('built-in/Note',[sys,'/','ACOLADE'])
set_param([sys,'/','ACOLADE'],...
		'position',[270,1040,275,1045])

add_block('built-in/Note',[sys,'/','trscode test.txt testenco.txt '])
set_param([sys,'/','trscode test.txt testenco.txt '],...
		'Font Name','Times New Roman',...
		'position',[410,1590,415,1595])

add_block('built-in/Note',[sys,'/','You may add "noise" to a few characters in file testenco.txt'])
set_param([sys,'/','You may add "noise" to a few characters in file testenco.txt'],...
		'position',[435,1610,440,1615])


%     Subsystem  ['DPCM data',13,'training1'].

new_system([sys,'/',['DPCM data',13,'training1']])
set_param([sys,'/',['DPCM data',13,'training1']],'Location',[111,168,452,354])
set_param([sys,'/',['DPCM data',13,'training1']],...
		'Mask Display','R-S encode\nexample',...
		'Mask Dialogue','eval(''trscode test.txt testenco.txt'')')


%     Finished composite block ['DPCM data',13,'training1'].

set_param([sys,'/',['DPCM data',13,'training1']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[720,1588,810,1636])

add_block('built-in/Note',[sys,'/','Algebraic code: based on abstract algebraic theory'])
set_param([sys,'/','Algebraic code: based on abstract algebraic theory'],...
		'position',[410,1690,415,1695])

add_block('built-in/Note',[sys,'/','There are two different kind of error-control coding methods:'])
set_param([sys,'/','There are two different kind of error-control coding methods:'],...
		'position',[440,1665,445,1670])

add_block('built-in/Note',[sys,'/','trscode2 testenco.txt testdeco.txt'])
set_param([sys,'/','trscode2 testenco.txt testdeco.txt'],...
		'Font Name','Times New Roman',...
		'position',[425,1635,430,1640])


%     Subsystem  ['Click to execute',13,'Warning: It is slow'].

new_system([sys,'/',['Click to execute',13,'Warning: It is slow']])
set_param([sys,'/',['Click to execute',13,'Warning: It is slow']],'Location',[111,168,452,354])
set_param([sys,'/',['Click to execute',13,'Warning: It is slow']],...
		'Mask Display','R-S decode\nexample',...
		'Mask Dialogue','eval(''trscode2 testenco.txt testdeco.txt'')')


%     Finished composite block ['Click to execute',13,'Warning: It is slow'].

set_param([sys,'/',['Click to execute',13,'Warning: It is slow']],...
		'BackGround',7,...
		'position',[720,1633,810,1676])

add_block('built-in/Note',[sys,'/','[p_tran, codebook, partition] = dpcmopt(x, 1, 8);'])
set_param([sys,'/','[p_tran, codebook, partition] = dpcmopt(x, 1, 8);'],...
		'Font Name','Times New Roman',...
		'position',[485,1345,490,1350])

add_block('built-in/Note',[sys,'/','indx = dpcmenco(sig, codebook, partition, p_tran); '])
set_param([sys,'/','indx = dpcmenco(sig, codebook, partition, p_tran); '],...
		'Font Name','Times New Roman',...
		'position',[490,1395,495,1400])

add_block('built-in/Note',[sys,'/','quant = dpcmdeco(indx, codebook, p_tran);'])
set_param([sys,'/','quant = dpcmdeco(indx, codebook, p_tran);'],...
		'Font Name','Times New Roman',...
		'position',[465,1415,470,1420])

add_block('built-in/Note',[sys,'/','Read the README file in the directory. '])
set_param([sys,'/','Read the README file in the directory. '],...
		'position',[180,3450,185,3455])


%     Subsystem  'Receiver'.

new_system([sys,'/','Receiver'])
set_param([sys,'/','Receiver'],'Location',[384,427,663,590])

add_block('built-in/Inport',[sys,'/','Receiver/in_1'])
set_param([sys,'/','Receiver/in_1'],...
		'orientation',2,...
		'position',[215,50,235,70])

add_block('built-in/Outport',[sys,'/','Receiver/out_1'])
set_param([sys,'/','Receiver/out_1'],...
		'orientation',2,...
		'position',[80,50,100,70])
add_line([sys,'/','Receiver'],[210,60;105,60])
set_param([sys,'/','Rece