m-new_prices_1

//+------------------------------------------------------------------+
//|                                               m-new_prices_1.mq4 |
//|                                                         GreenCOD |
//|                                                GreeenCOD@mail.ru |
//|                                                         21.07.10 |
//+------------------------------------------------------------------+

#property copyright "GreenCOD"
#property link      "GreeenCOD@mail.ru"

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
extern string ÇÀÏÈÑÀÒÜ.ÂÌÅÑÒÎ.ÑÈÌÂÎËÀ. = "AUDCAD";  //  ÑÈÌÂÎË, ÊÎÒÈÐÎÂÊÈ  ÊÎÒÎÐÎÃÎ ÁÓÄÓÒ ÏÅÐÅÇÀÏÈÑÀÍÛ ÍÎÂÛÌÈ ÊÎÒÈÐÎÂÊÀÌÈ
//~~~~
extern int ÍÀ×ÀËÜÍÀß.ÖÅÍÀ. = 9999.9999;  //  ÖÅÍÀ ÑÀÌÎÃÎ ÑÒÀÐÎÃÎ ÁÀÐÀ(ÏÅÐÂÎÃÎ Â ÈÑÒÎÐÈÈ)
                                         //  ÈÌÅÍÍÎ ÎÒ ÍÅÃÎ ÁÓÄÓÒ Ñ×ÈÒÀÒÜÑß  ÏÎÑËÅÄÓÞÙÈÅ ÖÅÍÛ
//~~~~
extern string ÍÀÇÂÀÍÈÅ_ÂÕÎÄÍÎÃÎ_ÔÀÉËÀ = "ÄËß_ÊÎÒÈÐÎÂÎÊ.txt";  //  ÑÀÌ ÒÅÊÑÒÎÂÎÉ ÔÀÉË 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
int _Handle;
//~~~~~
int _Ôàéë_êîòèðîâîê_1;
//~~~~~
int _Áàðîâ_1 = 0;
//~~~~~
double _V_delta_1 = 0;
double _Close_1 = 0;
double _Close_2 = 0;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

//===========================================
int init()
//===========================================
{
 //<<<<<<<<<<<<<<
 
 //--- History header
 int    Version  =400;
 string Copyright;
 string Ssymbol = ÇÀÏÈÑÀÒÜ.ÂÌÅÑÒÎ.ÑÈÌÂÎËÀ.;
 int    Pperiod = Period();
 int    Ddigits = Digits;
 int    Mass[13];
 //--- 
 _Handle=FileOpenHistory(Ssymbol+Pperiod+".hst", FILE_BIN|FILE_WRITE);
 //---
 _Ôàéë_êîòèðîâîê_1 = FileOpen(ÍÀÇÂÀÍÈÅ_ÂÕÎÄÍÎÃÎ_ÔÀÉËÀ, FILE_BIN|FILE_READ);
 //---
 if(_Handle < 0 || _Ôàéë_êîòèðîâîê_1 < 0)
 { 
  Print(" ERROR ");
  //---
  return(-1);
 } 
 //--- write history file header
 Copyright="(C)opyright 2003, MetaQuotes Software Corp.";
 //---
 FileWriteInteger(_Handle, Version,    LONG_VALUE);
 FileWriteString (_Handle, Copyright,  64);
 FileWriteString (_Handle, Ssymbol,    12);
 FileWriteInteger(_Handle, Pperiod,   LONG_VALUE);
 FileWriteInteger(_Handle, Ddigits,   LONG_VALUE);
 FileWriteInteger(_Handle, 0,          LONG_VALUE);    
 FileWriteInteger(_Handle, 0,          LONG_VALUE);
 //---     
 FileWriteArray  (_Handle, Mass, 0, 13);
 //---
 MathSrand(GetTickCount());
 //---
 _Close_1 = ÍÀ×ÀËÜÍÀß.ÖÅÍÀ.;
 
 //>>>>>>>>>>>>>>
}
//===========================================

//000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000

