GeneralTradingSarl
105 lines
4.3 KiB
Plaintext
105 lines
4.3 KiB
Plaintext
//+------------------------------------------------------------------+
|
|
//| Scirpt-Count-Consecutive-Bull-Bear.mq5 |
|
|
//| Copyright 2024,Rosh Jardine |
|
|
//| https://www.mql5.com/en/users/roshjardine |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "Copyright 2024,Rosh Jardine"
|
|
#property link "https://www.mql5.com/en/users/roshjardine"
|
|
#property version "1.00"
|
|
//+------------------------------------------------------------------+
|
|
//| Script program start function |
|
|
//+------------------------------------------------------------------+
|
|
void OnStart()
|
|
{
|
|
//---
|
|
int count_in = 0;
|
|
count_in = CONSECUTIVE_BB(true,150);
|
|
Print("highest bull consecutive = ",IntegerToString(count_in));
|
|
count_in = CONSECUTIVE_BB(false,150);
|
|
Print("highest bear consecutive = ",IntegerToString(count_in));
|
|
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
int CONSECUTIVE_BB(bool param_count_bull_bo,int param_look_back_in)
|
|
{
|
|
int look_back_in = (param_look_back_in<2) ? 3 : param_look_back_in;
|
|
//--- for testing purpose only
|
|
string pattern_text = "";
|
|
for (int i=1;i<=look_back_in;i++)
|
|
{
|
|
if (iClose(_Symbol,PERIOD_CURRENT,i)>iOpen(_Symbol,PERIOD_CURRENT,i))
|
|
{
|
|
pattern_text += "a";
|
|
}
|
|
else
|
|
{
|
|
if (iClose(_Symbol,PERIOD_CURRENT,i)<iOpen(_Symbol,PERIOD_CURRENT,i))
|
|
{
|
|
pattern_text += "b";
|
|
}
|
|
else
|
|
{
|
|
pattern_text += "c";
|
|
}
|
|
}
|
|
}
|
|
Print("pattern_text=",pattern_text);
|
|
string consecutive_text = ""; string last_consecutive_text = ""; string highest_consecutive_text = "";
|
|
if (param_count_bull_bo)
|
|
{
|
|
for (int i=1;i<look_back_in-1;i++)
|
|
{
|
|
if (
|
|
iClose(_Symbol,PERIOD_CURRENT,i)>iOpen(_Symbol,PERIOD_CURRENT,i) &&
|
|
iClose(_Symbol,PERIOD_CURRENT,i+1)>iOpen(_Symbol,PERIOD_CURRENT,i+1)
|
|
)
|
|
{
|
|
consecutive_text += "a";
|
|
last_consecutive_text = consecutive_text;
|
|
}
|
|
else
|
|
{
|
|
if (StringLen(last_consecutive_text)>StringLen(highest_consecutive_text))
|
|
{
|
|
Print("last_consecutive_text bull=",last_consecutive_text);
|
|
highest_consecutive_text = last_consecutive_text;
|
|
}
|
|
consecutive_text = "";
|
|
i++;
|
|
}
|
|
|
|
}
|
|
Print("highest_consecutive_text bull=",highest_consecutive_text);
|
|
}
|
|
else
|
|
{
|
|
for (int i=1;i<look_back_in-1;i++)
|
|
{
|
|
if (
|
|
iClose(_Symbol,PERIOD_CURRENT,i)<iOpen(_Symbol,PERIOD_CURRENT,i) &&
|
|
iClose(_Symbol,PERIOD_CURRENT,i+1)<iOpen(_Symbol,PERIOD_CURRENT,i+1)
|
|
)
|
|
{
|
|
consecutive_text += "b";
|
|
last_consecutive_text = consecutive_text;
|
|
}
|
|
else
|
|
{
|
|
if (StringLen(last_consecutive_text)>StringLen(highest_consecutive_text))
|
|
{
|
|
Print("last_consecutive_text bear=",last_consecutive_text);
|
|
highest_consecutive_text = last_consecutive_text;
|
|
}
|
|
consecutive_text = "";
|
|
i++;
|
|
}
|
|
|
|
}
|
|
Print("highest_consecutive_text bear=",highest_consecutive_text);
|
|
}
|
|
//--- include the first predecessor +1, count only successors return string length
|
|
return(StringLen(highest_consecutive_text)+1);
|
|
}
|
|
|
|
|
|
|