#PNN_ARTIFICAL

//+------------------------------------------------------------------+
//|                                                #PNN_ARIFICAL.mq4 |
//|                      Copyright © 2008, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"
#property library

//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//
//#define MAX_INPUT 18
//double  SIGMA = ?;

//double INP_SIGNAL[MAX_INPUT];

//int Number_Exempls_Buy = 0;//×èñëî ïðèìåðîâ äëÿ Buy
//double Class_Example_Buy[][MAX_INPUT];
//double Out_class_Buy=0;

//int Number_Exempls_Sell;//×èñëî ïðèìåðîâ äëÿ Buy
//double Class_Example_Sell[][MAX_INPUT];
//double Out_class_Sell=0;

//double test_example[MAX_INPUT];

//PNN_Read_Class("Num_Exempls_Byu",Class_Example_Buy,Number_Exempls_Buy);
//PNN_Read_Class("Num_Exempls_Sell",Class_Example_Sell,Number_Exempls_Sell);
//PNN_Write_Class("Num_Exempls_Byu",Class_Example_Buy);
//PNN_Write_Class("Num_Exempls_Sell",Class_Example_Sell);

//Number_Exempls_Buy = ADD_EXAMPLE(test_example,Class_Example_Buy);
//if(Number_Exempls_Buy  > 0)Out_class_Buy = PNN(SIGMA, test_example,Class_Example_Buy);

//if(NetOutBuy > 0 && NetOutSell > 0)
//OUT =(NetOutBuy - NetOutSell)/(NetOutBuy + NetOutSell);

//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//


//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//
//Âûçûâàåòñÿ îòäåëüíî äëÿ êàæäîãî êëàññà
// Ðàññ÷èòûâàåì âûõîä äëÿ êëàññà
//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//
double PNN(double sigma,double test_example[], double Examples[][]) 
{ 
   int Nk=ArrayRange(Examples,0);
   int d=ArrayRange(Examples,1);
   double sum; 
   sum = 0; 
   // The SUMMATION layer which accumulates the pdf 
   // for each example from the particular class k 
   for ( int i=0; i<Nk; i++ ) 
   { 
      double product = 0; 
      // The PATTERN layer that multiplies the test example by the weights 
      for ( int j=0; j<d; j++ ) 
      product += MathPow(test_example[j] - Examples[i][j],2.0);
      product = product/MathPow( sigma ,2.0); 
      product = MathExp( -product );      
      sum += product;
   } 
   sum /=Nk;
   return (sum);
}
//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//


//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//
//Äîáàâèòü ïðèìåð â êëàññ
//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//
int ADD_EXAMPLE(double test_example[],double & Examples[][])
{
   int Nk=ArrayRange(Examples,0);
   int d=ArrayRange(Examples,1);
   ArrayResize(Examples,Nk+1);
   
   for(int i=0;i<d;i++)
      Examples[Nk][i] = test_example[i];
   return (Nk);
}
//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//

//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//
//Ñ÷èòûâàåì äàííûå èç ôàéëà
//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//
int PNN_Read_Class(string fname,double & Class_Example[][],int Nk)
{
   int d=ArrayRange(Class_Example,1);
   int numDataRead=0;
   int handle=FileOpen(fname+".net",FILE_BIN|FILE_READ);
   if(handle>0)
    {
     numDataRead = FileReadArray(handle, Class_Example, 0, Nk*d);
     FileClose(handle);
     if(numDataRead != Nk*d) return (false);
     return (true);
    }   
    return (false);
}
//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//



//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//
//Ñîõðàíÿåì äàííûå â ôàéë
//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//
int PNN_Write_Class(string fname,double Class_Example[][])
{
   int Nk=ArrayRange(Class_Example,0);
   int d=ArrayRange(Class_Example,1);

   int handle=FileOpen(fname+".net",  FILE_BIN |FILE_WRITE);
   if(handle>0)
   {
      FileWriteArray(handle, Class_Example, 0, Nk*d); // çàïèñü ïîñëåäíèõ 7 ýëåìåíòîâ
      FileClose(handle);
      return (true);
   }
   Print("Íå ñîõðàíèëîñü íè÷åãî!");
   return (false);   
}
//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ//