//+------------------------------------------------------------------+
//| OnChart Stochastic.mq4 |
//| mladen |
//| |
//+------------------------------------------------------------------+
#property copyright "mladen"
#property link ""
#property indicator_chart_window
#property indicator_buffers 5
#property indicator_color1 DarkSlateGray
#property indicator_color2 DarkSlateGray
#property indicator_color3 DarkSlateGray
#property indicator_color4 Gold
#property indicator_width4 2
#property indicator_color5 Red
#property indicator_style1 STYLE_DOT
#property indicator_style5 STYLE_DOT
//---- parameters
//
//
//
//
extern int KPeriod = 14;
extern int Slowing = 3;
extern int DPeriod = 3;
extern int maPeriod = 20;
extern int maMethod = 1;
extern int maPrice = 0;
extern int overBought = 80;
extern int overSold = 20;
extern string timeFrame = "Current time frame";
//---- buffers
//
//
//
//
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
double ExtMapBuffer4[];
double ExtMapBuffer5[];
datetime RTimeArray[];
datetime TTimeArray[];
int TimeFrame;
int atrTimeFrame;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int init()
{
SetIndexBuffer(0,ExtMapBuffer1);
SetIndexBuffer(1,ExtMapBuffer2);
SetIndexBuffer(2,ExtMapBuffer3);
SetIndexBuffer(3,ExtMapBuffer4);
SetIndexBuffer(4,ExtMapBuffer5);
//
//
//
//
//
// if (DPeriod<2)
// SetIndexStyle(4,DRAW_NONE);
// else SetIndexStyle(4,DRAW_LINE);
//
//
//
//
//
TimeFrame = stringToTimeFrame(timeFrame);
atrTimeFrame=PERIOD_D1;
if (TimeFrame >= atrTimeFrame)
switch (TimeFrame)
{
case PERIOD_D1: atrTimeFrame = PERIOD_W1; break;
default: atrTimeFrame = PERIOD_MN1;
}
return(0);
}
int deinit()
{
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
double maValue;
double avgRange;
double stochValue;
double signalValue;
int counted_bars=IndicatorCounted();
int limit;
int i,r,y;
//----
if(counted_bars<0) return(-1);
if(counted_bars>0) counted_bars--;
limit=MathMax(Bars-counted_bars,TimeFrame/Period());
ArrayCopySeries(RTimeArray ,MODE_TIME ,NULL,atrTimeFrame);
ArrayCopySeries(TTimeArray ,MODE_TIME ,NULL,TimeFrame);
//----
//
//
//
//
for (i=0,r=0,y=0;i<limit;i++)
{
if(Time[i]<RTimeArray[r]) r++;
if(Time[i]<TTimeArray[y]) y++;
avgRange = iATR(NULL,atrTimeFrame,maPeriod,r);
maValue = iMA(NULL,TimeFrame,maPeriod,0,maMethod,maPrice,y);
stochValue = iStochastic(NULL,TimeFrame,KPeriod,DPeriod,Slowing,maMethod,0,MODE_MAIN, y);
signalValue = iStochastic(NULL,TimeFrame,KPeriod,DPeriod,Slowing,maMethod,0,MODE_SIGNAL,y);
//
//
//
//
//
ExtMapBuffer1[i] = maValue;
ExtMapBuffer2[i] = maValue+(avgRange*(overBought-50)/100);
ExtMapBuffer3[i] = maValue-(avgRange*(50- overSold)/100);
ExtMapBuffer4[i] = maValue+(stochValue -50)/100*avgRange;
ExtMapBuffer5[i] = maValue+(signalValue-50)/100*avgRange;
}
//
//
//
//
//
return(0);
}
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//
//
//
//
//
int stringToTimeFrame(string tfs)
{
int tf=0;
tfs = StringUpperCase(tfs);
if (tfs=="M1" || tfs=="1") tf=PERIOD_M1;
if (tfs=="M5" || tfs=="5") tf=PERIOD_M5;
if (tfs=="M15"|| tfs=="15") tf=PERIOD_M15;
if (tfs=="M30"|| tfs=="30") tf=PERIOD_M30;
if (tfs=="H1" || tfs=="60") tf=PERIOD_H1;
if (tfs=="H4" || tfs=="240") tf=PERIOD_H4;
if (tfs=="D1" || tfs=="1440") tf=PERIOD_D1;
if (tfs=="W1" || tfs=="10080") tf=PERIOD_W1;
if (tfs=="MN" || tfs=="43200") tf=PERIOD_MN1;
if (tf<Period()) tf=Period();
return(tf);
}
//
//
//
//
//
string StringUpperCase(string str)
{
string s = str;
int lenght = StringLen(str) - 1;
int char;
while(lenght >= 0)
{
char = StringGetChar(s, lenght);
//
//
//
//
//
if((char > 96 && char < 123) || (char > 223 && char < 256))
s = StringSetChar(s, lenght, char - 32);
else
if(char > -33 && char < 0)
s = StringSetChar(s, lenght, char + 224);
//
//
//
//
//
lenght--;
}
//
//
//
//
//
return(s);
}
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Indicator of the average true range
Moving average indicator
Stochastic oscillator
Custom Indicators Used:
Order Management characteristics:
Other Features: