/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
//+-----------------------------------------------------------------------------+
//| TradeStarTrend[EA].mq4 |
//| Copyright © 2006, Yannis |
//| All rights reserved |
//| Special Thanks to : |
//| Todd Geiger for the initial version of star trend ea (atp.1.mq4) |
//| Geir Laastad for his help on gls-startrend (GLS-StarTrend.ex4) |
//| Shimodax, Mr Pip and Perky for std deviation limit code (juice) |
//+-----------------------------------------------------------------------------+
#property copyright "Copyright © 2006, Yannis"
#property link "jsfero@otenet.gr"
//+-----------------------------------------------------------------------------+
//| TradeStarTrend[EA] v1.20 |
//+-----------------------------------------------------------------------------+
//+----------------------User interface-----------------------------------------+
extern string Star_Trend_Options="--------------------------";
extern int Trigger.Period=60; // gls-startrend trigger time frame
extern int Filter.Period.1=240; // gls-startrend first filter time frame.
// If set = to Trigger.Period the ea trades on 1 indicator only
extern int Filter.Period.2=1440; // gls-startrend second filter time frame - can be optional
extern bool Entry.On.Yellow=true; // enter a position if yellow appears on any t/f
extern bool Exit.On.Yellow=false; // exit a position if yellow appears on t/f specified below and all t/f above that
extern int Exit.On.Yellow.Period=60; // t/f for yellow change exit
extern bool Use.Only.First2.Indicators=false; // if true, entries and exits will be based on trigger.period and filter.period.1 only
extern bool Use.Stoch.For.Entry=true; // if true, entries will be filtered by stoch (15/5/5) above or below 50 level
extern string SL_TP_Trail_Options="--------------------------";
extern int StopLoss.Pips=100; // static, initial s/l. Unused if Use.Adr.for.sl.pips = true
extern int TakeProfit.Pips=300; // static, initial take profit
extern int Trail.Pips=10; // trail.pips. Unused if Use.Adr.for.sl.pips=true or if value=0
extern bool Trail.Starts.After.BreakEven=false; // if true trailing will start after a profit of "Move.To.BreakEven.at.pips" is made
extern int Move.To.BreakEven.at.pips=20; // trades in profit will move to entry price + Move.To.BreakEven.Lock.pips
// as soon as trade is at entry price + Move.To.BreakEven.at.pips
extern int Move.To.BreakEven.Lock.pips=1;
extern int Move.Trail.Every.xx.Pips=30; // If > 0 then ALL other s/l are dropped and trail will only move by
// Trail.Pips amount for every "Move.Trail.Every.Pips" in profit
extern bool Use.ADR.for.SL.pips=false; // if true s/l and trail according to average daily range and tsl.divisor
extern double tsl.divisor=0.40;
extern string Lot_Money_Management="--------------------------";
extern bool Use.Money.Management=false;
extern double Minimum.Lot=0.1;
extern double MaximumRisk=0.03;
extern int Lot.Margin=50;
extern int Magic=2006;
extern string Trading_Hours_Options="--------------------------";
extern bool Use.Trading.Hours.Restriction = false; // time filter. if true, expert will open new orders only between
extern int Start.Trading.Hour.Begin=0; // Start.Trading.Hour.Begin and Start.Trading.Hour.End
extern int Start.Trading.Hour.End=24;
extern string Juice_Options="--------------------------";
extern bool Use.Juice=false; // if true, std deviation limit will be used as filter (know as Juice indicator)
extern int Juice.TimeFrame=5; // time frame for juice. Should be in accordance with trigger.period
extern int Juice.Period=7; // Juice Period
extern int Juice.Level=4; // Juice Threshold level used for the filtering
extern string ADX_Option="--------------------------";
extern bool Use.Adx= false; // if true, Avereage Directional Movement Index (ADX) MAIN LINE will be used as filter
extern int Adx.TimeFrame= 5; // time frame on which to evaluate ADX
extern int Adx.Period=14; // ADX Period
extern int Adx.Threshold=20; // ADX Main Line threshold value used for the filtering
//+---------------------- Global Variables Definition --------------------------------------+
int b.ticket, s.ticket,slip, TodaysRange;
string DR, DR1, comment=" TST v1.20",ScreenComment="TradeStarTrend[EA] v1.20";
double avg.rng, rng, sum.rng, x;
int Trig_1_Green, Trig_1_MediumSeaGreen, Trig_1_Red, Trig_1_LightCoral, Trig_1_Yellow;
int Trig_2_Green, Trig_2_MediumSeaGreen, Trig_2_Red, Trig_2_LightCoral, Trig_2_Yellow;
int Per1_1_Green, Per1_1_MediumSeaGreen, Per1_1_Red, Per1_1_LightCoral, Per1_1_Yellow;
int Per1_2_Green, Per1_2_MediumSeaGreen, Per1_2_Red, Per1_2_LightCoral, Per1_2_Yellow;
int Per2_1_Green, Per2_1_MediumSeaGreen, Per2_1_Red, Per2_1_LightCoral, Per2_1_Yellow;
int Per2_2_Green, Per2_2_MediumSeaGreen, Per2_2_Red, Per2_2_LightCoral, Per2_2_Yellow;
bool TradingEnabled, LongTradeEnabled, ShortTradeEnabled, ShortTradeShouldClose, LongTradeShouldClose;
double ADXMain1, PlusDI1, MinusDI1, ADXMain2, PlusDI2, MinusDI2, CurrentJuice, TPPrice, StochValue, StochValue0;
int init()
{ //HideTestIndicators(true);
slip=(Ask-Bid)/Point;
return(0);
}
int deinit()
{ return(0);
}
int start()
{ if (TakeProfit.Pips==0) TakeProfit.Pips=999;
if (StopLoss.Pips ==0) StopLoss.Pips =999;
if (Use.ADR.for.SL.pips)
{ StopLoss.Pips=NormalizeDouble(Daily.Range()/Point,Digits);
}
x=NormalizeDouble(Daily.Range()*tsl.divisor,Digits);
TodaysRange=MathAbs(iHigh(Symbol(),PERIOD_D1,0)-iLow(Symbol(),PERIOD_D1,0))/Point;
//+---------------------- Main Code Start ---------------------------+
Indicator.Values (); // Check gls-startrend values
Filter.Values (); // check values for other indicators / filters used
PosCounter (); // check for open positions. Sets b.ticket, s.ticket
if (Move.To.BreakEven.at.pips!=0 && (s.ticket>0 || b.ticket>0))
{ MoveToBreakEven(); // Check if condition are met to move to breakeven only if have a position
}
if (s.ticket>0 || b.ticket>0)
{ Trail.Stop(); // Check if we can trail our stops if we have a position
}
comments(); // print comments on Screen
// for CheckForOrderClosing we dont evaluate s.ticket or b.ticket as we always want this to execute
CheckForOrderClosing(); // Check if conditions for closing any open order based on exit rules
// also sets LongTradeShouldClose and ShortTradeShouldClose that will be checked
// to avoid conflict on yellow color that results in opening and closing trades at the same time
Mail(); // check mail routine
TradingEnabled=CheckIfConditionsAllowEntry();// Check if conditions are met for opening a new trade
// returns 0 if no trading conditions according to filters and indicators
// returns 1 if conditions for Long are met
// returns 2 if conditions for Short are met
if (TradingEnabled==1)
{ TPPrice=NormalizeDouble(Ask+Point*TakeProfit.Pips,Digits);
}
else if (TradingEnabled==2)
{ TPPrice=NormalizeDouble(Bid-Point*TakeProfit.Pips,Digits);
}
if (TradingEnabled==1 && !LongTradeShouldClose)
{ b.ticket=OrderSend(Symbol(),
OP_BUY,
LotCalc(),
NormalizeDouble(Ask,Digits),
slip,
NormalizeDouble(Ask-Point*StopLoss.Pips,Digits),
NormalizeDouble(TPPrice,Digits),
Period()+" min"+comment,
Magic,0,Cyan);
if(b.ticket>0)
{ if(OrderSelect(b.ticket,SELECT_BY_TICKET,MODE_TRADES))
{ Print(b.ticket);
}
else Print("Error Opening Buy Order: ",GetLastError());
return(0);
}
}
else if (TradingEnabled==1 && LongTradeShouldClose)
{ // yellow indicator's value evaluation problem. We have ok for Long but at same time ok to close
// todo => inform the user by message or display of this problem
}
else if (TradingEnabled==2 && !ShortTradeShouldClose)
{ s.ticket=OrderSend(Symbol(),
OP_SELL,
LotCalc(),
NormalizeDouble(Bid,Digits),
slip,
NormalizeDouble(Bid+Point*StopLoss.Pips,Digits),
NormalizeDouble(TPPrice,Digits),
Period()+" min"+comment,
Magic,0,Magenta);
if(s.ticket>0)
{ if(OrderSelect(s.ticket,SELECT_BY_TICKET,MODE_TRADES))
{ Print(s.ticket);
}
else Print("Error Opening Sell Order: ",GetLastError());
return(0);
}
}
else if (TradingEnabled==2 && ShortTradeShouldClose)
{ // yellow indicator's value evaluation problem. We have ok for Short but at same time ok to close
// todo => inform the user by message or display of this problem
}
return(0);
} // start
//+---------------------- Main Code End -----------------------------+
//+------------ Function and Procedures called in Main Code ---------+
void Indicator.Values()
{ Trig_1_Green =iCustom(NULL,Trigger.Period, "GLS-StarTrend", 0, 1); //Green.
Trig_1_MediumSeaGreen =iCustom(NULL,Trigger.Period, "GLS-StarTrend", 1, 1); //MediumSeaGreen.
Trig_1_Red =iCustom(NULL,Trigger.Period, "GLS-StarTrend", 2, 1); //Red.
Trig_1_LightCoral =iCustom(NULL,Trigger.Period, "GLS-StarTrend", 3, 1); //LightCoral.
Trig_1_Yellow =iCustom(NULL,Trigger.Period, "GLS-StarTrend", 4, 1); //Neutral Yellow.
Trig_2_Green =iCustom(NULL,Trigger.Period, "GLS-StarTrend", 0, 2); //Green.
Trig_2_MediumSeaGreen =iCustom(NULL,Trigger.Period, "GLS-StarTrend", 1, 2); //MediumSeaGreen.
Trig_2_Red =iCustom(NULL,Trigger.Period, "GLS-StarTrend", 2, 2); //Red.
Trig_2_LightCoral =iCustom(NULL,Trigger.Period, "GLS-StarTrend", 3, 2); //LightCoral.
Trig_2_Yellow =iCustom(NULL,Trigger.Period, "GLS-StarTrend", 4, 2); //Neutral Yellow.
Per1_1_Green =iCustom(NULL,Filter.Period.1, "GLS-StarTrend", 0, 1); //Green.
Per1_1_MediumSeaGreen =iCustom(NULL,Filter.Period.1, "GLS-StarTrend", 1, 1); //MediumSeaGreen.
Per1_1_Red =iCustom(NULL,Filter.Period.1, "GLS-StarTrend", 2, 1); //Red.
Per1_1_LightCoral =iCustom(NULL,Filter.Period.1, "GLS-StarTrend", 3, 1); //LightCoral.
Per1_1_Yellow =iCustom(NULL,Filter.Period.1, "GLS-StarTrend", 4, 1); //Neutral Yellow.
Per1_2_Green =iCustom(NULL,Filter.Period.1, "GLS-StarTrend", 0, 2); //Green.
Per1_2_MediumSeaGreen =iCustom(NULL,Filter.Period.1, "GLS-StarTrend", 1, 2); //MediumSeaGreen.
Per1_2_Red =iCustom(NULL,Filter.Period.1, "GLS-StarTrend", 2, 2); //Red.
Per1_2_LightCoral =iCustom(NULL,Filter.Period.1, "GLS-StarTrend", 3, 2); //LightCoral.
Per1_2_Yellow =iCustom(NULL,Filter.Period.1, "GLS-StarTrend", 4, 2); //Neutral Yellow.
Per2_1_Green =iCustom(NULL,Filter.Period.2, "GLS-StarTrend", 0, 1); //Green.
Per2_1_MediumSeaGreen =iCustom(NULL,Filter.Period.2, "GLS-StarTrend", 1, 1); //MediumSeaGreen.
Per2_1_Red =iCustom(NULL,Filter.Period.2, "GLS-StarTrend", 2, 1); //Red.
Per2_1_LightCoral =iCustom(NULL,Filter.Period.2, "GLS-StarTrend", 3, 1); //LightCoral.
Per2_1_Yellow =iCustom(NULL,Filter.Period.2, "GLS-StarTrend", 4, 1); //Neutral Yellow.
Per2_2_Green =iCustom(NULL,Filter.Period.2, "GLS-StarTrend", 0, 2); //Green.
Per2_2_MediumSeaGreen =iCustom(NULL,Filter.Period.2, "GLS-StarTrend", 1, 2); //MediumSeaGreen.
Per2_2_Red =iCustom(NULL,Filter.Period.2, "GLS-StarTrend", 2, 2); //Red.
Per2_2_LightCoral =iCustom(NULL,Filter.Period.2, "GLS-StarTrend", 3, 2); //LightCoral.
Per2_2_Yellow =iCustom(NULL,Filter.Period.2, "GLS-StarTrend", 4, 2); //Neutral Yellow.
}
void Filter.Values()
{ if (Use.Adx)
{ ADXMain1=iADX(NULL,Adx.TimeFrame,Adx.Period,PRICE_CLOSE,MODE_MAIN,1);
//MinusDI1=iADX(NULL,Adx.TimeFrame,Adx.Period,PRICE_CLOSE,MODE_MINUSDI,1);
//PlusDI1 =iADX(NULL,Adx.TimeFrame,Adx.Period,PRICE_CLOSE,MODE_PLUSDI,1);
ADXMain2=iADX(NULL,Adx.TimeFrame,Adx.Period,PRICE_CLOSE,MODE_MAIN,2);
//MinusDI2=iADX(NULL,Adx.TimeFrame,Adx.Period,PRICE_CLOSE,MODE_MINUSDI,2);
//PlusDI2 =iADX(NULL,Adx.TimeFrame,Adx.Period,PRICE_CLOSE,MODE_PLUSDI,2);
}
if (Use.Juice)
{ CurrentJuice = Juice(1, Juice.Period, Juice.Level,Juice.TimeFrame);
}
if (Use.Stoch.For.Entry)
{ StochValue = iStochastic(NULL,Trigger.Period,15,5,5,MODE_SMA,0,MODE_MAIN,1);
StochValue0 = iStochastic(NULL,Trigger.Period,15,5,5,MODE_SMA,0,MODE_MAIN,0);
}
}
double Daily.Range()
{ if (DR==TimeToStr(CurTime(),TIME_DATE))
{ return(NormalizeDouble(avg.rng,Digits));
}
rng=0;sum.rng=0;avg.rng=0;
for (int i=0;i<iBars(Symbol(),1440);i++)
{ rng=(iHigh(Symbol(),PERIOD_D1,i)-iLow(Symbol(),PERIOD_D1,i));
sum.rng+=rng;
}
double db=iBars(Symbol(),1440);
avg.rng=sum.rng/db;
DR=TimeToStr(CurTime(),TIME_DATE);
return (NormalizeDouble(avg.rng,Digits));
}
void PosCounter()
{ b.ticket=0;s.ticket=0;
for (int cnt=0;cnt<=OrdersTotal();cnt++)
{ OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{ if (OrderType()==OP_SELL)
{ s.ticket=OrderTicket();
}
if (OrderType()==OP_BUY)
{ b.ticket=OrderTicket();
}
}
}
}
double LotCalc()
{ double lot;
if (Use.Money.Management)
{ //lot=AccountFreeMargin()*(MaximumRisk/Lot.Margin);
lot=NormalizeDouble((AccountFreeMargin()*MaximumRisk)/(MarketInfo(Symbol(),MODE_TICKVALUE)*StopLoss.Pips),2);
}
if (!Use.Money.Management) {lot=Minimum.Lot;}
return(lot);
}
void comments()
{ string s0="", s1="", s2="", s3="", swap="", sCombo="", sStr ;
int PipsProfit;
double AmountProfit;
PipsProfit=0; AmountProfit=0;
PosCounter();
if (b.ticket>0)
{ OrderSelect(b.ticket,SELECT_BY_TICKET);
PipsProfit=NormalizeDouble(((Bid - OrderOpenPrice())/Point),Digits);
AmountProfit=OrderProfit();
}
else if (s.ticket>0)
{ OrderSelect(s.ticket,SELECT_BY_TICKET);
PipsProfit=NormalizeDouble(((OrderOpenPrice()-Ask)/Point),Digits);
AmountProfit=OrderProfit();
}
if (Exit.On.Yellow) s0="Exit if Yellow on "+Exit.On.Yellow.Period+" min";
else s0="";
if (Move.To.BreakEven.at.pips>0) s1="s/l will move to b/e after: "+Move.To.BreakEven.at.pips+" pips and lock: "+Move.To.BreakEven.Lock.pips+" pips"+"\n\n";
else s1="";
if (Use.Juice) s2="Use Juice: Yes Juice.TimeFrame: "+Juice.TimeFrame+"\n";
else s2="Use Juice: No";
if (Use.Adx) s3="Use ADX: Yes ADX TimeFrame:"+Adx.TimeFrame +" Adx Threshold: "+Adx.Threshold+"\n";
else s3="Use ADX: No";
if (Use.Only.First2.Indicators) sCombo=Trigger.Period+"/"+Filter.Period.1;
else sCombo=Trigger.Period+"/"+Filter.Period.1+"/"+Filter.Period.2;
Comment( ScreenComment,"\n",
"Today\'s Range: ",TodaysRange,"\n",
"Combo Used: ",sCombo," ",s0,"\n",
"s/l: ",StopLoss.Pips," tp:",TakeProfit.Pips," trail:",Trail.Pips,"\n",
s1,
s2,"\n",
s3,"\n",
"\n", "Pips: ",PipsProfit," / $ ", AmountProfit,
);
}
void Trail.With.ADR(int AfterBE)
{ double bsl, b.tsl, ssl, s.tsl;
PosCounter();
// x=Minimum Wave Range of Average Daily Range Trailing Stop Calculation
if (AfterBE==0) // Trail Starts immediately
{ if(b.ticket>0)
{ bsl=NormalizeDouble(x,Digits);
b.tsl=0;
OrderSelect(b.ticket,SELECT_BY_TICKET);
//if stoploss is less than minimum wave range, set bsl to current SL
if (OrderStopLoss()<OrderOpenPrice() && OrderOpenPrice()-OrderStopLoss()<x)
{ bsl=OrderOpenPrice()-OrderStopLoss();
}
//if stoploss is equal to, or greater than minimum wave range, set bsl to minimum wave range
if (OrderStopLoss()<OrderOpenPrice() && OrderOpenPrice()-OrderStopLoss()>=x)
{ bsl=NormalizeDouble(x,Digits);
}
//determine if stoploss should be modified
if (Bid>(OrderOpenPrice()+bsl) && OrderStopLoss()<(OrderOpenPrice()+(Bid-(OrderOpenPrice()+bsl))))
{ b.tsl=NormalizeDouble(OrderOpenPrice()+(Bid-(OrderOpenPrice()+bsl)),Digits);
Print("b.tsl ",b.tsl);
if (OrderStopLoss()<b.tsl)
{ OrderModify(b.ticket,OrderOpenPrice(),b.tsl,OrderTakeProfit(),OrderExpiration(),MediumSpringGreen);
}
}
}
if(s.ticket>0)
{ ssl=NormalizeDouble(x,Digits);
s.tsl=0;
OrderSelect(s.ticket,SELECT_BY_TICKET);
//if stoploss is less than minimum wave range, set ssl to current SL
if (OrderStopLoss()>OrderOpenPrice() && OrderStopLoss()-OrderOpenPrice()<x)
{ ssl=OrderStopLoss()-OrderOpenPrice();
}
//if stoploss is equal to, or greater than minimum wave range, set bsl to minimum wave range
if (OrderStopLoss()>OrderOpenPrice() && OrderStopLoss()-OrderOpenPrice()>=x)
{ ssl=NormalizeDouble(x,Digits);
}
//determine if stoploss should be modified
if (Ask<(OrderOpenPrice()-ssl) && OrderStopLoss()>(OrderOpenPrice()-(OrderOpenPrice()-ssl)-Ask))
{ s.tsl=NormalizeDouble(OrderOpenPrice()-((OrderOpenPrice()-ssl)-Ask),Digits);
Print("s.tsl ",s.tsl);
if(OrderStopLoss()>s.tsl)
{ OrderModify(s.ticket,OrderOpenPrice(),s.tsl,OrderTakeProfit(),OrderExpiration(),MediumVioletRed);
}
}
}
}
else // If Trail.Starts.After.BreakEven
{ if (b.ticket>0)
{ bsl=NormalizeDouble(x,Digits);
b.tsl=0;
OrderSelect(b.ticket,SELECT_BY_TICKET);
if (Bid>=(OrderOpenPrice()+(Move.To.BreakEven.at.pips*Point)))
{ //if stoploss is less than minimum wave range, set bsl to current SL
if (OrderStopLoss()<OrderOpenPrice() && OrderOpenPrice()-OrderStopLoss()<x)
{ bsl=OrderOpenPrice()-OrderStopLoss();
}
//if stoploss is equal to, or greater than minimum wave range, set bsl to minimum wave range
if (OrderStopLoss()<OrderOpenPrice() && OrderOpenPrice()-OrderStopLoss()>=x)
{ bsl=NormalizeDouble(x,Digits);
}
//determine if stoploss should be modified
if (Bid>(OrderOpenPrice()+bsl) && OrderStopLoss()<(OrderOpenPrice()+(Bid-(OrderOpenPrice()+bsl))))
{ b.tsl=NormalizeDouble(OrderOpenPrice()+(Bid-(OrderOpenPrice()+bsl)),Digits);
Print("b.tsl ",b.tsl);
if (OrderStopLoss()<b.tsl)
{ OrderModify(b.ticket,OrderOpenPrice(),b.tsl,OrderTakeProfit(),OrderExpiration(),MediumSpringGreen);
}
}
}
}
if (s.ticket>0)
{ ssl=NormalizeDouble(x,Digits);
s.tsl=0;
OrderSelect(s.ticket,SELECT_BY_TICKET);
if (Ask<=(OrderOpenPrice()-(Move.To.BreakEven.at.pips*Point)))
{ //if stoploss is less than minimum wave range, set ssl to current SL
if(OrderStopLoss()>OrderOpenPrice() && OrderStopLoss()-OrderOpenPrice()<x)
{ ssl=OrderStopLoss()-OrderOpenPrice();
}
//if stoploss is equal to, or greater than minimum wave range, set bsl to minimum wave range
if(OrderStopLoss()>OrderOpenPrice() && OrderStopLoss()-OrderOpenPrice()>=x)
{ ssl=NormalizeDouble(x,Digits);
}
//determine if stoploss should be modified
if(Ask<(OrderOpenPrice()-ssl) && OrderStopLoss()>(OrderOpenPrice()-(OrderOpenPrice()-ssl)-Ask))
{ s.tsl=NormalizeDouble(OrderOpenPrice()-((OrderOpenPrice()-ssl)-Ask),Digits);
Print("s.tsl ",s.tsl);
if(OrderStopLoss()>s.tsl)
{ OrderModify(s.ticket,OrderOpenPrice(),s.tsl,OrderTakeProfit(),OrderExpiration(),MediumVioletRed);
}
}
}
}
}
}
void Trail.With.Standard.Trailing(int AfterBE)
{ double bsl, b.tsl, ssl, s.tsl;
PosCounter();
if (AfterBE==0)
{ if (b.ticket>0)
{ bsl=Trail.Pips*Point;
OrderSelect(b.ticket,SELECT_BY_TICKET);
//determine if stoploss should be modified
if(Bid>(OrderOpenPrice()+bsl) && OrderStopLoss()<(OrderOpenPrice()+(Bid-(OrderOpenPrice()+bsl))))
{ b.tsl=NormalizeDouble(OrderOpenPrice()+(Bid-(OrderOpenPrice()+bsl)),Digits);
Print("b.tsl ",b.tsl);
if (OrderStopLoss()<b.tsl)
{ OrderModify(b.ticket,OrderOpenPrice(),b.tsl,OrderTakeProfit(),OrderExpiration(),MediumSpringGreen);
}
}
}
if(s.ticket>0)
{ ssl=Trail.Pips*Point;
//determine if stoploss should be modified
OrderSelect(s.ticket,SELECT_BY_TICKET);
if (Ask<(OrderOpenPrice()-ssl) && OrderStopLoss()>(OrderOpenPrice()-(OrderOpenPrice()-ssl)-Ask))
{ s.tsl=NormalizeDouble(OrderOpenPrice()-((OrderOpenPrice()-ssl)-Ask),Digits);
Print("s.tsl ",s.tsl);
if (OrderStopLoss()>s.tsl)
{ OrderModify(s.ticket,OrderOpenPrice(),s.tsl,OrderTakeProfit(),OrderExpiration(),MediumVioletRed);
}
}
}
}
else // If Trail.Starts.After.BreakEven
{ if (b.ticket>0)
{ OrderSelect(b.ticket,SELECT_BY_TICKET);
if (Bid>=(OrderOpenPrice()+(Move.To.BreakEven.at.pips*Point)))
{ bsl=Trail.Pips*Point;
if (Bid>(OrderOpenPrice()+bsl) && OrderStopLoss()<(OrderOpenPrice()+(Bid-(OrderOpenPrice()+bsl))))
{ b.tsl=NormalizeDouble(OrderOpenPrice()+(Bid-(OrderOpenPrice()+bsl)),Digits);
Print("b.tsl ",b.tsl);
if (OrderStopLoss()<b.tsl)
{ OrderModify(b.ticket,OrderOpenPrice(),b.tsl,OrderTakeProfit(),OrderExpiration(),MediumSpringGreen);
}
}
}
}
if(s.ticket>0)
{ OrderSelect(s.ticket,SELECT_BY_TICKET);
if (Ask<=(OrderOpenPrice()-(Move.To.BreakEven.at.pips*Point)))
{ ssl=Trail.Pips*Point;
//determine if stoploss should be modified
if(Ask<(OrderOpenPrice()-ssl) && OrderStopLoss()>(OrderOpenPrice()-(OrderOpenPrice()-ssl)-Ask))
{ s.tsl=NormalizeDouble(OrderOpenPrice()-((OrderOpenPrice()-ssl)-Ask),Digits);
Print("s.tsl ",s.tsl);
if(OrderStopLoss()>s.tsl)
{ OrderModify(s.ticket,OrderOpenPrice(),s.tsl,OrderTakeProfit(),OrderExpiration(),MediumVioletRed);
}
}
}
}
}
}
void Trail.With.Every.xx.Pips()
{ double bsl, b.tsl, ssl, s.tsl, CurrProfit;
int Factor;
PosCounter();
if (b.ticket>0)
{ OrderSelect(b.ticket,SELECT_BY_TICKET);
CurrProfit=((Bid-OrderOpenPrice())/Point);
if (CurrProfit>=Move.Trail.Every.xx.Pips)
{ Factor=MathFloor(CurrProfit/Move.Trail.Every.xx.Pips);
bsl=Factor*Trail.Pips*Point;
//determine if stoploss should be modified
if(Bid>(OrderOpenPrice()+bsl) && OrderStopLoss()<(OrderOpenPrice()+(Bid-(OrderOpenPrice()+bsl))))
{ b.tsl=NormalizeDouble(OrderOpenPrice()+(Bid-(OrderOpenPrice()+bsl)),Digits);
Print("b.tsl ",b.tsl);
if (OrderStopLoss()<b.tsl)
{ OrderModify(b.ticket,OrderOpenPrice(),b.tsl,OrderTakeProfit(),OrderExpiration(),MediumSpringGreen);
}
}
}
}
if(s.ticket>0)
{ OrderSelect(s.ticket,SELECT_BY_TICKET);
CurrProfit=((OrderOpenPrice()-Ask)/Point);
if (CurrProfit>=Move.Trail.Every.xx.Pips)
{ Factor=MathFloor(CurrProfit/Move.Trail.Every.xx.Pips);
ssl=Factor*Trail.Pips*Point;
//determine if stoploss should be modified
if (Ask<(OrderOpenPrice()-ssl) && OrderStopLoss()>(OrderOpenPrice()-(OrderOpenPrice()-ssl)-Ask))
{ s.tsl=NormalizeDouble(OrderOpenPrice()-((OrderOpenPrice()-ssl)-Ask),Digits);
Print("s.tsl ",s.tsl);
if (OrderStopLoss()>s.tsl)
{ OrderModify(s.ticket,OrderOpenPrice(),s.tsl,OrderTakeProfit(),OrderExpiration(),MediumVioletRed);
}
}
}
}
}
void Trail.Stop()
{ if (Move.Trail.Every.xx.Pips>0 && Trail.Pips>0)
{ Trail.With.Every.xx.Pips();
}
else
{ if (Use.ADR.for.SL.pips)
{ if (Trail.Starts.After.BreakEven) Trail.With.ADR(1);
else Trail.With.ADR(0);
}
else if (Trail.Pips>0)
{ if (Trail.Starts.After.BreakEven) Trail.With.Standard.Trailing(1);
else Trail.With.Standard.Trailing(0);
}
}
}
void Mail()
{ OrderSelect(b.ticket,SELECT_BY_TICKET);
if(OrderCloseTime()>0)
{ SendMail(Symbol()+" "+OrderComment(),"Buy Order Closed, $"+DoubleToStr(OrderProfit(),2)+" "+DoubleToStr(Bid,Digits)+"/"+DoubleToStr(Ask,Digits));
}
OrderSelect(s.ticket,SELECT_BY_TICKET);
if(OrderCloseTime()>0)
{ SendMail(Symbol()+" "+OrderComment(),"Sell Order Closed, $"+DoubleToStr(OrderProfit(),2)+" "+DoubleToStr(Bid,Digits)+"/"+DoubleToStr(Ask,Digits));
}
}
void MoveToBreakEven()
{ PosCounter();
if (b.ticket > 0)
{ OrderSelect(b.ticket,SELECT_BY_TICKET);
if (OrderStopLoss()<OrderOpenPrice())
{ if (Bid >((Move.To.BreakEven.at.pips*Point) +OrderOpenPrice()))
{ OrderModify(b.ticket, OrderOpenPrice(), (OrderOpenPrice()+(Move.To.BreakEven.Lock.pips*Point)),OrderTakeProfit(),OrderExpiration(),MediumSpringGreen);
if (OrderSelect(b.ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("Long StopLoss Moved to BE at : ",OrderStopLoss());
else Print("Error moving Long StopLoss to BE: ",GetLastError());
}
}
}
if (s.ticket > 0)
{ OrderSelect(s.ticket,SELECT_BY_TICKET);
if (OrderStopLoss()>OrderOpenPrice())
{ if ( Ask < (OrderOpenPrice()-(Move.To.BreakEven.at.pips*Point)))
{ OrderModify(OrderTicket(), OrderOpenPrice(), (OrderOpenPrice()-(Move.To.BreakEven.Lock.pips*Point)),OrderTakeProfit(),OrderExpiration(),MediumVioletRed);
if(OrderSelect(s.ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("Short StopLoss Moved to BE at : ",OrderStopLoss());
else Print("Error moving Short StopLoss to BE: ",GetLastError());
}
}
}
}
double Juice(int shift, int period, int level, int jtimeframe)
{ double osma= 0;
osma= iStdDev(NULL,jtimeframe, period, MODE_EMA, 0, PRICE_CLOSE,shift) - level*Point;
return (osma);
}
int CheckIfConditionsAllowEntry() // 0=no entry 1=ok for long 2=ok for short
{ bool StarTrendIsOK;
bool AdxIsOK, StochOK;
PosCounter(); // Check if current orders running.
//General Conditions / Filtering
if (!(b.ticket==0 && s.ticket==0)) return (0); // if a position is open, skip checking
else if (Use.Trading.Hours.Restriction && (Hour()<Start.Trading.Hour.Begin || Hour()>Start.Trading.Hour.End)) return (0); // Check Time Filter
else if (Use.Juice && CurrentJuice<=0) return (0); // check Juice
else if (Use.Adx && (!(ADXMain1>=ADXMain2 && ADXMain1>=Adx.Threshold))) return (0); // Check Adx rising and above threshold
// Conditions for Long
StarTrendIsOK=false;
StochOK=false;
// Check Star Trend
if (Entry.On.Yellow) // if Entry.On.Yellow = true
{ if (!Use.Only.First2.Indicators &&
( ( // If 5 turns from (red or light coral or yellow) to (green or mediumseagreen)
// and 15 and 60 are (green or mediumseagreen)
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1) && (Trig_2_Red==1 || Trig_2_LightCoral==1 || Trig_2_Yellow==1) &&
(Per1_1_Green==1 || Per1_1_MediumSeaGreen==1) && (Per2_1_Green==1 || Per2_1_MediumSeaGreen==1)
)
|| // OR
( // If 15 turns from (red or light coral or yellow) to (green or mediumseagreen)
// and 5 and 60 are (green or mediumseagreen)
(Per1_1_Green==1 || Per1_1_MediumSeaGreen==1) && (Per1_2_Red==1 || Per1_2_LightCoral==1 || Per1_2_Yellow==1) &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1) && (Per2_1_Green==1 || Per2_1_MediumSeaGreen==1)
)
|| // OR
( // If 60 turns from (red or light coral or yellow) to (green or mediumseagreen)
// and 5 and 15 are (green or mediumseagreen)
(Per2_1_Green==1 || Per2_1_MediumSeaGreen==1) && (Per2_2_Red==1 || Per2_2_LightCoral==1 || Per2_2_Yellow==1) &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1) && (Per1_1_Green==1 || Per1_1_MediumSeaGreen==1)
)
)
) {StarTrendIsOK=True;}
else
if (Use.Only.First2.Indicators &&
( ( // If 5 turns from (red or light coral or yellow) to (green or mediumseagreen)
// and 15 is (green or mediumseagreen)
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1) && (Trig_2_Red==1 || Trig_2_LightCoral==1 || Trig_2_Yellow==1) &&
(Per1_1_Green==1 || Per1_1_MediumSeaGreen==1)
)
|| // OR
( // If 15 turns from (red or light coral or yellow) to (green or mediumseagreen)
// and 5 is (green or mediumseagreen)
(Per1_1_Green==1 || Per1_1_MediumSeaGreen==1) && (Per1_2_Red==1 || Per1_2_LightCoral==1 || Per1_2_Yellow==1) &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1)
)
)
) {StarTrendIsOK=True;}
}
else // if Entry.On.Yellow = false
{ if (!Use.Only.First2.Indicators &&
( ( // If 5 turns from (red or light coral) to (green or mediumseagreen)
// and 15 and 60 are (green or mediumseagreen)
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1) && (Trig_2_Red==1 || Trig_2_LightCoral==1) &&
(Per1_1_Green==1 || Per1_1_MediumSeaGreen==1) && (Per2_1_Green==1 || Per2_1_MediumSeaGreen==1)
)
|| // OR
( // If 15 turns from (red or light coral) to (green or mediumseagreen)
// and 5 and 60 are (green or mediumseagreen)
(Per1_1_Green==1 || Per1_1_MediumSeaGreen==1) && (Per1_2_Red==1 || Per1_2_LightCoral==1) &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1) && (Per2_1_Green==1 || Per2_1_MediumSeaGreen==1)
)
|| // OR
( // If 60 turns from (red or light coral) to (green or mediumseagreen)
// and 5 and 15 are (green or mediumseagreen)
(Per2_1_Green==1 || Per2_1_MediumSeaGreen==1) && (Per2_2_Red==1 || Per2_2_LightCoral==1) &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1) && (Per1_1_Green==1 || Per1_1_MediumSeaGreen==1)
)
)
) {StarTrendIsOK=True;}
else
if (Use.Only.First2.Indicators &&
( ( // If 5 turns from (red or light coral) to (green or mediumseagreen)
// and 15 is (green or mediumseagreen)
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1) && (Trig_2_Red==1 || Trig_2_LightCoral==1) &&
(Per1_1_Green==1 || Per1_1_MediumSeaGreen==1)
)
|| // OR
( // If 15 turns from (red or light coral) to (green or mediumseagreen)
// and 5 is (green or mediumseagreen)
(Per1_1_Green==1 || Per1_1_MediumSeaGreen==1) && (Per1_2_Red==1 || Per1_2_LightCoral==1) &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1)
)
)
) {StarTrendIsOK=True;}
}
if (!Use.Stoch.For.Entry || (Use.Stoch.For.Entry && StochValue>=50 && StochValue0>=50)) {StochOK=true;}
if ((StarTrendIsOK) && (StochOK)) return(1);
// Conditions for Short
StarTrendIsOK=false;
StochOK=false;
// Check Star Trend
if (Entry.On.Yellow)
{ // if Entry.On.Yellow = true
if (!Use.Only.First2.Indicators &&
( ( // If 5 turns from (green or mediumseagreen or yellow) to (red or lightcoral)
// and 15 and 60 are (red or lightcoral)
(Trig_1_Red==1 || Trig_1_LightCoral==1) && (Trig_2_Green==1 || Trig_2_MediumSeaGreen==1 || Trig_2_Yellow==1) &&
(Per1_1_Red==1 || Per1_1_LightCoral==1) && (Per2_1_Red ==1 || Per2_1_LightCoral==1)
)
|| // OR
( // If 15 turns from (green or mediumseagreen or yellow) to (red or lightcoral)
// and 5 and 60 are (red or lightcoral)
(Per1_1_Red==1 || Per1_1_LightCoral==1) && (Per1_2_Green==1 || Per1_2_MediumSeaGreen==1 || Per1_2_Yellow==1) &&
(Trig_1_Red==1 || Trig_1_LightCoral==1) && (Per2_1_Red ==1 || Per2_1_LightCoral==1)
)
|| // OR
( // If 60 turns from (green or mediumseagreen or yellow) to (red or lightcoral)
// and 5 and 15 are (red or lightcoral)
(Per2_1_Red==1 || Per2_1_LightCoral==1) && (Per2_2_Green==1 || Per2_2_MediumSeaGreen==1 || Per2_2_Yellow==1) &&
(Trig_1_Red==1 || Trig_1_LightCoral==1) && (Per1_1_Red ==1 || Per1_1_LightCoral==1)
)
)
) {StarTrendIsOK=True;}
else
if (Use.Only.First2.Indicators &&
( ( // If 5 turns from (green or mediumseagreen or yellow) to (red or lightcoral)
// and 15 is (red or lightcoral)
(Trig_1_Red==1 || Trig_1_LightCoral==1) && (Trig_2_Green==1 || Trig_2_MediumSeaGreen==1 || Trig_2_Yellow==1) &&
(Per1_1_Red==1 || Per1_1_LightCoral==1)
)
|| // OR
( // If 15 turns from (green or mediumseagreen or yellow) to (red or lightcoral)
// and 5 is (red or lightcoral)
(Per1_1_Red==1 || Per1_1_LightCoral==1) && (Per1_2_Green==1 || Per1_2_MediumSeaGreen==1 || Per1_2_Yellow==1) &&
(Trig_1_Red==1 || Trig_1_LightCoral==1)
)
)
) {StarTrendIsOK=True;}
}
else
{ // if Entry.On.Yellow = false
if (!Use.Only.First2.Indicators &&
( ( // If 5 turns from (green or mediumseagreen) to (red or lightcoral)
// and 15 and 60 are (red or lightcoral)
(Trig_1_Red==1 || Trig_1_LightCoral==1) && (Trig_2_Green==1 || Trig_2_MediumSeaGreen==1) &&
(Per1_1_Red==1 || Per1_1_LightCoral==1) && (Per2_1_Red ==1 || Per2_1_LightCoral==1)
)
|| // OR
( // If 15 turns from (green or mediumseagreen) to (red or lightcoral)
// and 5 and 60 are (red or lightcoral)
(Per1_1_Red==1 || Per1_1_LightCoral==1) && (Per1_2_Green==1 || Per1_2_MediumSeaGreen==1) &&
(Trig_1_Red==1 || Trig_1_LightCoral==1) && (Per2_1_Red ==1 || Per2_1_LightCoral==1)
)
|| // OR
( // If 60 turns from (green or mediumseagreen) to (red or lightcoral)
// and 5 and 15 are (red or lightcoral)
(Per2_1_Red==1 || Per2_1_LightCoral==1) && (Per2_2_Green==1 || Per2_2_MediumSeaGreen==1) &&
(Trig_1_Red==1 || Trig_1_LightCoral==1) && (Per1_1_Red ==1 || Per1_1_LightCoral==1)
)
)
) {StarTrendIsOK=True;}
else
if (Use.Only.First2.Indicators &&
( ( // If 5 turns from (green or mediumseagreen) to (red or lightcoral)
// and 15 is (red or lightcoral)
(Trig_1_Red==1 || Trig_1_LightCoral==1) && (Trig_2_Green==1 || Trig_2_MediumSeaGreen==1) &&
(Per1_1_Red==1 || Per1_1_LightCoral==1)
)
|| // OR
( // If 15 turns from (green or mediumseagreen) to (red or lightcoral)
// and 5 is (red or lightcoral)
(Per1_1_Red==1 || Per1_1_LightCoral==1) && (Per1_2_Green==1 || Per1_2_MediumSeaGreen==1) &&
(Trig_1_Red==1 || Trig_1_LightCoral==1)
)
)
) {StarTrendIsOK=True;}
}
if (!Use.Stoch.For.Entry || (Use.Stoch.For.Entry && StochValue<=50 && StochValue0<=50)) {StochOK=true;}
if ((StarTrendIsOK) && (StochOK)) return(2);
return(0);
}
void CheckForOrderClosing()
{ bool iShouldExit=false;
PosCounter(); // Check if current orders running.
iShouldExit=false;
ShortTradeShouldClose=false;
LongTradeShouldClose=false;
// --------------------------------
// Check Exit Conditions for Longs
// --------------------------------
if (!Exit.On.Yellow) // Yellow is ignored
{ if (!Use.Only.First2.Indicators) // if user choose all 3 time frames
{ // if we have a change of colour in any time frame from (green or mediumseagreen) to (red or lightcoral) exit longs
if (Trig_1_Red==1 || Trig_1_LightCoral==1 || Per1_1_Red==1 || Per1_1_LightCoral==1 || Per2_1_Red==1 || Per2_1_LightCoral==1)
{iShouldExit=true;}
}
else // if we have a change of colour only in the first 2 time frames from (green or mediumseagreen) to (red or lightcoral) exit longs
{ if (Trig_1_Red==1 || Trig_1_LightCoral==1 || Per1_1_Red==1 || Per1_1_LightCoral==1)
{iShouldExit=true;}
}
}
else // use yellow for exit
{ if (!Use.Only.First2.Indicators) // if user choose all 3 time frames
{ if (Exit.On.Yellow.Period==Trigger.Period &&
(Trig_1_Red==1 || Trig_1_LightCoral==1 || Trig_1_Yellow==1 ||
Per1_1_Red==1 || Per1_1_LightCoral==1 || Per1_1_Yellow==1 ||
Per2_1_Red==1 || Per2_1_LightCoral==1 || Per2_1_Yellow==1)
) {iShouldExit=true;}
if (Exit.On.Yellow.Period==Filter.Period.1 &&
(Trig_1_Red==1 || Trig_1_LightCoral==1 ||
Per1_1_Red==1 || Per1_1_LightCoral==1 || Per1_1_Yellow==1 ||
Per2_1_Red==1 || Per2_1_LightCoral==1 || Per2_1_Yellow==1)
) {iShouldExit=true;}
if (Exit.On.Yellow.Period==Filter.Period.2 &&
(Trig_1_Red==1 || Trig_1_LightCoral==1 ||
Per1_1_Red==1 || Per1_1_LightCoral==1 ||
Per2_1_Red==1 || Per2_1_LightCoral==1 || Per2_1_Yellow==1)
) {iShouldExit=true;}
}
else // if user choose only the first 2 time frames
{ if (Exit.On.Yellow.Period==Trigger.Period &&
(Trig_1_Red==1 || Trig_1_LightCoral==1 || Trig_1_Yellow==1 ||
Per1_1_Red==1 || Per1_1_LightCoral==1 || Per1_1_Yellow==1)
) {iShouldExit=true;}
if (Exit.On.Yellow.Period==Filter.Period.1 &&
(Trig_1_Red==1 || Trig_1_LightCoral==1 ||
Per1_1_Red==1 || Per1_1_LightCoral==1 || Per1_1_Yellow==1)
) {iShouldExit=true;}
}
}
if (iShouldExit)
{ LongTradeShouldClose=true;
if (b.ticket>0)
{ OrderSelect(b.ticket,SELECT_BY_TICKET);
OrderClose(OrderTicket(),OrderLots(),Bid,slip,Blue);
}
}
// --------------------------------
// Check Exit Conditions for Shorts
// --------------------------------
iShouldExit=false;
if (!Exit.On.Yellow) // Yellow is ignored
{ if (!Use.Only.First2.Indicators) // if user choose all 3 time frames
{ // if we have a change of colour in any time frame from (red or lightcoral) to (green or mediumseagreen) exit shorts
if (Trig_1_Green==1 || Trig_1_MediumSeaGreen==1 || Per1_1_Green==1 || Per1_1_MediumSeaGreen==1 || Per2_1_Green==1 || Per2_1_MediumSeaGreen==1)
{iShouldExit=true;}
}
else // if we have a change of colour only in the first 2 time frames from (red or lightcoral) to (green or mediumseagreen) exit shorts
{ if (Trig_1_Green==1 || Trig_1_MediumSeaGreen==1 || Per1_1_Green==1 || Per1_1_MediumSeaGreen==1)
{iShouldExit=true;}
}
}
else // use of yellow for exit
{ if (!Use.Only.First2.Indicators) // if user choose all 3 time frames
{ if (Exit.On.Yellow.Period==Trigger.Period &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1 || Trig_1_Yellow==1 ||
Per1_1_Green==1 || Per1_1_MediumSeaGreen==1 || Per1_1_Yellow==1 ||
Per2_1_Green==1 || Per2_1_MediumSeaGreen==1 || Per2_1_Yellow==1)
) {iShouldExit=true;}
if (Exit.On.Yellow.Period==Filter.Period.1 &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1 ||
Per1_1_Green==1 || Per1_1_MediumSeaGreen==1 || Per1_1_Yellow==1 ||
Per2_1_Green==1 || Per2_1_MediumSeaGreen==1 || Per2_1_Yellow==1)
) {iShouldExit=true;}
if (Exit.On.Yellow.Period==Filter.Period.2 &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1 ||
Per1_1_Green==1 || Per1_1_MediumSeaGreen==1 ||
Per2_1_Green==1 || Per2_1_MediumSeaGreen==1 || Per2_1_Yellow==1)
) {iShouldExit=true;}
}
else //if user choose only the first 2 time frames
{ if (Exit.On.Yellow.Period==Trigger.Period &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1 || Trig_1_Yellow==1 ||
Per1_1_Green==1 || Per1_1_MediumSeaGreen==1 || Per1_1_Yellow==1)
) {iShouldExit=true;}
if (Exit.On.Yellow.Period==Filter.Period.1 &&
(Trig_1_Green==1 || Trig_1_MediumSeaGreen==1 ||
Per1_1_Green==1 || Per1_1_MediumSeaGreen==1 || Per1_1_Yellow==1)
) {iShouldExit=true;}
}
}
if (iShouldExit)
{ ShortTradeShouldClose=true;
if (s.ticket>0)
{ OrderSelect(s.ticket,SELECT_BY_TICKET);
OrderClose(OrderTicket(),OrderLots(),Ask,slip,Red);
}
}
}
Sample
Analysis
Market Information Used:
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Indicator Curves created:
Indicators Used:
Movement directional index
Stochastic oscillator
Standard Deviation indicator
Custom Indicators Used:
GLS-StarTrend
Order Management characteristics:
Checks for the total of open orders
It can change open orders parameters, due to possible stepping strategy
It Closes Orders by itself
Other Features:
It sends emails