unit1.cpp

小弟撰寫的類神經網路backpropagataion,可以train如xor等互斥問題,使用bcb所完成,因為開發介面較為便利, 大部分使用類別的方法撰寫,所以若有興趣移植到vc的朋友,應該也不會有

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include <stdlib.h>
#include <time.h>
#include "Unit1.h"
#define F(x) 1/(1+pow((2.71828),(-1)*x))
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int input_count=0;
TForm1 *Form1;
nn_train bp;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void nn_train::initial(void)
{
int RAND_MAX2 = RAND_MAX/2;
srand( (unsigned)time(NULL));
for (int i=0;i<101;i++)
 {
  s_delta[i]=0;
  n_error[i]=0;
  for (int j=0;j<101;j++)
   {
   weight_num[i][j]=(double)(rand()-RAND_MAX2) / (double)(RAND_MAX);
   input_vaule[i][j]=0;
   output_vaule[i][j]=0;
   delta_weight[i][j]=0;
   }
 }
for(int i=0;i<101;i++)
 {
 a[i]=0;
 }
 //代刚ノ