Traders who are well versed in Forex understand that even though the markets are open 24 hours a day there are best trading hours for different strategies.  This is simply due to the fact that there exists common low volatile hours and common high volatile hours.  For instance the New York and London opens you can expect the Forex markets to move.

So when I decided to create this indicator I had to think of what variables I would be measuring.  It was then I came up with the following theory.  Why not measure the average range of the same hour over a period of look back days.  Then take the average range of the current bar and compare it to the average that it was expected to move that hour based on x historical look back days.  This seemed much more relevant to me.  So that is exactly what this indicator will do. 

White Line – The range of the current bar (moving average of one bar)

Blue Bar – Means high volatility. If a bar is blue it means the market has moved 150% in that hour than what it was “expected” to do.

Red Bar – Means low volatility.  If a bar is red it means the market has moved 50% in that hour than what it was “expected” to do.

Green Bar – Normal market volatility.  If the bar is green then the range for that bar falls between 50% and 150% of its expectancy.

 The Metatrader indicator can be downloaded here:
WhittakerHourlyATR.ex4
WhittakerHourlyATR.mq4

If you want to statically set this variable for your back test purposes you need to download spread changer.  It can be found here.  http://www.jeremywhittaker.com/wp-content/uploads/2011/04/SpreadChanger.exe

Using this utility is not exactly straightforward.  You need to find the file named Symbols.sel within your MT4 program files directory.  Once you find the Symbols.sel file drag and drop it onto the Spreadchanger.exe utility and it will allow you to modify it. 

The last step is you need to add a fake proxy server to your MT4 platform to trick it from accessing the internet.  Because if it can access the server it will over ride your setting.  You must also edit the symbols.sel file while your platform is closed.

If s1_closeBuyRule is true then close order

If int_SL_override is > 0 then modify SL with this value
Function returns orderticket()
run_Strategy1
Find strategy 1 tickets and print them to log
Use time restrictions to allow trading during only certain hours
Trades on Fridays between certain hours and Mondays between certain hours
If an order is found call s1_buyControl

#include
#include

#import “AccuScalper.dll”
int GetGmtOffset(int a0, int a1, int a2, int a3, int a4, int a5, int a6, int a7, int a8, double& a9[], int& a10[]);
void Activate(string a0, int a1, int a2, string a3, int a4);
int GetState();
int GetStatus();
int Increment(string a0);
bool Decrement(int a0);
bool IsTradeTime(int a0, int a1, int a2, int a3, int a4);
bool s1_Buy(double a0, double a1, double a2, double a3, double a4, double a5, double a6, double a7, int a8, int a9);
bool s1_Sell(double a0, double a1, double a2, double a3, double a4, double a5, double a6, double a7, int a8, int a9);
bool s2_Buy(double a0, double a1, double a2, double a3, double a4, double a5, int a6, int a7);
bool s2_Sell(double a0, double a1, double a2, double a3, double a4, double a5, int a6, int a7);
bool s1_Init(int a0, int& a1[], int& a2[], int& a3[], int& a4[], int& a5[], int& a6[], int& a7[], int& a8[], int& a9[], int& a10[], int& a11[], double& a12[], double& a13[], double& a14[], double& a15[], int& a16[], int& a17[], int& a18[], int& a19[], int& a20[], int& a21[]);
bool s2_Init(int a0, int& a1[], int& a2[], int& a3[], double& a4[], int& a5[], int& a6[], int& a7[], int& a8[], double& a9[], double& a10[], double& a11[], int& a12[], int& a13[], int& a14[], int& a15[], int& a16[], int& a17[]);
#import

extern string Ver.1.00 = “”;
extern string _1 = “System Parameters”;
extern bool Stealth = TRUE;
extern bool Aggressive_true_from_input = TRUE;
extern bool NFA = TRUE;
extern double GmtOffset = -5.0;
extern bool AutoLocalGmtOffset = FALSE;
extern bool AutoServerGmtOffset = FALSE;
extern int magic_2 = 989898;
extern int magic_3 = 123232;
string ReceiptCode = “111111″;
extern string _2 = “Comment Position”;
extern int TopPadding = 30;
extern int LeftPadding = 20;
extern color TextColor1 = WhiteSmoke;
extern color TextColor2 = LightGray;
extern string _3 = “Strategy Parameters”;
extern int Slippage = 3;
extern bool SendEmails = FALSE;
extern string OrderComments = “”;
extern string _4 = “Order Management”;
extern double LotSize = 0.1;
extern string _5 = “Ratio Order Management”;
extern double RiskLevel = 0.2;
extern bool RecoveryMode = TRUE;
bool bool1_f = FALSE;
double double_1000 = 1000.0;
double double_p2 = 0.2;
bool bool2_t = FALSE;
bool bool_t_if_initialize_variables = TRUE;
bool bool_t_if_agressive = TRUE;
int int_3 = 3;
bool bool_if_true_shift_time = TRUE;
int time_hour_equal_1_or_0;
int current_time;
int current_time_minus_gmt;
double time_hour_1;
int time_of_midnight;
int spread_1;
int g_spread_288;
int marketinfo_stoplevel;
double p0001_div_point_or_1;
double lots_2;
double account_balance_x;
bool bool_not_testing = FALSE;
int int_x4 = 0;
int int_x5 = 0;
int int_x6;
string email_subject;
string gs_344;
string gs_352;
int timeframe_M15 = PERIOD_M15;
int buy_tp_10 = 10;
int int_50 = 50;
int int_200 = 200;
int int_20 = 20;
int int_0 = 0;
int color_2 = 16711680;
int color_3 = 255;
int period_6 = 6;
int period_20 = 20;
int period_8 = 8;
double double_70 = 70.0;
double double_30 = 30.0;
double double_64 = 64.0;
double double_36 = 36.0;
bool bool_if_true_rsi_1M_20 = TRUE;
bool bool8_t = TRUE;
bool bool_if_true_get_15M_range = TRUE;
int number_of_hours_to_shift = 12;
bool bool_if_true_rsi15m_period6 = TRUE;
int rsi_15m_middle = 20;
bool bool11_t = TRUE;
bool bool12_f = FALSE;
double double_1 = 1.0;
double double_24 = 24.0;
bool bool13_t = TRUE;
double dbl_hr_multiplier_countdown_2 = 1.0;
double dbl_hr_multiplier_countdown = 1.0;
bool bool14_f = FALSE;
int int_multiply_for_spread = 0;
bool bool_using_daydirection_filter = TRUE;
bool bool16_t = TRUE;
int time_hour_21 = 21;
int time_hour_equal_1 = 1;
int time_hour_21b = 21;
int time_hour_0 = 0;
int timeframe_M5 = PERIOD_M5;
int int_35 = 35;
int int_60 = 60;
int int_200b = 200;
int int_20c = 20;
double percent_range_1 = 1.0;
int int_0d = 0;
int color_5 = 16748574;
int color_6 = 9639167;
int int_36_always_36 = 36;
int period_168 = 168;
int period_275 = 275;
bool bool17_always_true = TRUE;
bool bool_cci_m5_period275 = FALSE;
bool bool19_always_true = TRUE;
double double_1e = 1.0;
double double_12 = 12.0;
double double_24b = 24.0;
bool bool_ask_less_low_m5_true = FALSE;
bool bool21_f = FALSE;
int int_0_always_0 = 0;
bool bool_day_direction_filter = TRUE;
bool bool23_t = TRUE;
int time_hour_21c = 21;
int int_4 = 4;
int time_hour_21d = 21;
int int_0f = 0;
int int_0g = 0;
int int_0h = 0;
int int_0i = 0;
int gi_672;
int gi_676;
int gi_680;
int gi_684;
double profit_made = 0.0;
double int_profit_made = 0.0;
bool bool_margin_less_margin_req = FALSE;
bool bool25;
bool bool_T_mon_fri;
int gi_716;
int num_orders_NOTmagic2or3 = 0;
int ticket_strategy_1_long_open = -2;
int ticket_strategy_1_short_open = -2;
double order_profit = 0.0;
double order_profit_2 = 0.0;
int ticket_strategy_2_long_open = -2;
int ticket_strategy_2_short_open = -2;
double g_ord_profit_756 = 0.0;
double g_ord_profit_764 = 0.0;
int int_0j = 0;
int int_0k = 0;
int int_0l = 0;
int int_0m = 0;
double rsi_15M_Period6;
double rsi_15M_Period6_offset_1;
double rsi_15M_Period6_offset_2;
double rsi_1M_Period20;
double cci_15M_Period8;
double cci_15M_Period8_offset_1;
double cci_15M_Period8_offset_2;
double ma_15M_period8;
bool bool_rsi15M_p6_in_middle = TRUE;
bool bool_rsi15M_p6_in_middle_b = TRUE;
double high_M15 = 0.0;
double low_M15 = 0.0;
bool bool_if_true_spread_grtr_allow = FALSE;
int stealth_buy_tp_1 = 0;
int sl_bid_minus_low = 0;
int stealth_sell_tp_1 = 0;
int sell_sl_1 = 0;
int time_equal_21;
int time_equal_0;
int if_2_long_3_short = 0;
int two_long_3_short = 0;
int within_1hr_cci_rsi_switched;
int datetime_cci_rsi_15m_short = 0;
int datetime_cci_rsi_15m_long = 0;
int g_ticket_940 = 0;
int g_datetime_944 = 0;
int g_ticket_948 = 0;
int g_datetime_952 = 0;
bool bool30_t = TRUE;
int datetime_15m_shift_1 = 0;
int datetime_15m_shift_1_b = 0;
int gi_968 = 0;
double cci_M5_Period168;
double cci_M5_Period275;
double high_m5;
double low_M5;
double high_3;
double low_3;
bool bool_spread = FALSE;
int gi_1024 = 0;
int range_1 = 0;
int gi_1032 = 0;
int percent_of_range_M5 = 0;
int time_x;
int gi_1044;
int g_ticket_1048 = -1;
int gi_1052;
int gi_1056;
int g_datetime_1060;
int g_datetime_1064;
double g_ord_open_price_1068;
int g_ticket_1076 = -1;
int gi_1080;
int gi_1084;
int g_datetime_1088;
int g_datetime_1092;
double g_ord_open_price_1096;
bool bool32_t = TRUE;
int g_datetime_1108 = 0;
int g_datetime_1112 = 0;
string gsa_1116[] = {“.”, “..”, “…”, “….”, “…..”};
int gi_unused_1120 = 0;
int gi_unused_1124 = 0;
string gs_1128 = “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”;
bool bool33_f = FALSE;

