Dynamic Targets

Dear all friends ,

I am looking an indicator named Dynamic target which is specially made for METATRADER ... i have it's mq4 and exe files .. please help me to build same indicator for metastock . i want to use it for diffrent time fames like 15 min , 30 min , hourly ( 1hr ) , daily , weekly .....for all time frame 1 indicator/expert ...


please help me in that , or any available indicator with same functions suggest me .

please find attached files

Regards

Mitr ,


Not able to attach rar file so pasting whole formula here




--------------------------------------------------------------------------

This is indicator having problem ArrayInitialize function internal error


************************************************************************

#property indicator_chart_window
#property indicator_buffers 3
#property indicator_color1 Green
#property indicator_color2 Blue
#property indicator_color3 Red

//---- indicator parameters
extern int ExtDepth=34;
extern color Line_color = Red;
extern color Target_color = Blue;
extern bool Draw_ZZ=false;
extern bool ShowTarget=true;

int UpArrowCode = 241;
int DownArrowCode = 242;
color UpArrowColor = Blue;
color DownArrowColor = Red;
int UpArrowSize = 3;
int DownArrowSize = 3;

//---- indicator buffers
double zzL[];
double zzH[];
double zz[];
double target1=0,target2=0;

//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
// IndicatorBuffers(3);
//---- drawing settings
SetIndexStyle(2,DRAW_ARROW);
SetIndexStyle(1,DRAW_ARROW);
SetIndexStyle(0,DRAW_SECTION);
SetIndexArrow(2,159);
SetIndexArrow(1,159);
//---- indicator buffers mapping
if(Draw_ZZ) SetIndexBuffer(0,zz);
SetIndexBuffer(1,zzH);
SetIndexBuffer(2,zzL);
SetIndexEmptyValue(0,0.0);
SetIndexEmptyValue(1,0.0);
SetIndexEmptyValue(2,0.0);

return(0);
}
int deinit()
{
//----
ObjectDelete("xpMA");
ObjectDelete("Target1=");
ObjectDelete("Target2=");
ObjectDelete("TargetUp");
ObjectDelete("TargetDown");
ObjectDelete("TP1");
ObjectDelete("TP2");
ObjectDelete("R1");
ObjectDelete("R2");
ObjectDelete("R3");
ObjectDelete("R4");
ObjectDelete("LH");
ObjectDelete("LL");
ObjectDelete("Low");
ObjectDelete("High");
ObjectDelete("0.618");
ObjectDelete("0.5");
ObjectDelete("0.382");
ObjectDelete("0.236");
Comment(" ");
//----
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
int i,shift,pos,lasthighpos,lastlowpos,curhighpos,curlowpos;
double curlow,curhigh,lasthigh,lastlow;
double min, max;
ArrayInitialize(zz,0.0);
ArrayInitialize(zzL,0.0);
ArrayInitialize(zzH,0.0);

lasthighpos=Bars; lastlowpos=Bars;
lastlow=Low[Bars];lasthigh=High[Bars];

for(shift=Bars-ExtDepth; shift>=0; shift--)
{
curlowpos=Lowest(NULL,0,MODE_LOW,ExtDepth,shift);
curlow=Low[curlowpos];
curhighpos=Highest(NULL,0,MODE_HIGH,ExtDepth,shift);
curhigh=High[curhighpos];
//------------------------------------------------
if( curlow>=lastlow ) { lastlow=curlow; }
else
{
if( lasthighpos>curlowpos )
{
zzL[curlowpos]=curlow;
min=100000; pos=lasthighpos;
for(i=lasthighpos; i>=curlowpos; i--)
{
if (zzL==0.0) continue;
if (zzL<min) { min=zzL; pos=i; }
zz=0.0;
}
zz[pos]=min;
}
lastlowpos=curlowpos;
lastlow=curlow;
}
//--- high
if( curhigh<=lasthigh ) { lasthigh=curhigh;}
else
{
if( lastlowpos>curhighpos )
{
zzH[curhighpos]=curhigh;
max=-100000; pos=lastlowpos;
for(i=lastlowpos; i>=curhighpos; i--)
{
if (zzH==0.0) continue;
if (zzH>max) { max=zzH; pos=i; }
zz=0.0;
}
zz[pos]=max;
}
lasthighpos=curhighpos;
lasthigh=curhigh;
}
double p, r4,r3,r2,r1;
double R= lasthigh - lastlow;//range

if(lastlowpos<lasthighpos) {
p = curlow;
r4 = p + (R * 0.618);
r3 = p + (R * 0.5);
r2 = p + (R * 0.382);
r1 = p + (R * 0.236);
if(Close[0]>r4 )target1= curhigh + (R * 0.618);
if(Close[0]>target1)target1= 0;
}

if(lasthighpos<lastlowpos) {
p = curhigh;
r4 = p - (R * 0.618);
r3 = p - (R * 0.5);
r2 = p - (R * 0.382);
r1 = p - (R * 0.236);
if(Close[0]<r4 )target2= curlow - (R * 0.618);
if(Close[0]<target2 )target2= 0;
}

drawLine(curhigh,"LH", Line_color,1);
drawLabel("High",curhigh,Line_color,13);
drawLine(curlow,"LL", Line_color,1);
drawLabel("Low",curlow,Line_color,13);

drawLine(r4,"R4", Orange,2);
drawLabel("0.618",r4,Orange,13);
//drawLine(r3,"R3", Yellow,2);
//drawLabel("0.5",r3,Yellow,13);
drawLine(r2,"R2", Orange,2);
drawLabel("0.382",r2,Orange,13);
//drawLine(r1,"R1", Yellow,2);
//drawLabel("0.236",r1,Yellow,13);

ObjectDelete("xpMA");
if(target1>0 && ShowTarget==true){
drawLine(target1,"TP1", Target_color,2);
drawLabel("TargetUp",target1,Target_color,7);
drawTarget("Target1=",target1,Target_color,1);
if(r4>r2 && Close[0]>r4 && target1>r4) DrawObject(1, (target1+curhigh)/2);
if(r4<r2 && Close[0]>r2 && target1>r2) DrawObject(1, (target1+curhigh)/2);
}

if(target2>0 && ShowTarget==true){
drawLine(target2,"TP2", Target_color,2);
drawLabel("TargetDown",target2,Target_color,7);
drawTarget("Target2=",target2,Target_color,2);
if(r4<r2 && Close[0]<r4 && target2<r4) DrawObject(2, (target2+curlow)/2);
if(r4>r2 && Close[0]<r2 && target2<r2) DrawObject(2, (target2+curlow)/2);
}


}
}

