m10_7.m

MATLAB控制系统仿真与实例详解（附书光盘）

                  %要逼近的函数样本点
                  P = -1:.1:1;
                  T=sin(pi*P);
                  plot(P,T,'+');
                  title('待逼近的函数样本点');
                  xlabel('输入值');
                  ylabel('目标值');
                  %设计隐含层的径向基传递函数
                  p = -3:.1:3;
                  a = radbas(p);
                  figure;
                  plot(p,a)
                  title('径向基传递函数');
                  xlabel('输入');
                  ylabel('输出'); 
                  %径向基传递函数及其加权和产生一个新的函数,用实线表示,
                  a2 = radbas(p-1.5);
                  a3 = radbas(p+2);
                  a4 = a + a2*1 + a3*0.5;
                  figure;
                  plot(p,a,'b--',p,a2,'b--',p,a3,'b--',p,a4,'m-')
                  title('径向基函数的加权和');
                  xlabel('输入');
                  ylabel('输出');
                  %建立网络
                  eg = 0.02; %设置平方和误差参数
                  sc = 1;    %设置展开常量
                  net=newrb(P,T,eg,sc);
                  %仿真网络并绘出结果
                  figure;
                  X=-1:.01:1;
                  Y=sim(net,X);
                  hold on;
                  plot(X,Y,P,T,'+');
                  title('仿真结果');
                  xlabel('输入');
                  ylabel('网络输出及目标输出');
                  hold off;