int S1_CheckSymbol() {
int lia_0[1];
int lia_4[1];
int lia_8[1];
int lia_12[1];
int lia_16[1];
int lia_20[1];
int lia_24[1];
int lia_28[1];
int lia_32[1];
int lia_36[1];
int lia_40[1];
double lda_44[1];
double lda_48[1];
double lda_52[1];
double lda_56[1];
int lia_60[1];
int lia_64[1];
int lia_68[1];
int lia_72[1];
int lia_76[1];
int lia_80[1];
if (s1_Init(int_x6, lia_0, lia_4, lia_8, lia_12, lia_16, lia_20, lia_24, lia_28, lia_32, lia_36, lia_40, lda_44, lda_48, lda_52, lda_56, lia_60, lia_64, lia_68, lia_72, lia_76, lia_80)) {
buy_tp_10 = lia_0[0];
int_200 = lia_4[0];
int_20 = lia_8[0];
int_0 = lia_12[0];
period_6 = lia_16[0];
period_20 = lia_20[0];
period_8 = lia_24[0];
double_70 = lia_28[0];
double_30 = lia_32[0];
double_64 = lia_36[0];
double_36 = lia_40[0];
double_1 = lda_44[0];
double_24 = lda_48[0];
dbl_hr_multiplier_countdown_2 = lda_52[0];
dbl_hr_multiplier_countdown = lda_56[0];
int_multiply_for_spread = lia_60[0];
time_hour_21 = lia_64[0];
time_hour_equal_1 = lia_68[0];
time_hour_21b = lia_72[0];
time_hour_0 = lia_76[0];
timeframe_M15 = lia_80[0];
return (1);
}
return (0);
}

int S2_CheckSymbol() {
int lia_0[1];
int lia_4[1];
int lia_8[1];
int lia_12[1];
double lda_16[1];
int lia_20[1];
int lia_24[1];
int lia_28[1];
double lda_32[1];
double lda_36[1];
double lda_40[1];
int lia_44[1];
int lia_48[1];
int lia_52[1];
int lia_56[1];
int lia_60[1];
int lia_64[1];
if (s2_Init(int_x6, lia_0, lia_4, lia_8, lda_16, lia_12, lia_20, lia_24, lia_28, lda_32, lda_36, lda_40, lia_44, lia_48, lia_52, lia_56, lia_60, lia_64)) {
int_35 = lia_0[0];
int_200b = lia_4[0];
int_20c = lia_8[0];
percent_range_1 = lda_16[0];
int_0d = lia_12[0];
int_36_always_36 = lia_20[0];
period_168 = lia_24[0];
period_275 = lia_28[0];
double_1e = lda_32[0];
double_12 = lda_36[0];
double_24b = lda_40[0];
int_0_always_0 = lia_44[0];
time_hour_21c = lia_48[0];
int_4 = lia_52[0];
time_hour_21d = lia_56[0];
int_0f = lia_60[0];
timeframe_M5 = lia_64[0];
return (1);
}
return (0);
}

int init() {
double l_global_var_8;
double ld_16;
if (bool_if_true_shift_time) time_hour_equal_1_or_0 = 0;
else time_hour_equal_1_or_0 = 1;
int_x6 = Increment(Symbol());
gi_676 = LeftPadding;
gi_672 = TopPadding;
if (gi_680 != LeftPadding || gi_684 != TopPadding) {
gi_680 = LeftPadding;
gi_684 = TopPadding;
} else GetPos(0, gi_676, gi_672);
int_0h = 0;
int_0g = 0;
email_subject = “Swissy Accu-Scalper” + ” ver: ” + “1.00″ + ” Symbol: ” + Symbol();
PrintLN(email_subject, TextColor2);
PrintSep();
ObjectsRedraw();
for (int l_count_0 = 0; !IsStopped() && !IsConnected() || StringLen(AccountName()) <= 0; l_count_0++) {
PrintLN("Waiting for connection" + PPrint(l_count_0), TextColor1, 2, 2);
ObjectsRedraw();
Sleep(150);
}
PrintLN("Authentication...", TextColor1, 2, 2);
ObjectsRedraw();
int int_authorization = 0;
ReceiptCode = StringTrimLeft(StringTrimRight(ReceiptCode));
ReceiptCode = StringSubstr(ReceiptCode, StringLen(ReceiptCode) - 8);
if (StringLen(ReceiptCode) <= 0) {
if (GlobalVariableCheck("GV_AccuScalper_REC")) {
l_global_var_8 = GlobalVariableGet("GV_AccuScalper_REC");
ReceiptCode = Base36Encode(l_global_var_8);
} else int_authorization |= 32; //32 in binary is 100000
} else {
ld_16 = Base36Decode(ReceiptCode);
if (GlobalVariableSet("GV_AccuScalper_REC", ld_16) == 0) int_authorization |= 64; //64 in binary is 1000000
}
Activate("1.00", AccountNumber(), IsDemo(), StringTrimLeft(StringTrimRight(ReceiptCode)), 1);
int_x4 = GetState();
int_x4 |= int_authorization;
PrintResponse(int_x4, 2, 2);
PrintSep();
ObjectsRedraw();
bool bool_t_if_initialize = FALSE;
bool bool_true_init_and_aggressive = FALSE;
bool_t_if_initialize = S1_CheckSymbol();
bool_true_init_and_aggressive = S2_CheckSymbol();
if (bool_t_if_initialize) {
bool_t_if_initialize_variables = TRUE;
if (Aggressive_true_from_input) bool_t_if_agressive = bool_true_init_and_aggressive;
else bool_t_if_agressive = FALSE;
} else {
if (bool_true_init_and_aggressive) {
bool_t_if_initialize_variables = FALSE;
bool_t_if_agressive = TRUE;
} else {
bool_t_if_agressive = FALSE;
bool_t_if_initialize_variables = FALSE;
}
}
if (!bool_t_if_initialize_variables && !bool_t_if_agressive) {
gs_344 = "Error:";
gs_352 = "This currency is not supported!";
} else {
gs_344 = "Aggressive_true_from_input:";
gs_352 = BPrint(bool_t_if_initialize_variables && bool_t_if_agressive);
if (Aggressive_true_from_input && !(bool_t_if_initialize_variables && bool_t_if_agressive)) gs_352 = gs_352 + " (not supported)";
}
PrintLN(gs_344);
PrintLN(gs_352, TextColor2, int_0h, int_0g - 1, 5 * (StringLen(gs_344) + 1));
PrintSep();
ObjectsRedraw();
if (!bool_t_if_initialize_variables && !bool_t_if_agressive) MessageBox("You have selected the wrong currency pair!\nPlease attach Accu-Scalper to a EURCHF chart.", email_subject + ": Warning", MB_ICONEXCLAMATION);
account_balance_x = double_1000;
int_x5 = 0;
if (!IsTesting()) bool_not_testing = TRUE;
return (0);
}

int deinit() {
Decrement(int_x6);
if (IsTesting()) {
if (!IsVisualMode()) {
PrintLN("GmtOffset:");
PrintLN(DoubleToStr(GmtOffset, 1), TextColor2, int_0h, int_0g - 1, 55);
PrintSep();
PrintLN("Digits:");
PrintLN(Digits, TextColor2, int_0h, int_0g - 1, 35);
PrintLN("spread_1:");
PrintLN(StringConcatenate(DoubleToStr(spread_1 / p0001_div_point_or_1, 1), " (", spread_1, " pips)"), TextColor2, int_0h, int_0g - 1, 40);
PrintSep();
}
return (0);
}
switch (UninitializeReason()) {
case REASON_CHARTCLOSE:
case REASON_REMOVE:
Deleteobjects(0, int_0i);
int_0i = 0;
break;
case REASON_RECOMPILE:
case REASON_CHARTCHANGE:
case REASON_PARAMETERS:
case REASON_ACCOUNT:
Deleteobjects(1, int_0i);
int_0i = 1;
}
return (0);
}

int waitForContext() {
for (int l_count_0 = 0; IsTradeContextBusy() && l_count_0 < 20; l_count_0++) Sleep(15);
if (l_count_0 >= 20) Print(“Trade context is buisy more than “, DoubleToStr(15 * l_count_0 / 1000, 2), ” seconds”);
else
if (l_count_0 > 0) Print(“Trade context was buisy “, DoubleToStr(15 * l_count_0 / 1000, 2), ” seconds”);
return (l_count_0);
}

int openOrder(int order_type_1, double lots_1, double price_1, double take_profit_1, double stop_loss_1, int magic_1, color color_1, bool stealth) {
int l_error_68;
double take_profit_2 = 0;
double stop_loss_2 = 0;
if (!stealth) {
take_profit_2 = take_profit_1;
stop_loss_2 = stop_loss_1;
}
waitForContext();
int ticket_1 = OrderSend(Symbol(), order_type_1, lots_1, price_1, Slippage * p0001_div_point_or_1, stop_loss_2, take_profit_2, OrderComments, magic_1, 0, color color_1);
if (ticket_1 > 0) {
if (stealth) {
if (OrderSelect(ticket_1, SELECT_BY_TICKET)) {
waitForContext();
OrderModify(ticket_1, OrderOpenPrice(), stop_loss_1, take_profit_1, 0, color_1);
}
}
if (SendEmails) SendMail(email_subject, “Open ” + OpPrint(order_type_1) + “: [" + Symbol() + "] ” + NormalizeDouble(price_1, Digits));
} else {
l_error_68 = GetLastError();
if (!stealth) return (openOrder(order_type_1, lots_1, price_1, take_profit_1, stop_loss_1, magic_1, color_1, 1));
Print(OpPrint(order_type_1) + ” operation failed – error(“, l_error_68, “): “, ErrorDescription(l_error_68));
}
return (ticket_1);
}
//closes 2 different strategies orders
//close buy ai_0 =0
//close sell ai_0 =1
//closes order at ask or bid respectively of buy or sell
int closeOrder(int int_closebuy_0_closesell_1, color a_color_4) {
double l_price_8;
int l_error_20;
for (int l_count_16 = 0; l_count_16 < 20; l_count_16++) {
if (waitForContext() > 5) RefreshRates();
if (int_closebuy_0_closesell_1 == 0) l_price_8 = Bid;
else l_price_8 = Ask;
if (OrderClose(OrderTicket(), OrderLots(), l_price_8, Slippage * p0001_div_point_or_1, a_color_4)) return (-1);
l_error_20 = GetLastError();
Print(“Order close operation failed – error(“, l_error_20, “): “, ErrorDescription(l_error_20));
RefreshRates();
}
Print(“Order close operation failed”);
return (OrderTicket());
}

double MMLots(double ad_0, double ad_8, int &ai_16) {
return (NormalizeLots(ad_0 * ad_8 / MarketInfo(Symbol(), MODE_MARGINREQUIRED) / (AccountLeverage() / 100.0), ai_16));
}

double NormalizeLots(double ad_0, int &ai_8) {
double lot_step = MarketInfo(Symbol(), MODE_LOTSTEP);
double min_lot = MarketInfo(Symbol(), MODE_MINLOT);
double max_lot = MarketInfo(Symbol(), MODE_MAXLOT);
double ld_ret_12 = MathCeil(ad_0 / lot_step) * lot_step;
ai_8 = 0;
if (ld_ret_12 < min_lot) {
ld_ret_12 = min_lot;
ai_8 = -1;
}
if (ld_ret_12 > max_lot) {
ld_ret_12 = max_lot;
ai_8 = 1;
}
return (ld_ret_12);
}

void CountBalance(double ad_0) {
profit_made += ad_0;
if (int_profit_made < profit_made) int_profit_made = profit_made;
}

double RecoveryLot(double ad_0) {
int switch_max_or_min_lot_exceeded;
if (int_profit_made > profit_made && int_0j > int_0l) return (NormalizeLots(2.0 * ad_0, switch_max_or_min_lot_exceeded));
int_0l = int_0j;
return (ad_0);
}
//runs countbalance function
int RecoverTrades() {
int l_count_0 = 0;
profit_made = 0;
int_profit_made = 0;
for (int l_pos_4 = OrdersHistoryTotal() – 1; l_pos_4 >= 0; l_pos_4–) {
if (OrderSelect(l_pos_4, SELECT_BY_POS, MODE_HISTORY)) {
if (OrderMagicNumber() != magic_2 && OrderMagicNumber() != magic_3) continue;
CountBalance(OrderProfit());
l_count_0++;
}
}
return (l_count_0);
}

