tceps2c2.m

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

		'inputs','2',...
		'position',[80,46,115,79])

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/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_3']])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE/in_3']],...
		'Port','3',...
		'position',[15,95,35,115])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE']],[50,145;120,145;120,85;150,85])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE']],[120,65;150,65])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE']],[40,105;50,105;50,70;75,70])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE']],[40,55;75,55])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE']],[300,70;320,70])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE']],[205,20;240,20;240,65;270,65])
add_line([sys,'/',['Rician noise channel',13,'w vary para CE']],[235,75;270,75])
set_param([sys,'/',['Rician noise channel',13,'w vary para CE']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w,u,z);Rician N',...
		'Mask Type','Rician noise channel, vary parameter')
set_param([sys,'/',['Rician noise channel',13,'w vary para CE']],...
		'Mask Dialogue','Add Rician noise to complex signal (1st port) with the varying in-phase m (2nd port), quadrature m (3rd port), and sigma (4th port).|Seeds (1x2 vector):')
set_param([sys,'/',['Rician noise channel',13,'w vary para 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,89,get_param(gcb,''orientation''));[u,z]=cmplxicn(1,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['Rician noise channel',13,'w vary para CE']],...
		'Mask Help','This block adds Rician noise to the transmitting signal. The 1st port input and output of this block are complex data. The Rician noise is composed with two independant Gaussian noise elements. The mean value of the two Gaussian components are inputted from 2nd and 3rd inports respectively. Their standard deviations, sigma, are the same which is inputted from the 4th inport.')
set_param([sys,'/',['Rician noise channel',13,'w vary para CE']],...
		'Mask Entries','[13579,  24680]\/')


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

set_param([sys,'/',['Rician noise channel',13,'w vary para CE']],...
		'hide name',0,...
		'position',[255,88,335,132])

add_block('built-in/Demux',[sys,'/','Demux'])
set_param([sys,'/','Demux'],...
		'hide name',0,...
		'outputs','3',...
		'position',[170,97,210,133])


%     Subsystem  'Error rate1'.

new_system([sys,'/','Error rate1'])
set_param([sys,'/','Error rate1'],'Location',[255,368,509,510])

add_block('built-in/Inport',[sys,'/','Error rate1/in_2'])
set_param([sys,'/','Error rate1/in_2'],...
		'Port','2',...
		'position',[15,60,35,80])

add_block('built-in/Inport',[sys,'/','Error rate1/in_1'])
set_param([sys,'/','Error rate1/in_1'],...
		'position',[15,45,35,65])

add_block('built-in/Mux',[sys,'/','Error rate1/Mux'])
set_param([sys,'/','Error rate1/Mux'],...
		'inputs','2',...
		'position',[65,46,100,79])

add_block('built-in/S-Function',[sys,'/','Error rate1/S-function'])
set_param([sys,'/','Error rate1/S-function'],...
		'function name','sbiterr',...
		'parameters','num_lin, K, TDelay, Sample',...
		'position',[130,52,195,78])
add_line([sys,'/','Error rate1'],[40,70;60,70])
add_line([sys,'/','Error rate1'],[40,55;60,55])
add_line([sys,'/','Error rate1'],[105,65;125,65])
set_param([sys,'/','Error rate1'],...
		'Mask Display','Error\nmeter',...
		'Mask Type','Symbol/bit error counter')
set_param([sys,'/','Error rate1'],...
		'Mask Dialogue','Use the input data from the 1st port as the reference signal to detect the number of errors and error rate of the 2nd port inputted signal.|Bit per symbol:|Number of digits on display:|Delay between input (1st port) and output (2nd port):|Sampling time (sec):')
set_param([sys,'/','Error rate1'],...
		'Mask Translate','K=@1;num_lin=@2;TDelay=@3;Sample=@4;')
set_param([sys,'/','Error rate1'],...
		'Mask Help','The signal from the first port must be a scalar. The second input port can be a vector with a same-time delay to the input signal. The comparison happens only at the sampling point.')
set_param([sys,'/','Error rate1'],...
		'Mask Entries','ceil(log10(sum(NIR))/log10(2))\/20\/td\/td\/')


%     Finished composite block 'Error rate1'.

set_param([sys,'/','Error rate1'],...
		'hide name',0,...
		'position',[485,78,565,122])


%     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])

