Fractured Fractals

/*-----------------------------+
|			       |
| Shared by www.Aptrafx.com    |
|			       |
+------------------------------*/

//+------------------------------------------------------------------+
//|                                           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;      TradeSymbol=Symbol();
string            comment;          comment="m Fractured Fractal";
double            spread;           spread=Ask-Bid;
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() {
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