//Go through all the orders return the ticket if magic number and order type match else return -1
int Recover(int a_magic_0, int order_type_3) {
for (int l_pos_8 = OrdersTotal() – 1; l_pos_8 >= 0; l_pos_8–) {
if (OrderSelect(l_pos_8, SELECT_BY_POS)) {
if (OrderMagicNumber() == a_magic_0) {
if (OrderSymbol() == Symbol())
if (OrderType() == order_type_3) return (OrderTicket());
}
}
}
return (-1);
}

//go through all orders if order is not magic_2 and not magic_3 increment num_orders_NOTmagic2or3 by 1
void RefreshOrders() {
num_orders_NOTmagic2or3 = 0;
for (int l_pos_0 = OrdersTotal() – 1; l_pos_0 >= 0; l_pos_0–) {
if (OrderSelect(l_pos_0, SELECT_BY_POS)) {
if (OrderSymbol() == Symbol())
if (OrderMagicNumber() != magic_2 && OrderMagicNumber() != magic_3) num_orders_NOTmagic2or3++;
}
}
}

//return 1 or true if num_orders_notmagic2or3 false &&
//ticket_strategy_1_longOPen false &&
// ticket_strategy_1_short_open false &&
//ticket_strategy_2_long_open false &&
//ticket_strategy_2_short_open false

int FIFOrule() {
return (num_orders_NOTmagic2or3 <= 0 && ticket_strategy_1_long_open < 0 && ticket_strategy_1_short_open < 0 && ticket_strategy_2_long_open < 0 && ticket_strategy_2_short_open < 0);
}

//returns 2 for long after 1hr of cci_15m_period8 > 0 or rsi_15m_period6 > 50
//returns 3 for short after 1 hr of cci_15m_period8 < 0 or rsi_15m_period6 < 50
//if returns 2 then you have been in a short period more than an Hour
//if returns 3 then you have been in a long period for more than an hour
int s1_direction() {
if (cci_15M_Period8 >= 0.0 || rsi_15M_Period6 >= 50.0) datetime_cci_rsi_15m_long = current_time;
if (cci_15M_Period8 <= 0.0 || rsi_15M_Period6 <= 50.0) datetime_cci_rsi_15m_short = current_time;
if (datetime_cci_rsi_15m_long > 0 && current_time – datetime_cci_rsi_15m_long > 3600.0 * dbl_hr_multiplier_countdown_2) return (2);
if (datetime_cci_rsi_15m_short > 0 && current_time – datetime_cci_rsi_15m_short > 3600.0 * dbl_hr_multiplier_countdown_2) return (3);
if (datetime_cci_rsi_15m_long == 0 || datetime_cci_rsi_15m_short == 0) return (0);
return (1);
}

//if you are within the first hour of the day sets high_M15 && low_m15 as the high and low of yesterday.
//Else set high_m15 to the high of today and low_m15 to todays low
void dayRange_15M() {
int l_shift_0;
if (current_time – time_of_midnight < 3600.0 * number_of_hours_to_shift) l_shift_0 = iBarShift(NULL, timeframe_M15, time_of_midnight - 86400);
else l_shift_0 = iBarShift(NULL, timeframe_M15, time_of_midnight);
high_M15 = iHigh(NULL, timeframe_M15, iHighest(NULL, timeframe_M15, MODE_HIGH, l_shift_0 - time_hour_equal_1_or_0, time_hour_equal_1_or_0));
low_M15 = iLow(NULL, timeframe_M15, iLowest(NULL, timeframe_M15, MODE_LOW, l_shift_0 - time_hour_equal_1_or_0, time_hour_equal_1_or_0));
}

//rsi_15m_period6 set
//rsi_15m_period6_offset_1 Set
//rsi_15m_period6_offset_2 set
//if bool_if_true_rsi_1m_20 = true set it
//set cci_15m_period8
//set cci_15m_period8 offset_1
//set cci_15m_period8 offset_2
//set ma_15m_period8
//sets bool_rsi15m_p6_in_middle true or false
//if

void s1_setRules() {
int two_for_long_3_for_short;
HideTestIndicators(TRUE);
rsi_15M_Period6 = iRSI(NULL, timeframe_M15, period_6, PRICE_CLOSE, time_hour_equal_1_or_0);
rsi_15M_Period6_offset_1 = iRSI(NULL, timeframe_M15, period_6, PRICE_CLOSE, time_hour_equal_1_or_0 + 1);
rsi_15M_Period6_offset_2 = iRSI(NULL, timeframe_M15, period_6, PRICE_CLOSE, time_hour_equal_1_or_0 + 2);
if (bool_if_true_rsi_1M_20) rsi_1M_Period20 = iRSI(NULL, PERIOD_M1, period_20, PRICE_CLOSE, time_hour_equal_1_or_0);
cci_15M_Period8 = iCCI(NULL, timeframe_M15, period_8, PRICE_TYPICAL, time_hour_equal_1_or_0);
cci_15M_Period8_offset_1 = iCCI(NULL, timeframe_M15, period_8, PRICE_TYPICAL, time_hour_equal_1_or_0 + 1);
cci_15M_Period8_offset_2 = iCCI(NULL, timeframe_M15, period_8, PRICE_TYPICAL, time_hour_equal_1_or_0 + 2);
ma_15M_period8 = iMA(NULL, timeframe_M15, period_8, 0, MODE_SMA, PRICE_MEDIAN, time_hour_equal_1_or_0);
if (bool_if_true_rsi15m_period6) {
if (rsi_15M_Period6 >= 50 – rsi_15m_middle / 2 && rsi_15M_Period6 <= rsi_15m_middle / 2 + 50) {
bool_rsi15M_p6_in_middle = TRUE;
bool_rsi15M_p6_in_middle_b = TRUE;
}
}
if (bool_if_true_get_15M_range) dayRange_15M();
if (bool13_t) {
two_for_long_3_for_short = if_2_long_3_short;
if_2_long_3_short = s1_direction();//2 for long 3 for short
if (two_for_long_3_for_short != if_2_long_3_short) {
two_long_3_short = two_for_long_3_for_short;
if (if_2_long_3_short == 1) within_1hr_cci_rsi_switched = current_time + 3600.0 * dbl_hr_multiplier_countdown;
}
}
if (int_multiply_for_spread > 0) {
if (spread_1 > int_multiply_for_spread * p0001_div_point_or_1) {
if (g_spread_288 < spread_1) {
Print("Strategy1: Safe spread limit exceeded: spread = ", spread_1);
if (bool_using_daydirection_filter) Print("Strategy1: Using DayDirection filter");
}
bool_if_true_spread_grtr_allow = TRUE;
} else bool_if_true_spread_grtr_allow = FALSE;
}
HideTestIndicators(FALSE);
if (bool_if_true_spread_grtr_allow) {
time_equal_21 = time_hour_21b;
time_equal_0 = time_hour_0;
return;
}
time_equal_21 = time_hour_21;
time_equal_0 = time_hour_equal_1;
}

//exit if rsi is not in the middle
//if spread is too high exit
//if daydirection filter false exit
//if first 12 hours of day then exit if 5M close is less than 5M close of 24hrs ago
//if last 12 hours of day then exit if 5M close is less than 5M close of midnight
//if all the tests pass then call s1_Buy
int s1_openBuyRule() {
double close_M5_2;
double close_M5;
int bar_with_open_time_1;
int bar_with_open_time_2;
if (!bool_rsi15M_p6_in_middle) return (0);//exit if rsi 15m period 6 is not in the middle between 40-60
if (bool_if_true_spread_grtr_allow && !bool_using_daydirection_filter) return (0);//exit if spread greater than allowed ?? using daydirection filter=false
if (bool13_t) {//equals true by default
if (if_2_long_3_short == 2) return (0);
if (current_time <= within_1hr_cci_rsi_switched)//60 minute countdown is not over yet
if (two_long_3_short == 2) return (0);
}
if (bool14_f || bool_if_true_spread_grtr_allow) {
if (current_time - time_of_midnight < 43200.0) {//12 hours
bar_with_open_time_1 = iBarShift(NULL, timeframe_M15, time_of_midnight - 86400);//24 hours
bar_with_open_time_2 = iBarShift(NULL, timeframe_M15, time_of_midnight);
} else {
bar_with_open_time_1 = iBarShift(NULL, timeframe_M15, time_of_midnight);
bar_with_open_time_2 = time_hour_equal_1_or_0;
}
close_M5 = iClose(NULL, timeframe_M15, bar_with_open_time_1);
close_M5_2 = iClose(NULL, timeframe_M15, bar_with_open_time_2);
if (close_M5_2 < close_M5) return (0);
}
return (s1_Buy(Ask, cci_15M_Period8, rsi_15M_Period6, rsi_1M_Period20, ma_15M_period8, double_30, double_36, buy_tp_10 * p0001_div_point_or_1 * Point, bool8_t, bool_if_true_rsi_1M_20));
}

//exit if rsi is not in the middle
//if spread is too high exit
//if daydirection filter false exit
//if first 12 hours of day then exit if 5M close is greater than 5M close of 24hrs ago
//if last 12 hours of day then exit if 5M close is greater than 5M close of midnight
//if all the tests pass then call s1_sell
int s1_openSellRule() {
double close_M5_2;
double close_M5;
int bar_with_open_time_1;
int bar_with_open_time_2;
if (!bool_rsi15M_p6_in_middle_b) return (0);
if (bool_if_true_spread_grtr_allow && !bool_using_daydirection_filter) return (0);
if (bool13_t) {
if (if_2_long_3_short == 3) return (0);
if (current_time <= within_1hr_cci_rsi_switched) //60 minute countdown
if (two_long_3_short == 3) return (0);
}
if (bool14_f || bool_if_true_spread_grtr_allow) {
if (current_time - time_of_midnight < 43200.0) {
bar_with_open_time_1 = iBarShift(NULL, timeframe_M15, time_of_midnight - 86400);
bar_with_open_time_2 = iBarShift(NULL, timeframe_M15, time_of_midnight);
} else {
bar_with_open_time_1 = iBarShift(NULL, timeframe_M15, time_of_midnight);
bar_with_open_time_2 = time_hour_equal_1_or_0;
}
close_M5 = iClose(NULL, timeframe_M15, bar_with_open_time_1);
close_M5_2 = iClose(NULL, timeframe_M15, bar_with_open_time_2);
if (close_M5_2 > close_M5) return (0);
}
return (s1_Sell(Bid, cci_15M_Period8, rsi_15M_Period6, rsi_1M_Period20, ma_15M_period8, double_70, double_64, buy_tp_10 * p0001_div_point_or_1 * Point, bool8_t, bool_if_true_rsi_1M_20));
}

