web?browser?http://www.ilovematlab.cn/thread-64646-1-1.html
%%?清空環(huán)境變量
clc
clear

%%?數(shù)據(jù)處理
load?data
input=datatrain（:1:38）;
%數(shù)據(jù)歸一化
[inputninputps]=mapminmax（input）;
%inputn=inputn‘;
[nnmm]=size（inputn）;

%%?網(wǎng)絡(luò)構(gòu)建
%輸入層節(jié)點數(shù)
Inum=38;?

%Kohonen網(wǎng)絡(luò)
M=6;
N=6;?
K=M*N;%Kohonen總節(jié)點數(shù)

%Kohonen層節(jié)點排序
k=1;
for?i=1:M
????for?j=1:N
????????jdpx（k:）=[ij];
????????k=k+1;
????end
end

%學(xué)習(xí)率
rate1max=0.2;???
rate1min=0.05;
%學(xué)習(xí)半徑
r1max=1.5;?????????
r1min=0.8;

%權(quán)值初始化
w1=rand（InumK）;????%第一層權(quán)值

%%?迭代求解
maxgen=10000;
for?i=1:maxgen
????
????%自適應(yīng)學(xué)習(xí)率和相應(yīng)半徑
????rate1=rate1max-i/maxgen*（rate1max-rate1min）;
????r=r1max-i/maxgen*（r1max-r1min）;
????
????%從數(shù)據(jù)中隨機抽取
????k=unidrnd（4000）;???
????x=inputn（k:）;

????%計算最優(yōu)節(jié)點
????[mindistindex]=min（dist（xw1））;
????
????%計算周圍節(jié)點
????d1=ceil（index/6）;
????d2=mod（index6）;
????nodeindex=find（dist（[d1?d2]jdpx‘）????
????%權(quán)值更新
????for?j=1:K
????????%滿足增加權(quán)值
????????if?sum（nodeindex==j）
????????????w1（:j）=w

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件??????90502??2009-12-25?16:53??案例29?kohonen網(wǎng)絡(luò)的聚類算法—網(wǎng)絡(luò)入侵聚類\data.mat

?????文件???????1331??2010-01-30?20:29??案例29?kohonen網(wǎng)絡(luò)的聚類算法—網(wǎng)絡(luò)入侵聚類\Kohonen.m

?????文件???????2463??2010-01-30?20:29??案例29?kohonen網(wǎng)絡(luò)的聚類算法—網(wǎng)絡(luò)入侵聚類\SKohonen.m

?????目錄??????????0??2018-08-07?18:28??案例29?kohonen網(wǎng)絡(luò)的聚類算法—網(wǎng)絡(luò)入侵聚類

-----------?---------??----------?-----??----

????????????????94296????????????????????4