سلسله الاكسبيرتات العشوائية الرقمية البسيطة

[المبرمج]

السلام عليكم
الموضوع راح نتناول فيه مجموعة من الاكسبيرتات الرقمية العشوائية و التي تتركز اساسا على الاحصاء
دقائق و راح يتم ارفاق اول اكسبيرت
الهدف من الموضوع تعليمي و في نفس الوقع احصائي
شكرا

[المبرمج]

المثال الاول

 //-------------------------------------------------------------
//  Etasoft Inc. Forex EA and Script Generator version 4.1   EA
//-------------------------------------------------------------
// Keywords: MT4, Forex EA builder, create EA, expert advisor developer
 
#property copyright "Copyright © 2011, Etasoft Inc. Forex EA Generator v4.1"
#property link      "http://www.********erator.com/"
 
#include <stdlib.mqh>
#include <WinUser32.mqh>
 
// exported variables
extern double BuyLots9 = 0.1;
extern int BuyStoploss9 = 20;
extern int BuyTakeprofit9 = 30;
extern double SellLots15 = 0.1;
extern int SellStoploss15 = 20;
extern int SellTakeprofit15 = 30;
 
 
// local variables
double PipValue=1;    // this variable is here to support 5-digit brokers
bool Terminated = false;
string LF = "\n";  // use this in custom or utility blocks where you need line feeds
int NDigits = 4;   // used mostly for NormalizeDouble in Flex type blocks
int ObjCount = 0;  // count of all objects created on the chart, allows creation of objects with unique names
int current = 0;
 
 
 
int init()
{
    NDigits = Digits;
    
    if (false) ObjectsDeleteAll();      // clear the chart
    
    
    Comment("");    // clear the chart
}
 
// Expert start
int start()
{
    if (Bars < 10)
    {
        Comment("Not enough bars");
        return (0);
    }
    if (Terminated == true)
    {
        Comment("EA Terminated.");
        return (0);
    }
    
    OnEveryTick17();
    
}
 
void OnEveryTick17()
{
    if (true == false && false) PipValue = 10;
    if (true && (NDigits == 3 || NDigits == 5)) PipValue = 10;
    
    TechnicalAnalysis11();
    TechnicalAnalysis10();
    
}
 
void TechnicalAnalysis11()
{
    if (Close[1] >= Open[1])
    {
        IfOrderDoesNotExist13();
        IfOrderExists22();
        
    }
}
 
void IfOrderDoesNotExist13()
{
    bool exists = false;
    for (int i=OrdersTotal()-1; i >= 0; i--)
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
    {
        if (OrderType() == OP_BUY && OrderSymbol() == Symbol() && OrderMagicNumber() == 1)
        {
            exists = true;
        }
    }
    else
    {
        Print("OrderSelect() error - ", ErrorDescription(GetLastError()));
    }
    
    if (exists == false)
    {
        BuyOrder9();
        
    }
}
 
void BuyOrder9()
{
    double SL = Ask - BuyStoploss9*PipValue*Point;
    if (BuyStoploss9 == 0) SL = 0;
    double TP = Ask + BuyTakeprofit9*PipValue*Point;
    if (BuyTakeprofit9 == 0) TP = 0;
    int ticket = -1;
    if (true)
    ticket = OrderSend(Symbol(), OP_BUY, BuyLots9, Ask, 4, 0, 0, "My Expert", 1, 0, Blue);
    else
    ticket = OrderSend(Symbol(), OP_BUY, BuyLots9, Ask, 4, SL, TP, "My Expert", 1, 0, Blue);
    if (ticket > -1)
    {
        if (true)
        {
            OrderSelect(ticket, SELECT_BY_TICKET);
            bool ret = OrderModify(OrderTicket(), OrderOpenPrice(), SL, TP, 0, Blue);
            if (ret == false)
            Print("OrderModify() error - ", ErrorDescription(GetLastError()));
        }
            
    }
    else
    {
        Print("OrderSend() error - ", ErrorDescription(GetLastError()));
    }
}
 
void IfOrderExists22()
{
    bool exists = false;
    for (int i=OrdersTotal()-1; i >= 0; i--)
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
    {
        if (OrderType() == OP_SELL && OrderSymbol() == Symbol() && OrderMagicNumber() == 1)
        {
            exists = true;
        }
    }
    else
    {
        Print("OrderSelect() error - ", ErrorDescription(GetLastError()));
    }
    
    if (exists)
    {
        CloseOrder23();
        
    }
}
 
