prediprac.asv

无线移动信道的matlab源码 用于对无线通信信道的编程实现

clear all;
clf;
figure(gcf);
% setfsize(600,250);
echo on;
clc;
%Initlin-initialize the linear layer
%adaptwh-accept Widrow-Hoff rule to train the liearity
pause
clc
 f_max=50;
  m_s=1;
  t_0=0;
T_s=0.2E-6;f=1e3;
time=0:T_s:0.01;
% tt=sin(time*2*pi*f);
tt=randint(1,length(time));
p=tt;
%      t=filter([1 1.5 -1.5],1,tt);
    [C1,F1,TH1,C2,F2,TH2,F01,F02,RHO,F_RHO,q_l,T]=F_S_K_p(9,'tu',f_max);
    [t,T,t_0]=F_S_K(tt,f_max,m_s,T,t_0,q_l,C1,F1,TH1,C2,F2,TH2,F01,F02,RHO,F_RHO,T_s);
    t=real(t);
%   p=delaysig(tt,0,2);
%    [w,b]=initff(p,t)
%   pause
%   clc
  net=newlind(p,t);
  a=sim(net,p);
  e=t-a;
%   lr=0.1;
%   [a,e,w,b]=adaptwh(w,b,p,t,lr);
  p2=randint(1,length(time));
  a2=sim(net,p2);
  figure(2)
  plot(time,abs(a2),time,abs(t),'--')
  alabel('Time','Amplitude','Output and Target Signals')
  legend('output signals','target signals');
  pause
  figure(3)
  plot(time,abs(a),time,abs(t),'--');
  figure(4)
  plot(time,abs(e),[min(time) max(time)],[0 0],':r')
  alabel('Time','Error','Error Signal')
  echo off