com_dimo.m

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

add_block('built-in/Constant',[sys,'/',['Single sided',13,'MASK',13,'modulation/one']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/one']],...
               'Value','Fc',...
                'position',[25,161,50,189])


%     Subsystem  ['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector'].

new_system([sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector']],'Location',[303,485,692,659])

add_block('built-in/Outport',[sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/out_1']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/out_1']],...
           'position',[340,25,360,45])

add_block('built-in/Relational Operator',[sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/Relational',13,'Operator1']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/Relational',13,'Operator1']],...
             'position',[200,88,230,112])

add_block('built-in/Relational Operator',[sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/Relational',13,'Operator2']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/Relational',13,'Operator2']],...
            'Operator','>',...
              'position',[265,23,295,47])

add_block('built-in/Constant',[sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/one1']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/one1']],...
          'Value','thld',...
              'position',[30,135,60,155])

add_block('built-in/Memory',[sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/Memory1']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/Memory1']],...
              'position',[125,80,165,110])

add_block('built-in/Inport',[sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/in_1']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector/in_1']],...
           'position',[10,15,30,35])

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


%     Finished composite block ['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector'].

set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/Rising edge',13,'detector']],...
                'position',[75,78,135,122])

add_block('built-in/Inport',[sys,'/',['Single sided',13,'MASK',13,'modulation/in_2']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/in_2']],...
                'Port','2',...
          'position',[30,90,50,110])

add_block('built-in/Switch',[sys,'/',['Single sided',13,'MASK',13,'modulation/Switch']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/Switch']],...
             'Threshold','eps',...
           'position',[190,29,220,61])

add_block('built-in/Inport',[sys,'/',['Single sided',13,'MASK',13,'modulation/in_1']])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation/in_1']],...
                'position',[85,25,105,45])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[365,110;385,110])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[310,45;315,45;315,105;330,105])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[310,180;315,180;315,115;330,115])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[210,220;220,185])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[140,175;155,175])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[55,175;70,175])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[250,180;260,180])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[55,100;70,100])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[110,35;185,35])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[225,45;250,45;250,95;230,95])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[180,95;165,95;165,55;185,55])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[140,100;150,100;150,45;185,45])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[200,175;220,175])
add_line([sys,'/',['Single sided',13,'MASK',13,'modulation']],[250,45;270,45])
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation']],...
                'Mask Display','MASK',...
               'Mask Type','MASK')
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation']],...
           'Mask Dialogue','M-ary Amplitude Shift Keying Modulation:|M-ary number:|Carrier frequency:|Maximum amplitude:|Trigger signal threshold:|Initial phase:')
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation']],...
                'Mask Translate','pi2=2*pi;N=@1;Fc=@2;Ac=@3/(N-1);thld=@4;Ph=@5;')
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation']],...
            'Mask Help','This block modulates an M-ary digital signal onto a given carrier frequency using amplitude shift keying method. The first input port is for the original digital signal, which is coded as 0,1,..,M-1. The second input port inputs the clock pulse. The clock rising edge triggers the block to process next input.')
set_param([sys,'/',['Single sided',13,'MASK',13,'modulation']],...
             'Mask Entries','N\/100\/1\/.2\/0\/')


%     Finished composite block ['Single sided',13,'MASK',13,'modulation'].

set_param([sys,'/',['Single sided',13,'MASK',13,'modulation']],...
                'position',[1120,43,1180,87])


%     Subsystem  'MPSK modu'.

new_system([sys,'/','MPSK modu'])
set_param([sys,'/','MPSK modu'],'Location',[126,337,786,595])

add_block('built-in/Constant',[sys,'/','MPSK modu/Initial phase'])
set_param([sys,'/','MPSK modu/Initial phase'],...
             'Value','Ph',...
                'position',[370,178,390,202])

add_block('built-in/Outport',[sys,'/','MPSK modu/out_1'])
set_param([sys,'/','MPSK modu/out_1'],...
         'position',[580,75,600,95])

add_block('built-in/Fcn',[sys,'/','MPSK modu/Oscilation'])
set_param([sys,'/','MPSK modu/Oscilation'],...
             'Expr','Ac*sin(u[1])',...
               'position',[480,70,555,100])

add_block('built-in/Sum',[sys,'/','MPSK modu/Sum'])
set_param([sys,'/','MPSK modu/Sum'],...
          'inputs','+++',...
              'position',[440,67,460,103])

add_block('built-in/Switch',[sys,'/','MPSK modu/Switch1'])
set_param([sys,'/','MPSK modu/Switch1'],...
               'Threshold','eps',...
           'position',[360,124,390,156])

add_block('built-in/Reset Integrator',[sys,'/',['MPSK modu/Reset',13,'integrator']])
set_param([sys,'/',['MPSK modu/Reset',13,'integrator']],...
            'position',[275,154,315,186])

add_block('built-in/Constant',[sys,'/','MPSK modu/one'])
set_param([sys,'/','MPSK modu/one'],...
            'Value','Fc',...
                'position',[200,146,225,174])

add_block('built-in/Memory',[sys,'/','MPSK modu/Memory1'])
set_param([sys,'/','MPSK modu/Memory1'],...
              'orientation',2,...
             'position',[185,85,225,115])

add_block('built-in/Inport',[sys,'/','MPSK modu/in_1'])
set_param([sys,'/','MPSK modu/in_1'],...
             'position',[85,25,105,45])

add_block('built-in/Switch',[sys,'/','MPSK modu/Switch'])
set_param([sys,'/','MPSK modu/Switch'],...
           'Threshold','eps',...
           'position',[190,29,220,61])

add_block('built-in/Inport',[sys,'/','MPSK modu/in_2'])
set_param([sys,'/','MPSK modu/in_2'],...
              'Port','2',...
          'position',[30,185,50,205])


%     Subsystem  ['MPSK modu/Rising edge',13,'detector'].

new_system([sys,'/',['MPSK modu/Rising edge',13,'detector']])
set_param([sys,'/',['MPSK modu/Rising edge',13,'detector']],'Location',[303,485,692,659])

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

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

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

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

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

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

add_block('built-in/Outport',[sys,'/',['MPSK modu/Rising edge',13,'detector/out_1']])
set_param([sys,'/',['MPSK modu/Rising edge',13,'detector/out_1']],...
          'position',[340,25,360,45])
add_line([sys,'/',['MPSK modu/Rising edge',13,'detector']],[300,35;335,35])
add_line([sys,'/',['MPSK modu/Rising edge',13,'detector']],[235,100;240,100;240,40;260,40])
add_line([sys,'/',['MPSK modu/Rising edge',13,'detector']],[170,30;260,30])
add_line([sys,'/',['MPSK modu/Rising edge',13,'detector']],[65,145;100,145;100,35;130,35])
add_line([sys,'/',['MPSK modu/Rising edge',13,'detector']],[100,145;180,145;180,105;195,105])
add_line([sys,'/',['MPSK modu/Rising edge',13,'detector']],[170,95;195,95])
add_line([sys,'/',['MPSK modu/Rising edge',13,'detector']],[35,25;130,25])
add_line([sys,'/',['MPSK modu/Rising edge',13,'detector']],[45,25;45,95;120,95])
set_param([sys,'/',['MPSK modu/Rising edge',13,'detector']],...
         'Mask Display','Edge\ndetector',...
             'Mask Type','Edge Detection',...
                'Mask Dialogue','Rising edge detection:|Threshold:',...
         'Mask Translate','thld=@1;')