Chinese

//+----------------------------------------------------------------------------+
//|                                                        China.mq4           |
//|                                          Copyright ?2008, ÀîÌï¾ü           |
//|  WEB:http://www.fx568.cn Call:13853162281 QQ:43372674 MAIL: infome@163.com |
//+----------------------------------------------------------------------------+
#property copyright "Copyright ?2008, ÀîÌï¾ü"
#property link      "http://www.fx568.cn"

extern double     MaximumRisk     =0.5;
extern double     DecreaseFactor  =2;
extern int        TrendSMA        =21;
extern bool       AddStopLoss     =false;
string            comment; 
static double     FPSMMA, myLips, myTheeth, myJaw,Lots;
int               mytext=0;
int init()    {   return(0);  }
int deinit()  {   return(0);  }
int start()
  {  int    ticket,AlSignal,TrSignal,FrSignal,AcSignal,AoSignal,ClSignal;
     comment ="ÀîÌï¾ü13853162281";
     Lots    =LotsOptimized();
     AlSignal=FUNAlSignal();
     TrSignal=FUNTrSignal();
     FrSignal=FUNFrSignal();
     AcSignal=FUNAcSignal();
     AoSignal=FUNAoSignal();
     ClSignal=FUNClSignal();
     FPSMMA  =iMA(Symbol(),0,5,1,MODE_SMMA,PRICE_WEIGHTED,0);
     if(AlSignal==1 && FrSignal==1 && TrSignal==1 && AcSignal==1 && AoSignal==1 && OrdersTotal()<1)
       { ticket=OrderSend(Symbol(), OP_BUY,Lots,Ask,0,0,0,"¸ù¾Ý"+Period()+"·ÖÖÓ×ö¶à"+comment,0,0,Green); return(0);  }
     if(AlSignal==2 && FrSignal==2 && TrSignal==2 && AcSignal==2 && AoSignal==2 && OrdersTotal()<1)
       { ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,0,0,0,"¸ù¾Ý"+Period()+"·ÖÖÓ×ö¿Õ"+comment,0,0,Red  ); return(0);  }
     if(OrdersTotal()>0 && AddStopLoss==true)  ModifyStopLoss();
     for(int num=0;num<OrdersTotal();num++)
       { OrderSelect(num, SELECT_BY_POS, MODE_TRADES);
         if(OrderType()<=OP_SELL && OrderSymbol()==Symbol()) 
          { if(OrderType()==OP_BUY)
              { if(ClSignal==1) { OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); return(0); } }
            else 
              { if(ClSignal==2) { OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); return(0); } }
          }
       }
     return(0);
  }
void ModifyStopLoss()
  {  for(int c=0;c<OrdersTotal();c++)
        {  OrderSelect(c,SELECT_BY_POS,MODE_TRADES);
           if(OrderSymbol()==Symbol())
             {  if( OrderType()==OP_BUY  && (OrderStopLoss()<myJaw || OrderStopLoss()==0))
                  { OrderModify(OrderTicket(),OrderOpenPrice(),myJaw,0,0,Green); }
                if( OrderType()==OP_SELL && (OrderStopLoss()>myJaw || OrderStopLoss()==0))
                  { OrderModify(OrderTicket(),OrderOpenPrice(),myJaw,0,0,Red);   }
             }
        }
  }
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);   
  }
int FUNClSignal()
   {  int myClSignal=0;
      if(FPSMMA<myLips-3*Point)        myClSignal=1;
      if(FPSMMA>myLips+3*Point)        myClSignal=2;
      return(myClSignal);
   }
int FUNAlSignal()
   {  int myAlSignal=0;
      FPSMMA=  iMA(Symbol(),0,5,1,MODE_SMMA,PRICE_WEIGHTED,0);
      myLips=  iAlligator(Symbol(),0,13,8,8,5,5,4,MODE_SMMA,PRICE_MEDIAN,MODE_GATORLIPS,0);
      myTheeth=iAlligator(Symbol(),0,13,8,8,5,5,4,MODE_SMMA,PRICE_MEDIAN,MODE_GATORTEETH,0);
      myJaw=   iAlligator(Symbol(),0,13,8,8,5,5,4,MODE_SMMA,PRICE_MEDIAN,MODE_GATORJAW,0);
      if( FPSMMA>myLips && myLips>myTheeth && myTheeth>myJaw && iClose(0,0,1)>myTheeth )    
        { myAlSignal=1;         }
      if( FPSMMA<myLips && myLips<myTheeth && myTheeth<myJaw && iClose(0,0,1)<myTheeth )    
        { myAlSignal=2;         }
      return(myAlSignal);
   }
int FUNTrSignal()
   {  int    myTrSignal=0;
      double TPSMMA=TrendSMA;
      double TrendSignal=iMA(Symbol(),0,TPSMMA,1,MODE_SMMA,PRICE_WEIGHTED,0);
      if ( iClose(Symbol(),0,1)>iOpen(Symbol(),0,1) &&  iLow(Symbol(),0,1)>TrendSignal ) 
         { myTrSignal=1;          }
      if ( iClose(Symbol(),0,1)<iOpen(Symbol(),0,1) && iHigh(Symbol(),0,1)<TrendSignal ) 
         { myTrSignal=2;          }
      return(myTrSignal);
   }
int FUNFrSignal()
   { double PreFrac_up,HLowest,HLower,                   PreFrac_down,LHighest,LHigher;
     int    i=0,PreFrac_upIndex,HLowestIndex,HLowerIndex,m=0,PreFrac_downIndex,LHighestIndex,LHigherIndex,myFrSignal;
     double FrSMMA=  iMA(Symbol(),0,5,1,MODE_SMMA,PRICE_WEIGHTED,0);
     while(PreFrac_up==0)                               
       {   PreFrac_up=iFractals(Symbol(),0,MODE_UPPER,i);
           PreFrac_upIndex=i;
           i++;
       }
     HLowestIndex=ArrayMinimum(High,PreFrac_upIndex,0);
     HLowest     =High[HLowestIndex]; 
     HLower      =High[HLowestIndex+1];
     HLowerIndex =HLowestIndex+1; 
     while(PreFrac_down==0) 
       {   PreFrac_down=iFractals(Symbol(),0,MODE_LOWER,m);
           PreFrac_downIndex=m;
           m++;
       }
     LHighestIndex=ArrayMaximum(Low,PreFrac_downIndex,0);
     LHighest     =Low[LHighestIndex];
     LHigher      =Low[LHighestIndex+1];
     LHigherIndex =LHighestIndex+1;
     if(PreFrac_up>myTheeth   && iClose(Symbol(),0,m-1)>myJaw && (iHigh(Symbol(),0,1)>HLower || iHigh(Symbol(),0,1)>PreFrac_up)  ) 
       { myFrSignal=1;        }
     if(PreFrac_down<myTheeth && iClose(Symbol(),0,i-1)<myJaw && (iLow(Symbol(),0,1)<LHigher || iLow(Symbol(),0,1)<PreFrac_down) ) 
       { myFrSignal=2;        }
     return(myFrSignal);
   }
int FUNAcSignal()
   { double AC1;
     int    myAcSignal;
     AC1=iAC(Symbol(),0,1);
     if(AC1>0)       {  myAcSignal=1;       }         
     if(AC1<0)       {  myAcSignal=2;       }
     return(myAcSignal);
   }
int FUNAoSignal()
   {  double AO1;
      int    myAoSignal;
      AO1=iAO(Symbol(),0,1);
      if(AO1>0)      {  myAoSignal=1;        }
      if(AO1<0)      {  myAoSignal=2;        }
      return(myAoSignal);
   }