1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
require 'formula'
class Fann < Formula
homepage 'http://leenissen.dk/fann/wp/'
url 'http://downloads.sourceforge.net/project/fann/fann/2.2.0/FANN-2.2.0-Source.tar.gz'
sha1 'ff8341e4104bdbc0f3ab7ad39aef33285f8512d4'
depends_on 'cmake' => :build
def install
system "cmake", ".", *std_cmake_args
system "make install"
end
def test
mktemp do
(Pathname.pwd/'xor.data').write <<-EOS.undent
4 2 1
-1 -1
-1
-1 1
1
1 -1
1
1 1
-1
EOS
(Pathname.pwd/'test.c').write <<-EOS.undent
#include "fann.h"
int main()
{
const unsigned int num_input = 2;
const unsigned int num_output = 1;
const unsigned int num_layers = 3;
const unsigned int num_neurons_hidden = 3;
const float desired_error = (const float) 0.001;
const unsigned int max_epochs = 500000;
const unsigned int epochs_between_reports = 1000;
struct fann *ann = fann_create_standard(num_layers, num_input,
num_neurons_hidden, num_output);
fann_set_activation_function_hidden(ann, FANN_SIGMOID_SYMMETRIC);
fann_set_activation_function_output(ann, FANN_SIGMOID_SYMMETRIC);
fann_train_on_file(ann, "xor.data", max_epochs,
epochs_between_reports, desired_error);
fann_save(ann, "xor_float.net");
fann_destroy(ann);
return 0;
}
EOS
system ENV.cc, "-o", "test", "test.c", "-lfann"
system "./test"
system "cat xor_float.net"
puts
end
end
end
|
