asknrzmf.m

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

		'position',[210,225,240,255])

add_block('built-in/Fcn',[sys,'/','Fcn'])
set_param([sys,'/','Fcn'],...
		'hide name',0,...
		'Expr','cos(4*pi*u)',...
		'position',[285,162,355,188])

add_block('built-in/Clock',[sys,'/','Clock'])
set_param([sys,'/','Clock'],...
		'position',[245,165,265,185])

add_block('built-in/Scope',[sys,'/','u(t)'])
set_param([sys,'/','u(t)'],...
		'move name',0,...
		'Vgain','3.000000',...
		'Hgain','25.000000',...
		'Vmax','6.000000',...
		'Hmax','50.000000',...
		'Window',[357,436,1280,536])
open_system([sys,'/','u(t)'])
set_param([sys,'/','u(t)'],...
		'position',[120,225,150,255])

add_block('built-in/Fcn',[sys,'/','Fcn1'])
set_param([sys,'/','Fcn1'],...
		'hide name',0,...
		'Expr','2*cos(4*pi*u)',...
		'position',[535,17,630,43])

add_block('built-in/Clock',[sys,'/','Clock1'])
set_param([sys,'/','Clock1'],...
		'position',[495,20,515,40])

add_block('built-in/S-Function',[sys,'/',['Integrate and Dump',13,'']])
set_param([sys,'/',['Integrate and Dump',13,'']],...
		'function name','schdint',...
		'parameters','td, ts, limit',...
		'Mask Display','Scheduled\nreset-int',...
		'Mask Type','Scheduled reset integration')
set_param([sys,'/',['Integrate and Dump',13,'']],...
		'Mask Dialogue','Reset the state to be zero(s) at the\nscheduled reset sample point.|Scheduled reset time interval and offset (sec):|Computation sample time and offset (sec):|Modulo bound:')
set_param([sys,'/',['Integrate and Dump',13,'']],...
		'Mask Translate','td=@1;ts=@2;limit=@3;')
set_param([sys,'/',['Integrate and Dump',13,'']],...
		'Mask Help','This block resets the state(s) to be zero(s) at the reset time points. The reset interval can be a two-element vector with the second element as offset. The computation sample time must be smaller than the reset interval. The block resets the state value to be the remainder of the state divided by the modulo bound when the absolute value of the state is larger than the modulo bound.')
set_param([sys,'/',['Integrate and Dump',13,'']],...
		'Mask Entries','1\/.01\/999\/',...
		'position',[730,108,810,152])

add_block('built-in/Scope',[sys,'/','Senkensignal v(t)'])
set_param([sys,'/','Senkensignal v(t)'],...
		'Vgain','3.000000',...
		'Hgain','25.000000',...
		'Vmax','6.000000',...
		'Hmax','50.000000',...
		'Window',[356,924,1280,1024])
open_system([sys,'/','Senkensignal v(t)'])
set_param([sys,'/','Senkensignal v(t)'],...
		'position',[995,115,1025,145])

add_block('built-in/Scope',[sys,'/','d_e(t)'])
set_param([sys,'/','d_e(t)'],...
		'orientation',1,...
		'Vgain','1.500000',...
		'Hgain','25.000000',...
		'Vmax','3.000000',...
		'Hmax','50.000000',...
		'Window',[356,828,1280,928])
open_system([sys,'/','d_e(t)'])
set_param([sys,'/','d_e(t)'],...
		'position',[825,185,855,215])


%     Subsystem  'Error rate'.

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

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

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

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

add_block('built-in/S-Function',[sys,'/','Error rate/S-function'])
set_param([sys,'/','Error rate/S-function'],...
		'function name','sbiterr',...
		'parameters','num_lin, K, TDelay, Sample',...
		'position',[130,52,195,78])
add_line([sys,'/','Error rate'],[40,70;60,70])
add_line([sys,'/','Error rate'],[40,55;60,55])
add_line([sys,'/','Error rate'],[105,65;125,65])
set_param([sys,'/','Error rate'],...
		'Mask Display','Error\nmeter',...
		'Mask Type','Symbol/bit error counter')
set_param([sys,'/','Error rate'],...
		'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 signal.|Bit per symbol:|Number of digits on display:|Delay between 1st port and 2nd port:|Sample time (sec):')
set_param([sys,'/','Error rate'],...
		'Mask Translate','K=@1;num_lin=@2;TDelay=@3;Sample=@4;')
set_param([sys,'/','Error rate'],...
		'Mask Help','The signal from the first port must be a scalar. The second input port can be a vector with a delay to the first port signal. The comparison happens only at the sampling point.')
set_param([sys,'/','Error rate'],...
		'Mask Entries','2\/10\/1\/1\/')


%     Finished composite block 'Error rate'.

set_param([sys,'/','Error rate'],...
		'orientation',1,...
		'position',[910,225,990,265])


%     Subsystem  'MASK demap'.

new_system([sys,'/','MASK demap'])
set_param([sys,'/','MASK demap'],'Location',[187,342,628,482])

add_block('built-in/Zero-Order Hold',[sys,'/',['MASK demap/Zero-Order',13,'Hold']])
set_param([sys,'/',['MASK demap/Zero-Order',13,'Hold']],...
		'Sample time','td',...
		'position',[85,29,120,61])

