/*-----------------------------+ | | | Shared by www.Aptrafx.com | | | +------------------------------*/ //+------------------------------------------------------------------+ //| 1MA Expert DAILY CHART ONLY!!!!! | //| Do NOT trade USDJPY with this!!! | //+------------------------------------------------------------------+ #property copyright "Ron Thompson" #property link "http://www.lightpatch.com/forex" // User Input extern double Lots = 0.1; extern double stoploss=7; extern double takeprofit=20; // // make sure to leave this unset // It triggers the 1st buy. // // Also, define here so it has global scope // at least, within this expert // int prevTime; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //|------------------------------------------------------------------| int init() { return(0); } //+------------------------------------------------------------------+ //| Custor indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { double MovingAvg = 10; double cMA=0, pMA=0; double p=Point(); bool found=false; bool rising=false; bool falling=false; bool bought=false; bool sold=false; int cnt=0; int err=0; int rty=0; // Error checking if(Bars<100) {Print("Bars less than 100"); return(0);} if(AccountFreeMargin()<(1000*Lots)) {Print("We have no money"); return(0);} // PRICE_OPEN is the only stable price point for Bar0 cMA=iMA(Symbol(), 0, MovingAvg, 0, MODE_LWMA, PRICE_OPEN, 0); pMA=iMA(Symbol(), 0, MovingAvg, 0, MODE_LWMA, PRICE_OPEN, 1); if (pMA<cMA) {rising=true; falling=false;} if (pMA>cMA) {rising=false; falling=true;} // Does the Symbol() have an open order for(cnt=0;cnt<OrdersTotal();cnt++) { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol()==Symbol()) { // yes, set found, get the existing bought/sold state // and then break, so there's only 1 order per symbol found=true; if (OrderType()==0) {bought=true; sold=false;} if (OrderType()==1) {bought=false; sold=true;} break; } else { found=false; } } //Print("1.1 xma=",xMA," pMA=",pMA," cMA=",cMA," R=",rising,"B=",bought," F=",falling,"S=",sold," $=",Close[0]," Time=",Time[0]); // If there is no order, then // place one based on MA direction if (!found && rising) { OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-(p*stoploss),Ask+(p*takeprofit),"1MA Buy",11123,0,White); if(GetLastError()==0) { Print(Symbol()," OPEN Buy success:",Ask); } else { Print(Symbol()," OPEN Buy Error ", err, " Time=",Time[0]); } return(0); } if (!found && falling) { OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid+(p*stoploss),Bid-(p*takeprofit),"1MA Sell",11321,0,Red); if(GetLastError()==0) { Print(Symbol()," OPEN Sell success:",Bid); } else { Print(Symbol()," OPEN Sell Error ", err, " Time=",Time[0]); } return(0); } // if the direction changed, then close the order if (rising && sold) //existing sell { // Try 10 times to close, reporting each time for (rty=1; rty<=10; rty++) { OrderClose(OrderTicket(),Lots,Ask,0,Red); if(GetLastError()==0) { Print(Symbol()," CLOSE SELL success:",Ask); break; } else { Print(Symbol()," CLOSE Sell Error=", err, " LOOP=",rty, " Time=",Time[0]); Sleep(10000); } } } if (falling && bought) // existing buy { // Try 10 times to close, reporting each time for (rty=1; rty<=10; rty++) { OrderClose(OrderTicket(),Lots,Bid,0,White); if(GetLastError()==0) { Print(Symbol()," CLOSE BUY success:",Bid); break; } else { Print(Symbol()," CLOSE Buy Error=", err, " LOOP=",rty, " Time=",Time[0]); Sleep(10000); } } } return(0); }
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Moving average indicator
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached
It Closes Orders by itself
Other Features: