Here code for Double Parabolic SAR EA. just copy and paste to your metaeditor and save. then run your metarader. but I never guarantee any results

//external variables

extern int Slippage =1;
extern string Ordercomment ="ap.cobra thv 1.0";
extern int MagicNumber =1776;
extern bool Use.Money.Mgt =true; // if false, uses Minimum.Lot
extern double Minimum.Lot =0.01; // Smallest lot size to trade, Use.MM true or false
extern double MaximumRisk =0.0025; // %account balance to risk per position

//internal variables
double tv, Lp2c, Sp2c;
int Bticket,Sticket,ordertype,slippage;
double spread,bprice,sprice,ssl,bsl,btp,stp,MaxDrawDown,MaxMargin,lot,Margin,Balance, slpoint;
datetime shorttime,longtime,expire;
color Color;bool result; string swap;
/*Avg.Price*/double buys, sells, bap, sap, blots, slots, Lswap, Sswap, LProfit, SProfit;
/*MAE*/double lmae,smae; int ot,ct;

string comment;
int init() {Avg.Price(); AccountExtremes(); MAE(); comments();return(0);}
int deinit(){return(0);}
int start() {
spread=Ask-Bid; Avg.Price(); AccountExtremes(); MAE(); comments();

//delete excess expert created objects
if(/*DayOfWeek()==1 && */Hour()==0 && Minute()<=1) {
for(int i=ObjectsTotal();i>=100;i--) {
if(StringSubstr(ObjectName(i),0,1)=="#") {
ObjectDelete(ObjectName(i)); } } }

double hull=iCustom(Symbol(),0,"hull THV",55,0.2,0,0);
double T3=iCustom(Symbol(),0,"T3 THV",8,0.04,0,0);
double hao=iCustom(Symbol(),0,"Heiken Ashi THV",CLR_NONE,CLR_NONE,MediumVioletRed,Green,0,0);
double hac=iCustom(Symbol(),0,"Heiken Ashi THV",CLR_NONE,CLR_NONE,MediumVioletRed,Green,1,0);
double haop=iCustom(Symbol(),0,"Heiken Ashi THV",CLR_NONE,CLR_NONE,MediumVioletRed,Green,0,1);
double hacp=iCustom(Symbol(),0,"Heiken Ashi THV",CLR_NONE,CLR_NONE,MediumVioletRed,Green,1,1);
double ia=iCustom(Symbol(),0,"Ichimoku THV",2,5,8,2,0);
double ib=iCustom(Symbol(),0,"Ichimoku THV",2,5,8,3,0);
double osma1=iCustom(Symbol(),0,"OsMA",12,26,7,0,0);
double osma2=iCustom(Symbol(),0,"OsMA",12,26,7,0,1);

//exit open positions?
for(int o=0; o
OrderSelect(o,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber) {
if(OrderType()==1
OrderType()==3
OrderType()==5) { Sticket=OrderTicket(); }
if(OrderType()==0
OrderType()==2
OrderType()==4) { Bticket=OrderTicket(); }
if(OrderType()==1) {
if((haoosma2)

(Bid>T3)
(Bid>ia && Bid>ib) &&
shorttime
OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Black);
shorttime=Time[1]; } }
if(OrderType()==0) {
if((hao>hac && osma1

(Ask
(Ask
longtime
OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Black);
longtime=Time[1]; } } } }

//ORDER ENTRY SETUP 0-buy,2-buylimit,4-buystop
sprice=0;bprice=0;ssl=0;bsl=0;
if(OrderSelect(Sticket,SELECT_BY_TICKET)==false
(OrderSelect(Sticket,SELECT_BY_TICKET)==true && OrderCloseTime()>0)) {
if(Bid
ordertype=1; sprice=Bid; ssl=Ask+(50*Point);
stp=0; slippage=Slippage; expire=0;
Color=LightSalmon; Sell(); return(0); } }
if(OrderSelect(Bticket,SELECT_BY_TICKET)==false
(OrderSelect(Bticket,SELECT_BY_TICKET)==true && OrderCloseTime()>0)) {
if(Ask>T3/*hull && T3>hull && hac>hao && Ask>ia && Ask>ib*/ && longtime
ordertype=0; bprice=Ask; bsl=Bid-(50*Point);
btp=0; slippage=Slippage; expire=0;
Color=Green; Buy(); return(0); } }

return(0);}
//+------------------------------------------------------------------+
void AccountExtremes() {
//double MaxMargin, MaxDrawDown;
if(AccountMargin()>MaxMargin) MaxMargin=AccountMargin();
if(AccountProfit()
void Avg.Price() {//copy and paste variables to before init.
/*Avg.Price*///double buys, sells, bap, sap, blots, slots, Lswap, Sswap, LProfit, SProfit;
buys=0;blots=0;sells=0;slots=0;Lswap=0;Sswap=0;LProfit=0;SProfit=0;
for(int c=0; c
OrderSelect(c,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol()) {
if(OrderType()==OP_BUY) {
buys+=(OrderOpenPrice()*OrderLots()); blots+=OrderLots();
Lswap+=OrderSwap(); LProfit+=OrderProfit(); }
if(OrderType()==OP_SELL) {
sells+=(OrderOpenPrice()*OrderLots()); slots+=OrderLots();
Sswap+=OrderSwap(); SProfit+=OrderProfit(); } } }

Pips2Cover();
if(buys>0) { bap=buys/blots; bap=NormalizeDouble(bap+Lp2c,Digits); }
if(buys<=0) { bap=0; buys=0; blots=0; Lp2c=0; }
if(sells>0) { sap=sells/slots; sap=NormalizeDouble(sap+Sp2c,Digits); }
if(sells<=0) { sap=0; sells=0; slots=0; Sp2c=0;}
if(ObjectFind("Average Buys")>-1) ObjectMove("Average Buys",0,Time[0],bap);
if(ObjectFind("Average Sells")>-1) ObjectMove("Average Sells",0,Time[0],sap);
if(bap==0) { ObjectDelete("Average Buys"); }
if(sap==0) { ObjectDelete("Average Sells");}
if(bap>0) {
ObjectCreate("Average Buys",1,0,Time[10],bap);
ObjectSetText("Average Buys","Average Buys");
ObjectSet("Average Buys",6,LimeGreen);
ObjectSet("Average Buys",7,STYLE_SOLID);
ObjectSet("Average Buys",8,1);
ObjectSet("Average Buys",9,true); }
if(sap>0) {
ObjectCreate("Average Sells",1,0,Time[10],sap);
ObjectSetText("Average Sells","Average Sells");
ObjectSet("Average Sells",6,LightSalmon);
ObjectSet("Average Sells",7,STYLE_SOLID);
ObjectSet("Average Sells",8,1);
ObjectSet("Average Sells",9,true); } } //end Average.Price

double Pips2Cover() {
//double tv, Lp2c, Sp2c;
tv=MarketInfo(Symbol(),16);
if(Lswap!=0) {
if(Lswap>0) {
Lp2c=-MathFloor(Lswap/(tv*blots))*Point; }
if(Lswap<0) {
Lp2c=MathFloor(Lswap/(tv*blots))*Point; } }
if(Sswap!=0) {
if(Sswap>0) {
Sp2c=-MathFloor(Sswap/(tv*slots))*Point; }
if(Sswap<0) {
Sp2c=MathFloor(Sswap/(tv*slots))*Point; } } }//end Pips2Cover()

void Buy() {//string Ordercomment; int MagicNumber, ticket; color Color;
/* if(lmae>0) {
bsl=NormalizeDouble( MathMax(bsl,bprice-(lmae*1.236)),Digits); }*/
Bticket=OrderSend(Symbol(),ordertype,LotsOptimized(),bprice,//Ask
slippage,
bsl,//no stoploss defined
btp,//no tp defined
Ordercomment,//comment
MagicNumber,
expire,//time expire,
Color);
if(Bticket>0) {
if(OrderSelect(Bticket,SELECT_BY_TICKET,MODE_TRADES)) {
longtime=Time[0]; Print(Bticket); }
else Print("Error Opening BuyStop Order: ",GetLastError());
return(0); } }//end Buy();

void Sell() {//string Ordercomment; int MagicNumber, ticket; color Color;
/* if(smae>0) {
ssl=NormalizeDouble( MathMin(ssl,sprice+(smae*1.236)),Digits); }*/
Sticket=OrderSend(Symbol(),ordertype,LotsOptimized(),sprice,//Bid
slippage,
ssl,//no stoploss set when stop order is executed
stp,//no tp defined

Ordercomment,
MagicNumber,
expire,//time expire,
Color);
if(Sticket>0) {
if(OrderSelect(Sticket,SELECT_BY_TICKET,MODE_TRADES)) {
shorttime=Time[0]; Print(Sticket); }
else Print("Error Opening SellStop Order: ",GetLastError());
return(0); } }//End Sell();

double LotsOptimized() {
double openprice, stoploss, risk;
Margin=MathMin( MathMin(AccountBalance(),AccountEquity() ) , AccountFreeMargin() );
if( (ordertype==0
ordertype==2
ordertype==4) && bprice-bsl>0) {
risk=(Margin*MaximumRisk)/((bprice-bsl)/Point); }
if( (ordertype==1
ordertype==3
ordertype==5) && ssl-sprice>0) {
risk=(Margin*MaximumRisk)/((ssl-sprice)/Point); }
lot=NormalizeDouble(risk,2);
if(lot
if(Use.Money.Mgt==false) {lot=Minimum.Lot;}
return(lot); }//end LotsOptimized

void comments() {
string day;
if(DayOfWeek()==0) day="Sunday ";
if(DayOfWeek()==1) day="Monday ";
if(DayOfWeek()==2) day="Tuesday ";
if(DayOfWeek()==3) day="Wednesday ";
if(DayOfWeek()==4) day="Thursday ";
if(DayOfWeek()==5) day="Friday ";

comment=StringConcatenate("Last Tick: ",day,TimeToStr(TimeCurrent(),TIME_DATE
TIME_SECONDS));
comment=comment+StringConcatenate("\nSwap Long ",MarketInfo(Symbol(),MODE_SWAPLONG));
comment=comment+StringConcatenate("\nSwap Short ",MarketInfo(Symbol(),MODE_SWAPSHORT));
comment=comment+StringConcatenate("\nAverage Longs: ",bap," B.Lots: ",blots);
comment=comment+StringConcatenate("\nAverage Shorts: ",sap," S.Lots: ",slots);
comment=comment+StringConcatenate("\nMargin*Risk: ",-Margin*MaximumRisk);
comment=comment+StringConcatenate("\nAccountProfit() ",AccountProfit());
comment=comment+StringConcatenate("\nMaxDrawDown ",MaxDrawDown);
comment=comment+StringConcatenate("\nAccountBalance() ",AccountBalance());
comment=comment+StringConcatenate("\nAccountEquity() ",AccountEquity());
comment=comment+StringConcatenate("\nAccountMargin() ",AccountMargin());
comment=comment+StringConcatenate("\nMaxMargin ",MaxMargin);
comment=comment+StringConcatenate("\nMax Adverse Excursion Longs: ",lmae," pips");
comment=comment+StringConcatenate("\nMax Adverse Excursion Shorts: ",smae," pips");
comment=comment+StringConcatenate("\nLProfit: $",LProfit," SProfit: $",SProfit);
comment=comment+StringConcatenate("\nSwap Longs $",Lswap," Swap Shorts $",Sswap);
Comment(comment);}//end comments()

void MAE() {
//lmae=0; smae=0;
for(int i=0; i
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(Symbol()==OrderSymbol() && (OrderType()==0) && OrderProfit()>0) {
ot=iBarShift(Symbol(),0,OrderOpenTime());
ct=iBarShift(Symbol(),0,OrderCloseTime());
if(ot!=ct && iLow(Symbol(),0,iLowest(Symbol(),0,1,ot-ct,ct))< OrderOpenPrice() &&
(OrderOpenPrice()-iLow(OrderSymbol(),0,iLowest(Symbol(),0,1,ot-ct,ct))) / Point > lmae) {
lmae=NormalizeDouble((OrderOpenPrice()-iLow(Symbol(),0,iLowest(Symbol(),0,1,ot-ct,ct)))/Point,0); } }
if(Symbol()==OrderSymbol() && (OrderType()==1) && OrderProfit()>0) {
ot=iBarShift(Symbol(),0,OrderOpenTime());
ct=iBarShift(Symbol(),0,OrderCloseTime());
if(ot!=ct && iHigh(Symbol(),0,iHighest(Symbol(),0,2,ot-ct,ct))> OrderOpenPrice() &&
(iHigh(Symbol(),0,iHighest(Symbol(),0,2,ot-ct,ct))-OrderOpenPrice()) / Point > smae) {
smae=NormalizeDouble((iHigh(Symbol(),0,iHighest(Symbol(),0,2,ot-ct,ct))-OrderOpenPrice())/Point,0); } } } }

Here code for Double Parabolic SAR EA. just copy and paste to your metaeditor and save. then run your metarader. but I never guarantee any results.


extern string PS1="---------------- Parabolic SAR1";
extern double Step1=0.02;
extern double Maximum1=0.2;
extern double TimeFrame1=0;
extern string PS2="---------------- Parabolic SAR2";
extern double Step2=0.08;
extern double Maximum2=0.2;
extern double TimeFrame2=0;
extern string LM="---------------- Lot Management";
extern double Lots=0.1;
extern bool MM=false; //money management
extern double Risk=10; //risk in percentage
extern bool Martingale=false; //martingale
extern double Multiplier=1.5; //multiplier
extern double MinProfit=0; //minimum profit to apply the martingale
extern string TSTB="---------------- TP SL TS BE";
bool EnableRealSL=false;
int RealSL=5; //stop loss under 15 pîps
bool EnableRealTP=false;
int RealTP=10; //take profit under 10 pîps
extern int SL=0; //stop loss
extern int TP=0; //take profit
extern int TS=0; //trailing stop
int TSStep=1; //trailing step
extern int BE=0; //breakeven
extern string EXT="---------------- Extras";
extern bool Reverse=false;
extern bool AddPositions=false; //positions cumulated
extern int MaxOrders=100; //maximum number of orders
extern bool MAFilter=false; //moving average filter
extern int MAPeriod=20;
extern int MAMethod=1;
extern int MAPrice=0;
extern bool TimeFilter=false; //time filter
extern int StartHour=8;
extern int EndHour=21;
extern int Magic=0;

int Slip=3;static int TL=0;double Balance=0.0;int err=0;int TK;


// expert start function
int start(){int j=0,limit=1;double BV=0,SV=0;BV=0;SV=0;
if(CntO(OP_BUY,Magic)>0)TL=1;if(CntO(OP_SELL,Magic)>0)TL=-1;for(int i=1;i<=limit;i++){


string TIFI="false";
if(TimeFilter){if(!(Hour()>=StartHour && Hour()<=EndHour)){TIFI="true";}}
double MAF=iMA(Symbol(),0,MAPeriod,0,MAMethod,MAPrice,i);
string MAFIB="false";string MAFIS="false";
if(MAFilter){if(Bid>MAF)MAFIB="true";if(Ask


double PSA1=iSAR(NULL,TimeFrame1,Step1,Maximum1,i+1);
double PSA2=iSAR(NULL,TimeFrame1,Step1,Maximum1,i);
double PSA3=iSAR(NULL,TimeFrame2,Step2,Maximum2,i+1);
double PSA4=iSAR(NULL,TimeFrame2,Step2,Maximum2,i);


string SBUY="false";string SSEL="false";
if(PSA1>Open[i+1]&&PSA2
if(PSA1Open[i])SSEL="true";
if(((MAFilter==false)


(MAFilter&&MAFIB=="true"))&&SBUY=="true"&&TIFI=="false"){if(Reverse)SV=1;else BV=1;break;}
if(((MAFilter==false)
(MAFilter&&MAFIS=="true"))&&SSEL=="true"&&TIFI=="false"){if(Reverse)BV=1;else SV=1;break;}}


// expert money management
if(MM){if(Risk<0.1
Risk>100){Comment("Invalid Risk Value.");return(0);}
else{Lots=MathFloor((AccountFreeMargin()*AccountLeverage()*Risk*Point*100)/(Ask*MarketInfo(Symbol(),MODE_LOTSIZE)*MarketInfo(Symbol(),MODE_MINLOT)))*MarketInfo(Symbol(),MODE_MINLOT);}}


if(MM==false){Lots=Lots;}
if(Balance!=0.0&&Martingale==True){if(Balance>AccountBalance())Lots=Multiplier*Lots;else if((Balance+MinProfit)=AccountBalance()&&Balance<=AccountBalance())Lots=Lots;}Balance=AccountBalance();


// expert init positions
int cnt=0,OP=0,OS=0,OB=0,CS=0,CB=0;OP=0;for(cnt=0;cnt
if((OrderType()==OP_SELL
OrderType()==OP_BUY)&&OrderSymbol()==Symbol()&&((OrderMagicNumber()==Magic)
Magic==0))OP=OP+1;}
if(OP>=1){OS=0; OB=0;}OB=0;OS=0;CB=0;CS=0;


// expert conditions to open position
if(SV>0){OS=1;OB=0;}if(BV>0){OB=1;OS=0;}


// expert conditions to close position
if((SV>0)
(PSA3Open[i]&&!(PSA1>Open[i+1]&&PSA2
(TIFI=="true")
(EnableRealSL&&(OrderOpenPrice()-Bid)/Point>=RealSL)
(EnableRealTP&&(Ask-OrderOpenPrice())/Point>=RealTP)){CB=1;}
if((BV>0)
(PSA3>Open[i+1]&&PSA4Open[i]))
(TIFI=="true")
(EnableRealSL&&(Ask-OrderOpenPrice())/Point>=RealSL)
(EnableRealTP&&(OrderOpenPrice()-Bid)/Point>=RealTP)){CS=1;}
for(cnt=0;cnt


if(OrderType()==OP_BUY&&OrderSymbol()==Symbol()&&((OrderMagicNumber()==Magic)
Magic==0)){if(CB==1){OrderClose(OrderTicket(),OrderLots(),Bid,Slip,Red);return(0);}}
if(OrderType()==OP_SELL&&OrderSymbol()==Symbol()&&((OrderMagicNumber()==Magic)
Magic==0)){if(CS==1){OrderClose(OrderTicket(),OrderLots(),Ask,Slip,Red);return(0);}}}double SLI=0,TPI=0;int TK=0;


// expert open position value
if((AddP()&&AddPositions&&OP<=MaxOrders)
(OP==0&&!AddPositions)){
if(OS==0&&OB==0){Comment("no order opened");}
if(OS==1){if(TP==0)TPI=0;else TPI=Bid-TP*Point;if(SL==0)SLI=0;else SLI=Bid+SL*Point;TK=OrderSend(Symbol(),OP_SELL,Lots,Bid,Slip,SLI,TPI,OrSt,Magic,0,Red);OS=0;Comment("sell order opened","\n","magic number : ",Magic);return(0);}
if(OB==1){if(TP==0)TPI=0;else TPI=Ask+TP*Point;if(SL==0)SLI=0;else SLI=Ask-SL*Point;TK=OrderSend(Symbol(),OP_BUY,Lots,Ask,Slip,SLI,TPI,OrSt,Magic,0,Lime);OB=0;Comment("buy order opened","\n","magic number : ",Magic);return(0);}}
for(j=0;j
Magic==0)){TrP();}}}return(0);}


// expert number of orders
int CntO(int Type,int Magic){int _CntO;_CntO=0;
for(int j=0;j
Magic==0))_CntO++;}}return(_CntO);}


//expert breakeven
void TrP(){double pb,pa,pp;pp=MarketInfo(OrderSymbol(),MODE_POINT);if(OrderType()==OP_BUY){pb=MarketInfo(OrderSymbol(),MODE_BID);
if(BE>0){if((pb-OrderOpenPrice())>BE*pp){if((OrderStopLoss()-OrderOpenPrice())<0){ModSL(OrderOpenPrice()+0*pp);}}}


// expert trailing stop
if(TS>0){if((pb-OrderOpenPrice())>TS*pp){if(OrderStopLoss()
if(OrderType()==OP_SELL){pa=MarketInfo(OrderSymbol(),MODE_ASK);if(BE>0){if((OrderOpenPrice()-pa)>BE*pp){if((OrderOpenPrice()-OrderStopLoss())<0){ModSL(OrderOpenPrice()-0*pp);}}}
if(TS>0){if(OrderOpenPrice()-pa>TS*pp){if(OrderStopLoss()>pa+(TS+TSStep-1)*pp
OrderStopLoss()==0){ModSL(pa+TS*pp);return;}}}}}


//expert stoploss
void ModSL(double ldSL){bool fm;fm=OrderModify(OrderTicket(),OrderOpenPrice(),ldSL,OrderTakeProfit(),0,CLR_NONE);}


//expert add positions function
bool AddP(){int _num=0; int _ot=0;
for (int j=0;j
Magic==0)){
_num++;if(OrderOpenTime()>_ot) _ot=OrderOpenTime();}}if(_num==0) return(true);if(_num>0 && ((Time[0]-_ot))>0) return(true);else return(false);
if(TK<0){if (GetLastError()==134){err=1;Print("NOT ENOGUGHT MONEY!!");}return (-1);}}

Expert Advisor Builder(EAB) allows you to create your Expert Advisor(EA) easily.

EA is a kind of the script for MetaTrader 4(MT4). You may use it for the testing of your strategy.

I really recommend you to use the EA for only the purpose of testing. Because I know EA is only a program,

I never guarantee any results.

Template section(for expert users)
This section is the one to use your own script as the template of EA which will be finally exported by EAB.

For more detail click here.