//+------------------------------------------------------------------+
//| StochasticONpricePriceVSwma.mq4 |
//| Copyright © 2004, MetaQuotes Software Corp. |
//| http://www.metaquotes.net/ |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2004, MetaQuotes Software Corp."
#property link "perky_z@yahoo.com"
#property indicator_chart_window
#property indicator_buffers 4
#property indicator_color1 Violet
#property indicator_color2 Aqua
#property indicator_color3 Red
#property indicator_color4 LimeGreen
//---- input parameters
extern int K_Period=15;
extern int D_Period=3;
extern int Slowing=3;
int shift=0, cnt=0, prevbars=0,loopbegin=0;
double MAValue,Stoch;
double poynt=200; // for Jpy currencies
bool first=true;
double exStoch;
double oldexStoch;
//---- buffers
double TrendBuffer[];
double LoBuffer[];
double HiBuffer[];
double ExHi[];
double ExLo[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- 3 additional buffers are used for counting.
IndicatorBuffers(4);
//---- indicator buffers
SetIndexBuffer(0,TrendBuffer);
SetIndexBuffer(1,LoBuffer);
SetIndexBuffer(2,ExHi);
SetIndexBuffer(3,ExLo);
SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,2,Violet);
SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,2,Aqua);
SetIndexStyle(2,DRAW_ARROW,STYLE_SOLID,1,Red);
SetIndexArrow(2,108);
SetIndexStyle(3,DRAW_ARROW,STYLE_SOLID,1,LimeGreen);
SetIndexArrow(3,108);
IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS));
//---- name for DataWindow and indicator subwindow label
IndicatorShortName("Stochinchart("+")");
SetIndexDrawBegin(0,TrendBuffer);
SetIndexDrawBegin(1,LoBuffer);
SetIndexDrawBegin(2,ExHi);
SetIndexDrawBegin(3,ExLo);
return(0);
}
//+------------------------------------------------------------------+
//| Average Directional Movement Index |
//+------------------------------------------------------------------+
int start()
{
if (Point*10000==1) poynt=10000;
// initial checkings
// check for additional bars loading or total reloading
if (Bars < prevbars ) first = true;
if (Bars-prevbars>1) first = true;
prevbars = Bars;
if (first)
{
// loopbegin prevent couning of counted bars exclude current
loopbegin = Bars-1;
if (loopbegin < 0) return(0); // not enough bars for counting
first = False;
}
loopbegin = loopbegin+1;
// current bar is to be recounted too
for (shift = loopbegin; shift>= 0 ;shift--)
{
int bars_count=50;
double hl1,hl2,hl;
hl1=High[Highest(NULL,0,MODE_HIGH,bars_count,1)];
hl2=Low[Lowest(NULL,0,MODE_LOW,bars_count,1)];
hl= (hl1+hl2)/2;
//Comment (bars_count,"hl",hl,"hl1 ",hl1,"hl2 ",hl2,"POINT ",Point*10000);
TrendBuffer[shift]=((((iStochastic(NULL,0,K_Period,D_Period,Slowing,MODE_SMA,0,MODE_SIGNAL,shift)-50)))/poynt+hl);
LoBuffer[shift]= ((((iStochastic(NULL,0,K_Period,D_Period,Slowing,MODE_SMA,0,MODE_MAIN,shift)-50)))/poynt+hl);
exStoch=iStochastic(NULL,0,K_Period,D_Period,Slowing,MODE_SMA,0,MODE_MAIN,shift);
oldexStoch=iStochastic(NULL,0,K_Period,D_Period,Slowing,MODE_SMA,0,MODE_MAIN,shift+1);
// Comment (exStoch);
if (exStoch<80&& oldexStoch>80)
{
ExHi[shift]=TrendBuffer[shift];//High[shift];
}
if (exStoch>20 && oldexStoch<20)
{
ExLo[shift]= LoBuffer[shift] ;//Low[shift];
}
loopbegin = loopbegin-1;
}}
return(0);
// prevent to previous bars recounting
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:
Implements a curve of type DRAW_LINE
Implements a curve of type DRAW_ARROW
Indicators Used:
Stochastic oscillator
Custom Indicators Used:
Order Management characteristics:
Other Features: