ftprpplt.m

很多matlab的源代码

        end
     end
  end

elseif sig == 3
   if prop == 1 %SCALING
     if disp == 1 %mag
       t=-1:0.02:4;
       sig=exp(-t).*(t>=0);
       f_axs = -1:0.01:1;
       spec = -atan(2*pi*f_axs);
       set(axs1,'xlim',[-1,4],'ylim',[0,1.5]);
       set(axs2,'xlim',[-1,1],'ylim',[0,3.5]);


      for k=1:0.05:3
          sig = exp(-t/k).*(t>=0);mag = abs(k./(1+j*2*pi*k*f_axs));
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',mag,...
          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    pause(1)
      for k=3:-0.05:1
          sig = exp(-t/k).*(t>=0);mag = abs(k./(1+j*2*pi*k*f_axs));
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',mag,...
          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
     elseif disp == 2 %phase
      t=-2:0.01:4;
      sig=exp(-t).*(t>=0);
      f_axs=-1:0.02:1;
      pha = -atan(2*pi*f_axs);
      set(axs1,'xlim',[-2,4],'ylim',[0,1.5]);
      set(axs2,'xlim',[-1,1],'ylim',[-3.5,3.5]);

      for k=1:0.05:3
          sig = exp(-t/k).*(t>=0);mag = abs(k./(1+j*2*pi*k*f_axs));
          pha = -atan(2*pi*k*f_axs);
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',pha,...
          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    pause(1)
      for k=3:-0.05:1
          sig = exp(-t/k).*(t>=0);mag = abs(k./(1+j*2*pi*k*f_axs));
          pha = -atan(2*pi*k*f_axs);
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',pha,...
          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    end

    elseif prop == 2 %DELAY
     if disp == 1
      t=-1:0.01:3;
      sig=exp(-t).*(t>=0);
      f_axs=-1:0.01:1;
      spec = sinc(f_axs);
      set(axs1,'xlim',[-1,3],'ylim',[0,1.5]);
      set(axs2,'xlim',[-3,3],'ylim',[0,1.2]);

      for k=0:-0.05:-1
          sig = exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
