//+------------------------------------------------------------------+
//| Fractured Fractals.mq4 |
//| Copyright © 2005, tageiger aka fxid10t@yahoo.com |
//| MetaTrader_Experts_and_Indicators@yahoogroups.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, tageiger aka fxid10t@yahoo.com"
#property link "MetaTrader_Experts_and_Indicators@yahoogroups.com"
//----
extern double MaximumRisk =0.02;
extern double DecreaseFactor =3;
//----
string TradeSymbol;
string comment;
double spread;
int b.1,s.1,ticket;
double bs,ss,btsl,stsl,fu,fd,cfu,pfu,cfd,pfd;
static double pfu.1,pfu.2,pfu.3,pfd.1,pfd.2,pfd.3;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int init() { return(0); }
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int deinit(){ return(0); }
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
TradeSymbol=Symbol();
comment="m Fractured Fractal";
spread=Ask-Bid;
fu=iFractals(Symbol(),0,MODE_UPPER,3);//Print(fu);
fd=iFractals(Symbol(),0,MODE_LOWER,3);//Print(fd);
//----
if(fu>0) { cfu=fu; pfu.3=pfu.2;pfu.2=pfu.1;pfu.1=pfu; } else pfu=cfu;
if(fd>0) { cfd=fd; pfd.3=pfd.2;pfd.2=pfd.1;pfd.1=pfd; } else pfd=cfd;
if(TotalTradesThisSymbol(TradeSymbol)==0) { b.1=0;s.1=0; }
if(TotalTradesThisSymbol(TradeSymbol)>0)
{
for(int cnt=0;cnt<OrdersTotal();cnt++)
{
OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==TradeSymbol)
{
if(OrderMagicNumber()==101) {b.1=OrderTicket(); }
if(OrderMagicNumber()==102) {s.1=OrderTicket(); }
}
}
}
if(b.1==0 && cfu>0 && pfu.1>0 && cfu>pfu.1)
{
ticket=OrderSend(Symbol(),
OP_BUYSTOP,
LotsOptimized(),
cfu+spread,
0,
cfd-spread,
0,
Period()+comment,
101,
0,
Green);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{ b.1=ticket; Print(ticket); }
else Print("Error Opening BuyStop Order: ",GetLastError());
return(0);
}
}
if(s.1==0 && cfd>0 && pfd.1>0 && cfd<pfd.1)
{
ticket=OrderSend(Symbol(),
OP_SELLSTOP,
LotsOptimized(),
cfd-spread,
0,
cfu+spread,
0,
Period()+comment,
102,
0,
Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{ s.1=ticket; Print(ticket); }
else Print("Error Opening BuyStop Order: ",GetLastError());
return(0);
}
}
for(int c=0;c<OrdersTotal();c++)
{
OrderSelect(c,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderComment()==Period()+comment)
{
if(OrderType()==OP_BUYSTOP && pfu.1<OrderOpenPrice())
{
OrderDelete(OrderTicket());
}
if(OrderType()==OP_SELLSTOP && pfd.1>OrderOpenPrice())
{
OrderDelete(OrderTicket());
}
if(OrderType()==OP_BUY && pfu.1>OrderStopLoss() && pfu.1<cfu)
{
OrderModify(OrderTicket(),
OrderOpenPrice(),
pfu.1-spread,
OrderTakeProfit(),
0,
Aqua);
}
if(OrderType()==OP_SELL && pfd.1+spread<OrderStopLoss() && pfd.1>cfd)
{
OrderModify(OrderTicket(),
OrderOpenPrice()<
pfd.1+spread,
OrderTakeProfit(),
0,
HotPink);
}
OrderSelect(b.1,SELECT_BY_TICKET); if(OrderCloseTime()>0) {b.1=0;}
OrderSelect(s.1,SELECT_BY_TICKET); if(OrderCloseTime()>0) {s.1=0;}
}
}
if(!IsTesting()) PrintComments();
return(0);
}//end start
//Functions
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void PrintComments()
{
Comment("Current Time: ",TimeToStr(CurTime(),TIME_MINUTES),"\n",
"UpFrac[0] ",cfu,"\n","UpFrac[1] ",pfu.1,"\n",
"DownFrac[0] ",cfd,"\n","DownFrac[1] ",pfd.1);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double LotsOptimized()
{
double lot;
int orders=HistoryTotal();
int losses=0;
lot=NormalizeDouble(AccountFreeMargin()*MaximumRisk/1000.0,1);
if(DecreaseFactor>0)
{
for(int i=orders-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Error in history!"); break; }
if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;
if(OrderProfit()>0) break;
if(OrderProfit()<0) losses++;
}
if(losses>1) lot=NormalizeDouble(lot-lot*losses/DecreaseFactor,1);
}
if(lot<0.1) lot=0.1;
return(lot);
}//end LotsOptimized
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int TotalTradesThisSymbol(string TradeSymbol)
{
int i, TradesThisSymbol=0;
for(i=0;i<OrdersTotal();i++)
{
OrderSelect(i,SELECT_BY_POS);
if(OrderSymbol()==TradeSymbol &&
OrderMagicNumber()==101 ||
OrderMagicNumber()==102) { TradesThisSymbol++; }
}
return(TradesThisSymbol);
}//end TotalTradesThisSymbol
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Fractals
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It can change open orders parameters, due to possible stepping strategy
Other Features: