Commit f2a355b0 authored by Carlos Mejia's avatar Carlos Mejia
Browse files

Displays put in silence (or with tracking variable) in...

Displays put in silence (or with tracking variable) in 2s_som/som_batchtrainRTOM.m and som_for_2s_som/som_batchtrain.m. Minor changes in learn_2s_som.m
parent 1dae5599
......@@ -584,7 +584,7 @@ radius(find(radius==0)) = eps;
case 'numeric', [ BlocData(i).M ] = UpdateNumericOM( H,P,BlocData(i).D,BlocData(i).Known, BlocData(i).M);
PoidsBeta(i).SB(1).beta=repmat(ones(1,BlocData(i).Dim(1))./DimData(i),blen,1);
PoidsAlpha(i).SB(1).alpha=repmat(ones(1,BlocData(i).Dim(1))./size(DimData,2),blen,1);
disp('numeric')
%disp('numeric')
case 'mixed1',
%disp(i)
PoidsBeta(i).SB(1).beta=repmat(ones(1,BlocData(i).Dim(1))./DimData(i),blen,1);
......
......@@ -136,7 +136,7 @@ function [sMap sMap_denorm Result] = learn_2s_som(A,nb_neurone,varargin)
end
i=i+1;
end
sD = som_data_struct(data.data,'name', data_casename,'comp_names', upper(ListVar));
% i=1;
% while (i<=length(varargin) && bool_norm==0)
......@@ -156,7 +156,7 @@ function [sMap sMap_denorm Result] = learn_2s_som(A,nb_neurone,varargin)
sD_norm=som_normalize(sD,type_norm);
end
else
fprintf(1,'\n-- Pas de normalisation des donnees ...\n');
fprintf(1,'\n** Pas de normalisation des donnees **\n');
sD_norm = sD;
end
......@@ -270,7 +270,7 @@ function [sMap sMap_denorm Result] = learn_2s_som(A,nb_neurone,varargin)
end
end
% batchtrain avec radius et trainlen
if (bool_rad && bool_trainlen)
if (bool_rad && bool_trainlen)
fprintf(1,'\n-- BATCHTRAIN initial avec radius et trainlen ... \n')
if tracking_ini, fprintf(1,'\n'); end
if length(rad)==length(trlen)+1
......@@ -342,7 +342,7 @@ function [sMap sMap_denorm Result] = learn_2s_som(A,nb_neurone,varargin)
% end
if (bool_2ssom)
if(bool_lambda && bool_eta && bool_DimData)
if (bool_lambda && bool_eta && bool_DimData)
best_i = 0;
best_j = 0;
......@@ -350,9 +350,12 @@ function [sMap sMap_denorm Result] = learn_2s_som(A,nb_neurone,varargin)
i_train = 1;
n_train = length(lambda)*length(eta);
fprintf(1,[ '\n-- batchtrainRTOM loop for %d lambda and %d eta values:\n', ...
'-- ------------------------------------------------------------------\n' ], ...
length(lambda), length(eta));
for i=1:length(lambda)
for j=1:length(eta)
fprintf(1,'\n-- batchtrainRTOM (%d/%d) with lambda=%s and eta=%s ... ',i_train, ...
fprintf(1,'-- batchtrainRTOM (%d/%d) with lambda=%s and eta=%s ... ',i_train, ...
n_train, num2str(lambda(i)),num2str(eta(j)));
if tracking, fprintf(1,'\n'); end
......
......@@ -455,7 +455,9 @@ for t = 1:trainlen,
case 'cutgauss', H = exp(-Ud/(2*radius(t))) .* (Ud<=radius(t));
case 'ep', H = (1-Ud/radius(t)) .* (Ud<=radius(t));
end
disp(radius(t))
if tracking > 0,
disp(sprintf('radius(%d)=%s',t,num2str(radiuss(1))))
end
% update
% In principle the updating step goes like this: replace each map unit
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment