qamwnymf.m

现代通信系统（prokis）的所有matlab源程序,对初学者很有帮助的。

add_line([sys,'/','Empf鋘ger/Wurzel-Nyquist_/Memory Impulse'],[95,195;95,105;150,105])
add_line([sys,'/','Empf鋘ger/Wurzel-Nyquist_/Memory Impulse'],[185,100;200,100])
add_line([sys,'/','Empf鋘ger/Wurzel-Nyquist_/Memory Impulse'],[245,100;260,100;260,130;290,130])
set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_/Memory Impulse'],...
		'Mask Display','1/sinc',...
		'Mask Type','Impulse',...
		'Mask Dialogue','1/sinc filter:|Holding time:|Threshold for clock pulse: ')
set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_/Memory Impulse'],...
		'Mask Translate','ts=@1;thr=@2;x=thr>0;')
set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_/Memory Impulse'],...
		'Mask Help','When the threshold is greater than zero, this block outputs an impulse signal, which begins at the raising edge of the second input and lasts the holding time. The impulse holds a constant amplitude, which equals the amplitude of the first input at the begining of the impulse. A clock raising edge will trigger next impulse. When the threshold is less or equal to zero, this block faithfully outputs the first input.')
set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_/Memory Impulse'],...
		'Mask Entries','ts\/x\/')


%     Finished composite block 'Empf鋘ger/Wurzel-Nyquist_/Memory Impulse'.

set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_/Memory Impulse'],...
		'position',[155,30,225,70])
add_line([sys,'/','Empf鋘ger/Wurzel-Nyquist_'],[315,50;325,50])
add_line([sys,'/','Empf鋘ger/Wurzel-Nyquist_'],[60,40;150,40])
add_line([sys,'/','Empf鋘ger/Wurzel-Nyquist_'],[230,50;250,50])
add_line([sys,'/','Empf鋘ger/Wurzel-Nyquist_'],[100,90;115,90;115,60;150,60])
set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_'],...
		'Mask Display','R-C\nfilter',...
		'Mask Type','R-C filter')
set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_'],...
		'Mask Dialogue','Design a raised cosine filter and use it to filter the input signal.|Symbol interval (sec):|Computation sampling time (sec):|Filter rolloff factor:|Delay step (integer to multiply symbol interval):|Filter type (FIR or IIR) / (Normal or Sqrt):|With or without sinc filter (1 or 0, suggest 1):')
set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_'],...
		'Mask Translate','td=@1;if length(td)>1,off=td(2);td=td(1);else,off=0;end;ts=@2;R=@3;delay=@4;fil=@5;[num,den]=rcosine(1/td(1),1/ts(1),fil,R,delay);x=@6/2;')
set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_'],...
		'Mask Help','This block designs a raised cosine filter using the specified parameter. The filter is used to filter the input signal. You can optionally use the sinc filter in the filtering computation.')
set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_'],...
		'Mask Entries','1\/.05\/.5\/6\/''FIR/Sqrt''\/0\/')


%     Finished composite block 'Empf鋘ger/Wurzel-Nyquist_'.

set_param([sys,'/','Empf鋘ger/Wurzel-Nyquist_'],...
		'position',[410,203,490,247])

add_block('built-in/Scope',[sys,'/','Empf鋘ger/r(t)'])
set_param([sys,'/','Empf鋘ger/r(t)'],...
		'orientation',3,...
		'Vgain','1.500000',...
		'Hgain','25.000000',...
		'Vmax','3.000000',...
		'Hmax','50.000000',...
		'Window',[320,340,960,440],...
		'position',[60,70,90,100])

add_block('built-in/Outport',[sys,'/',['Empf鋘ger/empfangenes',13,'Symbol']])
set_param([sys,'/',['Empf鋘ger/empfangenes',13,'Symbol']],...
		'position',[950,140,970,160])


%     Subsystem  'Empf鋘ger/Doppelklick4'.

new_system([sys,'/','Empf鋘ger/Doppelklick4'])
set_param([sys,'/','Empf鋘ger/Doppelklick4'],'Location',[136,230,381,439])
set_param([sys,'/','Empf鋘ger/Doppelklick4'],...
		'Mask Display','Schlie遝 Empf鋘ger',...
		'Mask Type','schlie遝n',...
		'Mask Dialogue','eval(''closempf'')')


%     Finished composite block 'Empf鋘ger/Doppelklick4'.

set_param([sys,'/','Empf鋘ger/Doppelklick4'],...
		'BackGround',7,...
		'hide name',0,...
		'Font Angle','italic',...
		'position',[815,20,950,46])

add_block('built-in/Scope',[sys,'/','Empf鋘ger/v(t)'])
set_param([sys,'/','Empf鋘ger/v(t)'],...
		'orientation',3,...
		'Vgain','15.000000',...
		'Hgain','25.000000',...
		'Vmax','30.000000',...
		'Hmax','50.000000',...
		'Window',[320,740,960,840],...
		'position',[895,70,925,100])


