examplerbf_3d.m

麻省理工学院的人工智能工具箱,很珍贵,希望对大家有用!

a=20;
[x,y,z]=peaks(a); %genero una superficie de dos variables, de tama駉 a*a
figure
surf(x,y,z) %dibujo de la superficie

%range=6; %relativo al spread que voy a utilizar
%goal=0.5; %error de entrenamiento
netRB = rbf(2,34,1,'gaussian');
options(1,:)=foptions;
options(1)=1;
options(14)=10000;
netRB = rbftrain(netRB,options,[x(:) y(:)],z(:));
c=netRB.c; %centros de la red de base radial que he entrenado


[x2,y2] = meshgrid(-3:6/(a-1):3); %malla de puntos para la que voy a simular
[z2,act,dis]=rbffwd(netRB,[x2(:),y2(:)]);
SRB=reshape(z2,size(z));%simulaci髇

%plot(c{1}(:,1),c{1}(:,2),'.')

%cz=sim(netRB,[c{1}(:,1),c{1}(:,2)]');

figure
surf(x2,y2,SRB) %dibujo de la superficie simulada

figure
contour(x2,y2,SRB,20) %contornos para la superficie simulada
hold on
plot(c(:,1),c(:,2),'k.')% dibujo de los centros de la red de base radial

figure
surf(x,y,z-SRB) %dibujo de la superficie de error entre la superficie original y la simulada