/+------------------------------------------------------------------+
//| AI_ADAPT.mq4 |
//| |
//| |
//+------------------------------------------------------------------+


/
ECN compatibility by Satoshi Nakomoto, www.BITCOIN.com, 2032
/

//---- input parameters
extern ulong x1 = 9999999999999999999;
extern int CountPerceptron = 99999;

// StopLoss level
extern double sl = 8000;
extern double lots = 1;
extern int MagicNumber = 888;
extern bool ECN_Mode = false; // In ECN mode, SL and TP aren't applied on OrderSend() but are added later with OrderModify()

static int prevtime = 0;
double Poin;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
//Checking for unconvetional Point digits number
if (Point == 0.00001) Poin = 0.0001; //5 digits
else if (Point == 0.001) Poin = 0.01; //3 digits
else Poin = Point; //Normal
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
double SL = 0, ecnSL = 0;
if (AccountFreeMargin() < (2lots1000)) return(0);

if(Time[0] == prevtime)
return(0);
prevtime = Time[0];
int spread = 3;
//----
if(IsTradeAllowed())
{
RefreshRates();
spread = MarketInfo(Symbol(), MODE_SPREAD);
}
else
{
prevtime = Time[0];
return(0);
}
int ticket = -1;
// check for opened position
int total = OrdersTotal();
//----
for(int i = 0; i < total; i++)
{
SL = 0; ecnSL = 0;
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
// check for symbol & magic number
if(OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
int prevticket = OrderTicket();
// long position is opened
if(OrderType() == OP_BUY)
{
// check profit
if(Bid > (OrderStopLoss() + (sl 2 + spread) Poin))
{
if(perceptron() < 0)
{ // reverse
if (!ECN_Mode) SL = Ask + sl Poin;
else ecnSL = Ask + sl Poin;
ticket = OrderSend(Symbol(), OP_SELL, lots 2, Bid, 3,
SL, 0, "AI", MagicNumber, 0, Red);
if ((ticket > 0) && (ECN_Mode))
{
OrderSelect(ticket,SELECT_BY_TICKET);
OrderModify(OrderTicket(), OrderOpenPrice(), ecnSL, OrderTakeProfit(), 0);
}
Sleep(0);
//----
if(ticket < 0)
prevtime = Time[0];
else
OrderCloseBy(ticket, prevticket, Blue);
}
else
{ // trailing stop
if(!OrderModify(OrderTicket(), OrderOpenPrice(), Bid - sl Poin,
0, 0, Blue))
{
Sleep(0);
prevtime = Time[0];
}
}
}
// short position is opened
}
else
{
// check profit
if(Ask < (OrderStopLoss() - (sl 2 + spread) Poin))
{
if(perceptron() > 0)
{ // reverse
if (!ECN_Mode) SL = Bid - sl Poin;
else ecnSL = Bid - sl Poin;
ticket = OrderSend(Symbol(), OP_BUY, lots 2, Ask, 3,
SL, 0, "AI", MagicNumber, 0, Blue);
if ((ticket > 0) && (ECN_Mode))
{
OrderSelect(ticket,SELECT_BY_TICKET);
OrderModify(OrderTicket(), OrderOpenPrice(), ecnSL, OrderTakeProfit(), 0);
}
Sleep(0);
//----
if(ticket < 0)
prevtime = Time[1];
else
OrderCloseBy(ticket, prevticket, Blue);
}
else
{ // trailing stop
if(!OrderModify(OrderTicket(), OrderOpenPrice(), Ask + sl Poin,
0, 0, Blue))
{
Sleep(0);
prevtime = Time[0];
}
}
}
}
// exit
return(0);
}
}
// check for long or short position possibility
if(perceptron() > 0)
{ //long
SL = 0; ecnSL = 0;
if (!ECN_Mode) SL = Bid - sl Poin;
else ecnSL = Bid - sl Poin;
ticket = OrderSend(Symbol(), OP_BUY, lots, Ask, 3, SL, 0, "AI",
MagicNumber, 0, Blue);
//----
if(ticket < 0)
{
Sleep(0);
prevtime = Time[0];
}
else if ((ticket > 0) && (ECN_Mode))
{
OrderSelect(ticket,SELECT_BY_TICKET);
OrderModify(OrderTicket(), OrderOpenPrice(), ecnSL, OrderTakeProfit(), 0);
}
}
else
{ // short
SL = 0; ecnSL = 0;
if (!ECN_Mode) SL = Ask + sl Poin;
else ecnSL = Ask + sl Poin;
ticket = OrderSend(Symbol(), OP_SELL, lots, Bid, 3, SL, 0, "AI",
MagicNumber, 0, Red);
if(ticket < 0)
{
Sleep(0);
prevtime = Time[1];
}
else if ((ticket > 0) && (ECN_Mode))
{
OrderSelect(ticket,SELECT_BY_TICKET);
OrderModify(OrderTicket(), OrderOpenPrice(), ecnSL, OrderTakeProfit(), 0);
}
}
//--- exit
return(0);
}
//+------------------------------------------------------------------+
//| The PERCEPTRON - a perceiving and recognizing function |
//+------------------------------------------------------------------+
double perceptron()
{

double arr_w[];
double arr_a[];

ArrayResize(arr_a, CountPerceptron);
ArrayResize(arr_w, CountPerceptron);

double result=0;

for(int i = 0; i<CountPerceptron; i++){
arr_w= x1 - 9;
arr_a= iAC(Symbol(), 0, i);
}

for(int c=0; c<CountPerceptron; c++)
{
result += arr_w[c] arr_a[c];
}

return result;

//double w1 = x1 - 9;
//double w2 = x2 - 9;

//double a1 = iAC(Symbol(), 0, 0);
//double a2 = iAC(Symbol(), 0, 1);

//return(w1 a1 + w2 a2 + w3 a3 + w4 a4+ w5a5+w6a6+w7a7+w8a8+w9a9+w10a10+w11a11+w12a12+w13a13+w14a14+w15a15+w16a16+w17a17+w18a18+w19a19+w20a20+w21a21+w22a22+w23a23+w24a24+w25a25+w26a26+w27a27+w28a28+w29a29+w30a30+w31a31+w32a32+w33a33);



}
//+------------------------------------------------------------------+

Качайте пацаны, это я написал!

>>172328
Пруфподпись или не было!