bool s1_closeBuyRule() {
if (Stealth || OrderTakeProfit() == 0.0) {
if (buy_tp_10 > 0)
if (NormalizeDouble(Bid – OrderOpenPrice(), Digits) >= NormalizeDouble(buy_tp_10 * Point * p0001_div_point_or_1, Digits)) return (TRUE);
}
if (OrderStopLoss() == 0.0) {
if (sl_bid_minus_low > 0)
if (NormalizeDouble(OrderOpenPrice() – Ask, Digits) >= NormalizeDouble(sl_bid_minus_low * Point * p0001_div_point_or_1, Digits)) return (TRUE);
}
if (bool12_f) {//always equals false..is input
if (g_ticket_940 != OrderTicket()) {
g_datetime_944 = OrderOpenTime();
g_ticket_940 = OrderTicket();
}
if (cci_15M_Period8 >= 0.0 || rsi_15M_Period6 >= 50.0) g_datetime_944 = current_time;
if (cci_15M_Period8_offset_2 < cci_15M_Period8_offset_1 && rsi_15M_Period6_offset_2 < rsi_15M_Period6_offset_1) g_datetime_944 = iTime(NULL, timeframe_M15, time_hour_equal_1_or_0);
if (current_time - g_datetime_944 > 3600.0 * double_1 && OrderProfit() < 0.0) return (TRUE);
}
if (bool11_t) {
if (current_time - OrderOpenTime() > 3600.0 * double_1) {
if (cci_15M_Period8 > 0.0 && rsi_15M_Period6 > 50.0 && OrderProfit() > 0.0) return (TRUE);
if (current_time – OrderOpenTime() > 3600.0 * double_24) return (TRUE);
}
}
return (FALSE);
}

bool s1_closeSellRule() {
if (Stealth || OrderTakeProfit() == 0.0) {
if (buy_tp_10 > 0)
if (NormalizeDouble(OrderOpenPrice() – Ask, Digits) >= NormalizeDouble(buy_tp_10 * Point * p0001_div_point_or_1, Digits)) return (TRUE);
}
if (OrderStopLoss() == 0.0) {
if (sell_sl_1 > 0)
if (NormalizeDouble(Bid – OrderOpenPrice(), Digits) >= NormalizeDouble(sell_sl_1 * Point * p0001_div_point_or_1, Digits)) return (TRUE);
}
if (bool12_f) {
if (g_ticket_948 != OrderTicket()) {
g_datetime_952 = OrderOpenTime();
g_ticket_948 = OrderTicket();
}
if (cci_15M_Period8 <= 0.0 || rsi_15M_Period6 <= 50.0) g_datetime_952 = current_time;
if (cci_15M_Period8_offset_2 > cci_15M_Period8_offset_1 && rsi_15M_Period6_offset_2 > rsi_15M_Period6_offset_1) g_datetime_952 = iTime(NULL, timeframe_M15, time_hour_equal_1_or_0);
if (current_time – g_datetime_952 > 3600.0 * double_1 && OrderProfit() < 0.0) return (TRUE);
}
if (bool11_t) {
if (current_time - OrderOpenTime() > 3600.0 * double_1) {
if (cci_15M_Period8 < 0.0 && rsi_15M_Period6 < 50.0 && OrderProfit() > 0.0) return (TRUE);
if (current_time – OrderOpenTime() > 3600.0 * double_24) return (TRUE);
}
}
return (FALSE);
}
//Open buy order with a stop loss of the low of M15. However, if this value is > 200 then the stop loss
// becomes int200 or 200
//However, if you are still below int_20 for a stop loss then int_20 becomes stop loss
//if stealth=true take profit = int_50 or 50 pips if stealth=false then take profit = buy_tp_10 or 10 pips
int s1_openBuy() {
double take_profit_3 = 0;
double stop_bid_minus_range = 0;
if (low_M15 > 0.0) {
sl_bid_minus_low = (Bid – low_M15 + Point * p0001_div_point_or_1) / Point;
if (int_200 > 0 && sl_bid_minus_low > int_200 * p0001_div_point_or_1) sl_bid_minus_low = int_200 * p0001_div_point_or_1;
if (sl_bid_minus_low < int_20 * p0001_div_point_or_1) sl_bid_minus_low = int_20 * p0001_div_point_or_1;
} else sl_bid_minus_low = int_20 * p0001_div_point_or_1;
if (sl_bid_minus_low < marketinfo_stoplevel) sl_bid_minus_low = marketinfo_stoplevel;
if (Stealth) stealth_buy_tp_1 = int_50 * p0001_div_point_or_1;
else stealth_buy_tp_1 = buy_tp_10 * p0001_div_point_or_1;
if (stealth_buy_tp_1 < marketinfo_stoplevel) stealth_buy_tp_1 = marketinfo_stoplevel;
stop_bid_minus_range = NormalizeDouble(Bid - sl_bid_minus_low * Point, Digits);
take_profit_3 = NormalizeDouble(Ask + stealth_buy_tp_1 * Point, Digits);
return (openOrder(OP_BUY, lots_2, Ask, take_profit_3, stop_bid_minus_range, magic_2, color_2, 0));
}

int s1_openSell() {
double take_profit_3 = 0;
double stop_bid_minus_range = 0;
if (high_M15 > 0.0) {
sell_sl_1 = (high_M15 – Ask + Point * p0001_div_point_or_1) / Point;
if (int_200 > 0 && sell_sl_1 > int_200 * p0001_div_point_or_1) sell_sl_1 = int_200 * p0001_div_point_or_1;
if (sell_sl_1 < int_20 * p0001_div_point_or_1) sell_sl_1 = int_20 * p0001_div_point_or_1;
} else sell_sl_1 = int_20 * p0001_div_point_or_1;
if (sell_sl_1 < marketinfo_stoplevel) sell_sl_1 = marketinfo_stoplevel;
if (Stealth) stealth_sell_tp_1 = int_50 * p0001_div_point_or_1;
else stealth_sell_tp_1 = buy_tp_10 * p0001_div_point_or_1;
if (stealth_sell_tp_1 < marketinfo_stoplevel) stealth_sell_tp_1 = marketinfo_stoplevel;
stop_bid_minus_range = NormalizeDouble(Ask + sell_sl_1 * Point, Digits);
take_profit_3 = NormalizeDouble(Bid - stealth_sell_tp_1 * Point, Digits);
return (openOrder(OP_SELL, lots_2, Bid, take_profit_3, stop_bid_minus_range, magic_2, color_3, 0));
}

int s1_buyControl() {
int li_ret_16;
double take_profit_4 = OrderTakeProfit();
double stop_loss_3 = OrderStopLoss();
if (take_profit_4 == 0.0 || stop_loss_3 == 0.0) {
if (take_profit_4 == 0.0) {
if (stealth_buy_tp_1 < marketinfo_stoplevel) stealth_buy_tp_1 = marketinfo_stoplevel;
take_profit_4 = NormalizeDouble(Ask + stealth_buy_tp_1 * Point, Digits);
}
if (stop_loss_3 == 0.0) {
if (sl_bid_minus_low < marketinfo_stoplevel) sl_bid_minus_low = marketinfo_stoplevel;
stop_loss_3 = NormalizeDouble(Bid - sl_bid_minus_low * Point, Digits);
}
waitForContext();
OrderModify(OrderTicket(), OrderOpenPrice(), stop_loss_3, take_profit_4, 0, Green);
}
if (s1_closeBuyRule()) {
li_ret_16 = closeOrder(0, Violet);
if (li_ret_16 < 0) return (li_ret_16);
}
if (int_0 > 0) {
if (Bid – OrderOpenPrice() > Point * p0001_div_point_or_1 * int_0) {
if (OrderStopLoss() < Bid - Point * p0001_div_point_or_1 * int_0 || OrderStopLoss() == 0.0) {
waitForContext();
OrderModify(OrderTicket(), OrderOpenPrice(), NormalizeDouble(Bid - Point * p0001_div_point_or_1 * int_0, Digits), OrderTakeProfit(), 0, Green);
}
}
}
return (OrderTicket());
}

int s1_sellControl() {
int li_ret_16;
double take_profit_4 = OrderTakeProfit();
double stop_loss_3 = OrderStopLoss();
if (take_profit_4 == 0.0 || stop_loss_3 == 0.0) {
if (take_profit_4 == 0.0) {
if (stealth_sell_tp_1 < marketinfo_stoplevel) stealth_sell_tp_1 = marketinfo_stoplevel;
take_profit_4 = NormalizeDouble(Bid - stealth_sell_tp_1 * Point, Digits);
}
if (stop_loss_3 == 0.0) {
if (sell_sl_1 < marketinfo_stoplevel) sell_sl_1 = marketinfo_stoplevel;
stop_loss_3 = NormalizeDouble(Ask + sell_sl_1 * Point, Digits);
}
waitForContext();
OrderModify(OrderTicket(), OrderOpenPrice(), stop_loss_3, take_profit_4, 0, Red);
}
if (s1_closeSellRule()) {
li_ret_16 = closeOrder(1, Violet);
if (li_ret_16 < 0) return (li_ret_16);
}
if (int_0 > 0) {
if (OrderOpenPrice() – Ask > Point * p0001_div_point_or_1 * int_0) {
if (OrderStopLoss() > Ask + Point * p0001_div_point_or_1 * int_0 || OrderStopLoss() == 0.0) {
waitForContext();
OrderModify(OrderTicket(), OrderOpenPrice(), NormalizeDouble(Ask + Point * p0001_div_point_or_1 * int_0, Digits), OrderTakeProfit(), 0, Red);
}
}
}
return (OrderTicket());
}

void run_Strategy1() {
int time_day_of_week;
bool25 = TRUE;
if (ticket_strategy_1_long_open == -2) {
ticket_strategy_1_long_open = Recover(magic_2, OP_BUY);
if (ticket_strategy_1_long_open >= 0) {
OrderSelect(ticket_strategy_1_long_open, SELECT_BY_TICKET);
OrderPrint();
Print(“Strategy1: Order found:”);
}
}
if (ticket_strategy_1_short_open == -2) {
ticket_strategy_1_short_open = Recover(magic_2, OP_SELL);
if (ticket_strategy_1_short_open >= 0) {
OrderSelect(ticket_strategy_1_short_open, SELECT_BY_TICKET);
OrderPrint();
Print(“Strategy1: Order found:”);
}
}
s1_setRules();
if ((time_equal_21 < time_equal_0 && (time_hour_1 >= time_equal_21 && time_hour_1 <= time_equal_0 - 1)) || (time_equal_21 >= time_equal_0 && time_hour_1 >= time_equal_21 || time_hour_1 <= time_equal_0 - 1)) bool25 = TRUE;
else bool25 = FALSE;
if (bool25 && bool16_t) {
time_day_of_week = TimeDayOfWeek(current_time_minus_gmt);
if ((time_day_of_week == 5 && time_hour_1 >= time_equal_21) || (time_day_of_week == 1 && time_equal_21 >= time_equal_0 && time_hour_1 <= time_equal_0 - 1)) bool25 = FALSE;
else
if (time_day_of_week > 5 || time_day_of_week < 1) bool25 = FALSE;
}
if (bool30_t != bool25) {
if (bool25) int_0j++;
bool30_t = bool25;
}
if (ticket_strategy_1_long_open >= 0) {
if (OrderSelect(ticket_strategy_1_long_open, SELECT_BY_TICKET)) {
if (OrderCloseTime() == 0) ticket_strategy_1_long_open = s1_buyControl();
else ticket_strategy_1_long_open = -1;
order_profit = OrderProfit();
if (ticket_strategy_1_long_open < 0) CountBalance(order_profit);
} else {
ticket_strategy_1_long_open = -2;
order_profit = 0;
}
}
if (ticket_strategy_1_short_open >= 0) {
if (OrderSelect(ticket_strategy_1_short_open, SELECT_BY_TICKET)) {
if (OrderCloseTime() == 0) ticket_strategy_1_short_open = s1_sellControl();
else ticket_strategy_1_short_open = -1;
order_profit_2 = OrderProfit();
if (ticket_strategy_1_short_open < 0) CountBalance(order_profit_2);
} else {
ticket_strategy_1_short_open = -2;
order_profit_2 = 0;
}
}
int li_0 = s1_openBuyRule();
int orders_in_history = s1_openSellRule();
if (!bool25 || !gi_716 || bool_margin_less_margin_req) return;
if (NFA && !FIFOrule()) return;
if (datetime_15m_shift_1 != iTime(NULL, timeframe_M15, time_hour_equal_1_or_0) && li_0 && ticket_strategy_1_long_open < 0) {
ticket_strategy_1_long_open = s1_openBuy();
if (ticket_strategy_1_long_open < 0) return;
datetime_15m_shift_1 = iTime(NULL, timeframe_M15, time_hour_equal_1_or_0);
if (bool_if_true_rsi15m_period6) {
bool_rsi15M_p6_in_middle = FALSE;
bool_rsi15M_p6_in_middle_b = TRUE;
}
int_0m++;
return;
}
if (datetime_15m_shift_1_b != iTime(NULL, timeframe_M15, time_hour_equal_1_or_0) && orders_in_history && ticket_strategy_1_short_open < 0) {
ticket_strategy_1_short_open = s1_openSell();
if (ticket_strategy_1_short_open >= 0) {
datetime_15m_shift_1_b = iTime(NULL, timeframe_M15, time_hour_equal_1_or_0);
if (bool_if_true_rsi15m_period6) {
bool_rsi15M_p6_in_middle = TRUE;
bool_rsi15M_p6_in_middle_b = FALSE;
}
int_0m++;
}
}
}

void s2_setRules() {
HideTestIndicators(TRUE);
if (bool17_always_true || bool19_always_true) cci_M5_Period168 = iCCI(NULL, timeframe_M5, period_168, PRICE_TYPICAL, time_hour_equal_1_or_0);
if (bool_cci_m5_period275) cci_M5_Period275= iCCI(NULL, timeframe_M5, period_275, PRICE_TYPICAL, time_hour_equal_1_or_0);
high_m5 = iHigh(NULL, timeframe_M5, iHighest(NULL, timeframe_M5, MODE_HIGH, int_36_always_36, 1));
low_M5 = iLow(NULL, timeframe_M5, iLowest(NULL, timeframe_M5, MODE_LOW, int_36_always_36, 1));
if (int_0_always_0 > 0) {
if (spread_1 > int_0_always_0 * p0001_div_point_or_1) {
if (g_spread_288 < spread_1) {
Print("Strategy2: Safe spread limit exceeded: spread = ", spread_1);
if (bool_day_direction_filter) Print("Strategy2: Using DayDirection filter");
}
bool_spread = TRUE;
} else bool_spread = FALSE;
}
HideTestIndicators(TRUE);
if (bool_spread) {
time_x = time_hour_21d;
gi_1044 = int_0f;
return;
}
time_x = time_hour_21c;
gi_1044 = int_4;
}

int s2_openBuyRule() {
double close_M5_2;
double close_M5;
int bar_with_open_time_1;
int bar_with_open_time_2;
if (bool_spread && !bool_day_direction_filter) return (0);
if (bool21_f || bool_spread) {
if (current_time - time_of_midnight < 43200.0) {
bar_with_open_time_1 = iBarShift(NULL, timeframe_M5, time_of_midnight - 86400);
bar_with_open_time_2 = iBarShift(NULL, timeframe_M5, time_of_midnight);
} else {
bar_with_open_time_1 = iBarShift(NULL, timeframe_M5, time_of_midnight);
bar_with_open_time_2 = time_hour_equal_1_or_0;
}
close_M5 = iClose(NULL, timeframe_M5, bar_with_open_time_1);
close_M5_2 = iClose(NULL, timeframe_M5, bar_with_open_time_2);
if (close_M5_2 < close_M5) return (0);
}
return (s2_Buy(Ask, Bid, cci_M5_Period168, cci_M5_Period275, low_M5, high_m5, bool17_always_true, bool_cci_m5_period275));
}

int s2_openSellRule() {
double close_M5_2;
double close_M5;
int bar_with_open_time_1;
int bar_with_open_time_2;
if (bool_spread && !bool_day_direction_filter) return (0);
if (bool21_f || bool_spread) {
if (current_time - time_of_midnight < 43200.0) {
bar_with_open_time_1 = iBarShift(NULL, timeframe_M5, time_of_midnight - 86400);
bar_with_open_time_2 = iBarShift(NULL, timeframe_M5, time_of_midnight);
} else {
bar_with_open_time_1 = iBarShift(NULL, timeframe_M5, time_of_midnight);
bar_with_open_time_2 = time_hour_equal_1_or_0;
}
close_M5 = iClose(NULL, timeframe_M5, bar_with_open_time_1);
close_M5_2 = iClose(NULL, timeframe_M5, bar_with_open_time_2);
if (close_M5_2 > close_M5) return (0);
}
return (s2_Sell(Ask, Bid, cci_M5_Period168, cci_M5_Period275, low_M5, high_m5, bool17_always_true, bool_cci_m5_period275));
}

bool s2_closeBuyRule() {
double l_ord_profit_0;
if (Stealth || OrderTakeProfit() == 0.0) {
if (int_35 > 0)
if (NormalizeDouble(Bid – OrderOpenPrice(), Digits) >= NormalizeDouble(int_35 * Point * p0001_div_point_or_1, Digits)) return (TRUE);
}
if (OrderStopLoss() == 0.0) {
if (range_1 > 0)
if (NormalizeDouble(OrderOpenPrice() – Ask, Digits) >= NormalizeDouble(range_1 * Point * p0001_div_point_or_1, Digits)) return (TRUE);
}
if (bool19_always_true) {
if (g_ticket_1048 != OrderTicket()) {
gi_1052 = 0;
gi_1056 = 0;
g_datetime_1064 = OrderOpenTime();
g_datetime_1060 = g_datetime_1064;
g_ticket_1048 = OrderTicket();
g_ord_open_price_1068 = OrderOpenPrice();
}
l_ord_profit_0 = OrderProfit();
if (Ask > g_ord_open_price_1068) {
gi_1052 += current_time – g_datetime_1060;
g_datetime_1060 = current_time;
} else {
gi_1056 += current_time – g_datetime_1060;
g_datetime_1060 = current_time;
}
if (current_time – g_datetime_1064 > 3600.0 * double_1e) {
if (cci_M5_Period168 > 0.0 && l_ord_profit_0 > 0.0 && gi_1052 < gi_1056) return (TRUE);
if (cci_M5_Period168 > 100.0 && l_ord_profit_0 > 0.0) return (TRUE);
if (current_time – g_datetime_1064 > 3600.0 * double_12 && l_ord_profit_0 > 0.0) return (TRUE);
if (current_time – g_datetime_1064 > 3600.0 * double_24b) return (TRUE);
}
}
if (bool_ask_less_low_m5_true) return (Bid >= high_m5);
return (Bid >= high_3);
}

bool s2_closeSellRule() {
double l_ord_profit_0;
if (Stealth || OrderTakeProfit() == 0.0) {
if (int_35 > 0)
if (NormalizeDouble(OrderOpenPrice() – Ask, Digits) >= NormalizeDouble(int_35 * Point * p0001_div_point_or_1, Digits)) return (TRUE);
}
if (OrderStopLoss() == 0.0) {
if (percent_of_range_M5 > 0)
if (NormalizeDouble(Bid – OrderOpenPrice(), Digits) >= NormalizeDouble(percent_of_range_M5 * Point * p0001_div_point_or_1, Digits)) return (TRUE);
}
if (bool19_always_true) {
if (g_ticket_1076 != OrderTicket()) {
gi_1080 = 0;
gi_1084 = 0;
g_datetime_1092 = OrderOpenTime();
g_datetime_1088 = g_datetime_1092;
g_ticket_1076 = OrderTicket();
g_ord_open_price_1096 = OrderOpenPrice();
}
l_ord_profit_0 = OrderProfit();
if (Bid < g_ord_open_price_1096) {
gi_1080 += current_time - g_datetime_1088;
g_datetime_1088 = current_time;
} else {
gi_1084 += current_time - g_datetime_1088;
g_datetime_1088 = current_time;
}
if (current_time - g_datetime_1092 > 3600.0 * double_1e) {
if (cci_M5_Period168 < 0.0 && l_ord_profit_0 > 0.0 && gi_1080 < gi_1084) return (TRUE);
if (cci_M5_Period168 < -100.0 && l_ord_profit_0 > 0.0) return (TRUE);
if (current_time – g_datetime_1092 > 3600.0 * double_12 && l_ord_profit_0 > 0.0) return (TRUE);
if (current_time – g_datetime_1092 > 3600.0 * double_24b) return (TRUE);
}
}
if (bool_ask_less_low_m5_true) return (Ask <= low_M5);
return (Ask <= low_3);
}
//
int s2_openBuy() {
double take_profit_3 = 0;
double stop_bid_minus_range = 0;
if (percent_range_1 > 0.0) {
range_1 = percent_range_1 * (high_m5 – low_M5) / Point;
if (int_200b > 0 && range_1 > int_200b * p0001_div_point_or_1) range_1 = int_200b * p0001_div_point_or_1;
if (range_1 < int_20c * p0001_div_point_or_1) range_1 = int_20c * p0001_div_point_or_1;
} else range_1 = int_20c * p0001_div_point_or_1;
if (range_1 < marketinfo_stoplevel) range_1 = marketinfo_stoplevel;
if (Stealth) gi_1024 = int_60 * p0001_div_point_or_1;
else gi_1024 = int_35 * p0001_div_point_or_1;
if (gi_1024 < marketinfo_stoplevel) gi_1024 = marketinfo_stoplevel;
stop_bid_minus_range = NormalizeDouble(Bid - range_1 * Point, Digits);
take_profit_3 = NormalizeDouble(Ask + gi_1024 * Point, Digits);
return (openOrder(OP_BUY, lots_2, Ask, take_profit_3, stop_bid_minus_range, magic_3, color_5, 0));
}

int s2_openSell() {
double take_profit_3 = 0;
double stop_bid_minus_range = 0;
if (percent_range_1 > 0.0) {
percent_of_range_M5 = percent_range_1 * (high_m5 – low_M5) / Point;
if (int_200b > 0 && percent_of_range_M5 > int_200b * p0001_div_point_or_1) percent_of_range_M5 = int_200b * p0001_div_point_or_1;
if (percent_of_range_M5 < int_20c * p0001_div_point_or_1) percent_of_range_M5 = int_20c * p0001_div_point_or_1;
} else percent_of_range_M5 = int_20c * p0001_div_point_or_1;
if (percent_of_range_M5 < marketinfo_stoplevel) percent_of_range_M5 = marketinfo_stoplevel;
if (Stealth) gi_1032 = int_60 * p0001_div_point_or_1;
else gi_1032 = int_35 * p0001_div_point_or_1;
if (gi_1032 < marketinfo_stoplevel) gi_1032 = marketinfo_stoplevel;
stop_bid_minus_range = NormalizeDouble(Ask + percent_of_range_M5 * Point, Digits);
take_profit_3 = NormalizeDouble(Bid - gi_1032 * Point, Digits);
return (openOrder(OP_SELL, lots_2, Bid, take_profit_3, stop_bid_minus_range, magic_3, color_6, 0));
}

