tstapk.m

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

set_param([sys,'/',['Clock',13,'pulse/Unit Delay1']],...
             'orientation',2,...
             'Sample time','[Ts/2,st2]',...
          'x0','ini',...
          'position',[140,165,190,185])

add_block('built-in/Unit Delay',[sys,'/',['Clock',13,'pulse/Unit Delay']])
set_param([sys,'/',['Clock',13,'pulse/Unit Delay']],...
          'orientation',2,...
             'Sample time','[Ts/2,st1]',...
          'position',[145,75,195,95])

add_block('built-in/Gain',[sys,'/',['Clock',13,'pulse/Gain1']])
set_param([sys,'/',['Clock',13,'pulse/Gain1']],...
            'Gain','g',...
          'position',[235,122,255,138])

add_block('built-in/Constant',[sys,'/',['Clock',13,'pulse/Constant']])
set_param([sys,'/',['Clock',13,'pulse/Constant']],...
                'position',[25,30,45,50])

add_block('built-in/Saturation',[sys,'/',['Clock',13,'pulse/Saturation']])
set_param([sys,'/',['Clock',13,'pulse/Saturation']],...
              'Lower Limit','0',...
           'Upper Limit','1',...
           'position',[365,40,390,60])

add_block('built-in/Sum',[sys,'/',['Clock',13,'pulse/Sum2']])
set_param([sys,'/',['Clock',13,'pulse/Sum2']],...
               'hide name',0,...
               'inputs','+-',...
               'position',[300,40,320,60])

add_block('built-in/Sum',[sys,'/',['Clock',13,'pulse/Sum']])
set_param([sys,'/',['Clock',13,'pulse/Sum']],...
         'hide name',0,...
               'inputs','+-',...
               'position',[135,35,155,55])

add_block('built-in/Sum',[sys,'/',['Clock',13,'pulse/Sum1']])
set_param([sys,'/',['Clock',13,'pulse/Sum1']],...
               'hide name',0,...
               'inputs','+-',...
               'position',[130,120,150,140])

add_block('built-in/Relational Operator',[sys,'/',['Clock',13,'pulse/Relational',13,'operator']])
set_param([sys,'/',['Clock',13,'pulse/Relational',13,'operator']],...
             'hide name',0,...
               'position',[370,102,400,133])

add_block('built-in/Gain',[sys,'/',['Clock',13,'pulse/Gain']])
set_param([sys,'/',['Clock',13,'pulse/Gain']],...
            'hide name',0,...
               'Gain','ht',...
         'position',[540,102,565,128])

add_block('built-in/Product',[sys,'/',['Clock',13,'pulse/Product']])
set_param([sys,'/',['Clock',13,'pulse/Product']],...
           'hide name',0,...
               'position',[470,105,495,125])

add_block('built-in/Clock',[sys,'/',['Clock',13,'pulse/Clock1']])
set_param([sys,'/',['Clock',13,'pulse/Clock1']],...
               'hide name',0,...
               'position',[295,100,315,120])

add_block('built-in/Constant',[sys,'/',['Clock',13,'pulse/Constant1']])
set_param([sys,'/',['Clock',13,'pulse/Constant1']],...
              'Value','stt',...
               'position',[295,149,320,171])

add_block('built-in/Outport',[sys,'/',['Clock',13,'pulse/out_1']])
set_param([sys,'/',['Clock',13,'pulse/out_1']],...
               'hide name',0,...
               'position',[590,105,610,125])
add_line([sys,'/',['Clock',13,'pulse']],[260,130;275,130;275,55;295,55])
add_line([sys,'/',['Clock',13,'pulse']],[155,130;230,130])
add_line([sys,'/',['Clock',13,'pulse']],[325,50;360,50])
add_line([sys,'/',['Clock',13,'pulse']],[160,45;295,45])
add_line([sys,'/',['Clock',13,'pulse']],[50,40;70,40;70,125;125,125])
add_line([sys,'/',['Clock',13,'pulse']],[135,175;100,175;100,135;125,135])
add_line([sys,'/',['Clock',13,'pulse']],[155,130;210,130;210,175;195,175])
add_line([sys,'/',['Clock',13,'pulse']],[50,40;130,40])
add_line([sys,'/',['Clock',13,'pulse']],[160,45;230,45;230,85;200,85])
add_line([sys,'/',['Clock',13,'pulse']],[140,85;105,85;105,50;130,50])
add_line([sys,'/',['Clock',13,'pulse']],[320,110;365,110])
add_line([sys,'/',['Clock',13,'pulse']],[405,120;465,120])
add_line([sys,'/',['Clock',13,'pulse']],[500,115;535,115])
add_line([sys,'/',['Clock',13,'pulse']],[570,115;585,115])
add_line([sys,'/',['Clock',13,'pulse']],[325,160;345,160;345,125;365,125])
add_line([sys,'/',['Clock',13,'pulse']],[395,50;430,50;430,110;465,110])
set_param([sys,'/',['Clock',13,'pulse']],...
               '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,'/',['Clock',13,'pulse']],...
              'Mask Dialogue','Pulse Generator.|Pulse period (secs):|Pulse width:|Pulse height:|Pulse start time:')
set_param([sys,'/',['Clock',13,'pulse']],...
               'Mask Translate','Ts=@1; du=@2; ht=@3; stt=@4; g=1; ini=ones(length(@3),1); if (Ts<2*du), g=-1; du=du-Ts/2; ini=zeros(length(@3),1); end; st1=rem(stt,Ts); st2=rem(stt+du,Ts);')
set_param([sys,'/',['Clock',13,'pulse']],...
            '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,'/',['Clock',13,'pulse']],...
           'Mask Entries','T\/.05\/1\/0\/')


