Найдена ошибка в коде NeuralBaseComp ... Компонент сам по себе вобще отличный, спасибо вам, мною обнаружена маленькая ошибка, которая в некоторых случаях сохраняет нейросеть неправильно :) ...
Нужно всего то исправить процедуру:

procedure TNeuralNetExtended.SaveNetwork;
var
i, j, k: integer;
begin
//showmessage('1');
// используется справочно, т.к. не происходит обучения
FNnwFile.WriteFloat('Network', 'TeachSpeed', TeachRate);
// используется справочно, т.к. не происходит обучения
FNnwFile.WriteFloat('Network', 'Miu', Momentum);
FNnwFile.WriteFloat('Network', 'Alpha', Alpha);
FNnwFile.WriteInteger('Network', 'Epoch', EpochCount);
FNnwFile.WriteInteger('Network','CountLayers', LayerCount);
// showmessage('2');
// задается количество нейронов в слоях
for i := 0 to LayerCount - 1 do
FNnwFile.WriteInteger('Network','Layer_'+IntToStr(i), StrToInt(NeuronsInLayer[i]));
// загрузка весовых коэффициентов и смещения
// showmessage('3');
for i:= 1 to LayerCount - 1 do
begin
// showmessage( inttostr(LayerCount)+' ---5 '+NeuronsInLayer[0]);
for j := 0 to StrToInt(NeuronsInLayer[i]) - 1 do
begin
// showmessage(inttostr(j)+' ---6');
for k := 0 to StrToInt(NeuronsInLayer[i-1]) do
FNnwFile.WriteFloat('Network','W_'+IntToStr(i-1)+'_'+IntToStr(k)+'_'+IntToStr(j), LayersBP[i].NeuronsBP[j].Weights[k]);
FNnwFile.WriteFloat('Network','WT_'+IntToStr(i-1)+'_'+IntToStr(j),
LayersBP[i].NeuronsBP[j].Weights[StrToInt(NeuronsInLayer[j])]);
end;
end;

end;

В последней строке опечатка NeyronsInLayer[j] нужно заменить на NeyronsInLayer[i] ! Долго блин не мог понять, в чем дело происходит :) ...

Ответить

Доброго времени суток.
Появилась необходимость работать с нейрокомпонентом для дельфи.
Использую 7 дельфи, ставлю, руководствуясь советами ниже.
Пытаюсь запустить Editor и дельфи выдаёт ошбку, посыла в Run-Parameters.
Чем это может быть вызвано?

Ответить

Обращаюсь к вам за помощью, если кто сможет помочь. Я довольно недавно начал работать в матлабе и сейчас хочу разобраться в генетических алгоритмах (островным). Немогу в нем разобраться найти хорошего описания помогите кто можит и у меня не получается найти точность в таких алгоритмах как кластерно-ориентированный, проблемно-ориентированный, метод с уменьшением размера популяции.
Зарание благодарен за помощь!

Ответить

Здравствуйте!
Меня интересует библиотека компонентов WavUtils для Delphi 6 открываются ли они в других Delphi например 7,2007,2009
Delphi 6 является старой версией и уже не выпускается даже версия Delphi 7 является
старой максимально доступной является послендняя версия Delphi 2009,различие между ними в структуре кода.

Ответить

Никак не могу освоить компонент NeuralNetExtended.
Делаю по примеру:

var
xVectorFloat: TVectorFloat;
i: integer;
begin
NeuralNetExtended.SourceFileName:=ExtractFilePath(paramstr(0))+'sum.nnw';
NeuralNetExtended.Init;
SetLength(xVectorFloat, 2);

xVectorFloat[0]:=StrToFloat('1');
xVectorFloat[1]:=StrToFloat('2');
NeuralNetExtended.Compute(xVectorFloat);

for i := 0 to NeuralNetExtended.OutputFieldCount - 1 do
memo1.Lines.Add(FloatToStr(NeuralNetExtended.Output[i]));

SetLength(xVectorFloat, 0);
xVectorFloat := nil;
end;

Если убрать NeuralNetExtended.Output[i] то ошибки не будет, иначе 5 секунд машина думает и вылетает ошибка.

Ответить