[sunilrohira]

I have found an indicator Snake force for MT4. Will the people experienced in coding consider coding it for Tradestation. Thanks.

Here is the cross reference.

http://www.traderslaboratory.com/for...html#post72909

Here is the source:
http://www.forex-tsd.com/suggestions...ndicators.html

[Blu-Ray]

I don't think you will get anybody to respond when you only post a link to .....

a) another site which they would then have to register for just to see what it looks like.

b) the indicators and template for MT4, which if someone is willing to convert over, they would have to have MT4 installed just to see the code.

Your best bet would be to post some screenshots of the indicator and also copy the code into a text file, so if someone fancies having a go, then at least they don't have to spend ages doing the homework which should have already been done for them.

Cheers

Blu-Ray

[Tams]

I can help people to go from step 1 to step 2,

but I would not "assist" anyone to jump from step zero to step 3.

I will give a pass to anything short of a fully illustrated description.


good luck

;-)

[sunilrohira]

I am attaching some screenshots and will try to post the code later. Thanks to Blu Ray and Tams. I really appreciate it.

[sunilrohira]

//+------------------------------------------------------------------+
//| SnakeInBorders.mq4 |
//| "ÈÍÄÈÊÀÒÎÐÛ ÄËß ÑÀÌÎÎÁÌÀÍÀ" |
//| Bookkeeper, 2006, yuzefovich@gmail.com |
//+------------------------------------------------------------------+
#property copyright ""
#property link ""
//+------------------------------------------------------------------+
#property indicator_separate_window
#property indicator_buffers 4
#property indicator_color1 Lime
#property indicator_color2 Red
#property indicator_color3 Lime
#property indicator_color4 Red
//----
extern int cPeriod=24;
//----
double ForceUp[];
double ForceDown[];
double ResistanceUp[];
double ResistanceDown[];
double Mart[];
//----
double Snake_Sum, Snake_Weight, Snake_Sum_Minus, Snake_Sum_Plus;
//----
int init()
{
int draw_begin;
double indperiod,val1,val2;
string CommentStr;
draw_begin=3*cPeriod;
IndicatorBuffers(5);
SetIndexBuffer(0,ForceUp) ;
SetIndexBuffer(1,ForceDow n);
SetIndexBuffer(2,Resistan ceUp);
SetIndexBuffer(3,Resistan ceDown);
SetIndexBuffer(4,Mart);
SetIndexStyle(0,DRAW_HIST OGRAM,EMPTY,2);
SetIndexStyle(1,DRAW_HIST OGRAM,EMPTY,2);
SetIndexStyle(2,DRAW_HIST OGRAM);
SetIndexStyle(3,DRAW_HIST OGRAM);
SetIndexStyle(4,DRAW_NONE );
SetIndexLabel(2,NULL);
SetIndexLabel(3,NULL);
SetIndexLabel(4,NULL);
SetIndexDrawBegin(0,draw_ begin);
SetIndexDrawBegin(1,draw_ begin);
SetIndexDrawBegin(2,draw_ begin);
SetIndexDrawBegin(3,draw_ begin);
SetIndexDrawBegin(4,draw_ begin);
indperiod=1.0*cPeriod*Per iod();
if(indperiod<60)
{
CommentStr=DoubleToStr(in dperiod,0);
CommentStr=" M"+CommentStr+", FORCE UP -DOWN ";
}
else
{
indperiod=indperiod/60;
if(indperiod>=24)
{
val1=MathAbs(MathRound(in dperiod/24)-indperiod/24);
if(val1<0.01)
{
CommentStr=DoubleToStr(in dperiod/24,0);
CommentStr=" D"+CommentStr+", FORCE UP -DOWN ";
}
else
{
CommentStr=DoubleToStr(in dperiod/24,1);
CommentStr=" D"+CommentStr+", FORCE UP -DOWN ";
}
}
else
{
val1=MathAbs(MathRound(in dperiod)-indperiod);
if(val1<0.01)
{
CommentStr=DoubleToStr(in dperiod,0);
CommentStr=" H"+CommentStr+", FORCE UP -DOWN ";
}
else
{
CommentStr=DoubleToStr(in dperiod,1);
CommentStr=" H"+CommentStr+", FORCE UP -DOWN ";
}
}
}
IndicatorShortName("Snake InBorders"+CommentStr);
return(0);
}
//----
void deinit()
{
}
//----
int start()
{
int FirstPos, ExtCountedBars=0,i;
if(Bars<=50) return(0);
if(cPeriod<21) return(0);
ExtCountedBars=IndicatorC ounted();
if (ExtCountedBars<0) return(-1);
if (ExtCountedBars>0) ExtCountedBars--;
FirstPos=Bars-ExtCountedBars-1;
if(FirstPos>Bars-cPeriod-7)
{
FirstPos=Bars-cPeriod-7;
Mart[FirstPos+cPeriod]=SnakeFirstCalc(FirstPos+ cPeriod);
for(i=FirstPos+cPeriod-1;i>FirstPos;i--) SnakeNextCalc(i);
}
Snake(FirstPos);
return(0);
}
//----
void Snake(int Pos)
{
int i;
if(Pos<6) Pos=6;
Mart[Pos]=SnakeFirstCalc(Pos);
Drawing(Pos);
Pos--;
while(Pos>=5)
{
Mart[Pos]=SnakeNextCalc(Pos);
Drawing(Pos);
Pos--;
}
while(Pos>0)
{
Mart[Pos]=SnakeFirstCalc(Pos);
Drawing(Pos);
Pos--;
}
if(Pos==0)
{
// Mart[Pos]=iMA(NULL,0,6,0,MODE_LWMA ,PRICE_TYPICAL,0);
Mart[Pos]=iMA(NULL,0,6,0,MODE_LWMA ,PRICE_CLOSE,0);
Drawing(Pos);
}
return;
}
//----
double SnakePrice(int Shift)
{
// return((2*Close[Shift]+High[Shift]+Low[Shift])/4);
return(Close[Shift]);
}
//----
double SnakeFirstCalc(int Shift)
{
int i, j, w;
Snake_Sum=0.0;
if(Shift<5)
{
Snake_Weight=0.0;
i=0;
w=Shift+5;
while(w>=Shift)
{
i++;
Snake_Sum=Snake_Sum+i*Sna kePrice(w);
Snake_Weight=Snake_Weight +i;
w--;
}
while(w>=0)
{
i--;
Snake_Sum=Snake_Sum+i*Sna kePrice(w);
Snake_Weight=Snake_Weight +i;
w--;
}
}
else
{
Snake_Sum_Minus=0.0;
Snake_Sum_Plus=0.0;
for(j=Shift-5,i=Shift+5,w=1; w<=5; j++,i--,w++)
{
Snake_Sum=Snake_Sum+w*(Sn akePrice(i)+SnakePrice(j) );
Snake_Sum_Minus=Snake_Sum _Minus+SnakePrice(i);
Snake_Sum_Plus=Snake_Sum_ Plus+SnakePrice(j);
}
Snake_Sum=Snake_Sum+6*Sna kePrice(Shift);
Snake_Sum_Minus=Snake_Sum _Minus+SnakePrice(Shift);
Snake_Weight=36;
}
return(Snake_Sum/Snake_Weight);
}
//----
double SnakeNextCalc(int Shift)
{
Snake_Sum_Plus=Snake_Sum_ Plus+SnakePrice(Shift-5);
Snake_Sum=Snake_Sum-Snake_Sum_Minus+Snake_Sum _Plus;
Snake_Sum_Minus=Snake_Sum _Minus-SnakePrice(Shift+6)+Snake Price(Shift);
Snake_Sum_Plus=Snake_Sum_ Plus-SnakePrice(Shift);
return(Snake_Sum/Snake_Weight);
}
//----
void Drawing(int Shift)
{
double val,Dval,val1,val2,val11, val22,val3;
val= 5*(Mart[Shift]-Mart[ArrayMinimum(Mart,cPeriod ,Shift)])/9;
Dval=5*(Mart[Shift]-
Mart[Shift+1]+
Mart[ArrayMinimum(Mart,cPeriod ,Shift+1)]-
Mart[ArrayMinimum(Mart,cPeriod ,Shift)] )/9;
if(Dval>0)
{
ForceUp[Shift]=val;
ResistanceUp[Shift]=0;
}
else
{
ForceUp[Shift]=0;
ResistanceUp[Shift]=val;
}
val= 5*(Mart[Shift]-Mart[ArrayMaximum(Mart,cPeriod ,Shift)])/9;
Dval=5*(Mart[Shift]-
Mart[Shift+1]+
Mart[ArrayMaximum(Mart,cPeriod ,Shift+1)]-
Mart[ArrayMaximum(Mart,cPeriod ,Shift)] )/9;
if(Dval<0)
{
ForceDown[Shift]=val;
ResistanceDown[Shift]=0;
}
else
{
ForceDown[Shift]=0;
ResistanceDown[Shift]=val;
}
return;
}