int s2_buyControl() {
int li_ret_16;
double take_profit_4 = OrderTakeProfit();
double stop_loss_3 = OrderStopLoss();
if (take_profit_4 == 0.0 || stop_loss_3 == 0.0) {
if (take_profit_4 == 0.0) {
if (gi_1024 < marketinfo_stoplevel) gi_1024 = marketinfo_stoplevel;
take_profit_4 = NormalizeDouble(Ask + gi_1024 * Point, Digits);
}
if (stop_loss_3 == 0.0) {
if (range_1 < marketinfo_stoplevel) range_1 = marketinfo_stoplevel;
stop_loss_3 = NormalizeDouble(Bid - range_1 * Point, Digits);
}
waitForContext();
OrderModify(OrderTicket(), OrderOpenPrice(), stop_loss_3, take_profit_4, 0, Green);
}
if (s2_closeBuyRule()) {
li_ret_16 = closeOrder(0, Violet);
if (li_ret_16 < 0) return (li_ret_16);
}
if (int_0d > 0) {
if (Bid – OrderOpenPrice() > Point * p0001_div_point_or_1 * int_0d) {
if (OrderStopLoss() < Bid - Point * p0001_div_point_or_1 * int_0d || OrderStopLoss() == 0.0) {
waitForContext();
OrderModify(OrderTicket(), OrderOpenPrice(), NormalizeDouble(Bid - Point * p0001_div_point_or_1 * int_0d, Digits), OrderTakeProfit(), 0, Green);
}
}
}
return (OrderTicket());
}

int s2_sellControl() {
int li_ret_16;
double take_profit_4 = OrderTakeProfit();
double stop_loss_3 = OrderStopLoss();
if (take_profit_4 == 0.0 || stop_loss_3 == 0.0) {
if (take_profit_4 == 0.0) {
if (gi_1032 < marketinfo_stoplevel) gi_1032 = marketinfo_stoplevel;
take_profit_4 = NormalizeDouble(Bid - gi_1032 * Point, Digits);
}
if (stop_loss_3 == 0.0) {
if (percent_of_range_M5 < marketinfo_stoplevel) percent_of_range_M5 = marketinfo_stoplevel;
stop_loss_3 = NormalizeDouble(Ask + percent_of_range_M5 * Point, Digits);
}
waitForContext();
OrderModify(OrderTicket(), OrderOpenPrice(), stop_loss_3, take_profit_4, 0, Red);
}
if (s2_closeSellRule()) {
li_ret_16 = closeOrder(1, Violet);
if (li_ret_16 < 0) return (li_ret_16);
}
if (int_0d > 0) {
if (OrderOpenPrice() – Ask > Point * p0001_div_point_or_1 * int_0d) {
if (OrderStopLoss() > Ask + Point * p0001_div_point_or_1 * int_0d || OrderStopLoss() == 0.0) {
waitForContext();
OrderModify(OrderTicket(), OrderOpenPrice(), NormalizeDouble(Ask + Point * p0001_div_point_or_1 * int_0d, Digits), OrderTakeProfit(), 0, Red);
}
}
}
return (OrderTicket());
}

void run_Strategy2() {
int time_day_of_week;
bool_T_mon_fri = TRUE;
if (ticket_strategy_2_long_open == -2) {
ticket_strategy_2_long_open = Recover(magic_3, OP_BUY);
if (ticket_strategy_2_long_open >= 0) {
OrderSelect(ticket_strategy_2_long_open, SELECT_BY_TICKET);
OrderPrint();
Print(“Strategy2: Order found:”);
}
}
if (ticket_strategy_2_short_open == -2) {
ticket_strategy_2_short_open = Recover(magic_3, OP_SELL);
if (ticket_strategy_2_short_open >= 0) {
OrderSelect(ticket_strategy_2_short_open, SELECT_BY_TICKET);
OrderPrint();
Print(“Strategy2: Order found:”);
}
}
s2_setRules();
if ((time_x < gi_1044 && (time_hour_1 >= time_x && time_hour_1 <= gi_1044 - 1)) || (time_x >= gi_1044 && time_hour_1 >= time_x || time_hour_1 <= gi_1044 - 1)) bool_T_mon_fri = TRUE;
else bool_T_mon_fri = FALSE;
if (bool_T_mon_fri && bool23_t) {
time_day_of_week = TimeDayOfWeek(current_time_minus_gmt);
if ((time_day_of_week == 5 && time_hour_1 >= time_x) || (time_day_of_week == 1 && time_x >= gi_1044 && time_hour_1 <= gi_1044 - 1)) bool_T_mon_fri = FALSE;
else
if (time_day_of_week > 5 || time_day_of_week < 1) bool_T_mon_fri = FALSE;
}
if (bool32_t != bool_T_mon_fri) {
if (bool_T_mon_fri) {
g_ord_profit_756 = 0;
g_ord_profit_764 = 0;
int_0k++;
}
bool32_t = bool_T_mon_fri;
}
if (ticket_strategy_2_long_open >= 0) {
if (OrderSelect(ticket_strategy_2_long_open, SELECT_BY_TICKET)) {
if (OrderCloseTime() == 0) ticket_strategy_2_long_open = s2_buyControl();
else ticket_strategy_2_long_open = -1;
g_ord_profit_756 = OrderProfit();
if (ticket_strategy_2_long_open < 0) CountBalance(g_ord_profit_756);
} else {
ticket_strategy_2_long_open = -2;
g_ord_profit_756 = 0;
}
}
if (ticket_strategy_2_short_open >= 0) {
if (OrderSelect(ticket_strategy_2_short_open, SELECT_BY_TICKET)) {
if (OrderCloseTime() == 0) ticket_strategy_2_short_open = s2_sellControl();
else ticket_strategy_2_short_open = -1;
g_ord_profit_764 = OrderProfit();
if (ticket_strategy_2_short_open < 0) CountBalance(g_ord_profit_764);
} else {
ticket_strategy_2_short_open = -2;
g_ord_profit_764 = 0;
}
}
int li_0 = s2_openBuyRule();
int orders_in_history = s2_openSellRule();
if (!bool_T_mon_fri || !gi_716 || bool_margin_less_margin_req) return;
if (NFA && !FIFOrule()) return;
if (g_datetime_1108 != iTime(NULL, timeframe_M5, time_hour_equal_1_or_0) && li_0 && ticket_strategy_2_long_open < 0 && g_ord_profit_756 >= 0.0) {
ticket_strategy_2_long_open = s2_openBuy();
if (ticket_strategy_2_long_open < 0) return;
g_datetime_1108 = iTime(NULL, timeframe_M5, time_hour_equal_1_or_0);
high_3 = high_m5;
low_3 = low_M5;
g_ord_profit_764 = 0;
gi_968++;
return;
}
if (g_datetime_1112 != iTime(NULL, timeframe_M5, time_hour_equal_1_or_0) && orders_in_history && ticket_strategy_2_short_open < 0 && g_ord_profit_764 >= 0.0) {
ticket_strategy_2_short_open = s2_openSell();
if (ticket_strategy_2_short_open >= 0) {
g_datetime_1112 = iTime(NULL, timeframe_M5, time_hour_equal_1_or_0);
high_3 = high_m5;
low_3 = low_M5;
g_ord_profit_756 = 0;
gi_968++;
}
}
}

void Refresh(bool ai_0) {
double lda_4[1];
int lia_8[4];
if (ai_0) RefreshRates();
current_time = TimeCurrent();
if (!IsTesting() && AutoServerGmtOffset || AutoLocalGmtOffset) {
int_x5 = GetGmtOffset(int_x6, TimeYear(current_time), TimeMonth(current_time), TimeDay(current_time), TimeHour(current_time), TimeMinute(current_time), TimeSeconds(current_time), 0, AutoServerGmtOffset, lda_4, lia_8);
if (int_x5 == 4 && !AutoLocalGmtOffset) int_x5 = 0;
else GmtOffset = lda_4[0];
time_hour_21 = lia_8[0];
time_hour_equal_1 = lia_8[1];
time_hour_21c = lia_8[2];
int_4 = lia_8[3];
}
current_time_minus_gmt = current_time – 3600.0 * GmtOffset;
time_hour_1 = TimeHour(current_time_minus_gmt);
time_of_midnight = current_time – 3600.0 * time_hour_1 – 60 * TimeMinute(current_time_minus_gmt) – TimeSeconds(current_time_minus_gmt);
spread_1 = MarketInfo(Symbol(), MODE_SPREAD);
marketinfo_stoplevel = MarketInfo(Symbol(), MODE_STOPLEVEL);
p0001_div_point_or_1 = 0.0001 / Point;
if (Digits < 4) p0001_div_point_or_1 = 100.0 * p0001_div_point_or_1;
}

string BPrint(bool ai_0) {
if (ai_0) return ("True");
return ("False");
}

string CPrint(bool ai_0, string as_4, string as_12 = "") {
if (ai_0) return (as_4);
return (as_12);
}

string OpPrint(int ai_0) {
switch (ai_0) {
case 0:
return ("Buy");
case 1:
return ("Sell");
}
return ("Order");
}

string GMPrint(int ai_0) {
switch (ai_0) {
case 1:
return ("automatic: server");
case 2:
return ("automatic: server");
case 4:
return ("automatic: local");
}
return ("manual");
}

string DPrint(int ai_0) {
switch (ai_0) {
case 1:
return ("Correction");
case 3:
return ("Upward Impulse");
case 2:
return ("Downward Impulse");
}
return ("");
}

string PPrint(int ai_0) {
int orders_in_history = MathMod(ai_0, 5);
return (gsa_1116[orders_in_history]);
}

string PrintStatus(int ai_0) {
switch (ai_0) {
case 1:
return ("Assessing market volume");
case 2:
return ("Checking volatility");
case 3:
return ("Monitoring spread");
case 4:
return ("Determining direction");
case 5:
return ("Reviewing price range");
case 6:
return ("Calculating probability");
}
return ("");
}

void PrintResponse(int ai_0, int ai_4 = -1, int ai_8 = -1) {
if (ai_4 == -1) ai_4 = int_0h;
if (ai_8 == -1) ai_8 = int_0g;
int_0h = ai_4;
int_0g = ai_8;
if (ai_0 & 16384 > 0) PrintLN(“Authenticated”, TextColor1);//binary 100000000000000
else PrintLN(“Authentication failed – error(” + ai_0 + “)”, TextColor1);
if (ai_0 & 512 > 0) PrintLN(“Attention: Upgrade available”, TextColor1);//100000000
if (ai_0 & 1024 > 0) PrintLN(“Error: Upgrade required”, TextColor1);//1000000000
if (ai_0 & 1 > 0) PrintLN(“Error: WinINet initialisation failed”, TextColor1);//binary 1
if (ai_0 & 2 > 0) PrintLN(“Error: WinINet connection failed”, TextColor1);//binary 10
if (ai_0 & 4 > 0) PrintLN(“Error: Invalid account number”, TextColor1);//binary 100
if (ai_0 & 8 > 0) PrintLN(“Error: Invalid account status”, TextColor1);//binary 1000
if (ai_0 & 16 > 0) PrintLN(“Error: Dll and Expert versions mismatch”, TextColor1);//binary 10000
if (ai_0 & 128 > 0) PrintLN(“Error: Unable to retrieve authentication code”, TextColor1);//binary 1000000
if (ai_0 & 256 > 0) PrintLN(“Error: Server response failure”, TextColor1);//binary 10000000
if (ai_0 & 2048 > 0) PrintLN(“Error: Invalid authorisation details”, TextColor1);//10000000000
if (ai_0 & 4096 > 0) PrintLN(“Error: Authorisation declined”, TextColor1);//100000000000
}

string GetObjName(int ai_0) {
return (StringConcatenate(“Swissy Accu-Scalper”, ” lb: “, ai_0));
}

void GetPos(int ai_0, int &ai_4, int &ai_8) {
string l_name_12 = GetObjName(ai_0);
if (ObjectFind(l_name_12) == 0) {
ai_4 = ObjectGet(l_name_12, OBJPROP_XDISTANCE);
ai_8 = ObjectGet(l_name_12, OBJPROP_YDISTANCE);
}
}

void PrintLN(string a_text_0, color a_color_8 = -1, int ai_12 = -1, double ad_16 = -1.0, int ai_24 = 0) {
if (a_color_8 == CLR_NONE) a_color_8 = TextColor1;
if (ai_12 == -1) ai_12 = int_0h;
if (ad_16 == -1.0) ad_16 = int_0g;
string l_name_28 = GetObjName(ai_12);
if (ObjectFind(l_name_28) != 0) {
ObjectCreate(l_name_28, OBJ_LABEL, 0, 0, 0);
ObjectSet(l_name_28, OBJPROP_CORNER, 0);
}
ObjectSetText(l_name_28, a_text_0, 8, “Tahoma”, a_color_8);
ObjectSet(l_name_28, OBJPROP_XDISTANCE, gi_676 + ai_24);
ObjectSet(l_name_28, OBJPROP_YDISTANCE, gi_672 + 14.0 * ad_16);
if (int_0g < ad_16 + 1.0) int_0g = ad_16 + 1.0;
if (int_0h < ai_12 + 1) int_0h = ai_12 + 1;
if (int_0i < ai_12) int_0i = ai_12;
}

void PrintSep(int ai_0 = -1, double ad_4 = -1.0, int ai_12 = 0) {
if (ai_0 == -1) ai_0 = int_0h;
if (ad_4 == -1.0) ad_4 = int_0g;
PrintLN("_______", TextColor2, ai_0, ad_4 - 0.3, ai_12);
if (int_0g < ad_4 + 1.0) int_0g = ad_4 + 1.0;
}

void Deleteobjects(int ai_0, int ai_4) {
for (int switch_max_or_min_lot_exceeded = ai_0; switch_max_or_min_lot_exceeded <= ai_4; switch_max_or_min_lot_exceeded++) ObjectDelete(GetObjName(switch_max_or_min_lot_exceeded));
}

double Base36Decode(string as_0) {
int li_24;
as_0 = StringUpper(as_0);
int l_str_len_8 = StringLen(as_0);
double ld_ret_12 = 0;
for (int li_20 = 0; li_20 < l_str_len_8; li_20++) {
li_24 = StringFind(gs_1128, StringSubstr(as_0, l_str_len_8 - li_20 - 1, 1));
ld_ret_12 += li_24 * MathPow(36, li_20);
}
return (ld_ret_12);
}

string Base36Encode(double ad_0) {
string l_str_concat_8 = "";
for (ad_0 = MathAbs(ad_0); ad_0 >= 1.0; ad_0 = MathFloor(ad_0 / 36.0)) l_str_concat_8 = StringConcatenate(StringSubstr(gs_1128, MathMod(ad_0, 36), 1), l_str_concat_8);
return (l_str_concat_8);
}

