Hi all,<br><br>I'm pleased to announce the first release of the hfann module (<a href="http://code.haskell.org/~oboudry/hfann/">http://code.haskell.org/~oboudry/hfann/</a>). This module is an interface to the "Fast Artificial Neural Network (FANN)" library (see <a href="http://leenissen.dk/fann/">http://leenissen.dk/fann/</a>).<br>
<br>This is an early release. At the moment the hfann module does not cover all the functions found in the FANN library but it should be useable to train and use simple Neural Networks. At least is can be used to run an equivalent of the "Getting Started" example found in <a href="http://leenissen.dk/fann/html/files2/gettingstarted-txt.html">http://leenissen.dk/fann/html/files2/gettingstarted-txt.html</a>.<br>
<br>The module was developped on Windows XP with GHC-6.8.2.<br>
<br>
The README should provide you with all required information to install this module. The haddock documentation should give enough information to get started using it.<br><br>== Installation ==<br><br>Download version 2.0 of the FANN library from:<br>
<br> <a href="http://leenissen.dk/fann/download.php">http://leenissen.dk/fann/download.php</a><br> <br>and build it according to the instruction found on:<br><br> <a href="http://leenissen.dk/fann/html/files2/installation-txt.html">http://leenissen.dk/fann/html/files2/installation-txt.html</a><br>
<br>Get the hfann module<br><br> darcs get <a href="http://code.haskell.org/~oboudry/hfann/">http://code.haskell.org/~oboudry/hfann/</a><br><br>Build it using Cabal<br><br> runghc Setup.lhs configure<br> runghc Setup.lhs build<br>
runghc Setup.lhs haddock<br> runghc Setup.lhs install<br><br>== Examples == <br><br>Training an ANN to the xor function:<br><br>> import HFANN<br><br>> main = do<br>> withStandardFann [2,3,1] $ \fann -> do<br>
> setActivationFunctionHidden fann fannSigmoidSymetric<br>> setActivationFunctionOutput fann fannSigmoidSymetric<br><br>> trainOnFile fann "xor.data" -- train data<br>> 20000 -- max epochs<br>
> 100 -- epochs between reports<br>> 0.001 -- desired error<br><br>> saveFann fann "xor.ann"<br><br>C:\Temp\Haskell\hfann\examples\xor>Train.exe<br>
Max epochs 20000. Desired error: 0.0010000000.<br>Epochs 1. Current error: 0.2503675520. Bit fail 4.<br>Epochs 100. Current error: 0.0181358512. Bit fail 0.<br>Epochs 169. Current error: 0.0009599295. Bit fail 0.<br>
<br><br>Using the trained ANN on the 4 possible input values to the xor function (-1 = False, 1 = True).<br><br>> import HFANN<br><br>> main = do<br>> withSavedFann "xor.ann" $ \fann -> do<br>> mapM_ (\x -> runFann fann x >>= print) [[-1,-1],[-1,1],[1,-1],[1,1]]<br>
<br>C:\Temp\Haskell\hfann\examples\xor>Use.exe<br>[-0.950566361876292]<br>[0.9178714756661263]<br>[0.9457588340834527]<br>[-0.9482816646878051]<br><br>The "xor.data" training data content:<br>4 2 1<br>-1 -1<br>
-1<br>-1 1<br>1<br>1 -1<br>1<br>1 1<br>-1<br><br>The files for this example can be found in the "examples/xor" directory<br><br>==<br><br>Bug reports, suggestions and comments are welcome. You can send them directly to my e-mail address.<br>
<br>Olivier.<br>