//+------------------------------------------------------------------+
//| LSMA_in_color3 |
//| Copyright © 2004, MetaQuotes Software Corp. |
//| http://www.metaquotes.net/ |
//+------------------------------------------------------------------+
//lsmawpr Perky
//mtf2009fxtsd ki
#property copyright "Copyright © 2005, FX Sniper "
#property link "http://www.metaquotes.net/"
//---- indicator settings
#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1 Yellow
#property indicator_color2 Chartreuse
#property indicator_color3 Red
#property indicator_width1 2
#property indicator_width2 2
#property indicator_width3 2
//---- buffers
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
int width;
extern int Rperiod = 14;
extern int Draw4HowLongg = 900; // 500 // 1000
extern int TimeFrame = 0;
extern string TimeFrames = "M1;5,15,30,60H1;240H4;1440D1;10080W1;43200MN|0-CurrentTF";
int Draw4HowLong;
int shift;
int i;
int loopbegin;
double sum[];
int length;
double lengthvar;
double tmp ;
double wt[];
int c;
string IndicatorFileName;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- 2 additional buffers are used for counting.
IndicatorBuffers(5);
//---- drawing settings
SetIndexBuffer(2,ExtMapBuffer1);
SetIndexBuffer(1,ExtMapBuffer2);
SetIndexBuffer(0,ExtMapBuffer3);
SetIndexBuffer(3,sum);
SetIndexBuffer(4,wt);
SetIndexStyle(2,DRAW_LINE);
SetIndexStyle(1,DRAW_LINE);
SetIndexStyle(0,DRAW_LINE);
TimeFrame=MathMax(TimeFrame,Period());
string shortname = "("+Rperiod+") ["+TimeFrame+"] ";
IndicatorShortName("LS WPR "+shortname);
SetIndexLabel(0,"");
SetIndexLabel(1,"");
SetIndexLabel(2,"ls/wpr "+shortname);
IndicatorFileName = WindowExpertName();
//---- initialization done
return(0);
}
int start()
{ Draw4HowLong = 1000-Rperiod - 5;
length = Rperiod;
loopbegin = Draw4HowLong - length - 1;
if (TimeFrame != Period())
{
loopbegin = MathMax(loopbegin,TimeFrame/Period());
for(i=loopbegin; i>=0; i--)
{
int y = iBarShift(NULL,TimeFrame,Time[i]);
ExtMapBuffer1[i] = iCustom(NULL,TimeFrame,IndicatorFileName,Rperiod,Draw4HowLongg,2,y);
ExtMapBuffer2[i] = iCustom(NULL,TimeFrame,IndicatorFileName,Rperiod,Draw4HowLongg,1,y);
ExtMapBuffer3[i] = iCustom(NULL,TimeFrame,IndicatorFileName,Rperiod,Draw4HowLongg,0,y);
}
return(0);
}
for(shift = loopbegin; shift >= 0; shift--)
{
sum[1] = 0;
for(i = length; i >= 1 ; i--)
{
lengthvar = length + 1;
lengthvar /= 3;
tmp = 0;
tmp = ( i - lengthvar)*iWPR(NULL,0,Rperiod,length-i+shift);
sum[1]+=tmp;
}
wt[shift] = sum[1]*6/(length*(length+1));
// wt[]=wt1[y];
//========== COLOR CODING ===========================================
ExtMapBuffer3[shift] = wt[shift]; //red
ExtMapBuffer2[shift] = wt[shift]; //green
ExtMapBuffer1[shift] = wt[shift]; //yellow
// for(c=loopbegin;c==shift;c++)
// {
if (wt[shift+1] > wt[shift])
{
ExtMapBuffer2[shift+1] = EMPTY_VALUE;
// ObjectCreate("smiley_face", OBJ_ARROW, 0, Time[shift], Low[shift]-Point*20);
// Print("time= ",Time[shift]);
// ObjectSet("smiley_face", OBJPROP_ARROWCODE, 242);
// ObjectSet("smiley_face", OBJPROP_COLOR , Red);
// ObjectSet("smiley_face", OBJPROP_WIDTH , 1);
// ObjectsRedraw();
//ExtMapBuffer3[shift+1] = EMPTY_VALUE;
//ExtMapBuffer3[shift+1] = EMPTY_VALUE;
}
else if (wt[shift+1] < wt[shift])
{
ExtMapBuffer1[shift+1] = EMPTY_VALUE; //-1 red/greem tight
MessageBox("asda");
//ExtMapBuffer3[shift+1] = EMPTY_VALUE;
}
else
{
ExtMapBuffer1[shift+1]=CLR_NONE;//EMPTY_VALUE;
ExtMapBuffer2[shift+1]=CLR_NONE;//EMPTY_VALUE;
}
}
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Implements a curve of type DRAW_LINE
Indicators Used:
Larry William percent range indicator
Custom Indicators Used:
IndicatorFileName
Order Management characteristics:
Other Features:
It opens Message Boxes to the user