string StringUpper(string as_0) {
int switch_max_or_min_lot_exceeded;
int li_20;
int l_str_len_16 = StringLen(as_0);
for (int li_12 = 0; li_12 < l_str_len_16; li_12++) {
li_20 = 0;
switch_max_or_min_lot_exceeded = StringGetChar(as_0, li_12);
if (switch_max_or_min_lot_exceeded > ‘`’ && switch_max_or_min_lot_exceeded < '{') li_20 = switch_max_or_min_lot_exceeded - 32;
if (switch_max_or_min_lot_exceeded > ‘ß’ && switch_max_or_min_lot_exceeded < 256) li_20 = switch_max_or_min_lot_exceeded - 32;
if (switch_max_or_min_lot_exceeded == '¸') li_20 = 168;
if (li_20 > 0) as_0 = StringSetChar(as_0, li_12, li_20);
}
return (as_0);
}

int start() {
int orders_in_history;
int switch_max_or_min_lot_exceeded;
if (!bool_t_if_initialize_variables && !bool_t_if_agressive) return (0);
int li_0 = GetState();
if (Bars < 100) {
Print("Bars less than 100");
return (0);
}
if (bool_not_testing) {
bool_not_testing = FALSE;
orders_in_history = RecoverTrades();
Print("Orders in history: ", orders_in_history, " profit made: ", DoubleToStr(profit_made, 2));
}
if (bool1_f && RiskLevel > 0.0) {
if (bool2_t) while (AccountBalance() < account_balance_x / (double_p2 + 1.0)) account_balance_x /= (double_p2 + 1.0); //account_balance_x = double_1000; which is 1000 //double_p2=.2 // = 694
while (AccountBalance() > account_balance_x) account_balance_x *= (double_p2 + 1.0); //while account balance > 694 then account_balance_x=832
lots_2 = MMLots(RiskLevel, account_balance_x, switch_max_or_min_lot_exceeded);
} else {
if (RiskLevel > 0.0) {
lots_2 = MMLots(RiskLevel, AccountFreeMargin(), switch_max_or_min_lot_exceeded);
if (RecoveryMode) lots_2 = RecoveryLot(lots_2);
} else lots_2 = NormalizeLots(LotSize, switch_max_or_min_lot_exceeded);
}
double margin_required_times_x = NormalizeDouble(MarketInfo(Symbol(), MODE_MARGINREQUIRED) * lots_2, 8);
g_spread_288 = spread_1;
Refresh(0);
bool_margin_less_margin_req = NormalizeDouble(AccountFreeMargin(), < margin_required_times_x;
gi_716 = IsTradeTime(Symbol(), TimeYear(current_time_minus_gmt), TimeMonth(current_time_minus_gmt), TimeDay(current_time_minus_gmt), int_3);
if (NFA) RefreshOrders();
if (bool_t_if_initialize_variables) run_Strategy1();
Refresh(1);
bool_margin_less_margin_req = NormalizeDouble(AccountFreeMargin(), < margin_required_times_x;
if (bool_t_if_agressive) run_Strategy2();
if (IsTesting() && !IsVisualMode()) return (0);
GetPos(0, gi_676, gi_672);
int_0h = 0;
int_0g = 0;
PrintLN(email_subject, TextColor2);
PrintSep();
PrintResponse(int_x4);
PrintSep();
PrintLN(gs_344);
PrintLN(gs_352, TextColor2, int_0h, int_0g - 1, 5 * (StringLen(gs_344) + 1));
PrintSep();
string ls_20 = DoubleToStr(GmtOffset, 1);
if (!IsTesting()) ls_20 = StringConcatenate(ls_20, " (", GMPrint(int_x5), ")");
PrintLN("ServerTime:");
PrintLN(TimeToStr(current_time), TextColor2, int_0h, - 1, 60);
PrintLN("UtcTime:");
PrintLN(TimeToStr(current_time_minus_gmt), TextColor2, int_0h, int_0g - 1, 45);
PrintLN("GmtOffset:");
PrintLN(ls_20, TextColor2, int_0h, int_0g - 1, 55);
PrintSep();
PrintLN("Digits:");
PrintLN(Digits, TextColor2, int_0h, int_0g - 1, 35);
PrintLN("Spread:");
PrintLN(StringConcatenate(DoubleToStr(spread_1 / p0001_div_point_or_1, 1), " (", spread_1, " pips)"), TextColor2, int_0h, int_0g - 1, 40);
PrintSep();
PrintLN("Lot:");
PrintLN(DoubleToStr(lots_2, 2), TextColor2, int_0h, int_0g - 1, 25);
switch (switch_max_or_min_lot_exceeded) {
case 1:
PrintLN("Maximum Lot size exeeded!");
break;
case -1:
PrintLN("Minimum Lot size exeeded!");
}
if (bool33_f != bool_margin_less_margin_req) {
if (bool_margin_less_margin_req) Print("Not enough money! Available margin = ", DoubleToStr(AccountFreeMargin(), 2), ", Required margin = ", DoubleToStr(margin_required_times_x, 2));
bool33_f = bool_margin_less_margin_req;
}
if (bool_margin_less_margin_req) {
PrintSep();
PrintLN("Not enough money!");
PrintLN("Available margin =");
PrintLN(DoubleToStr(AccountFreeMargin(), 2), TextColor2, int_0h, int_0g - 1, 90);
PrintLN("Required margin =");
PrintLN(DoubleToStr(margin_required_times_x, 2), TextColor2, int_0h, int_0g - 1, 90);
}
PrintSep();
if (IsTesting()) PrintLN("Backtesting");
else PrintLN(PrintStatus(GetStatus()));
PrintSep();
if (bool_t_if_initialize_variables && bool13_t) {
if (if_2_long_3_short == 0) PrintLN("Analyzing market");
else PrintLN(DPrint(if_2_long_3_short) + " detected");
if (current_time <= within_1hr_cci_rsi_switched && if_2_long_3_short != two_long_3_short && two_long_3_short != 0) PrintLN(DPrint(two_long_3_short) + " fading: " + TimeToStr(within_1hr_cci_rsi_switched - current_time, TIME_SECONDS));
} else PrintLN(CPrint(bool25 || bool_T_mon_fri, "Running", "Collecting Data"));
if (NFA && num_orders_NOTmagic2or3 > 0) {
PrintSep();
PrintLN(“Waiting for trades to close: “);
PrintLN(num_orders_NOTmagic2or3, TextColor2, int_0h, int_0g – 1, 125);
}
if (ticket_strategy_1_long_open >= 0 || ticket_strategy_1_short_open >= 0 || ticket_strategy_2_long_open >= 0 || ticket_strategy_1_short_open >= 0) {
PrintSep();
if (ticket_strategy_1_long_open >= 0) PrintLN(“Strategy1: Long position open”);
if (ticket_strategy_1_short_open >= 0) PrintLN(“Strategy1: Short position open”);
if (ticket_strategy_2_long_open >= 0) PrintLN(“Strategy2: Long position open”);
if (ticket_strategy_2_short_open >= 0) PrintLN(“Strategy2: Short position open”);
}
Deleteobjects(int_0h, int_0i);
int_0i = int_0h – 1;
ObjectsRedraw();
return (0);
}

if (My_stop_loss < MarketInfo(Symbol(), MODE_STOPLEVEL) My_stop_loss= MarketInfo(Symbol(), MODE_STOPLEVEL);

What this line of code basically does is take your existing stop loss value. If it is lower than the allowed amount from your broker it sets your stop loss to the minimum amount allowed. In this example it is a long trade.

MQ4 format
EX4 format

//+——————————————————————+
//| Moving Average Cross Alert.mq4 |
//| Copyright © 2010, Jeremy Whittaker |
//| http://www.JeremyWhittaker.com |
//+——————————————————————+
#property copyright “Copyright © 2010, Jeremy Whittaker”
#property link “http://www.JeremyWhittaker.com”

bool NewBar()
{
static datetime lastbar;
datetime curbar = Time[0];
if(lastbar!=curbar)
{
lastbar=curbar;
return (true);
}
else
{
return(false);
}
}

First thing you need is high quality historical data in CSV format. I have found Forex Tester to be very beneficial for that, http://www.forextester.com/data/datasources.html.

1. You will want to download the file that pertains to the pair you will be trading.

2. The next step is unzipping the file using a simple Zip program.

3. Before proceeding to import your new data you will want to go ahead and delete all of your old data first. So that you are not mixing the two up. If you are running Windows7 or Windows Vista you have to look in two locations for the .hst files and delete all of them. If however you are running Windows XP you need to only look in one. These locations can vary greatly depending what broker you download your platform from. I use Interbank but you will have to look and mind and figure out where yours are. Or you can just search your entire hard drive for *.hst files.
C:\Program Files (x86)\Interbank FX Trader 4 – B\history
C:\Users\%username%\AppData\Local\VirtualStore\Program Files (x86)\Interbank FX Trader 4 – B\history\IBFX-MT4 Mini-2

4. Now that you have unzipped the files they should be in .CSV format. From here you can now open your Metatrader platform. Then go to tools>options click on the chart tab and change the “max bars in history” and “max bars in chart” to 999999999. Once you close this window Metatrader will adjust to the highest possible setting automatically.

5. You will now want to go to tools>history center. Double click your currency pair that you are trying to import. Then double click on the 1m timeframe underneath it. Now click on the import button. Browse to the location of the .txt file that you extracted in step 2. You may have to change the rows setting to 0. If it works correctly you will be able to see every row from the file that you are importing. Click ok and all of your 1m data is now complete.

6. The next step is to generate your 5m 10m 30m 60m 240m 1440m and 10080m data. This will get all of the commonly used timeframes. You can also do custom ones if you wish.

7. To do this you need to go to navigator from Metatrader terminal. Select the scripts from the navigator window and look for one named “period_converter”.

8. Open a 1m chart of the currency pair that you just imported.

9. Now double click on period_converter

10. It’s going to ask you for an input labeled “ExtPeriodMultiplier”. The default value is 3. Change this to 5 to generate your 5 minute chart data.

11. If you have your terminal window open in Metatrader select the experts tab. You will see something that says period_converter GBPUSDm,M1: 726279 record(s) written. This is how you know it is complete.

12. Double click period converter again. This time select 10 for 10 minute chart. Continue doing steps 10 and 11 until you have created your 5m 10m 30m 60m 240m 1440m and 10080m data. You are now ready to move on to your next currency pair.

The theory seemed simply enough so I decided to write a robot to test out this same theory.  I however took it a step farther.  I wanted to develop this into a trading strategy rather than just a simple statistical analysis which will only create a hypothesis.

I created the expert advisor in MT4 or MetaTrader.  The EA can be found here, http://www.jeremywhittaker.com/wp-content/uploads/2010/11/Kruger.ex4

This EA has not been specifically built for a timeframe.  You can however add it to any timeframe and test the results until you end up with something you like. 

For long trades the EA does as follows:

1. On every bar that closes - Is my close higher than the low of the previous bar?  What about for the last X bars?  X can be modified to your preference using the input labeled ”barsToUpTrend”.
2. If rule 1 is true it will count how many open positions you currently have.  You can adjust this number through an input labeled “POS_num_max” change the amount of open positions allowed at any given time.
3. If rule 1 is true call my money management.  Which is AccountFreeMargin/100000*Risk_percent.  Risk_percent can be changed via the input labeled Risk_percent.
4. Once rule 2 & 3 are done processing the EA will determine the ATR of the last X bars.  This variable can be changed through the input labeled “atrPeriodForClose”.  It will then take that ATR and multiply it by the variable labeled “percentAtrTP”.  This will become your take profit level.  The concept for this rule is simple.  I do not believe in fixed stop loss or take profit values as they cannot dynamically adjust with the market.  Therefore I always use a percentage of the ATR as my stop loss and take profit.
5. As with rule 4 the stop loss is determined with as a percentage of the ATR which is adjustable via this variable “percentAtrSL”.

For short trades:

1. On every bar that closes – Is my close lower than the high of the previous bar?  What about for the last X bars?  X can be modified to your preference using the input labeled “barsToDownTrend”.
2. If rule 1 is true it will count how many open positions you currently have.  You can adjust this number through an input labeled “POS_num_max” change the amount of open positions allowed at any given time.
3. If rule 1 is true call my money management.  Which is AccountFreeMargin/100000*Risk_percent.  Risk_percent can be changed via the input labeled Risk_percent.
4. Once rule 2 & 3 are done processing the EA will determine the ATR of the last X bars.  This variable can be changed through the input labeled “atrPeriodForClose”.  It will then take that ATR and multiply it by the variable labeled “percentAtrTP”.  This will become your take profit level.  The concept for this rule is simple.  I do not believe in fixed stop loss or take profit values as they cannot dynamically adjust with the market.  Therefore I always use a percentage of the ATR as my stop loss and take profit.
5. As with rule 4 the stop loss is determined with as a percentage of the ATR which is adjustable via this variable “percentAtrSL”.

I hope the information provided here is useful to anyone trying to develop a profitable strategy.  Happy analyzing!

If you have ever used MQL4 or MT4 then you know one of the biggest drawbacks is the application will only use one of your processors when you are backtesting a strategy. Another one of the biggest drawbacks is if your backtests has tons of data it can take literally hours or days to crunch your test. This is a big nuisance. However, with MQL5 these problems have been resolved.

First let’s take a look at a backtest. You can see in this image below that I’m running 8 processors in my current machine. They are all being utilized. You can also see the “remote” agents which is emtpy. Below I will take you through the steps of creating a remote agent.

The first thing you want to do is search your PC for a file named metatester.exe or metatester64.exe. Depending if you are planning on deploying a 64-bit remote agent or a 32-bit remote agent.

The next thing you are going to want to do is copy this file to your remote PC which will be doing the remote processing. I created a folder on my remote PC on the root of my C:\ drive named metatester. So my full path will be C:\MetaTester\metatester.exe

Once I have copied this file to my remote machine I’m going to run it. Below is what you will see when you do this. There are only 2 options the password you want to use and the port you want to use. In my case for demo purposes I use MySecurePassword and port 2000 (the default) then I simply click the add button. If your remote PC has multiple processors then you should increase the TCP port to 2001 and add another service instance. You should do this for as many processors as your remote machine has. Incrementing the port number by one every time.

If you now open your services console you will see a new service set on startup on your remote machine. You will see multiple instances of this if you have more than 1 processor.

Now that we have successfully deployed a remote agent we must go back to our main machine where we are backtesting our EA or expert advisor. From the Agents tab on the strategy tester window you are going to want to right click on “Remote” and select “Add”, see below.

You will now see the image below. You can type in anything for the first field which is “name” it does not matter. For the second field you must type in the IP address of your other machine or hostname. Then simply type the password in from when you configured the service and click ok.

That is it you can see now you have successfully added a remote agent. Mine is erased to protect the identify of my computer.

Since 2000 the COT reports are released weekly. However, you must keep in mind the reports are released on Friday but reflect data from Tuesday. As the reports are closed off on Tuesday but not published until 3 days later.

When it comes to the COT report there are a few different sections that are valuable:

Commercial: These are organizations that use the futures market to hedge their positions. They are not traders by nature. They only use futures to guarantee their profits for the future.
Non-Commercial: These are the speculators who trade the futures market for a living. They include hedge funds and other individuals who speculate the market and make the requirements that are set by the CFTC.
Reportable: Positions held above specific reporting levels set by the CFTC.
Non-Reportable: These are individuals or organizations who do not meet the minimum requirements set forth by the CFTC to be categorized.
Open Interest: The open interest is the amount of futures or options contracts which are not offset by another transaction.

The Whittaker COT Index Variant-A is an MT4 or MQL4 indicator. Basically what it will do is go through the data from the COT report and extract the above sections. It will then as a percentage let you know how many traders are long in each category.

To use this indicator you must visit the CFTC website and weekly download the updated report. Here is a link to the report that must be downloaded, http://www.cftc.gov/MarketReports/CommitmentsofTraders/HistoricalCompressed/index.htm

Use the image below to make sure you’re downloading the correct link. Save this file to C:\Program Files (x86)\Interbank FX Trader 4\experts\files. This path is obviously because I use InterbankFX. Depending on your broker this path may be different.

You first must unzip the file that you downloaded. You can do this with any “zip” software. Once you extract this file it must be converted to CSV format for MetaTrader to read it.You can do this by opening the file located at C:\Program Files (x86)\Interbank FX Trader 4\experts\files\annual.xls with Microsoft Excel. Once it is open in Excel go to file>save as. From the save as type window select CSV(Comma Delimited) (*.csv). You will want to name the file annual.xls.csv this by default is what Whitaker COT Index will be looking for.

The actual Whittaker COT Index variant-A can be downloaded here. Save the file to C:\Program Files (x86)\Interbank FX Trader 4\experts Once the file is downloaded simply add it to your chart.

Due to the fact that this is a stripped down version of my EA that I use to trade live it is programmed as an EA or expert advisor. I realize it should technically be an indicator and I will reprogram it when I get the opportunity. Also, if you are testing this out on the weekend it is not going to work. It only generates numbers “on tick”, so if the market is closed it is not going to do anything.

Update:
I have reprogrammed this EA as an indicator so that it does not have to be loaded as an EA. You can download the updated version here. Save to C:\Program Files (x86)\Interbank FX Trader 4\experts\indicators\

Update 2:

I have recently been asked for an example CSV file.   Here it is – http://www.jeremywhittaker.com/wp-content/uploads/2010/03/annual.xls.csv The original source file I created this from is here – http://www.cftc.gov/MarketReports/files/dea/history/dea_fut_xls_2011.zip

Download WVBI!

What this indicator does is as follows:

1. Takes the range(high-low) the last x bars.
2. Averages the range of the last x bars.
3. Displays as a histogram the percentage of change from the average.
4. Takes an average of the percentage of change from the average.
5. Allows you to set a horizontal line at your preference so you can see when the average is breaking out.

This indicator has 3 inputs:

1. “ATRPeriod” which allows you to specify the amount of bars to average out for the Average True Range of that period
2. “WVBIAverage” is a setting that allows you to specify the amount of bars to which will be the average of the percentage of the ATR.
3. The last setting is pretty straightforward it is “TooFar”.  This simply will draw a horizontal line across the indicator so that you can visually see where the percentage is in comparison to other bars.  Its purpose is to simply put things in perspective.

All of this might seem confusing at first. However, I assure you this a very useful indicator for detecting volatility in a market.

You can see from this example of above the bar in question exceed it’s 14 day ATR by 203.95%.