//===========================================
int start()
//===========================================
{
 //<<<<<<<<<<<<<<
 double Delta;
 //---
 string Ñèìâîë = FileReadString(_Ôàéë_êîòèðîâîê_1, 1);
 //---
 Delta = ÐÀÑØÈÔÐÎÂÊÀ(Ñèìâîë);
 //---
 _Close_2 = _Close_1;
 _Close_1 = _Close_1 + NormalizeDouble(Delta*Point , Digits);
 //---
 _Áàðîâ_1 ++;
 //---
 _V_delta_1 += MathAbs(_Close_1 - _Close_2)/Point; 
 //---
 int Volume_1 = MathAbs(_Close_1 - _Close_2)/Point;
 //---
 double Open_1;
 double High_1;
 double Low_1;
 //---
 Open_1 = _Close_2;
 //---
 if(_Close_1 >= Open_1)
 {
  High_1 = _Close_1;
  Low_1 = Open_1;
 }
 else
 {
  High_1 = Open_1;
  Low_1 = _Close_1;
 }
 //---
 if(_Handle >= 0)
 {
  FileWriteInteger(_Handle, Time [1],LONG_VALUE);
  FileWriteDouble(_Handle, Open_1,   DOUBLE_VALUE);
  FileWriteDouble(_Handle, Low_1,    DOUBLE_VALUE);
  FileWriteDouble(_Handle, High_1,   DOUBLE_VALUE);
  FileWriteDouble(_Handle, _Close_1, DOUBLE_VALUE);
  FileWriteDouble(_Handle, Volume[1],DOUBLE_VALUE);
 }
 //>>>>>>>>>>>>>>
}
//===========================================

//000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000

//===========================================
int deinit()
//===========================================
{
 //<<<<<<<<<<<<<<
 FileClose(_Handle);
 FileClose(_Ôàéë_êîòèðîâîê_1);
 //---
 Print("=====================================");
 //---
 Print("Ñðåäíåå ïðèðàùåíèå = "+(_V_delta_1/_Áàðîâ_1));
 //---
 Print("áàðîâ âñåãî ñãåíåðèðîâàíî = "+_Áàðîâ_1);
 //---
 Print("Ïîñëåäíÿÿ öåíà = "+_Close_1);
 //---
 Print("=====================================");
 //>>>>>>>>>>>>>>
}
//===========================================