void CloseOrder23()
{
    int orderstotal = OrdersTotal();
    int orders = 0;
    int ordticket[30][2];
    for (int i = 0; i < orderstotal; i++)
    {
        OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
        if (OrderType() != OP_SELL || OrderSymbol() != Symbol() || OrderMagicNumber() != 1)
        {
            continue;
        }
        ordticket[orders][0] = OrderOpenTime();
        ordticket[orders][1] = OrderTicket();
        orders++;
    }
    if (orders > 1)
    {
        ArrayResize(ordticket,orders);
        ArraySort(ordticket);
    }
    for (i = 0; i < orders; i++)
    {
        if (OrderSelect(ordticket[i][1], SELECT_BY_TICKET) == true)
        {
            bool ret = OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 4, Red);
            if (ret == false)
            Print("OrderClose() error - ", ErrorDescription(GetLastError()));
        }
    }
    
}
 
void TechnicalAnalysis10()
{
    if (Close[1] <= Open[1])
    {
        IfOrderDoesNotExist12();
        IfOrderExists16();
        
    }
}
 
void IfOrderDoesNotExist12()
{
    bool exists = false;
    for (int i=OrdersTotal()-1; i >= 0; i--)
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
    {
        if (OrderType() == OP_SELL && OrderSymbol() == Symbol() && OrderMagicNumber() == 1)
        {
            exists = true;
        }
    }
    else
    {
        Print("OrderSelect() error - ", ErrorDescription(GetLastError()));
    }
    
    if (exists == false)
    {
        SellOrder15();
        
    }
}
 
void SellOrder15()
{
    double SL = Bid + SellStoploss15*PipValue*Point;
    if (SellStoploss15 == 0) SL = 0;
    double TP = Bid - SellTakeprofit15*PipValue*Point;
    if (SellTakeprofit15 == 0) TP = 0;
    int ticket = -1;
    if (true)
    ticket = OrderSend(Symbol(), OP_SELL, SellLots15, Bid, 4, 0, 0, "My Expert", 1, 0, Red);
    else
    ticket = OrderSend(Symbol(), OP_SELL, SellLots15, Bid, 4, SL, TP, "My Expert", 1, 0, Red);
    if (ticket > -1)
    {
        if (true)
        {
            OrderSelect(ticket, SELECT_BY_TICKET);
            bool ret = OrderModify(OrderTicket(), OrderOpenPrice(), SL, TP, 0, Red);
            if (ret == false)
            Print("OrderModify() error - ", ErrorDescription(GetLastError()));
        }
            
    }
    else
    {
        Print("OrderSend() error - ", ErrorDescription(GetLastError()));
    }
}
 
void IfOrderExists16()
{
    bool exists = false;
    for (int i=OrdersTotal()-1; i >= 0; i--)
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
    {
        if (OrderType() == OP_BUY && OrderSymbol() == Symbol() && OrderMagicNumber() == 1)
        {
            exists = true;
        }
    }
    else
    {
        Print("OrderSelect() error - ", ErrorDescription(GetLastError()));
    }
    
    if (exists)
    {
        CloseOrder20();
        
    }
}
 
void CloseOrder20()
{
    int orderstotal = OrdersTotal();
    int orders = 0;
    int ordticket[30][2];
    for (int i = 0; i < orderstotal; i++)
    {
        OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
        if (OrderType() != OP_BUY || OrderSymbol() != Symbol() || OrderMagicNumber() != 1)
        {
            continue;
        }
        ordticket[orders][0] = OrderOpenTime();
        ordticket[orders][1] = OrderTicket();
        orders++;
    }
    if (orders > 1)
    {
        ArrayResize(ordticket,orders);
        ArraySort(ordticket);
    }
    for (i = 0; i < orders; i++)
    {
        if (OrderSelect(ordticket[i][1], SELECT_BY_TICKET) == true)
        {
            bool ret = OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 4, Red);
            if (ret == false)
            Print("OrderClose() error - ", ErrorDescription(GetLastError()));
        }
    }
    
}
 
 
 
int deinit()
{
    if (false) ObjectsDeleteAll();
    
    
} 
  

[المبرمج]

الاكسبيرت بسيط جدا
يفتح صفقة شراء حسب اغلاق الشمعة السايقة
ادا كانت صاعدة يفتح شراء و العكس بيع
الاغلاق يكون في عند تغير الشمعة على الفريم المستعمل
الهدف من الاكسبارت هو السير مع السعر و عمل احصاء للصفقات الرابحة من الخاسرة
و من بعد نضع شروط جديدة لزيادة الربح من الخسارة

[Dr.SeMSeM]

ده تكملة للموضوع بتاع اكسبرتي الرقمي ولا حاجة تانية ولا كله موصل على بعضه
متوهناش الله يخليك

[المبرمج]

ده تكملة للموضوع بتاع اكسبرتي الرقمي ولا حاجة تانية ولا كله موصل على بعضه
متوهناش الله يخليك

اخي هدا موضوع منفصل تمام
و الهدف منه تعلم البرمجة بواسطة Forex EA Generator 4و في نفس الوقت عمل احصائيات لافكار بسيطة و تطويرها

شكرا