prediprac1.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;
% p=[-1 1];
 tt=sin(time*2*pi*f);
 p=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(p,f_max,m_s,T,t_0,q_l,C1,F1,TH1,C2,F2,TH2,F01,F02,RHO,F_RHO,T_s);
  
pause
clc
w_range=-1:0.1:1;
b_range=-1:0.1:1;
es=errsurf(p,t,w_range,b_range,'purelin');
plotes(w_range,b_range,es);
pause 
clc
[w,b]=solvelin(p,t)
pause
clc
a=simulin(p,w,b);
e=t-a;

sse=sumsqr(e);
pause
clc
plotes(w_range,b_range,es);
plotep(w,b,sse)
pause
clc
p=-1.5;
a1=simulin(p,w,b)
echo off