[libfann] 169/242: *** empty log message ***
Christian Kastner
chrisk-guest at moszumanska.debian.org
Sat Oct 4 21:10:39 UTC 2014
This is an automated email from the git hooks/post-receive script.
chrisk-guest pushed a commit to tag Version2_0_0
in repository libfann.
commit bfe58feccc0247a03511996e67b42a8e4842657f
Author: Steffen Nissen <lukesky at diku.dk>
Date: Sat Nov 13 11:41:44 2004 +0000
*** empty log message ***
---
Delphi/Docs/DelphiCodeToDoc.css | 6 +
.../DelphiFANN_FannNetwork_TFannNetwork_Build.htm | 128 ++++++++++
...ANN_FannNetwork_TFannNetwork_ConnectionRate.htm | 110 +++++++++
.../DelphiFANN_FannNetwork_TFannNetwork_Create.htm | 134 ++++++++++
...DelphiFANN_FannNetwork_TFannNetwork_Destroy.htm | 127 ++++++++++
.../DelphiFANN_FannNetwork_TFannNetwork_GetMSE.htm | 150 +++++++++++
.../DelphiFANN_FannNetwork_TFannNetwork_Layers.htm | 110 +++++++++
...iFANN_FannNetwork_TFannNetwork_LearningRate.htm | 110 +++++++++
...iFANN_FannNetwork_TFannNetwork_LoadFromFile.htm | 134 ++++++++++
.../DelphiFANN_FannNetwork_TFannNetwork_Run.htm | 139 +++++++++++
...phiFANN_FannNetwork_TFannNetwork_SaveToFile.htm | 135 ++++++++++
.../DelphiFANN_FannNetwork_TFannNetwork_Train.htm | 162 ++++++++++++
...hiFANN_FannNetwork_TFannNetwork_TrainOnFile.htm | 148 +++++++++++
Delphi/Docs/index.htm | 275 +++++++++++++++++++++
Delphi/Files/FannNetwork.pas | 97 +++++---
Delphi/README.txt | 5 +-
16 files changed, 1930 insertions(+), 40 deletions(-)
diff --git a/Delphi/Docs/DelphiCodeToDoc.css b/Delphi/Docs/DelphiCodeToDoc.css
new file mode 100644
index 0000000..1ca4957
--- /dev/null
+++ b/Delphi/Docs/DelphiCodeToDoc.css
@@ -0,0 +1,6 @@
+.SectionName { font-weight: bold; color: #000000; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: x-small}
+.Generated { color: #9900FF; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: x-small; font-style: normal; font-weight: normal}
+.IndexName { font-weight: normal; background-color: #CCCCCC; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: x-small}
+.Normal { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: x-small; font-style: normal; font-weight: normal}
+.Footer { color: #000000; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: xx-small; font-style: normal; font-weight: normal }
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Build.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Build.htm
new file mode 100644
index 0000000..3e093a9
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Build.htm
@@ -0,0 +1,128 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center">Previous</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_ConnectionRate.htm">Next (ConnectionRate)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">Build</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLIC</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>Builds a Fann neural nerwork.
+<BR>Layers property must be set to work.
+</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">procedure Build ( ) </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Parameters</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Parameter</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center">Previous</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_ConnectionRate.htm">Next (ConnectionRate)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_ConnectionRate.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_ConnectionRate.htm
new file mode 100644
index 0000000..dbd3739
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_ConnectionRate.htm
@@ -0,0 +1,110 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Build.htm">Previous (Build)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Create.htm">Next (Create)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">ConnectionRate</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLISHED</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>#No TAG found in source code#</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">property ConnectionRate : Single read pConnectionRate write pConnectionRate </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Build.htm">Previous (Build)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Create.htm">Next (Create)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Create.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Create.htm
new file mode 100644
index 0000000..be739a2
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Create.htm
@@ -0,0 +1,134 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_ConnectionRate.htm">Previous (ConnectionRate)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Destroy.htm">Next (Destroy)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">Create</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLIC</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>Creates an instance of TFannNetwork
+<BR>
+</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">constructor Create ( Aowner : TComponent ) ; override </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Parameters</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Parameter</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">Aowner : TComponent</td>
+ <td class="Generated">Owner Component
+</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_ConnectionRate.htm">Previous (ConnectionRate)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Destroy.htm">Next (Destroy)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Destroy.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Destroy.htm
new file mode 100644
index 0000000..14e85e4
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Destroy.htm
@@ -0,0 +1,127 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Create.htm">Previous (Create)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_GetMSE.htm">Next (GetMSE)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">Destroy</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLIC</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>Destroys the TFannNetwork object and frees its memory.
+</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">destructor Destroy ( ) ; override </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Parameters</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Parameter</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Create.htm">Previous (Create)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_GetMSE.htm">Next (GetMSE)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_GetMSE.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_GetMSE.htm
new file mode 100644
index 0000000..3e64934
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_GetMSE.htm
@@ -0,0 +1,150 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Destroy.htm">Previous (Destroy)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Layers.htm">Next (Layers)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">GetMSE</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLIC</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>Returns the Mean Square Error of the Network.
+<BR>
+</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">function GetMSE ( ) : Single </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Parameters</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Parameter</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Return</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Types</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">SINGLE</td>
+ <td class="Generated">Mean Square Error
+</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Destroy.htm">Previous (Destroy)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Layers.htm">Next (Layers)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Layers.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Layers.htm
new file mode 100644
index 0000000..e1187f4
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Layers.htm
@@ -0,0 +1,110 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_GetMSE.htm">Previous (GetMSE)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_LearningRate.htm">Next (LearningRate)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">Layers</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLISHED</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>#No TAG found in source code#</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">property Layers : TStrings read PLayers write SetLayers </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_GetMSE.htm">Previous (GetMSE)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_LearningRate.htm">Next (LearningRate)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_LearningRate.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_LearningRate.htm
new file mode 100644
index 0000000..0ef6d55
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_LearningRate.htm
@@ -0,0 +1,110 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Layers.htm">Previous (Layers)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_LoadFromFile.htm">Next (LoadFromFile)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">LearningRate</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLISHED</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>#No TAG found in source code#</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">property LearningRate : Single read pLearningRate write pLearningRate </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Layers.htm">Previous (Layers)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_LoadFromFile.htm">Next (LoadFromFile)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_LoadFromFile.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_LoadFromFile.htm
new file mode 100644
index 0000000..a49a5c4
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_LoadFromFile.htm
@@ -0,0 +1,134 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_LearningRate.htm">Previous (LearningRate)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Run.htm">Next (Run)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">LoadFromFile</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLIC</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>Loads a network from a file.
+<BR>
+</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">procedure LoadFromFile ( Filename : string ) </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Parameters</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Parameter</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">Filename : STRING</td>
+ <td class="Generated">File that contains the network
+</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_LearningRate.htm">Previous (LearningRate)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Run.htm">Next (Run)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Run.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Run.htm
new file mode 100644
index 0000000..45a9afb
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Run.htm
@@ -0,0 +1,139 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_LoadFromFile.htm">Previous (LoadFromFile)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_SaveToFile.htm">Next (SaveToFile)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">Run</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLIC</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>Executes the network.
+<BR>
+</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">procedure Run ( Inputs : array of fann_type ; var Outputs : array of fann_type ) </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Parameters</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Parameter</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">Inputs : fann_type</td>
+ <td class="Generated">Array with the value of each input
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">Outputs : fann_type</td>
+ <td class="Generated"></td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_LoadFromFile.htm">Previous (LoadFromFile)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_SaveToFile.htm">Next (SaveToFile)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_SaveToFile.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_SaveToFile.htm
new file mode 100644
index 0000000..ed7f8ae
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_SaveToFile.htm
@@ -0,0 +1,135 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Run.htm">Previous (Run)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Train.htm">Next (Train)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">SaveToFile</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLIC</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>Saves the current network to the specified file.
+<BR>
+</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">procedure SaveToFile ( FileName : String ) </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Parameters</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Parameter</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">FileName : STRING</td>
+ <td class="Generated">Filename of the network
+<BR>
+</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Run.htm">Previous (Run)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Train.htm">Next (Train)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Train.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Train.htm
new file mode 100644
index 0000000..98fe2af
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_Train.htm
@@ -0,0 +1,162 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_SaveToFile.htm">Previous (SaveToFile)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_TrainOnFile.htm">Next (TrainOnFile)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">Train</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLIC</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>Will train one iteration with a set of inputs, and a set of desired outputs.
+<BR>
+</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">function Train ( Input : array of fann_type ; Output : array of fann_type ) : single </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Parameters</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Parameter</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">Input : fann_type</td>
+ <td class="Generated">Network inputs
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">Output : fann_type</td>
+ <td class="Generated">Network Desired Outputs
+<BR>
+</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Return</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Types</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">SINGLE</td>
+ <td class="Generated">#No TAG found in source code#</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_SaveToFile.htm">Previous (SaveToFile)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_TrainOnFile.htm">Next (TrainOnFile)</a></div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_TrainOnFile.htm b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_TrainOnFile.htm
new file mode 100644
index 0000000..2d76fd4
--- /dev/null
+++ b/Delphi/Docs/DelphiFANN_FannNetwork_TFannNetwork_TrainOnFile.htm
@@ -0,0 +1,148 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Train.htm">Previous (Train)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center">Next</div>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Member</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TrainOnFile</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Visibility</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">PUBLIC</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>Trains the network using the data in filename until desired error is reached
+<BR>or until maxepochs is surpassed.
+<BR>
+</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Source code</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">procedure TrainOnFile ( FileName : String ; MaxEpochs : Cardinal ; DesiredError : Single ) </td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Parameters</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Parameter</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">FileName : STRING</td>
+ <td class="Generated">Training Data File.
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">MaxEpochs : CARDINAL</td>
+ <td class="Generated">Maximum number of epochs to train
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">DesiredError : SINGLE</td>
+ <td class="Generated">Desired Error of the network after the training
+<BR>
+</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Links</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+</table>
+<br>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+ <div align="center">Content</div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="index.htm">Index</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center"><a href="DelphiFANN_FannNetwork_TFannNetwork_Train.htm">Previous (Train)</a></div>
+ </td>
+ <td class="Normal">
+ <div align="center">Next</div>
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Docs/index.htm b/Delphi/Docs/index.htm
new file mode 100644
index 0000000..5473bb8
--- /dev/null
+++ b/Delphi/Docs/index.htm
@@ -0,0 +1,275 @@
+<html>
+<head>
+<title>DelphiCodeToDoc - DelphiFANN</title>
+<meta http-equiv="Content-Type" content="text/html">
+<link rel="stylesheet" href="DelphiCodeToDoc.css" type="text/css">
+</head>
+
+<body bgcolor="#FFFFFF" text="#000000">
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+
+ </td>
+ <td class="Normal">
+
+ </td>
+ <td class="Normal">
+
+ </td>
+ <td class="Normal">
+
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Class</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TFannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Class Hierarchy</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">TComponent</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Related Unit</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td class="Generated">FannNetwork</td>
+ </tr>
+</table>
+<br>
+
+<span class="SectionName">Description</span><br>
+<table width="95%" border="0" cellspacing="0">
+
+ <tr>
+ <td width="10"> </td>
+ <td bgcolor="#FFFFCC" class="Generated">
+ <p>TFannNetwork Component
+</p>
+ </td>
+ </tr>
+
+</table><br>
+
+<span class="SectionName">Members</span><br>
+<table width="100%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+<span class="SectionName">Fields</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Field</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Methods</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Method</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_Build.htm">Build</a> (+)</td>
+ <td class="Generated">Builds a Fann neural nerwork.
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_Create.htm">Create</a> (+)</td>
+ <td class="Generated">Creates an instance of TFannNetwork
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_Destroy.htm">Destroy</a> (+)</td>
+ <td class="Generated">Destroys the TFannNetwork object and frees its memory.
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_GetMSE.htm">GetMSE</a> (+)</td>
+ <td class="Generated">Returns the Mean Square Error of the Network.
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_LoadFromFile.htm">LoadFromFile</a> (+)</td>
+ <td class="Generated">Loads a network from a file.
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_Run.htm">Run</a> (+)</td>
+ <td class="Generated">Executes the network.
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_SaveToFile.htm">SaveToFile</a> (+)</td>
+ <td class="Generated">Saves the current network to the specified file.
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_Train.htm">Train</a> (+)</td>
+ <td class="Generated">Will train one iteration with a set of inputs, and a set of desired outputs.
+</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_TrainOnFile.htm">TrainOnFile</a> (+)</td>
+ <td class="Generated">Trains the network using the data in filename until desired error is reached
+</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Propertys</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Property</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_ConnectionRate.htm">ConnectionRate</a> (*)</td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_Layers.htm">Layers</a> (*)</td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%"><a href="DelphiFANN_FannNetwork_TFannNetwork_LearningRate.htm">LearningRate</a> (*)</td>
+ <td class="Generated">#UnderConstruction#</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Events</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Event</td>
+ <td class="IndexName">Description</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+ </td>
+ </tr>
+</table><br>
+
+<span class="SectionName">Legend</span><br>
+<table width="95%" border="0" cellspacing="0">
+ <tr>
+ <td width="10"> </td>
+ <td>
+ <table width="100%" border="1" cellspacing="0" class="IndexName">
+ <tr bgcolor="#FFFFFF">
+ <td class="IndexName" width="33%">Symbol</td>
+ <td class="IndexName">Visibility</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">-</td>
+ <td class="Generated">Private</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">#</td>
+ <td class="Generated">Protected</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">+</td>
+ <td class="Generated">Public</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">*</td>
+ <td class="Generated">Published</td>
+ </tr>
+
+ <tr bgcolor="#FFFFFF">
+ <td class="Generated" width="33%">A</td>
+ <td class="Generated">Automated</td>
+ </tr>
+
+ </table>
+ </td>
+ </tr>
+</table><br>
+
+<table width="100%" border="0" cellspacing="0" bgcolor="#99CCFF">
+ <tr>
+ <td class="Generated"><b>DelphiFANN</b></td>
+ <td class="Normal">
+
+ </td>
+ <td class="Normal">
+
+ </td>
+ <td class="Normal">
+
+ </td>
+ <td class="Normal">
+
+ </td>
+ </tr>
+</table><br>
+
+<hr width="100%" align="left">
+<span class="Footer">Created with DelphiCodeToDoc. To obtain the latest revision,
+please see <a href="http://dephicodetodoc.sourceforge.net/"><b>http://dephicodetodoc.sourceforge.net/</b></a><br>
+Under GNU GPL licence. Copyright (c) 2003 - TridenT.</span><br>
+<p> </p>
+</body>
+</html>
+
diff --git a/Delphi/Files/FannNetwork.pas b/Delphi/Files/FannNetwork.pas
index 42ec4c8..449e5cc 100644
--- a/Delphi/Files/FannNetwork.pas
+++ b/Delphi/Files/FannNetwork.pas
@@ -1,3 +1,12 @@
+{*------------------------------------------------------------------------------
+ TFannNetwork encapsulates the Fast Artificial Neural Network.
+
+ fann.sourceforge.net
+
+ @author Maur�cio Pereira Maia
+ @version 1.1
+
+-------------------------------------------------------------------------------}
unit FannNetwork;
interface
@@ -8,11 +17,15 @@ interface
uses
Windows, Messages, SysUtils, Classes,Fann;
-type CardinalArray = array [0..1023] of Cardinal;
- PCardinalArray = ^CardinalArray;
+type CardinalArray = array [0..1023] of Cardinal; //Array of Cardinal Type
+ PCardinalArray = ^CardinalArray; //Pointer to CardinalArray Type
type
+{*------------------------------------------------------------------------------
+ TFannNetwork Component
+-------------------------------------------------------------------------------}
+
TFannNetwork = class(TComponent)
private
ann: PFann;
@@ -38,21 +51,24 @@ type
published
- {** Network Layer Structure. Each line need to have the number of neurons
+ {*------------------------------------------------------------------------------
+ Network Layer Structure. Each line need to have the number of neurons
of the layer.
2
4
1
Will make a three layered network with 2 input neurons, 4 hidden neurons
and 1 output neuron.
- }
+ -------------------------------------------------------------------------------}
property Layers: TStrings read PLayers write SetLayers;
- {** Network Learning Rate.
- }
+ {*------------------------------------------------------------------------------
+ Network Learning Rate.
+ -------------------------------------------------------------------------------}
property LearningRate: Single read pLearningRate write pLearningRate;
- {** Network Connection Rate. See the FANN docs for more info.
- }
+ {*------------------------------------------------------------------------------
+ Network Connection Rate. See the FANN docs for more info.
+ -------------------------------------------------------------------------------}
property ConnectionRate: Single read pConnectionRate write pConnectionRate;
end;
@@ -60,19 +76,16 @@ procedure Register;
implementation
-procedure Register;
+procedure Register; //Register the Component
begin
RegisterComponents('FANN', [TFannNetwork]);
end;
-{ TFannNetwork }
-
-{** Builds a Fann neural nerwork.
+{*------------------------------------------------------------------------------
+ Builds a Fann neural nerwork.
Layers property must be set to work.
-
- @param none
-}
+-------------------------------------------------------------------------------}
procedure TFannNetwork.Build;
var l: PCardinalArray; //Pointer to number of neurons on each layer
nl: integer; //Number of layers
@@ -86,6 +99,7 @@ begin
GetMem(l,nl*sizeof(Cardinal)); //Alloc mem for the array
+
for i:=0 to nl-1 do
begin
@@ -94,18 +108,20 @@ begin
end;
ann:=fann_create_array(PConnectionRate,PLearningRate,nl,l[0]);
+ fann_randomize_weights(ann,-0.5,0.5);
+
pbuilt:=true;
FreeMem(l);
-
end;
-{** Creates an instance of TFannNetwork
+{*------------------------------------------------------------------------------
+ Creates an instance of TFannNetwork
@param AOwner Owner Component
-}
+-------------------------------------------------------------------------------}
constructor TFannNetwork.Create(Aowner: TComponent);
begin
inherited Create(Aowner);
@@ -118,10 +134,9 @@ begin
end;
-{** Destroys the TFannNetwork object and frees its memory.
-
- @param none
-}
+{*------------------------------------------------------------------------------
+ Destroys the TFannNetwork object and frees its memory.
+-------------------------------------------------------------------------------}
destructor TFannNetwork.Destroy;
begin
If pBuilt then fann_destroy(ann);
@@ -130,11 +145,11 @@ begin
inherited;
end;
-{** Returns the Mean Square Error of the Network.
+{*------------------------------------------------------------------------------
+ Returns the Mean Square Error of the Network.
- @param none
@return Mean Square Error
-}
+-------------------------------------------------------------------------------}
function TFannNetwork.GetMSE: Single;
begin
if not pBuilt then
@@ -144,29 +159,31 @@ begin
end;
-{** Loads a network from a file.
+{*------------------------------------------------------------------------------
+ Loads a network from a file.
@param Filename File that contains the network
@see SavetoFile
-}
+-------------------------------------------------------------------------------}
procedure TFannNetwork.LoadFromFile(Filename: string);
begin
If pBuilt then fann_destroy(ann);
- fann_create_from_file(PChar(Filename));
+ ann:=fann_create_from_file(PChar(Filename));
pBuilt:=true;
end;
-{** Executes the network.
+{*------------------------------------------------------------------------------
+ Executes the network.
@param Inputs Array with the value of each input
@param Ouputs Will receive the output of the network. Need to be
allocated before the Run function call with the number
of outputs on the network.
-}
+-------------------------------------------------------------------------------}
procedure TFannNetwork.Run(Inputs: array of fann_type;
var Outputs: array of fann_type);
var O: Pfann_type_array;
@@ -186,12 +203,13 @@ begin
end;
-{** Saves the current network to the specified file.
+{*------------------------------------------------------------------------------
+ Saves the current network to the specified file.
@param Filename Filename of the network
@see LoadFromFile
-}
+-------------------------------------------------------------------------------}
procedure TFannNetwork.SaveToFile(FileName: String);
begin
if not pBuilt then exit;
@@ -202,14 +220,15 @@ begin
end;
-{** Train the network and returns the Mean Square Error.
+{*------------------------------------------------------------------------------
+ Train the network and returns the Mean Square Error.
@param Input Array with the value of each input of the network
@param Output Array with the value of each desired output of the network
@return Mean Square Error after the training
@see TrainOnFile
-}
+-------------------------------------------------------------------------------}
procedure TFannNetwork.SetLayers(const Value: TStrings);
begin
@@ -220,13 +239,14 @@ begin
end;
-{** Will train one iteration with a set of inputs, and a set of desired outputs.
+{*------------------------------------------------------------------------------
+ Will train one iteration with a set of inputs, and a set of desired outputs.
@param Input Network inputs
@param Output Network Desired Outputs
@see TrainOnFile
-}
+-------------------------------------------------------------------------------}
function TFannNetwork.Train(Input, Output: array of fann_type): single;
begin
@@ -240,7 +260,8 @@ begin
end;
-{** Trains the network using the data in filename until desirederror is reached
+{*------------------------------------------------------------------------------
+ Trains the network using the data in filename until desired error is reached
or until maxepochs is surpassed.
@param FileName Training Data File.
@@ -248,7 +269,7 @@ end;
@param DesiredError Desired Error of the network after the training
@see Train
-}
+-------------------------------------------------------------------------------}
procedure TFannNetwork.TrainOnFile(FileName: String; MaxEpochs: Cardinal;
DesiredError: Single);
begin
diff --git a/Delphi/README.txt b/Delphi/README.txt
index b78100a..deb5aad 100644
--- a/Delphi/README.txt
+++ b/Delphi/README.txt
@@ -6,13 +6,14 @@ but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Author: Mauricio Pereira Maia <mauricio at uaisol.com.br>
-Version: 1.0
+Version: 1.1
Version History
===============
-10 Oct 2004 - First Version released.
+Version 1.0 - 10 Oct 2004 - First Version released.
+Version 1.1 - 12 Nov 2004 - Fixed LoadFromFile bug.
Requeriments
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/libfann.git
More information about the debian-science-commits
mailing list