Как загнать входные данные в pfan_type?

Question

[Xvir43]

Использую fann библеотеку, не доходит как загнать во входной вектор данные (Pfann_type) что бы после обучения выполнить fann_run(ann,pfan_type(Вот тут не понимаю))
подскажите пожалуйста.

Comments

[Hemul GM]

Часть кода в студию

[Xvir43]

Hemul GM, на код не обращай сильно внимания разбираюсь что к чему,так работает но я думаю я не правильно входящие данные даю

program XorConsole;

{$APPTYPE CONSOLE}
{$POINTERMATH ON}

uses
  SysUtils, system.classes,
  delphi_fann in '..\..\source\delphi_hatsunearu_fann.pas';

var
  ann: PFann;
  inputs: array [0 .. 47] of fann_type;
  calc_out: PFann_Type_array;
  i, j: integer;
  train_data,inp: PFann_Train_Data;
  str: TStringList;
  k1: double;
  min, max, b, res: double;
  kf: TStringList;
  mini, maxi, mino, maxo: Single;

begin
  try
    str := TStringList.Create;
    try
      str.LoadFromFile('..\..\datasets\in.txt');

      ann := fann_create_standard(3, 48, 72, 24);

      train_data := fann_read_train_from_file('..\..\datasets\test.test');
      inp:=fann_read_train_from_file('..\..\datasets\in2.txt');
      mini := 9999999;
      mino := 9999999;
      maxi := 0;
      maxo := 0;
      for j := 0 to train_data.num_data - 1 do

        for i := 0 to train_data.num_input - 1 do
        begin
          if train_data.input[j][i] > maxi then
          begin
            maxi := train_data.input[j][i];
          end;
          if train_data.input[j][i] < mini then
          begin
            mini := train_data.input[j][i];
          end;

        end;
      for j := 0 to train_data.num_data - 1 do
        for i := 0 to train_data.num_output - 1 do
        begin
          if train_data.output[j][i] > maxo then
          begin
            maxo := train_data.output[j][i];
          end;
          if train_data.output[j][i] < mino then
          begin
            mino := train_data.output[j][i];
          end;

        end;
        
        Writeln(format('mini= %f maxi= %f mino= %f maxo= %f',[mini,maxi,mino,maxo]));
        readln;

      fann_set_scaling_params(ann, train_data,mini,maxi,mino,maxo);
        fann_scale_train_data(train_data, -1, 1);
      fann_set_activation_steepness_hidden(ann, 1);
      fann_set_activation_steepness_output(ann, 1);

      fann_set_activation_function_hidden(ann, FANN_SIGMOID);
      fann_set_activation_function_output(ann, FANN_SIGMOID_SYMMETRIC);
      fann_set_learning_rate(ann,0.001);
      fann_set_learning_momentum(ann,0.8);

      fann_set_train_stop_function(ann, FANN_STOPFUNC_BIT);
      fann_set_bit_fail_limit(ann, 0.001);
      fann_set_training_algorithm(ann,FANN_TRAIN_RPROP);
      fann_init_weights(ann, train_data);

      fann_train_on_data(ann, train_data, 100, 1000, 0.001);

      for i := 0 to 47 do
      begin
        inputs[i] := strtofloat(str[i]);

      end;
    {    for i := 0 to 47 do
          begin
                 Writeln(inputs[i]);

                       end;}
      fann_scale_input(ann, @inputs[0] ---  --------------- тут должен быть pfan_type); 
      calc_out := fann_run(ann, @inputs[0]);
      fann_descale_output(ann,calc_out);
      str.Clear;
      for i := 0 to 500 do
      begin
        writeln(Format('out %f', [calc_out[i]]));
        str.Add(FloatToStr(calc_out[i]));
      end;
      str.SaveToFile('out.txt');
      readln;

      fann_destroy(ann);

    finally
      str.Free
    end;
  except
    on E: Exception do
    begin
      writeln(E.ClassName, ': ', E.Message);
      readln;
    end;
  end;

end.

[Hemul GM]

Xvir43, скинь delphi_hatsunearu_fann.pas. Мне ж нужно узнать исходные типы данных

[Xvir43]

Hemul GM, https://github.com/Laex/Delphi-Artificial-Neural-N...
Там на dll все завязано, я смотрел туда но не понял что и как

[Hemul GM]

Xvir43,
всё верно ты передаешь.

[Xvir43]

Hemul GM, тогда почему после fann_run когда в цикле вывожу значения выходные

for i := 0 to 500 тут поидее должно мыть 23 так как 24 выходных нейрона do
      begin
        writeln(Format('out %f', [calc_out[i]]));
        str.Add(FloatToStr(calc_out[i]));
      end;

В calc_out хранится первые 48 значений типа результат хотя должно быть 24 и после всякий разный мусор, или этот мусор просто в памяти? И функция fann_run перезаписывает эти значения?

[Hemul GM]

Xvir43, это нормально. Не стоит читать то, что не входит в массив. К ошибкам это не приводит (зачастую), но и полезного в этом мало.

[Xvir43]

Hemul GM, понял, спасибо за консультацию