//+------------------------------------------------------------------+
//| fibonacci23.mq4 |
//| Copyright 2022, MetaQuotes Software Corp. |
//| https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2022, MetaQuotes Software Corp."
#property link "https://www.mql5.com"
#property version "1.00"
#property strict
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
extern int MagicNumber=10001;
extern double Lots =0.01;
extern double StopLoss=100;
extern double TakeProfit=50;
extern int TrailingStop=50;
extern int Slippage=3;
extern int candle=20;
//+------------------------------------------------------------------+
// expert start function
//+------------------------------------------------------------------+
int start()
{
double MyPoint=Point;
if(Digits==3 || Digits==5) MyPoint=Point*10;
double high3 = DoubleToStr(High[iHighest(NULL, 0, MODE_HIGH, candle, 1)],Digits);
double low3 = DoubleToStr(Low[iLowest(NULL, 0, MODE_LOW, candle, 1)],Digits);
double fib23 = DoubleToStr(high3-(high3-low3)*77/100);
double fib77 = DoubleToStr(low3+(high3-low3)*77/100);
double speared =DoubleToStr(Ask-Bid,Digits);
double sclose = DoubleToStr(High[1]+speared,Digits);
double buyon = 0;
if(fib23 < Ask && Ask > High[1] && Low[1] > Low[2] && fib77 > Ask){buyon = 1;}
double sellon = 0;
if(fib77 > Bid && Bid < Low[1] && High[1] < High[2] && fib23 < Bid){sellon = 1;}
if( TotalOrdersCount() == 0 )
{
int result=0;
if((buyon == 1 && OrdersTotal() == 0)) // Here is your open buy rule
{
result=OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,Bid-StopLoss*MyPoint,Bid+TakeProfit*MyPoint,"Fibonacci EA",MagicNumber,0,Blue);
if(result>0)
{
OrderSelect(result,SELECT_BY_TICKET);
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-StopLoss*MyPoint,Digits),NormalizeDouble(Bid+TakeProfit*MyPoint,Digits),0,Green);
}
return(0);
}
if((sellon == 1 && OrdersTotal() == 0 )) // Here is your open Sell rule
{
result=OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage,Ask-StopLoss*MyPoint,Ask+TakeProfit*MyPoint,"Fibonacci EA",MagicNumber,0,Red);
if(result>0)
{
OrderSelect(result,SELECT_BY_TICKET);
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask-StopLoss*MyPoint,Digits),NormalizeDouble(Ask+TakeProfit*MyPoint,Digits),0,Green);
}
return(0);
}
}
Comment(" speared " , speared , "candle high " , high3 , " candle low " , low3, " buy signal ", buyon ," sell signal " ,sellon , "fibo 77 ",fib77, " fibo 23 ", fib23);
for(int cnt=0;cnt<OrdersTotal();cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL &&
OrderSymbol()==Symbol() &&
OrderMagicNumber()==MagicNumber
)
{
if(OrderType()==OP_BUY)
{
if(OrderOpenPrice()+speared < Bid && fib77 > Bid && Low[1] > Bid) //here is your close buy rule
{
OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),Slippage,Red);
}
if(TrailingStop>0)
{
if(Bid-OrderOpenPrice()>MyPoint*TrailingStop)
{
if(OrderStopLoss()<Bid-MyPoint*TrailingStop)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-TrailingStop*MyPoint,OrderTakeProfit(),0,Green);
return(0);
}
}
}
}
else
{
if(OrderOpenPrice()-speared > Ask && fib23 < Ask && High[1] < Ask) // here is your close sell rule
{
OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),Slippage,Red);
}
if(TrailingStop>0)
{
if((OrderOpenPrice()-Ask)>(MyPoint*TrailingStop))
{
if((OrderStopLoss()>(Ask+MyPoint*TrailingStop)) || (OrderStopLoss()==0))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+MyPoint*TrailingStop,OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
}
return(0);
}
int TotalOrdersCount()
{
int result=0;
for(int i=0;i<OrdersTotal();i++)
{
OrderSelect(i,SELECT_BY_POS ,MODE_TRADES);
if (OrderMagicNumber()==MagicNumber) result++;
}
return (result);
}
No comments:
Post a Comment