%          set(lin3,'xdata',f_axs,'ydata',k*sinc(k*f_axs),...
%          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    pause(1)
      for k=-1:0.05:1
          sig = exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
%          set(lin3,'xdata',f_axs,'ydata',k*sinc(k*f_axs),...
%          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    pause(1)
      for k=1:-0.05:0
          sig = exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
%          set(lin3,'xdata',f_axs,'ydata',k*sinc(k*f_axs),...
%          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
     elseif disp == 2
          t=-1:0.02:3;
          sig=exp(-t).*(t>=0);
          f_axs = -1:0.01:1;
          spec = -atan(2*pi*f_axs);
          set(axs1,'xlim',[-1,3],'ylim',[0,1.5]);
          set(axs2,'xlim',[-1,1],'ylim',[-5,5]);


      for k=0:-0.05:-0.5
          sig = exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          set(lin1,'xdata',t,'ydata',sig,...
         'linestyle','-','erasemode','back','color','y');
         set(lin3,'xdata',f_axs,'ydata',spec-2*pi*f_axs*k,...
         'linestyle','-','erasemode','back','color','c');
         drawnow
      end
    pause(1)
      for k=-0.5:0.05:0.5
          sig = exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',spec-2*pi*f_axs*k,...
         'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    pause(1)
      for k=0.5:-0.05:0
          sig = exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',spec-2*pi*f_axs*k,...
          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    end

    elseif prop == 3 %MODULATION
     if disp == 1 %Mag
        t=-1:0.01:3;
        sig=exp(-t).*(t>=0);
        f_axs=-10:0.1:10;
        set(axs1,'xlim',[-1,3],'ylim',[-1.2,1.2]);
        set(axs2,'xlim',[-10,10],'ylim',[0,1.2]);

        for k=0:0.1:8
          sig = exp(-t).*cos(2*pi*k*t).*(t>=0);
          m1=(1)./(1+j*2*pi*(f_axs+k)); m2=(1)./(1+j*2*pi*(f_axs-k));
          mag = 0.5*(abs(m1+m2));
            set(lin1,'xdata',t,'ydata',sig,...
            'linestyle','-','erasemode','back','color','y');
           set(lin3,'xdata',f_axs,'ydata',mag,...
           'linestyle','-','erasemode','back','color','c');
           drawnow
        end
      pause(1)
        for k=8:-0.1:0
          sig = exp(-t).*cos(2*pi*k*t).*(t>=0);
          m1=(1)./(1+j*2*pi*(f_axs+k)); m2=(1)./(1+j*2*pi*(f_axs-k));
          mag = 0.5*(abs(m1+m2));
            set(lin1,'xdata',t,'ydata',sig,...
            'linestyle','-','erasemode','back','color','y');
           set(lin3,'xdata',f_axs,'ydata',mag,...
            'linestyle','-','erasemode','back','color','c');
           drawnow
        end
     elseif disp == 2 %phase
        t=-1:0.01:3;
        sig=urect(t);
        f_axs=-10:0.1:10;
        spec = sinc(f_axs);
        set(axs1,'xlim',[-1,3],'ylim',[-1.2,1.2]);
        set(axs2,'xlim',[-10,10],'ylim',[-3.5,3.5]);

        for k=0:0.1:8
          sig = exp(-t).*cos(2*pi*k*t).*(t>=0);
          m1=(1)./(1+j*2*pi*(f_axs+k)); m2=(1)./(1+j*2*pi*(f_axs-k));
          pha = angle(m1+m2);
            set(lin1,'xdata',t,'ydata',sig,...
            'linestyle','-','erasemode','back','color','y');
           set(lin3,'xdata',f_axs,'ydata',pha,...
           'linestyle','-','erasemode','back','color','c');
           drawnow
        end
      pause(1)
        for k=8:-0.1:0
          sig = exp(-t).*cos(2*pi*k*t).*(t>=0);
          m1=(1)./(1+j*2*pi*(f_axs+k)); m2=(1)./(1+j*2*pi*(f_axs-k));
          pha = angle(m1+m2);
            set(lin1,'xdata',t,'ydata',sig,...
            'linestyle','-','erasemode','back','color','y');
           set(lin3,'xdata',f_axs,'ydata',pha,...
            'linestyle','-','erasemode','back','color','c');
           drawnow
        end
     end
  end

elseif sig == 4


   if prop == 1 %SCALING
     if disp == 1 %mag
       t=-1:0.02:8;
       sig=t.*exp(-t).*(t>=0);
       f_axs = -1:0.01:1;
       spec = -2*atan(2*pi*f_axs);
       set(axs1,'xlim',[-1,8],'ylim',[0,0.5]);
       set(axs2,'xlim',[-1,1],'ylim',[0,3.5]);


      for k=1:0.05:3
          sig = (t/k).*exp(-t/k).*(t>=0);mag = abs((1)./(1+j*2*pi*k*f_axs));
          mag = k*mag.*mag;
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',mag,...
          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    pause(1)
      for k=3:-0.05:1
          sig = (t/k).*exp(-t/k).*(t>=0);mag = abs((1)./(1+j*2*pi*k*f_axs));
          mag = k*mag.*mag;
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',mag,...
          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
     elseif disp == 2 %phase
      t=-1:0.01:8;
      sig=exp(-t).*(t>=0);
      f_axs=-1:0.02:1;
      pha = -atan(2*pi*f_axs);
      set(axs1,'xlim',[-1,8],'ylim',[0,0.5]);
      set(axs2,'xlim',[-1,1],'ylim',[-3.5,3.5]);

      for k=1:0.05:3
          sig = (t/k).*exp(-t/k).*(t>=0);mag = abs((1)./(1+j*2*pi*k*f_axs));
          mag = k*mag.*mag;
          pha = -2*atan(2*pi*k*f_axs);
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',pha,...
          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    pause(1)
      for k=3:-0.05:1
          sig = (t/k).*exp(-t/k).*(t>=0);mag = abs((1)./(1+j*2*pi*k*f_axs));
          mag = k*mag.*mag;
          pha = -2*atan(2*pi*k*f_axs);
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',pha,...
          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    end

    elseif prop == 2 %DELAY
     if disp == 1
      t=-1:0.01:5;
      sig=t.*exp(-t).*(t>=0);
      f_axs=-1:0.01:1;
      spec = sinc(f_axs);
      set(axs1,'xlim',[-1,5],'ylim',[0,0.5]);
      set(axs2,'xlim',[-3,3],'ylim',[0,1.2]);

      for k=0:-0.05:-1
          sig = (t-k).*exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          mag = mag.*mag;
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
%          set(lin3,'xdata',f_axs,'ydata',k*sinc(k*f_axs),...
%          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    pause(1)
      for k=-1:0.05:1
          sig = (t-k).*exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          mag = mag.*mag;
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
%          set(lin3,'xdata',f_axs,'ydata',k*sinc(k*f_axs),...
%          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    pause(1)
      for k=1:-0.05:0
          sig = (t-k).*exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          mag = mag.*mag;
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
%          set(lin3,'xdata',f_axs,'ydata',k*sinc(k*f_axs),...
%          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
     elseif disp == 2
          t=-1:0.02:5;
          sig=t.*exp(-t).*(t>=0);
          f_axs = -1:0.01:1;
          spec = -2*atan(2*pi*f_axs);
          set(axs1,'xlim',[-1,5],'ylim',[0,0.5]);
          set(axs2,'xlim',[-1,1],'ylim',[-5,5]);


      for k=0:-0.05:-0.5
          sig = (t-k).*exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          mag = mag.*mag;
          set(lin1,'xdata',t,'ydata',sig,...
         'linestyle','-','erasemode','back','color','y');
         set(lin3,'xdata',f_axs,'ydata',spec-2*pi*f_axs*k,...
         'linestyle','-','erasemode','back','color','c');
         drawnow
      end
    pause(1)
      for k=-0.5:0.05:0.5
          sig = (t-k).*exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          mag = mag.*mag;
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',spec-2*pi*f_axs*k,...
         'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    pause(1)
      for k=0.5:-0.05:0
          sig = (t-k).*exp(-t+k).*(t>=k);mag = abs((1)./(1+j*2*pi*k*f_axs));
          mag = mag.*mag;
          set(lin1,'xdata',t,'ydata',sig,...
          'linestyle','-','erasemode','back','color','y');
          set(lin3,'xdata',f_axs,'ydata',spec-2*pi*f_axs*k,...
          'linestyle','-','erasemode','back','color','c');
          drawnow
      end
    end

    elseif prop == 3 %MODULATION
     if disp == 1 %Mag
        t=-1:0.01:4;
        sig=t.*exp(-t).*(t>=0);
        f_axs=-10:0.1:10;
        set(axs1,'xlim',[-1,4],'ylim',[-0.5,0.5]);
        set(axs2,'xlim',[-10,10],'ylim',[0,1.2]);

        for k=0:0.1:8
          sig = t.*exp(-t).*cos(2*pi*k*t).*(t>=0);
          m1=(1)./(1+j*2*pi*(f_axs+k)); m2=(1)./(1+j*2*pi*(f_axs-k));
          mag = 0.5*(abs(m1.*m1+m2.*m2));
            set(lin1,'xdata',t,'ydata',sig,...
            'linestyle','-','erasemode','back','color','y');
           set(lin3,'xdata',f_axs,'ydata',mag,...
           'linestyle','-','erasemode','back','color','c');
           drawnow
        end
      pause(1)
        for k=8:-0.1:0
          sig = t.*exp(-t).*cos(2*pi*k*t).*(t>=0);
          m1=(1)./(1+j*2*pi*(f_axs+k)); m2=(1)./(1+j*2*pi*(f_axs-k));
          mag = 0.5*(abs(m1.*m1+m2.*m2));
            set(lin1,'xdata',t,'ydata',sig,...
            'linestyle','-','erasemode','back','color','y');
           set(lin3,'xdata',f_axs,'ydata',mag,...
            'linestyle','-','erasemode','back','color','c');
           drawnow
        end
     elseif disp == 2 %phase
        t=-1:0.01:4;
        sig=t.*exp(-t);
        f_axs=-10:0.1:10;
        spec = sinc(f_axs);
        set(axs1,'xlim',[-1,4],'ylim',[-0.5,0.5]);
        set(axs2,'xlim',[-10,10],'ylim',[-3.5,3.5]);

        for k=0:0.1:8
          sig = t.*exp(-t).*cos(2*pi*k*t).*(t>=0);
          m1=(1)./(1+j*2*pi*(f_axs+k)); m2=(1)./(1+j*2*pi*(f_axs-k));
          pha = angle(m1.*m1+m2.*m2);
            set(lin1,'xdata',t,'ydata',sig,...
            'linestyle','-','erasemode','back','color','y');
           set(lin3,'xdata',f_axs,'ydata',pha,...
           'linestyle','-','erasemode','back','color','c');
           drawnow
        end
      pause(1)
        for k=8:-0.1:0
          sig = t.*exp(-t).*cos(2*pi*k*t).*(t>=0);