tstqam.m

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

set_param([sys,'/','Mux1'],...
             'inputs','5',...
                'position',[590,30,630,80])

add_block('built-in/Note',[sys,'/','demodulated output'])
set_param([sys,'/','demodulated output'],...
                'ForeGround',5,...
              'position',[505,75,510,80])


%     Subsystem  'Subsystem'.

new_system([sys,'/','Subsystem'])
set_param([sys,'/','Subsystem'],'Location',[258,104,727,268])

add_block('built-in/Note',[sys,'/',['Subsystem/There is a time delay between the original signal and the demodulated',13,'signal because the filters are used in the demodulation.                    ']])
set_param([sys,'/',['Subsystem/There is a time delay between the original signal and the demodulated',13,'signal because the filters are used in the demodulation.                    ']],...
           'position',[230,105,235,110])

add_block('built-in/Note',[sys,'/','Subsystem/The blue signal is the modulated output'])
set_param([sys,'/','Subsystem/The blue signal is the modulated output'],...
                'ForeGround',4,...
              'position',[145,65,150,70])

add_block('built-in/Note',[sys,'/','Subsystem/This test file is to test Quadrature Multiplier Output.'])
set_param([sys,'/','Subsystem/This test file is to test Quadrature Multiplier Output.'],...
          'position',[180,25,185,30])

add_block('built-in/Note',[sys,'/','Subsystem/The red signals are the system input signals.'])
set_param([sys,'/','Subsystem/The red signals are the system input signals.'],...
              'ForeGround',2,...
              'position',[160,45,165,50])

add_block('built-in/Note',[sys,'/','Subsystem/The yellow signal is the demodulated output.'])
set_param([sys,'/','Subsystem/The yellow signal is the demodulated output.'],...
                'ForeGround',5,...
              'position',[160,85,165,90])
set_param([sys,'/','Subsystem'],...
          'Mask Display','?')


%     Finished composite block 'Subsystem'.

set_param([sys,'/','Subsystem'],...
               'hide name',0,...
               'Drop Shadow',4,...
             'position',[600,120,630,156])


%     Subsystem  ['Quad multi',13,'DSB-SC-AM'].

new_system([sys,'/',['Quad multi',13,'DSB-SC-AM']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM']],'Location',[99,142,631,346])

add_block('built-in/Inport',[sys,'/',['Quad multi',13,'DSB-SC-AM/in_2']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/in_2']],...
                'Port','2',...
          'position',[160,145,180,165])

add_block('built-in/Inport',[sys,'/',['Quad multi',13,'DSB-SC-AM/in_1']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/in_1']],...
                'position',[160,30,180,50])

add_block('built-in/Gain',[sys,'/',['Quad multi',13,'DSB-SC-AM/Gain']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Gain']],...
            'Gain','pi2',...
                'position',[155,79,190,111])

add_block('built-in/Fcn',[sys,'/',['Quad multi',13,'DSB-SC-AM/Fcn1']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Fcn1']],...
            'Expr','sin(u[1]+Pg)',...
               'position',[235,106,310,134])

add_block('built-in/Outport',[sys,'/',['Quad multi',13,'DSB-SC-AM/out_1']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/out_1']],...
             'position',[490,90,510,110])

add_block('built-in/Sum',[sys,'/',['Quad multi',13,'DSB-SC-AM/Sum2']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Sum2']],...
            'position',[430,90,450,110])

add_block('built-in/Product',[sys,'/',['Quad multi',13,'DSB-SC-AM/Product1']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Product1']],...
                'position',[355,112,380,143])

add_block('built-in/Product',[sys,'/',['Quad multi',13,'DSB-SC-AM/Product']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Product']],...
         'position',[355,47,380,78])

add_block('built-in/Fcn',[sys,'/',['Quad multi',13,'DSB-SC-AM/Fcn']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Fcn']],...
               'Expr','sin(u[1]+Ph)',...
               'position',[235,56,310,84])

add_block('built-in/Note',[sys,'/',['Quad multi',13,'DSB-SC-AM/Ref: Hambley: An Intro to Comm. Systems. pp72']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Ref: Hambley: An Intro to Comm. Systems. pp72']],...
          'position',[250,305,255,310])

add_block('built-in/Constant',[sys,'/',['Quad multi',13,'DSB-SC-AM/Constant']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Constant']],...
              'Value','Fc',...
                'position',[25,85,45,105])


%     Subsystem  ['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator'].

new_system([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],'Location',[196,490,621,627])

add_block('built-in/Inport',[sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/in_1']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/in_1']],...
               'position',[35,15,55,35])

add_block('built-in/Memory',[sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/Memory']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/Memory']],...
          'orientation',2,...
             'x0','init',...
         'position',[210,75,260,105])

add_block('built-in/Fcn',[sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/module']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/module']],...
          'Expr','rem(u[1],modu)',...
             'position',[235,29,325,51])

add_block('built-in/Reset Integrator',[sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/Reset',13,'integrator']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/Reset',13,'integrator']],...
                'position',[110,19,150,51])

add_block('built-in/Constant',[sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/one']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/one']],...
            'orientation',3,...
             'move name',0,...
               'position',[70,55,90,75])

add_block('built-in/Sum',[sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/Sum']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/Sum']],...
           'position',[195,30,215,50])

add_block('built-in/Outport',[sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/out_1']])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator/out_1']],...
         'position',[370,30,390,50])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],[205,90;180,90;190,45])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],[155,35;190,35])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],[220,40;230,40])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],[330,40;365,40])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],[60,25;105,25])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],[80,50;80,35;105,35])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],[340,40;340,90;265,90])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],...
               'Mask Display','Mod\nint',...
           'Mask Type','Module Integrator',...
             'Mask Dialogue','Module the given number when state exceed limit|Module bound:|Initial value:')
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],...
             'Mask Translate','init=@2; modu=@1;')
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],...
               'Mask Help','The absolute value of this integrator will not exceed the specified module bound. The state value is set to be zero when the module bound is reached. This block can only be used for scale value calculation.')
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],...
               'Mask Entries','1\/0\/')