void drawTarget(string name,double lvl,color Color,int num)
{

string target=DoubleToStr(lvl, Digits);
string ver="Ve";
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
if(num==1){
ObjectSet(name, OBJPROP_XDISTANCE, 470);
ObjectSet(name, OBJPROP_YDISTANCE, 2);

ObjectSetText(name, "Target UP = "+target, 9, "Arial", Blue);
}
if(num==2){
ObjectSet(name, OBJPROP_XDISTANCE, 470);
ObjectSet(name, OBJPROP_YDISTANCE, 15);

ObjectSetText(name, "Target DOWN = "+target, 9, "Arial", Blue);
}

}

//+------------------------------------------------------------------+
void drawLabel(string name,double lvl,color Color,int time)
{

if(ObjectFind(name) != 0)
{
ObjectCreate(name, OBJ_TEXT, 0, Time[time], lvl);
ObjectSetText(name, name, 8, "Arial", EMPTY);
ObjectSet(name, OBJPROP_COLOR, Color);
}
else
{
ObjectMove(name, 0, Time[time], lvl);
}
}

void drawLine(double lvl,string name, color Col,int type)
{
if(ObjectFind(name) != 0)
{

if(type == 1){
ObjectCreate(name, OBJ_HLINE, 0, Time[0], lvl,Time[0],lvl);

}
else {
ObjectCreate(name, OBJ_GANNLINE, 0, Time[15], lvl,Time[0],lvl);
}

ObjectSet(name, OBJPROP_STYLE, STYLE_SOLID);
ObjectSet(name, OBJPROP_COLOR, Col);
ObjectSet(name,OBJPROP_WIDTH,1);

}
else
{
ObjectDelete(name);

if(type == 1){
ObjectCreate(name, OBJ_HLINE, 0, Time[0], lvl,Time[0],lvl);

}
else {
ObjectCreate(name, OBJ_GANNLINE, 0, Time[15], lvl,Time[0],lvl);
}

ObjectSet(name, OBJPROP_STYLE, STYLE_SOLID);
ObjectSet(name, OBJPROP_COLOR, Col);
ObjectSet(name,OBJPROP_WIDTH,1);

}

//----------------------------------------------------------------------
}

void DrawObject(int direction, double price)
{

static int count = 0;
count++;
string Obj = "";
Obj = "xpMA" ;

if (direction==1) //up arrow
{
ObjectCreate(Obj,OBJ_ARROW,0,Time[0],price);
ObjectSet(Obj,OBJPROP_COLOR,UpArrowColor);
ObjectSet(Obj,OBJPROP_ARROWCODE,UpArrowCode);
ObjectSet(Obj,OBJPROP_WIDTH,UpArrowSize);
}

if (direction==2) //down arrow
{
ObjectCreate(Obj,OBJ_ARROW,0,Time[0],price);
ObjectSet(Obj,OBJPROP_COLOR,DownArrowColor);
ObjectSet(Obj,OBJPROP_ARROWCODE,DownArrowCode);
ObjectSet(Obj,OBJPROP_WIDTH,DownArrowSize);

}

}

You can upload file at 4shared.com and paste link here.

Dear friends ,

here is the link for rar file , which contains MT4 indicator and formula in notepad which i posted earlier .

http://www.fileswap.com/dl/x5KG8HyKeQ/Dynamic_Target.rar.html


please go through this ....


Regards