tstam.m

来自「Proakis《contemporarycommunication system」· M 代码 · 共 936 行 · 第 1/4 页

%     Finished composite block 'Subsystem'.

set_param([sys,'/','Subsystem'],...
               'hide name',0,...
               'Drop Shadow',4,...
             'position',[685,165,715,201])


%     Subsystem  ['DSB-SC-ADM',13,'by-Costas'].

new_system([sys,'/',['DSB-SC-ADM',13,'by-Costas']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas']],'Location',[164,182,967,463])

add_block('built-in/Product',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Product2']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Product2']],...
              'position',[125,215,150,235])

add_block('built-in/Fcn',[sys,'/',['DSB-SC-ADM',13,'by-Costas/sin1']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/sin1']],...
           'orientation',2,...
             'Expr','sin(u[1]+pih)',...
              'position',[120,160,220,190])

add_block('built-in/Product',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Product']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Product']],...
         'position',[125,50,150,70])

add_block('built-in/Inport',[sys,'/',['DSB-SC-ADM',13,'by-Costas/in_1']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/in_1']],...
          'position',[45,45,65,65])

add_block('built-in/Note',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Ref: Hambley: An Intro to Comm. Systems. pp69']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Ref: Hambley: An Intro to Comm. Systems. pp69']],...
            'position',[260,350,265,355])

add_block('built-in/Constant',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Carrier',13,'frequency']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Carrier',13,'frequency']],...
          'orientation',2,...
             'Value','Fc',...
                'position',[580,175,600,195])

add_block('built-in/Transfer Fcn',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter']],...
            'Numerator','Fn',...
            'Denominator','Fd',...
          'position',[345,39,395,81])

add_block('built-in/Transfer Fcn',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter2']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter2']],...
            'Numerator','Fn',...
            'Denominator','Fd',...
          'position',[430,204,480,246])

add_block('built-in/Gain',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Gain']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Gain']],...
          'Gain','G',...
          'position',[710,45,735,75])

add_block('built-in/Outport',[sys,'/',['DSB-SC-ADM',13,'by-Costas/out_1']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/out_1']],...
               'position',[765,50,785,70])

add_block('built-in/Fcn',[sys,'/',['DSB-SC-ADM',13,'by-Costas/sin']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/sin']],...
               'orientation',2,...
             'position',[125,118,210,142])

add_block('built-in/Sum',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Sum1']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Sum1']],...
           'orientation',2,...
             'position',[275,120,295,140])

add_block('built-in/Constant',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Carrier',13,'frequency1']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Carrier',13,'frequency1']],...
                'orientation',2,...
             'Value','Ph',...
                'position',[340,175,360,195])

add_block('built-in/Gain',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Gain1']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Gain1']],...
                'orientation',2,...
             'Gain','pi2',...
                'position',[330,110,360,140])


%     Subsystem  ['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator'].

new_system([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],'Location',[529,321,954,458])

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

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

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

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

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

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

add_block('built-in/Outport',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/out_1']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/out_1']],...
         'position',[370,30,390,50])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[205,90;180,90;190,45])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[155,35;190,35])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[220,40;230,40])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[60,25;105,25])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[80,50;80,35;105,35])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[330,40;365,40])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[340,40;340,90;265,90])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/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,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],...
             'Mask Translate','init=@2; modu=@1;')
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/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,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],...
               'Mask Entries','1\/0\/')


%     Finished composite block ['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator'].

set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],...
                'orientation',2,...
             'position',[390,110,450,140])

add_block('built-in/Sum',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Sum']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Sum']],...
             'orientation',2,...
             'position',[475,115,495,135])

add_block('built-in/Product',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Product1']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Product1']],...
               'orientation',2,...
             'position',[605,110,635,130])

add_block('built-in/Transfer Fcn',[sys,'/',['DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter1']])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter1']],...
          'orientation',2,...
             'Numerator','Fn',...
            'Denominator','Fd',...
          'position',[535,100,585,140])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[400,60;705,60])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[740,60;760,60])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[70,55;120,55])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[155,60;340,60])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[120,130;105,130;105,65;120,65])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[575,185;525,185;525,130;500,130])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[470,125;455,125])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[600,120;590,120])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[530,120;500,120])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[115,175;105,175;105,220;120,220])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[90,55;90,230;120,230])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[155,225;425,225])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[485,225;655,225;655,125;640,125])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[385,125;365,125])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[325,125;300,125])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[335,185;315,185;315,135;300,135])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[270,130;215,130])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[255,130;255,175;225,175])
add_line([sys,'/',['DSB-SC-ADM',13,'by-Costas']],[655,60;655,115;640,115])
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas']],...
            'Mask Display','Costas PL\nDSB ADM',...
         'Mask Type','DSB-SC ADM')
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas']],...
          'Mask Dialogue','Double-sideband suppressed-carrier amplitude demodulation:|Carrier frequency:|Filter numerator:|Filter denominator:|Output gain:|Initial phase:')
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas']],...
         'Mask Translate','Fc=@1;Fn=@2;Fd=@3;G=@4;Ph=@5;pi2=pi*2;pih=pi/2;')
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas']],...
                'Mask Help','The Double-Sideband Supressed-Carrier Amplitude Modulation demodulates a DSB-SC-AM signal using Costas Phase-Locked Loop method.')
set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas']],...
         'Mask Entries','100\/[3.0002,0,40002]\/[1,67.46,2270.9,40002]\/2\/0\/')


%     Finished composite block ['DSB-SC-ADM',13,'by-Costas'].

set_param([sys,'/',['DSB-SC-ADM',13,'by-Costas']],...
               'orientation',2,...
             'ForeGround',4,...
              'position',[520,67,585,103])
add_line(sys,[170,40;250,40])
add_line(sys,[220,40;220,140;260,140])
add_line(sys,[135,85;85,85])
add_line(sys,[320,40;490,40;480,80])
add_line(sys,[490,40;600,40;590,85])
add_line(sys,[600,40;705,40;695,80])
add_line(sys,[330,140;470,140;470,175;450,175])
add_line(sys,[405,80;185,80])
add_line(sys,[220,75;185,75])
add_line(sys,[515,85;500,85;500,130;355,130;355,85;185,85])
add_line(sys,[380,175;215,175;215,95;185,95])
add_line(sys,[620,80;610,80;610,135;345,135;345,90;185,90])

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