%     Finished composite block ['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator'].

set_param([sys,'/',['Quad multi',13,'DSB-SC-AM/Module',13,'Integrator']],...
                'position',[70,79,130,111])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[385,130;400,130;400,105;425,105])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[385,65;400,65;400,95;425,95])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[185,155;320,155;320,135;350,135])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[315,120;350,120])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[185,40;325,40;325,55;350,55])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[315,70;350,70])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[195,95;205,95;205,70;230,70])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[205,95;205,120;230,120])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[455,100;485,100])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[135,95;150,95])
add_line([sys,'/',['Quad multi',13,'DSB-SC-AM']],[50,95;65,95])
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM']],...
            'Mask Display','QM\nDSB-SC\nAM',...
             'Mask Type','Quadrature Multiplexed DSB-SC AM')
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM']],...
            'Mask Dialogue','Quadrature multiplexed double-sideband suppressed-carrier amplitude modulation:|Amplitude scale factor:|Carrier frequency:|Initial phase:')
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM']],...
               'Mask Translate','Am=@1;Fc=@2;Ph=@3;Pg=Ph+pi/2;pi2=pi*2;')
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM']],...
         'Mask Help','The Quadratic Multiplexed Double-sideband-supressed-carrier AM block causes the amplitude of the sinusoidal carrier to depend on the input message Signal, resulting in amplitude modulation. There are two input Signal being modulated at the same time using quadratic multiplex method.')
set_param([sys,'/',['Quad multi',13,'DSB-SC-AM']],...
              'Mask Entries','1\/100\/0\/')


%     Finished composite block ['Quad multi',13,'DSB-SC-AM'].

set_param([sys,'/',['Quad multi',13,'DSB-SC-AM']],...
         'ForeGround',4,...
              'position',[215,68,285,112])

add_block('built-in/Note',[sys,'/','The curve color in the graphical scope matches the color of the blocks in the block diagram'])
set_param([sys,'/','The curve color in the graphical scope matches the color of the blocks in the block diagram'],...
             'position',[325,150,330,155])

add_block('built-in/Note',[sys,'/','signal source 2'])
set_param([sys,'/','signal source 2'],...
            'ForeGround',2,...
              'position',[135,75,140,80])

add_block('built-in/Note',[sys,'/','signal source 1'])
set_param([sys,'/','signal source 1'],...
              'ForeGround',2,...
              'position',[135,10,140,15])

add_block('built-in/Sine Wave',[sys,'/','Sine wave'])
set_param([sys,'/','Sine wave'],...
             'ForeGround',2,...
              'frequency','5',...
             'phase','pi/2',...
              'position',[65,25,85,45])

add_block('built-in/Sine Wave',[sys,'/','Sine wave1'])
set_param([sys,'/','Sine wave1'],...
             'ForeGround',2,...
              'frequency','7',...
             'position',[65,90,85,110])
add_line(sys,[90,35;130,35;130,80;210,80])
add_line(sys,[90,100;210,100])
add_line(sys,[290,90;370,90])
add_line(sys,[455,100;565,100;565,75;585,75])
add_line(sys,[455,75;485,75;485,65;585,65])
add_line(sys,[130,35;585,35])
add_line(sys,[635,55;650,55])
add_line(sys,[355,90;355,55;585,55])
add_line(sys,[195,100;195,45;585,45])

drawnow

% Return any arguments.
if (nargin | nargout)
   % Must use feval here to access system in memory
        if (nargin > 3)
         if (flag == 0)
                  eval(['[ret,x0,str,ts,xts]=',sys,'(t,x,u,flag);'])
              else
                    eval(['ret =', sys,'(t,x,u,flag);'])
            end
     else
            [ret,x0,str,ts,xts] = feval(sys);
       end
else
 drawnow % Flash up the model and execute load callback
end