//000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    
//=============================================================
// â êàâû÷êàõ("") ýòî ñèìâîë, à ïîñëå çíàêà = èäåò öèôðà( ïîëîæèòåëüíàÿ, ëèáî îòðèöàòåëüíàÿ) êîòîðàÿ çàìåíÿåò ñèìâîë. 
//=============================================================
int ÐÀÑØÈÔÐÎÂÊÀ(string ñèìâîë)
{
 int Âûõîä = 0;
 //--
  if(ñèìâîë ==  "À")Âûõîä = -2;else
  if(ñèìâîë ==  "Á")Âûõîä = 4;else
  if(ñèìâîë ==  "Â")Âûõîä = -6;else
  if(ñèìâîë ==  "Ã")Âûõîä = 8;else
  if(ñèìâîë ==  "Ä")Âûõîä = -10;else
  if(ñèìâîë ==  "Å")Âûõîä = 12;else
  if(ñèìâîë ==  "¨")Âûõîä = -14;else
  if(ñèìâîë ==  "Æ")Âûõîä = 16;else
  if(ñèìâîë ==  "Ç")Âûõîä = -18;else
  if(ñèìâîë ==  "È")Âûõîä = 20;else
  if(ñèìâîë ==  "É")Âûõîä = -22;else
  if(ñèìâîë ==  "Ê")Âûõîä = 24;else
  if(ñèìâîë ==  "Ë")Âûõîä = -26;else
  if(ñèìâîë ==  "Ì")Âûõîä = 28;else
  if(ñèìâîë ==  "Í")Âûõîä = -30;else
  if(ñèìâîë ==  "Î")Âûõîä = 2;else
  if(ñèìâîë ==  "Ï")Âûõîä = -4;else
  if(ñèìâîë ==  "Ð")Âûõîä = 6;else
  if(ñèìâîë ==  "Ñ")Âûõîä = -8;else
  if(ñèìâîë ==  "Ò")Âûõîä = 10;else
  if(ñèìâîë ==  "Ó")Âûõîä = -12;else
  if(ñèìâîë ==  "Ô")Âûõîä = 14;else
  if(ñèìâîë ==  "Õ")Âûõîä = -16;else
  if(ñèìâîë ==  "Ö")Âûõîä = 18;else
  if(ñèìâîë ==  "×")Âûõîä = -20;else
  if(ñèìâîë ==  "Ø")Âûõîä = 22;else
  if(ñèìâîë ==  "Ù")Âûõîä = -24;else
  if(ñèìâîë ==  "Ú")Âûõîä = 26;else
  if(ñèìâîë ==  "Û")Âûõîä = -28;else
  if(ñèìâîë ==  "Ü")Âûõîä = 30;else
  if(ñèìâîë ==  "Ý")Âûõîä = -2;else
  if(ñèìâîë ==  "Þ")Âûõîä = 4;else
  if(ñèìâîë ==  "ß")Âûõîä = -6;else
  
  if(ñèìâîë ==  "à")Âûõîä = 1;else
  if(ñèìâîë ==  "á")Âûõîä = -2;else
  if(ñèìâîë ==  "â")Âûõîä = 3;else
  if(ñèìâîë ==  "ã")Âûõîä = -4;else
  if(ñèìâîë ==  "ä")Âûõîä = 5;else
  if(ñèìâîë ==  "å")Âûõîä = -6;else
  if(ñèìâîë ==  "¸")Âûõîä = 7;else
  if(ñèìâîë ==  "æ")Âûõîä = -8;else
  if(ñèìâîë ==  "ç")Âûõîä = 9;else
  if(ñèìâîë ==  "è")Âûõîä = -10;else
  if(ñèìâîë ==  "é")Âûõîä = 11;else
  if(ñèìâîë ==  "ê")Âûõîä = -12;else
  if(ñèìâîë ==  "ë")Âûõîä = 13;else
  if(ñèìâîë ==  "ì")Âûõîä = -14;else
  if(ñèìâîë ==  "í")Âûõîä = 15;else
  if(ñèìâîë ==  "î")Âûõîä = -16;else
  if(ñèìâîë ==  "ï")Âûõîä = 17;else
  if(ñèìâîë ==  "ð")Âûõîä = -18;else
  if(ñèìâîë ==  "ñ")Âûõîä = 19;else
  if(ñèìâîë ==  "ò")Âûõîä = -20;else
  if(ñèìâîë ==  "ó")Âûõîä = 21;else
  if(ñèìâîë ==  "ô")Âûõîä = -22;else
  if(ñèìâîë ==  "õ")Âûõîä = 23;else
  if(ñèìâîë ==  "ö")Âûõîä = -24;else
  if(ñèìâîë ==  "÷")Âûõîä = 25;else
  if(ñèìâîë ==  "ø")Âûõîä = -26;else
  if(ñèìâîë ==  "ù")Âûõîä = 27;else
  if(ñèìâîë ==  "ú")Âûõîä = -28;else
  if(ñèìâîë ==  "û")Âûõîä = 29;else
  if(ñèìâîë ==  "ü")Âûõîä = -30;else
  if(ñèìâîë ==  "ý")Âûõîä = 1;else
  if(ñèìâîë ==  "þ")Âûõîä = -2;else
  if(ñèìâîë ==  "ÿ")Âûõîä = 3;else
  
  if(ñèìâîë ==  "1")Âûõîä = 1;else
  if(ñèìâîë ==  "2")Âûõîä = -2;else
  if(ñèìâîë ==  "3")Âûõîä = 3;else
  if(ñèìâîë ==  "4")Âûõîä = -4;else
  if(ñèìâîë ==  "5")Âûõîä = 5;else
  if(ñèìâîë ==  "6")Âûõîä = -6;else
  if(ñèìâîë ==  "7")Âûõîä = 7;else
  if(ñèìâîë ==  "8")Âûõîä = -8;else
  if(ñèìâîë ==  "9")Âûõîä = 9;else
  if(ñèìâîë ==  "0")Âûõîä = -10;else

  if(ñèìâîë ==  ",")Âûõîä = 3;else
  if(ñèìâîë ==  "<")Âûõîä = -6;else
  if(ñèìâîë ==  ".")Âûõîä = 9;else
  if(ñèìâîë ==  ">")Âûõîä = -12;else
  if(ñèìâîë ==  "/")Âûõîä = 15;else
  if(ñèìâîë ==  "?")Âûõîä = -18;else
  if(ñèìâîë ==  ";")Âûõîä = 21;else
  if(ñèìâîë ==  ")")Âûõîä = -24;else
  if(ñèìâîë == "\'")Âûõîä = 27;else
  if(ñèìâîë == "\"")Âûõîä = -30;else
  if(ñèìâîë ==  "[")Âûõîä = 3;else
  if(ñèìâîë ==  "{")Âûõîä = -6;else
  if(ñèìâîë ==  "]")Âûõîä = 9;else
  if(ñèìâîë ==  "}")Âûõîä = -12;else
  if(ñèìâîë ==  "~")Âûõîä = 15;else
  if(ñèìâîë ==  "!")Âûõîä = -18;else
  if(ñèìâîë ==  "%")Âûõîä = 21;else
  if(ñèìâîë ==  "(")Âûõîä = -24;else
  if(ñèìâîë ==  ")")Âûõîä = 27;else
  if(ñèìâîë ==  "-")Âûõîä = -30;else
  if(ñèìâîë ==  "_")Âûõîä = 3;else
  if(ñèìâîë ==  "=")Âûõîä = -6;else
  if(ñèìâîë ==  "+")Âûõîä = 9;else
  if(ñèìâîë == "\\")
  Âûõîä = -12;else
  if(ñèìâîë ==  "|")Âûõîä = 15;else
  if(ñèìâîë ==  " ")Âûõîä = 0;else
  Âûõîä = 0;
 //---
 return(Âûõîä); 
}
//=============================================================

//0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000