askwnymf.m

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

add_block('built-in/Inport',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe/in_3']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe/in_3']],...
		'Port','3',...
		'position',[65,85,85,105])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],[240,80;285,80])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],[145,80;180,80])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],[40,65;105,65])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],[335,70;385,70])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],[65,80;105,80])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],[335,90;350,90])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],[90,95;105,95])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w,u,z);Buffer dwn',...
		'Mask Type','Triggered buffer down')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],...
		'Mask Dialogue','Rising edge of the 2nd port triggers 1st port vector signal in. Rising edge of the 3rd port triggers 1st outport signal out.|Input signal vector size:|Initial index (integer vector):|Increment for each index (integer vector):|Trigger threshold:|When index exceed register size, 1: cyclic out, 0: zero out:')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],...
		'Mask Translate','in_size=@1;ini_idx=@2;idx_inc=@3;thrshld=@4;cycl_flag=@5;out_size=length(ini_idx);[v,w]=trigicon(0,25,get_param(gcb,''orientation''),2);[x,y]=trigicon(1,75,get_param(gcb,''orientation''),2);[u,z]=trigicon(0,50,get_param(gcb,''orientation''),2);')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],...
		'Mask Help','The block refreshes its registers with the vector input from the 1st inport at the rising edge of the 2nd inport pulse. The 1st outport outputs the elements of the registers starting with the given initial index. The rising edge of the 3rd inport pulse triggers the 1st output to output the register value with the index increasing the increment value. The second outport outputs a spike pulse when the internal register is refreshed.')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],...
		'Mask Entries','2\/[1 0]\/[0 0]\/1\/0\/')


%     Finished composite block ['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe'].

set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Haltestufe']],...
		'position',[260,138,340,182])


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

new_system([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],'Location',[19,610,374,740])

add_block('built-in/Inport',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/in_2']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/in_2']],...
		'Port','2',...
		'position',[30,70,50,90])

add_block('built-in/Inport',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/in_1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/in_1']],...
		'position',[30,55,50,75])

add_block('built-in/Outport',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/out_2']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/out_2']],...
		'Port','2',...
		'position',[330,70,350,90])

add_block('built-in/Outport',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/out_1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/out_1']],...
		'position',[330,55,350,75])

add_block('built-in/Mux',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/Mux']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/Mux']],...
		'inputs','2',...
		'position',[80,56,115,89])

add_block('built-in/S-Function',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/S-function']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/S-function']],...
		'function name','regshift',...
		'parameters','shft_out, thrhld',...
		'position',[150,65,200,85])

add_block('built-in/Demux',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/Demux']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister/Demux']],...
		'outputs','[len_rg, 1]',...
		'position',[260,55,300,90])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],[55,80;75,80])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],[55,65;75,65])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],[305,80;325,80])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],[305,65;325,65])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],[205,75;255,75])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],[120,75;145,75])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);Reg. shift',...
		'Mask Type','Register-shift')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],...
		'Mask Dialogue','The rising edge of the 2nd port pulse\ntriggers the block to input the 1st port data and to shift the register.|Delay steps (output length is same as this vector size):|Threshold in detecting the rising edge of the pulse:')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],...
		'Mask Translate','shft_out=@1;thrhld=@2;len_rg=length(@1);[v,w]=trigicon(0,25,get_param(gcb,''orientation''),2);[x,y]=trigicon(1,75,get_param(gcb,''orientation''),2);')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],...
		'Mask Help','This block stores the scalar input signal from the 1st input port at the rising edge of the pulse from the 2nd port. The 1st outport outputs a vector with its size the same as the "Delay steps" entree of this block. The maximum delay is the register size of this block. The second outport outputs a positive pulse when the register is\nrefreshed.')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],...
		'Mask Entries','[2 1]\/1\/')


%     Finished composite block ['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister'].

set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Schieberegister']],...
		'position',[120,133,200,177])


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

new_system([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],'Location',[158,441,759,682])

add_block('built-in/Outport',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/out_1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/out_1']],...
		'hide name',0,...
		'position',[560,105,580,125])

add_block('built-in/Gain',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Gain']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Gain']],...
		'hide name',0,...
		'Gain','ht',...
		'position',[510,102,535,128])

add_block('built-in/Product',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Product']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Product']],...
		'hide name',0,...
		'position',[455,105,480,125])

add_block('built-in/Logical Operator',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Logical',13,'Operator1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Logical',13,'Operator1']],...
		'Operator','NOT',...
		'Number of Input Ports','1',...
		'position',[355,38,385,62])

add_block('built-in/Logical Operator',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Logical',13,'Operator']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Logical',13,'Operator']],...
		'Operator','XOR',...
		'position',[285,38,315,62])

add_block('built-in/Constant',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Constant1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Constant1']],...
		'Value','stt',...
		'position',[295,149,320,171])

add_block('built-in/Clock',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Clock1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Clock1']],...
		'hide name',0,...
		'position',[295,100,315,120])

add_block('built-in/Relational Operator',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Relational',13,'operator']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Relational',13,'operator']],...
		'hide name',0,...
		'position',[370,102,400,133])

add_block('built-in/Sum',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Sum1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Sum1']],...
		'hide name',0,...
		'inputs','+-',...
		'position',[130,120,150,140])

add_block('built-in/Sum',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Sum']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Sum']],...
		'hide name',0,...
		'inputs','+-',...
		'position',[135,35,155,55])

add_block('built-in/Constant',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Constant']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Constant']],...
		'position',[25,30,45,50])

add_block('built-in/Unit Delay',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Unit Delay']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Unit Delay']],...
		'orientation',2,...
		'Sample time','[Ts,st1]',...
		'position',[145,75,195,95])

add_block('built-in/Unit Delay',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Unit Delay1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber/Unit Delay1']],...
		'orientation',2,...
		'Sample time','[Ts,st2]',...
		'x0','ini',...
		'position',[140,165,190,185])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[390,50;430,50;430,110;450,110])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[320,50;350,50])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[325,160;345,160;345,125;365,125])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[540,115;555,115])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[485,115;505,115])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[405,120;450,120])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[320,110;365,110])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[140,85;105,85;105,50;130,50])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[160,45;230,45;230,85;200,85])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[50,40;130,40])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[155,130;210,130;210,175;195,175])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[135,175;100,175;100,135;125,135])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[50,40;70,40;70,125;125,125])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[160,45;280,45])
add_line([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],[155,130;245,130;245,55;280,55])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],...
		'Mask Display','plot(0,0,100,100,[90,75,75,60,60,35,35,20,20,10],[20,20,80,80,20,20,80,80,20,20])',...
		'Mask Type','Pulse Generator')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],...
		'Mask Dialogue','Pulse Generator.|Pulse period (secs):|Pulse width:|Pulse height:|Pulse start time:')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],...
		'Mask Translate','Ts=@1; du=@2; ht=@3; stt=@4; ini=ones(length(ht),1); st1=rem(stt,Ts); st2=rem(stt+du,Ts);if(Ts<=1.2*du),ini=zeros(length(ht),1);end;')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],...
		'Mask Help','Pulse generator which ensures pulse\ntransitions are hit. Provides a vector of pulses when the height is entered as a vector.\nUnmask to see how it works.')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],...
		'Mask Entries','.5\/.25\/1\/0\/')


%     Finished composite block ['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber'].

set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Taktgeber']],...
		'position',[35,147,70,183])


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

new_system([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom']],'Location',[355,528,737,675])

add_block('built-in/S-Function',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Message source']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Message source']],...
		'BackGround',5,...
		'function name','trigwksp',...
		'parameters','var,thd,cyclFlag,ini',...
		'Mask Display','Triggered\nread')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Message source']],...
		'Mask Type','Read from workspace')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Message source']],...
		'Mask Dialogue','The raising edge of input pulse trigger the block output the next row from the workspace variable.|Read the variable:|Threshold for the input pulse:|Cyclic read variable (1) or amend zeros (0).|Output before first trigger:')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Message source']],...
		'Mask Translate','var=@1;thd=@2;cyclFlag=@3;ini=@4;')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Message source']],...
		'Mask Help','This block reads the data from a workspace variable. The output is refreshed at the raising edge of the input pulse.')
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Message source']],...
		'Mask Entries','var\/.1\/cyc\/ini\/',...
		'position',[180,53,255,97])

add_block('built-in/Outport',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/out_1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/out_1']],...
		'position',[295,65,315,85])


%     Subsystem  ['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Pulses deivide',13,'same sample time1'].

new_system([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Pulses deivide',13,'same sample time1']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Pulses deivide',13,'same sample time1']],'Location',[55,192,283,286])

add_block('built-in/Outport',[sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Pulses deivide',13,'same sample time1/Outport']])
set_param([sys,'/',['Quatern鋜e',13,'Quelle',13,'f黵 4-ASK/Bitstrom/Pulses deivide',13,'same sample time1/Outport']],...
		'position',[160,35,180,55])

add_block('bui