add_block('built-in/Constant',[sys,'/','MASK demap/Shift key'])
set_param([sys,'/','MASK demap/Shift key'],...
		'Value','sft',...
		'position',[115,93,135,117])

add_block('built-in/Sum',[sys,'/','MASK demap/Sum2'])
set_param([sys,'/','MASK demap/Sum2'],...
		'inputs','+-',...
		'position',[180,38,200,67])

add_block('built-in/Abs',[sys,'/','MASK demap/Abs'])
set_param([sys,'/','MASK demap/Abs'],...
		'position',[235,42,270,68])

add_block('built-in/Outport',[sys,'/','MASK demap/out_1'])
set_param([sys,'/','MASK demap/out_1'],...
		'position',[400,45,420,65])

add_block('built-in/S-Function',[sys,'/','MASK demap/Minimum'])
set_param([sys,'/','MASK demap/Minimum'],...
		'function name','arymimai',...
		'parameters','''min''',...
		'position',[315,45,370,65])

add_block('built-in/Inport',[sys,'/','MASK demap/in_1'])
set_param([sys,'/','MASK demap/in_1'],...
		'position',[30,35,50,55])
add_line([sys,'/','MASK demap'],[55,45;80,45])
add_line([sys,'/','MASK demap'],[275,55;310,55])
add_line([sys,'/','MASK demap'],[125,45;175,45])
add_line([sys,'/','MASK demap'],[375,55;395,55])
add_line([sys,'/','MASK demap'],[140,105;155,105;155,60;175,60])
add_line([sys,'/','MASK demap'],[205,55;230,55])
set_param([sys,'/','MASK demap'],...
		'Mask Display','MASK\ndemap',...
		'Mask Type','MASK demap')
set_param([sys,'/','MASK demap'],...
		'Mask Dialogue','Reverse the MASK mapping process\nConvert [-1 1] analog signal to [0, M-1] symbols.|M-ary number (digit integers in ranger [0, M-1]):|Output symbol interval and offset (sec):')
set_param([sys,'/','MASK demap'],...
		'Mask Translate','N=@1;Ac=1;sft=[0:N-1]*Ac*2/(N-1)-Ac;td=@2;')
set_param([sys,'/','MASK demap'],...
		'Mask Help','This block demaps a MASK mapped signal back to digit symbols. You can place this block after a amplitude demodulation block. The input of this block is an analog signal in the range [-1, 1]. The demodulation decides the closest integer fitting in [0,M-1] range. When the input symbol interval is a two-elements vector, the second element is offset. The default offset value is 0.')
set_param([sys,'/','MASK demap'],...
		'Mask Entries','4\/[1, .9]\/')


%     Finished composite block 'MASK demap'.

set_param([sys,'/','MASK demap'],...
		'position',[870,108,950,152])

add_block('built-in/Product',[sys,'/','Product1'])
set_param([sys,'/','Product1'],...
		'hide name',0,...
		'position',[660,112,685,143])

add_block('built-in/Scope',[sys,'/',['Bin鋜es',13,'Datensignal']])
set_param([sys,'/',['Bin鋜es',13,'Datensignal']],...
		'Vgain','3.000000',...
		'Hgain','25.000000',...
		'Vmax','6.000000',...
		'Hmax','50.000000',...
		'Window',[357,337,1280,437])
open_system([sys,'/',['Bin鋜es',13,'Datensignal']])
set_param([sys,'/',['Bin鋜es',13,'Datensignal']],...
		'position',[175,20,205,50])


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

new_system([sys,'/',['ASK Mo//Dem',13,'demo1']])
set_param([sys,'/',['ASK Mo//Dem',13,'demo1']],'Location',[175,552,335,697])
set_param([sys,'/',['ASK Mo//Dem',13,'demo1']],...
		'Mask Display','Signalraum-\nKonstellation',...
		'Mask Dialogue','eval(''figure''); eval(''modmap(''''ask'''',4)'')')


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

set_param([sys,'/',['ASK Mo//Dem',13,'demo1']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[10,18,90,62])


%     Subsystem  ['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK'].

new_system([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK']],'Location',[84,708,621,947])

add_block('built-in/Note',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Jeweils zwei Bits des Bitstroms werden zu einem quatern鋜en Symbol decodiert.',13,'Reihenfolge der Bits: Zuerst MSB, dann LSB.']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Jeweils zwei Bits des Bitstroms werden zu einem quatern鋜en Symbol decodiert.',13,'Reihenfolge der Bits: Zuerst MSB, dann LSB.']],...
		'position',[265,0,270,5])


%     Subsystem  ['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Verz鰃erung'].

new_system([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Verz鰃erung']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Verz鰃erung']],'Location',[12,432,357,702])

add_block('built-in/Digital Clock',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Verz鰃erung/Digital Clock']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Verz鰃erung/Digital Clock']],...
		'Sample time','ts',...
		'position',[60,140,95,170])

add_block('built-in/Inport',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Verz鰃erung/in_1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Verz鰃erung/in_1']],...
		'position',[20,80,40,100])