Jump to content

REQ: Market Forecaster indicator


Traderbeauty

Recommended Posts

My brother is using this Tradestation indicator and he swears by it, he trades the forex and generates more than 30% per month using 30 minute bars ( I saw the results ).

 

Since I no longer use TS I was wondering if anybody ever heard about this indicator or has it for ninja.

 

I am attaching a screenshot of the indicator and also the open code ELA so maybe someone can convert it to ninja script and share.

 

 

http://www.send$pace.c0m/filegroup/LdNbdwuf%2BEY9bQ81SeL5dA

 

Jane

Edited by Traderbeauty
Link to comment
Share on other sites

Traderbeauty.....have you checked to see if BM@T has done anything with this code....Nate

 

My brother is using this Tradestation indicator and he swears by it, he trades the forex and generates more than 30% per month using 30 minute bars ( I saw the results ).

 

Since I no longer use TS I was wondering if anybody ever heard about this indicator or has it for ninja.

 

I am attaching a screenshot of the indicator and also the open code ELA so maybe someone can convert it to ninja script and share.

 

 

http://www.send$pace.c0m/filegroup/LdNbdwuf%2BEY9bQ81SeL5dA

 

Jane

Link to comment
Share on other sites

  • 3 weeks later...
  • 5 months later...

i found the ela text:- as far as i know it was not converted to ninja------

 

[LegacyColorValue = true];

 

inputs:

PriceActionFilter(1),

TransColor1or2or3(1),

UseZeroLag(False),

CCIAvgLen( 20 ),

CCISmooth1( 3 ),

CCISmooth2( 5 ),

StochLength1(5),

StochLength2(3),

StochLength3(3),

UpColor(Green),

DwnColor(Red),

PlotWidth(2);

 

{****************************************}

 

variables:

Price(0),

First(0),

Second(0),

Curve1( 0 ),

Curve2( 0 ),

Zscore( 0 ),

OverBought(80),

OverSold(20),

Switch(0),

KFast(0),

KFull(0),

DFull(0),

LL(O),

HH(0),

Dira(0),

Dira1(0),

Dirb(0),

Dirb1(0),

ZL1(0);

 

{****************************************}

 

Price = SmoothedAverage(Close,PriceActionFilter);

 

First = (Price-Average(Price,CCIAvgLen));

Second = (StdDev(Price,CCIAvgLen));

 

If Second = 0 then Second = .001;

 

ZScore = (First/Second);

 

Curve1 = Average( ZScore, CCISmooth1 ) ;

Curve2 = Average( Curve1, CCISmooth2 ) ;

 

{****************************************}

 

LL = Lowest((High+Low)/2, StochLength1);

HH = Highest((High+Low)/2, StochLength1);

 

KFast = 100 * IFF(HH-LL=0,0,(((High+Low)/2) - LL)/(HH- LL));

KFull = Average(KFast, StochLength2);

 

DFull = Average(KFull, StochLength3);

 

ZL1 = Zero_Lag(Average(Kfast, StochLength2), StochLength1);

 

{****************************************}

 

SetPlotWidth(1,PlotWidth);

SetPlotWidth(3,PlotWidth);

 

{****************************************}

 

Plot1( 1,"CCISmoothBar");

Plot2(-2,"Spacer");

Plot3(-1,"StocasticBar");

Plot4( 2,"Spacer");

 

{****************************************}

 

If Curve1>Curve1[1] Then Dira=1;

If Curve1<Curve1[1] Then Dira=-1;

 

If TransColor1or2or3 = 2 and Dira>0 Then SetPlotcolor(1,UpColor);

If TransColor1or2or3 = 2 and Dira<0 Then Setplotcolor(1,DwnColor);

 

If TransColor1or2or3 = 1 and Dira>0 Then SetPlotcolor[1](1,UpColor);

If TransColor1or2or3 = 1 and Dira<0 Then Setplotcolor[1](1,DwnColor);

 

If TransColor1or2or3 = 3 and Dira>0 Then SetPlotcolor(1,UpColor);

If TransColor1or2or3 = 3 and Dira<0 Then Setplotcolor(1,DwnColor);

 

If TransColor1or2or3 = 3 and Dira>0 Then SetPlotcolor[1](1,UpColor);

If TransColor1or2or3 = 3 and Dira<0 Then Setplotcolor[1](1,DwnColor);

 

{****************************************}

 

If UseZeroLag = False then Begin

If KFull>KFull[1] Then Dirb=1;

If KFull<KFull[1] Then Dirb=-1;

End;

 

If UseZeroLag = True then Begin

If ZL1>ZL1[1] Then Dirb=1;

If ZL1<ZL1[1] Then Dirb=-1;

End;

 

If TransColor1or2or3 = 2 and Dirb>0 Then SetPlotcolor(3,UpColor);

If TransColor1or2or3 = 2 and Dirb<0 Then Setplotcolor(3,DwnColor);

 

If TransColor1or2or3 = 1 and Dirb>0 Then SetPlotcolor[1](3,UpColor);

If TransColor1or2or3 = 1 and Dirb<0 Then Setplotcolor[1](3,DwnColor);

 

If TransColor1or2or3 = 3 and Dirb>0 Then SetPlotcolor(3,UpColor);

If TransColor1or2or3 = 3 and Dirb<0 Then Setplotcolor(3,DwnColor);

 

If TransColor1or2or3 = 3 and Dirb>0 Then SetPlotcolor[1](3,UpColor);

If TransColor1or2or3 = 3 and Dirb<0 Then Setplotcolor[1](3,DwnColor);

 

{****************************************}

Link to comment
Share on other sites

Traderbeauty,

 

in line "64" of the Market forecaster code the function "Zero_Lag" is not verified in TS2000i: See

 

ZL1 = Zero_Lag(Average(Kfast, StochLength2), StochLength1);

 

Can you provide this function too?

 

Sixer

 

It looks like the logic follows this pattern:

MA1.Set(SMA(KFast,StochLength2)[0]);

ZMA.Set(ZLEMA(MA1,StochLength1)[0]);

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...