add_block('built-in/Inport',[sys,'/',['C-map QASK',13,'demod baseband/in_1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/in_1']],...
		'position',[10,65,30,85])

add_block('built-in/Outport',[sys,'/',['C-map QASK',13,'demod baseband/out_1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/out_1']],...
		'position',[285,65,305,85])


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

new_system([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],'Location',[283,122,827,462])

add_block('built-in/Inport',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/in_1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/in_1']],...
		'position',[55,115,75,135])

add_block('built-in/Constant',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Constant1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Constant1']],...
		'Value','x2',...
		'position',[160,245,180,265])

add_block('built-in/Sum',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Sum1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Sum1']],...
		'position',[340,220,360,240])

add_block('built-in/Outport',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/out_2']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/out_2']],...
		'Port','2',...
		'position',[485,220,505,240])

add_block('built-in/Filter',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Filter1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Filter1']],...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[395,211,450,249])

add_block('built-in/Product',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Product1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Product1']],...
		'position',[260,123,290,147])

add_block('built-in/Demux',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Demux']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Demux']],...
		'outputs','2',...
		'position',[120,105,160,140])

add_block('built-in/Constant',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Constant']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Constant']],...
		'Value','x1',...
		'position',[155,40,175,60])

add_block('built-in/Product',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Product2']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Product2']],...
		'position',[270,238,300,262])

add_block('built-in/Product',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Product3']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Product3']],...
		'position',[270,193,300,217])

add_block('built-in/Sum',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Sum']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Sum']],...
		'inputs','+-',...
		'position',[335,70,355,90])

add_block('built-in/Product',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Product']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Product']],...
		'position',[260,43,290,67])

add_block('built-in/Filter',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Filter']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Filter']],...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[390,61,445,99])

add_block('built-in/Note',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Ref: Hambley: An Intro to Comm. Systems. pp72']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/Ref: Hambley: An Intro to Comm. Systems. pp72']],...
		'position',[285,280,290,285])

add_block('built-in/Outport',[sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/out_1']])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3/out_1']],...
		'position',[480,70,500,90])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[165,115;230,115;230,60;255,60])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[230,115;230,245;265,245])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[185,255;200,255;200,140;255,140])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[200,255;265,255])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[165,130;255,130])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[180,130;180,210;265,210])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[180,50;255,50])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[215,50;215,200;265,200])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[295,55;305,55;305,75;330,75])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[295,135;305,135;305,85;330,85])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[305,205;315,205;315,225;335,225])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[305,250;315,250;315,235;335,235])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[80,125;115,125])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[360,80;385,80])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[450,80;475,80])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[365,230;390,230])
add_line([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],[455,230;480,230])
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],...
		'Mask Display','plot(0,0,100,100,x,y,u,v);QADM',...
		'Mask Type','QM DSB-SC ADM CE')
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],...
		'Mask Dialogue','Demodulate the complex envelope of a\nQAM modulated signal into in-phase and\nquadrature components into 1st and 2nd\nout ports.|Lowpass filter numerator:|Lowpass filter denominator:|Initial phase (rad):|Sample time (sec):')
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],...
		'Mask Translate','num=@1;den=@2;Ph=@3;ts=@4;x1=cos(-Ph);x2=sin(-Ph);[x,y]=moduicon(2);[u,v]=cmplxicn(0,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],...
		'Mask Help','This block demodulates the quadratic multiplexed double-sideband suppressed-carrier amplitude modulation modulated signal using the QAM method. The filter to be specified is a lowpass filter that passes the signal message and eliminates the carrier signal.')
set_param([sys,'/',['C-map QASK',13,'demod baseband/QADM',13,'baseband3']],...
		'Mask Entries','num\/den\/Ph\/ts\/')