Gandalf Pro EA

Discussion in 'Forex Trading' started by ElectricSavant, Dec 1, 2010.

  1. I found this EA here: http://codebase.mql4.com/5587

    EUR/USD H4

    Minimum Balance: open

    5-Digit Price Format: unconfirmed

    IBFX Mini account compatible unconfirmed

    ECN Compatible unconfirmed

    Trade with Stops and TP's: yes

    Magic number : internal

    Time Filter: none

    MM Available: yes



    //+------------------------------------------------------------------+
    //| Gandalf_PRO.mq4 |
    //| budimir |
    //| tartar27@bigmir.net |
    //+------------------------------------------------------------------+
    #property copyright "budimir"
    #property link "tartar27@bigmir.net"

    //---- input parameters
    //ooooooooooooooooooooooooooooooooooooooooooooooooo
    extern bool In_BUY=true;
    extern int Count_buy=24;
    extern double w_price=0.18;
    extern double w_trend=0.18;
    extern int SL_buy=62;
    extern int Risk_buy=0;
    //ooooooooooooooooooooooooooooooooooooooooooooooooo
    extern bool In_SELL=true;
    extern int Count_sell=24;
    extern double m_price=0.18;
    extern double m_trend=0.18;
    extern int SL_sell=62;
    extern int Risk_sell=0;
    //ooooooooooooooooooooooooooooooooooooooooooooooooo
    //extern int Risk=0;
    //ooooooooooooooooooooooooooooooooooooooooooooooooo
    //---- other parameters
    static int prevtime=0;
    int ticket=0;
    int Magic_BUY =123;
    int Magic_SELL =321;
    int x=1;

    //+------------------------------------------------------------------+
    //| expert initialization function |
    //+------------------------------------------------------------------+
    int init()
    {
    //----
    if(Digits == 5) x=10;
    //----
    return(0);
    }
    //+------------------------------------------------------------------+
    //| expert deinitialization function |
    //+------------------------------------------------------------------+
    int deinit()
    {
    //----

    //----
    return(0);
    }
    //+------------------------------------------------------------------+
    //| expert start function |
    //+------------------------------------------------------------------+
    int start()
    {
    //oooooooooooooooooooooooooooooooooooooooooooooooooooo
    if (Time[0] == prevtime) return(0);
    prevtime = Time[0];
    if (!IsTradeAllowed()) {
    prevtime=Time[1]; MathSrand(TimeCurrent());Sleep(30000 + MathRand());
    }
    //oooooooooooooooooooooooooooooooooooooooooooooooooooo
    if( In_BUY)Trade_BUY ( Magic_BUY, Count_buy,w_price,w_trend, SL_buy);
    if(In_SELL)Trade_SELL(Magic_SELL,Count_sell,m_price,m_trend,SL_sell);
    //oooooooooooooooooooooooooooooooooooooooooooooooooooo
    return(0);
    }
    //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    void Trade_BUY(int mn,int num,double factor1,double factor2,int sl) {

    int total=OrdersTotal();

    for (int i = 0; i < total; i++) { OrderSelect(i, SELECT_BY_POS, MODE_TRADES);

    if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn) { return(0);
    }
    }
    //ooooooooooooooooooooooooooooooooooooooooooooooooooo
    ticket = -1;

    double target=Out(num,factor1,factor2);

    if (target>(Bid+15*x*Point) && IsTradeAllowed()) {

    ticket= OrderSend(Symbol(), OP_BUY,lot(Risk_buy),Ask,5,Bid-x*sl*Point,target,DoubleToStr(mn,0),mn,0,Blue);


    RefreshRates();

    if ( ticket < 0) { Sleep(30000); prevtime = Time[1]; }

    } //-- Exit ---

    return(0); }


    //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    void Trade_SELL(int mn,int num,double factor1,double factor2,int sl) {

    int total=OrdersTotal();

    for (int i = 0; i < total; i++) { OrderSelect(i, SELECT_BY_POS, MODE_TRADES);

    if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn) { return(0);
    }
    }
    //ooooooooooooooooooooooooooooooooooooooooooooooooooo
    ticket = -1;

    double target=Out(num,factor1,factor2);

    if (target<(Ask-15*x*Point) && IsTradeAllowed()) {

    ticket= OrderSend(Symbol(),OP_SELL,lot(Risk_sell),Bid,5,Ask+x*sl*Point,target,DoubleToStr(mn,0),mn,0, Red);


    RefreshRates();

    if ( ticket < 0) { Sleep(30000); prevtime = Time[1]; }

    } //-- Exit ---

    return(0); }


    //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    double Out(int n,double l1,double l2) { double t[120],
    s[120],
    lm=iMA(NULL,0,n,0,MODE_LWMA,PRICE_CLOSE,1),
    sm=iMA(NULL,0,n,0, MODE_SMA,PRICE_CLOSE,1);
    //ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
    t[n]=(6*lm-6*sm)/(n-1);s[n]=4*sm-3*lm-t[n];
    for (int k = n-1; k>0; k--) {
    s[k]=l1*Close[k]+(1-l1)*(s[k+1]+t[k+1]);
    t[k]=l2*(s[k]-s[k+1])+(1-l2)*t[k+1];
    }//--end--for-
    return (NormalizeDouble(s[1]+t[1],MarketInfo(Symbol(),MODE_DIGITS)));}

    //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    double lot(int R) { double minlot = MarketInfo(Symbol(), MODE_MINLOT);
    int o = MathAbs(MathLog(minlot) *0.4343) + 0.5;
    double lot = minlot;
    //ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
    lot = NormalizeDouble(AccountFreeMargin() * 0.00001*R, o);//---
    if (AccountFreeMargin() < lot * MarketInfo(Symbol(), MODE_MARGINREQUIRED)) {
    lot = NormalizeDouble(AccountFreeMargin() / MarketInfo(Symbol(), MODE_MARGINREQUIRED), o);
    }
    //ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
    if(lot < minlot) lot = minlot;
    double maxlot =MarketInfo(Symbol(), MODE_MAXLOT);
    if(lot > maxlot) lot = maxlot;
    return(lot); }
    //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx_end_film_xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

    Discussion Here:
    http://www.elitetrader.com/vb/showthread.php?threadid=211420