%     Finished composite block ['Clock',13,'pulse'].

set_param([sys,'/',['Clock',13,'pulse']],...
                'BackGround',4,...
              'position',[50,262,85,298])


%     Subsystem  ['APK correlation',13,'demodulation1'].

new_system([sys,'/',['APK correlation',13,'demodulation1']])
set_param([sys,'/',['APK correlation',13,'demodulation1']],'Location',[2,46,536,174])

add_block('built-in/Mux',[sys,'/',['APK correlation',13,'demodulation1/Mux']])
set_param([sys,'/',['APK correlation',13,'demodulation1/Mux']],...
            'inputs','2',...
                'position',[250,25,285,60])

add_block('built-in/Outport',[sys,'/',['APK correlation',13,'demodulation1/out_1']])
set_param([sys,'/',['APK correlation',13,'demodulation1/out_1']],...
             'position',[430,35,450,55])

add_block('built-in/S-Function',[sys,'/',['APK correlation',13,'demodulation1/S-function']])
set_param([sys,'/',['APK correlation',13,'demodulation1/S-function']],...
                'ForeGround',2,...
              'function name','apskdem2',...
          'parameters','L, Fc, N, P, A',...
               'position',[325,35,400,55])

add_block('built-in/Inport',[sys,'/',['APK correlation',13,'demodulation1/in_1']])
set_param([sys,'/',['APK correlation',13,'demodulation1/in_1']],...
                'position',[85,25,105,45])


%     Subsystem  ['APK correlation',13,'demodulation1/Rising edge',13,'detector'].

new_system([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']])
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],'Location',[303,485,692,659])

add_block('built-in/Relational Operator',[sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/Relational',13,'Operator']])
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/Relational',13,'Operator']],...
              'position',[135,18,165,42])

add_block('built-in/Inport',[sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/in_1']])
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/in_1']],...
            'position',[10,15,30,35])

add_block('built-in/Memory',[sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/Memory1']])
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/Memory1']],...
                'position',[125,80,165,110])

add_block('built-in/Constant',[sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/one1']])
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/one1']],...
         'Value','thld',...
              'position',[30,135,60,155])

add_block('built-in/Relational Operator',[sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/Relational',13,'Operator2']])
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/Relational',13,'Operator2']],...
             'Operator','>',...
              'position',[265,23,295,47])

add_block('built-in/Relational Operator',[sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/Relational',13,'Operator1']])
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/Relational',13,'Operator1']],...
             'position',[200,88,230,112])

add_block('built-in/Outport',[sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/out_1']])
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector/out_1']],...
                'position',[340,25,360,45])
add_line([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],[300,35;335,35])
add_line([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],[235,100;240,100;240,40;260,40])
add_line([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],[170,30;260,30])
add_line([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],[65,145;100,145;100,35;130,35])
add_line([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],[100,145;180,145;180,105;195,105])
add_line([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],[170,95;195,95])
add_line([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],[35,25;130,25])
add_line([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],[45,25;45,95;120,95])
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],...
                'Mask Display','Edge\ndetector',...
             'Mask Type','Edge Detection',...
                'Mask Dialogue','Rising edge detection:|Threshold:')
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],...
            'Mask Translate','thld=@1;')
set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],...
            'Mask Help','When the input signal rising edge passed the given shreshold, this block outputs one, otherwise outputs zero.',...
         'Mask Entries','thld\/')


%     Finished composite block ['APK correlation',13,'demodulation1/Rising edge',13,'detector'].

set_param([sys,'/',['APK correlation',13,'demodulation1/Rising edge',13,'detector']],...
                'ForeGround',4,...
              'position',[125,53,185,97])

add_block('built-in/Inport',[sys,'/',['APK correlation',13,'demodulation1/in_2']])
set_param([sys,'/',['APK correlation',13,'demodulation1/in_2']],...
                'Port','2',...
          'position',[25,65,45,85])
add_line([sys,'/',['APK correlation',13,'demodulation1']],[110,35;245,35])
add_line([sys,'/',['APK correlation',13,'demodulation1']],[405,45;425,45])
add_line([sys,'/',['APK correlation',13,'demodulation1']],[190,75;210,75;210,50;245,50])
add_line([sys,'/',['APK correlation',13,'demodulation1']],[290,45;320,45])
add_line([sys,'/',['APK correlation',13,'demodulation1']],[50,75;120,75])
set_param([sys,'/',['APK correlation',13,'demodulation1']],...
          'Mask Display','APK\ncorr demo',...
             'Mask Type','APK demodulation')
set_param([sys,'/',['APK correlation',13,'demodulation1']],...
           'Mask Dialogue','ASK/PSK with concentric circles:|Vector of number of symboles on each circle:|Distance to the originall point for each circle:|Phase shift on each circle:|Carrier frequency:|Trigger signal threshold:')
set_param([sys,'/',['APK correlation',13,'demodulation1']],...
                'Mask Translate','N=@1;A=@2;P=@3;Fc=@4;thld=@5;L=length(N); [num,den]=cheby1(2,.1,Fc*pi/5,''s'');Am=max(A);')
set_param([sys,'/',['APK correlation',13,'demodulation1']],...
             'Mask Help','This block demodulates an ASK/PSK modulated signal in the 1st in-port. The demodulated message are 0,1,..,M-1. The second input port inputs the clock pulse. The clock rising edge triggers the block to process next input. The parameter entry should exactly match the ASK/PSK modulation block.')
set_param([sys,'/',['APK correlation',13,'demodulation1']],...
                'Mask Entries','NIL\/AIL\/PIL\/Fc\/.2\/')


%