[thrunner]

Originally Posted by sunilrohira »

I am attaching some screenshots and will try to post the code later. Thanks to Blu Ray and Tams. I really appreciate it.

You should put your code in the code box so it doesn't run on (use the green spinning gear icon in the message reply box).

This indicator repaints and is also known as the 'self deception' indicator:

04-29-2009, 01:54 PM #5 (permalink)
ronm
Junior Member

Join Date: Apr 2009
Posts: 1 Snake & Snake Force: An Exercise In Self-Deception
On the internet, I found a blog written in Russian about Snake and Snake Force. Of course I couldn't read it, but it was entitled something like "Self-Deception Indicators". After studying both, I can't think of a better sound-byte description for the both... so don't get mesmerized by the Snake.

Both of these indicators "repaint", what this means is that both can "change their mind" on signals after you have taken action based on the signal. This "repainting" it the reason the signals look soooo good on historic actions.

If you really like Snake, I suggest you use a "Linear Weighted Moving Average" in "Typical Mode" instead because this is what Snake is based on.

Snake was a total waste of time. Don't go there.

Ron M

[sunilrohira]

I am aware that it repaints, but I am perfectly okay with that and I am also aware that this one does not repaint ecept the current bar, which most indicators do anyway. I am looking to use it in Tradestation, since I only have the MT4 version I posted here.

[ziggy123]

Originally Posted by sunilrohira »

I am aware that it repaints, but I am perfectly okay with that and I am also aware that this one does not repaint ecept the current bar, which most indicators do anyway. I am looking to use it in Tradestation, since I only have the MT4 version I posted here.

I too, enjoy using snake force, your not alone, and for good reason!!!