%     Subsystem  ['Empf鋘ger/Signalraum-',13,'decodierung'].

new_system([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],'Location',[57,374,831,674])

add_block('built-in/Zero-Order Hold',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Zero-Order',13,'Hold']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Zero-Order',13,'Hold']],...
		'Sample time','td',...
		'position',[135,24,170,56])

add_block('built-in/Inport',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/in_1']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/in_1']],...
		'position',[60,30,80,50])

add_block('built-in/Zero-Order Hold',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Zero-Order',13,'Hold1']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Zero-Order',13,'Hold1']],...
		'Sample time','td',...
		'position',[135,149,170,181])

add_block('built-in/Inport',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/in_2']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/in_2']],...
		'Port','2',...
		'position',[60,155,80,175])

add_block('built-in/Sum',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Sum5']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Sum5']],...
		'ForeGround',2,...
		'position',[470,153,490,182])


%     Subsystem  ['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table'].

new_system([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],'Location',[436,148,718,302])

add_block('built-in/Inport',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table/y0']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table/y0']],...
		'Port','2',...
		'position',[20,80,40,100])

add_block('built-in/Outport',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table/table out']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table/table out']],...
		'position',[215,55,235,75])

add_block('built-in/Inport',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table/x0']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table/x0']],...
		'position',[20,25,40,45])

add_block('built-in/S-Function',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table/S-function']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table/S-function']],...
		'function name','sftable2',...
		'parameters','xindex, yindex, table',...
		'position',[140,52,190,78])

add_block('built-in/Mux',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table/Mux']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table/Mux']],...
		'inputs','2',...
		'position',[90,46,120,79])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],[45,90;65,90;65,70;85,70])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],[195,65;210,65])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],[45,35;65,35;65,55;85,55])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],[125,65;135,65])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],...
		'Mask Display','plot(-10,-10,110,110,[90,50,10],[90,40,30],[90,50,10],[50,26,20],[90,50,10],[22,13,10])',...
		'Mask Type','2-D Table Lookup')
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],...
		'Mask Dialogue','Two Dimensional Table Lookup\nThe first input corresponds to X Index and the second input corresponds to the Y Index|X Index|Y Index|Table')
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],...
		'Mask Translate','xindex=@1; yindex=@2; table=@3; sftab2chk(xindex,yindex,table);')
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],...
		'Mask Help','This block returns a linearly interpolated intersection from the table using the X index (which corresponds to the rows of the table) and the Y index (which corresponds to the columns of the table).  Extrapolation is used.')
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],...
		'Mask Entries','x\/y\/tab\/')


%     Finished composite block ['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table'].

set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/2-D Table']],...
		'position',[515,68,545,92])

add_block('built-in/Sum',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Sum3']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Sum3']],...
		'ForeGround',2,...
		'inputs','+-',...
		'position',[580,73,600,102])

add_block('built-in/Saturation',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Saturation']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Saturation']],...
		'Lower Limit','0',...
		'Upper Limit','N-1',...
		'position',[630,78,660,102])

add_block('built-in/Outport',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/out_1']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/out_1']],...
		'position',[685,80,705,100])

add_block('built-in/Sum',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Sum4']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Sum4']],...
		'ForeGround',2,...
		'position',[470,58,490,87])

add_block('built-in/Sum',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Sum1']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Sum1']],...
		'ForeGround',2,...
		'inputs','+-',...
		'position',[280,33,300,62])

add_block('built-in/Sum',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Sum2']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Sum2']],...
		'ForeGround',2,...
		'inputs','+-',...
		'position',[290,158,310,187])

add_block('built-in/S-Function',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Minimum']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Minimum']],...
		'function name','arymimai',...
		'parameters','''min''',...
		'position',[385,165,450,185])

add_block('built-in/Constant',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Shift key']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Shift key']],...
		'Value','sfty',...
		'position',[225,214,250,236])

add_block('built-in/S-Function',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Minimum1']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Minimum1']],...
		'function name','arymimai',...
		'parameters','''min''',...
		'position',[385,40,445,60])

add_block('built-in/Constant',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Shift key1']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Shift key1']],...
		'Value','sftx',...
		'position',[220,89,245,111])

add_block('built-in/Constant',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Shift key2']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Shift key2']],...
		'BackGround',5,...
		'position',[325,114,350,136])

add_block('built-in/Abs',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Abs1']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Abs1']],...
		'position',[325,38,355,62])

add_block('built-in/Abs',[sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Abs']])
set_param([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung/Abs']],...
		'position',[325,163,355,187])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[85,40;130,40])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[360,175;380,175])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[315,175;320,175])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[255,225;260,225;260,180;285,180])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[250,100;255,100;255,55;275,55])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[305,50;320,50])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[360,50;380,50])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[665,90;680,90])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[550,80;575,80])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[605,90;625,90])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[450,50;450,65;465,65])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[455,175;465,175])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[495,170;500,170;510,85])
add_line([sys,'/',['Empf鋘ger/Signalraum-',13,'decodierung']],[355,125;560,125;560,95;575,95])