Jump to content

Welcome to the new Traders Laboratory! Please bear with us as we finish the migration over the next few days. If you find any issues, want to leave feedback, get in touch with us, or offer suggestions please post to the Support forum here.

  • Welcome Guests

    Welcome. You are currently viewing the forum as a guest which does not give you access to all the great features at Traders Laboratory such as interacting with members, access to all forums, downloading attachments, and eligibility to win free giveaways. Registration is fast, simple and absolutely free. Create a FREE Traders Laboratory account here.

ropulos

WOLFE WAVE Indicator Needed

By ropulos, in Coding Forum

Recommended Posts

Blu-Ray    10

Blu-Ray
Posted
or anyone can copy for me the code at that page:

 

https://www.tradestation.com/Discussions/Topic.aspx?Topic_ID=41125

 

it should be that !

 

thanks

 

There you go..............

 

 

[LegacyColorValue = True]

 

INPUTS:

TICKCHG(10), {Change (number of ticks) required to set up a new swing

high/low.}

PCTCHG(.2), {Percent change in price to set up a new swing high/low}

OCCUR(1),

PLOTBARS(40),

ETALINE(False),

ZIGZAG(TRUE);

 

ARRAY:

PBAR[50](0),

P[50](0);

 

VARS:

X(0),

PP(1),

JA_SLOPE1(0),

JLA_CTR(0),

JLA_LINE(0),

JAIRHBAR(0), { LAST SWING HIGH BAR}

JAIRLBAR(0), {LAST SWING LOW BAR}

LOWSEEK(FALSE), {LOOKING FOR A LOW OR A HIGH?}

W(0), {COUNTER}

JLA_IRH(0), {LAST SWING HIGH VALUE}

JLA_IRL(99999), {LAST SWING LOW VALUE}

JA_SLOPE2(0),

JA_SLOPE3(0),

JLA_PT1(0),

WOLFE(0);

{==================MAIN

 

 

PROGRAM=========================}

 

 

IF CURRENTBAR = 1 THEN P[50] = C;

IF LOWSEEK = FALSE AND P[50] <= H THEN

BEGIN

P[50] = H;

PBAR[50] = 0;

END;

 

IF LOWSEEK = TRUE AND P[50] >= L THEN

BEGIN

P[50] = L;

PBAR[50] = 0;

END;

 

IF (LOWSEEK = FALSE AND PBAR[50] <> 0) THEN

BEGIN

IF (TICKCHG = 0

AND L < P[50] * ( 1 - PCTCHG / 100) )

OR (TICKCHG <> 0

AND L < ( P[50] - tickchg * minmove points)) THEN

BEGIN

IF ZIGZAG = TRUE THEN

PLOT4[PBAR[50]](P[50],"SWINGS");

LOWSEEK = TRUE;

FOR W = 1 TO 49

BEGIN

PBAR[W] = PBAR[W+1];

P[W] = P[W+1];

END;

P[50] = L;

PBAR[50] = 0;

END;

END;

 

IF (LOWSEEK = TRUE AND PBAR[50] <> 0) THEN

BEGIN

IF (TICKCHG = 0

AND H> P[50] * ( 1 + PCTCHG / 100))

OR (TICKCHG <> 0

AND H > (P[50] + tickchg * minmove points )) THEN

BEGIN

IF ZIGZAG = TRUE THEN

PLOT4[PBAR[50]](P[50],"SWINGS");

LOWSEEK = FALSE;

FOR W = 1 TO 49

BEGIN

PBAR[W] = PBAR[W+1];

P[W] = P[W+1];

END;

P[50] = H;

PBAR[50] = 0;

END;

END;

 

IF TIME = LASTCALCTIME

AND DATE = LASTCALCDATE

AND P[48 - PP] <> 0 THEN

BEGIN

PP = -1;

WOLFE = 0;

WHILE WOLFE < OCCUR AND PP < 46

BEGIN

PP = PP + 1;

VALUE1 = P[47-PP];

VALUE2 = P[48-PP];

VALUE3 = P[49-PP];

VALUE4 = P[50-PP];

 

CONDITION1 =

VALUE2 > VALUE1

AND VALUE4 > VALUE3

AND VALUE4 < VALUE2

AND VALUE3 < VALUE1

AND VALUE4 > VALUE1;

 

CONDITION2 =

VALUE2 < VALUE1

AND VALUE4 < VALUE3

AND VALUE4 > VALUE2

AND VALUE3 > VALUE1

AND VALUE4 < VALUE1;

 

IF CONDITION1 OR CONDITION2 THEN

WOLFE = WOLFE + 1;

 

END;

 

JA_SLOPE1 = (P[49-PP] - P[47-PP]) / (PBAR[47-PP] - PBAR[49-PP]);

JA_SLOPE2 = (P[50-PP] - P[47-PP]) / (PBAR[47-PP] - PBAR[50-PP]);

 

{LINE 1-3}

if PBAR[47-PP] >=0 and PBAR[49-PP] >= 0 and PBAR[49-PP]-PLOTBARS >=0 then

begin

VALUE90 = TL_New(DATE[PBAR[47-PP]],TIME[PBAR[47-PP]],P[47-PP ],

DATE[PBAR[49-PP]], TIME[PBAR[49-PP]],P[49-PP]);

Value14=TL_SetColor(VALUE90, 5);

{VALUE93 = TL_SetExtRight(VALUE90,TRUE);}

VALUE94 =

TL_SETEND(VALUE90,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS],

TL_GetVALUE(VALUE90,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS]));

end ;

 

{LINE 1-4}

if PBAR[47-PP] >= 0 and PBAR[50-PP] >= 0 and PBAR[49-PP]-PLOTBARS >= 0 then

begin

VALUE91 = TL_NEW(DATE[PBAR[47-PP]],TIME[PBAR[47-PP]],P[47-PP ],

DATE[PBAR[50-PP]], TIME[PBAR[50-PP]],P[50-PP]);

Value14=TL_SetColor(VALUE91, 16);

 

TL_SETEND(VALUE91,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS],

TL_GETVALUE(VALUE91,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS]));

end ;

 

if PBAR[48-PP] >=0 and PBAR[50-PP]-PLOTBARS >= 0 then

begin

{ETA LINE}

IF ETALINE THEN

BEGIN

VALUE92 = TL_NEW(DATE[PBAR[48-PP]],TIME[PBAR[48-PP]],P[48-PP ],

DATE[PBAR[50-PP]], TIME[PBAR[50-PP]],P[50-PP]);

Value14=TL_SetColor(VALUE92, 4);

TL_SETEND(VALUE92,DATE[PBAR[50-PP]-PLOTBARS],TIME[PBAR[50-PP]-PLOTBARS],

TL_GETVALUE(VALUE92,DATE[PBAR[50-PP]-PLOTBARS],TIME[PBAR[50-PP]-PLOTBARS]));

END;

end;

 

END;

 

 

IF DATE = LASTCALCDATE

AND TIME = LASTCALCTIME

AND ZIGZAG = TRUE THEN

BEGIN

JA_SLOPE3 = (P[50] - P[49]) / (PBAR[49] - PBAR[50]);

FOR JLA_CTR = PBAR[49] DOWNTO PBAR[50] BEGIN

PLOT4[JLA_CTR](P[49] + (PBAR[49] - JLA_CTR) *

JA_SLOPE3,"Swings");

END;

END;

 

FOR W = 1 TO 50

BEGIN

PBAR[W] = PBAR[W]+1;

END;

Share this post

Link to post
Share on other sites

waveslider    10

waveslider
Posted

Reaver -

 

There is geometry in the markets, no doubt about it. The challenge is finding a discipline, or system of application to approach trading from that standpoint. Just simple price channels and andrew's pitchforks will convince you, if you have that eye to see them.

 

Price patterns in the market require training your eye and your mind.

People use horizontal levels quite a bit. These are the same, but very limited as they are pretty much one dimensional.

 

In a range, these horizontal levels are applicable. But as we know, increasing momentum creates dynamic movements that blow through horizontal levels as price establishes a directional vector.

 

Pattern reading is an art, like the VSA people will tell you their method is also. It is a way of reading charts to see the underlying balance in the market.

You can either see this stuff, or you don't. Or you don't care.

 

Wolfe waves are accurate patterns which demonstrate when price oversteps where it "should" go, which then sends it over-reacting in the other direction.

 

It is a pattern built on simple psychology.

 

Just to give an example of geometry, the 5 min Russell chart is the first chart I pulled up. The green lines are the exact same angle. They could have been drawn after the move up in the morning.

 

As price dropped into the afternoon, this was the level it accelerated off of, because that vector had been established by price momentum. When you combine that channel with a key horizontal level, you have the price and time for trend resumption.

 

How many people saw what I just put up real time? I guarantee you that same channel was on some peoples charts.

 

This gets into some pretty advanced concepts. The andrew's line gave an accurate short term target on this chart. Andrews illustrates the bisection of the counter-trend movement to give a natural price target.

ramble ramble, time for sleep.

 

anyone interested in this we can start a new thread.

5aa70e13df773_russell1022.jpg.35076986885b9fdf53ea1af19e5c4d14.jpg

Share this post

Link to post
Share on other sites

techtrader    10

techtrader
Posted

My first post here,wonderful forum and wonderful people-compliments!

While googling I found below code for ww but there are some errors,can anyone post a correct code for wolfe wave out of it?Below is a copy paste of what I found.

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

The following is claimed to be the Wolfe wave

formula for Tradestation,

 

Inputs:TICKCHG(10),PCTCHG(.2),OCCUR(1),PLOTBARS(40),ETALINE(TRUE),ZIGZAG(TRUE);Array:

PBAR[50](0), P[50](0);VARS: X(0),PP(1), JA_SLOPE1(0),

JLA_CTR(0),JLA_LINE(0), JAIRHBAR(0),JAIRLBAR(0), LOWSEEK(FALSE),W(0),

JA_SLOPE2(0), JA_SLOPE3(0), JLA_PT1(0),JLA_IRH(0), JLA_IRL(99999),

WOLFE(0);IF CURRENTBAR =1 THEN P[50] = C;IF LOWSEEK = FALSE AND

P[50] <= H THENBEGINP[50] = H;PBAR[50] = 0;END;IF

LOWSEEK = TRUE AND P[50] >= L THENBEGINP[50] = L;PBAR[50] =

0;END;IF (LOWSEEK = FALSE AND PBAR[50] <> 0)

THENBEGINIF (TICKCHG = 0and L < P[50]*(1-PCTCHG/100))OR

(TICKCHG <> 0AND L < (P[50] - TICKCHG* MINMOVE POINTS))

THENBEGINIF ZIGZAG = TRUE THEN

PLOT4[PBAR[50]](P[50],"SWINGS");LOWSEEK =

TRUE; FOR W = 1 TO

49BEGINPBAR[W] = PBAR[W+1];P[W] =

P[W+1]; END;P[50] =

L;PBAR[50] = 0;END;END;IF (LOWSEEK = TRUE AND PBAR[50]

<> 0) THENBEGINIF (TICKCHG = 0and H >

P[50]*(1+PCTCHG/100))OR (TICKCHG <> 0AND H > (P[50] +

TICKCHG* MINMOVE POINTS)) THENBEGINIF ZIGZAG = TRUE THEN

PLOT4[PBAR[50]](P[50],"SWINGS");LOWSEEK =

FALSE; FOR W = 1 TO

49BEGINPBAR[W] = PBAR[W+1];P[W] =

P[W+1]; END;P[50] =

H;PBAR[50] = 0;END;END;IF TIME = LASTCALCTIMEAND DATE

= LASTCALCDATEAND P[48 - PP] <> 0 THENBEGINPP =-1;WOLFE

= 0;WHILE WOLFE < OCCUR AND PP < 46BEGINPP = PP+1;VALUE1

= P[47-PP];VALUE2 = P[48-PP];VALUE3 = P[49-PP];VALUE4 =

P[50-PP];CONDITION1 =VALUE2 > VALUE1AND VALUE4 >

VALUE3AND VALUE4 < VALUE2AND VALUE3 < VALUE1AND VALUE4 >

VALUE1;CONDITION2 =VALUE2 < VALUE1AND VALUE4 <

VALUE3AND VALUE4 > VALUE2AND VALUE3 > VALUE1AND VALUE4 <

VALUE1;IF CONDITION1 OR CONDITION2 THEN WOLFE = WOLFE

+1;END;JA_SLOPE1 = (P[49-PP] - P[47-PP]) / (PBAR[47-PP]

-PBAR[49-PP]);JA_SLOPE2 = (P[50-PP] - P[47-PP]) / (PBAR[47-PP]

-PBAR[50-PP]);{LINE 1 -

3}VALUE90=TL_New(DATE[PBAR[47-PP]],TIME[PBAR[47-PP]],P[47-PP],DATE[PBAR[49-PP]],TIME[PBAR[49-PP]],P[49-PP]);Value14

= TL_SetColor(VALUE90,5);{VALUE93 =

TL_SetExtRight(VALUE90,TRUE);}Value94

=TL_SETEND(VALUE90,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS],TL_GETVALUE(VALUE90,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS]));{LINE

1 -

4}VALUE91=TL_NEW(DATE[PBAR[47-PP]],TIME[PBAR[47-PP]],P[47-PP],DATE[PBAR[50-PP]],TIME[PBAR[50-PP]],P[50-PP]);Value14

= TL_SetColor(VALUE91,16);{VALUE93 =

TL_SetExtRight(VALUE90,TRUE);}TL_SETEND(VALUE91,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS],TL_GETVALUE(VALUE91,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS]));{ETA

LINE}IF ETALINE THEN BEGIN

VALUE92=TL_New(DATE[PBAR[48-PP]],TIME[PBAR[48-PP]],P[48-PP],DATE[PBAR[50-PP]],TIME[PBAR[50-PP]],P[50-PP]);Value14

=

TL_SetColor(VALUE92,4);TL_SETEND(VALUE92,DATE[PBAR[50-PP]-PLOTBARS],TIME[PBAR[50-PP]-PLOTBARS],TL_GETVALUE(VALUE92,DATE[PBAR[50-PP]-PLOTBARS],TIME[PBAR[50-PP]-PLOTBARS]));END;END;IF

DATE = LASTCALCDATEAND TIME = LASTCALCTIMEAND ZIGZAG = TRUE

THENBEGINJA_SLOPE3 = (P[50-PP] - P[49-PP]) / (PBAR[49-PP]

-PBAR[50-PP]);FOR JLA_CTR = PBAR[49] DOWNTO

PBAR[50]BEGINPLOT4[JLA_CTR](P[49]+(PBAR[49]-JLA_CTR)

*JA_SLOPE3,"SWINGS");END;END;FOR W = 1 TO

50BEGINPBAR[W] =

PBAR[W]+1;END;

Share this post

Link to post
Share on other sites

techtrader    10

techtrader
Posted
Techtrader,

 

Do you know specifically where it's buggy or not producing correct results?

ie how to replicate the bugs?

 

zdo

 

zdo

When I paste it and e.l window and scan it I get errors so posted here so that some experts may help to correct the coding part of it.

Share this post

Link to post
Share on other sites

thrunner    10

thrunner
Posted

There are two Wolfe Wave TS code from this thread: http://www.amibrokerfan.com/forum/index.php?topic=405.msg2890

The code listing is more manageable if one uses the '#' icon in the full reply message composer.

 

This code verifies

//Tradestation: Wolfe Wave 2
//http://www.purebytes.com/archives/amibroker/2001/msg04494.html

Inputs:
TICKCHG(10),PCTCHG(.2),OCCUR(1),PLOTBARS(40),ETALINE(TRUE),ZIGZAG (TRUE);
Array: PBAR[50](0), P[50](0);
VARS: X(0),PP(1), JA_SLOPE1(0), JLA_CTR(0),
JLA_LINE(0), JAIRHBAR(0),JAIRLBAR(0), LOWSEEK(FALSE),
W(0), JA_SLOPE2(0), JA_SLOPE3(0), JLA_PT1(0),
JLA_IRH(0), JLA_IRL(99999), WOLFE(0);

IF CURRENTBAR =1 THEN P[50] = C;
IF LOWSEEK = FALSE AND P[50] <= H THEN
BEGIN
P[50] = H;
PBAR[50] = 0;
END;

IF LOWSEEK = TRUE AND P[50] >= L THEN
BEGIN
P[50] = L;
PBAR[50] = 0;
END;

IF (LOWSEEK = FALSE AND PBAR[50] <> 0) THEN
BEGIN
IF (TICKCHG = 0
and L < P[50]*(1-PCTCHG/100))
OR (TICKCHG <> 0
AND L < (P[50] - TICKCHG* MINMOVE POINTS)) THEN
BEGIN
IF ZIGZAG = TRUE THEN
PLOT4[PBAR[50]](P[50],"SWINGS");
LOWSEEK = TRUE;
FOR W = 1 TO 49
BEGIN
PBAR[W] = PBAR[W+1];
P[W] = P[W+1];
END;
P[50] = L;
PBAR[50] = 0;
END;
END;

IF (LOWSEEK = TRUE AND PBAR[50] <> 0) THEN
BEGIN
IF (TICKCHG = 0
and H > P[50]*(1+PCTCHG/100))
OR (TICKCHG <> 0
AND H > (P[50] + TICKCHG* MINMOVE POINTS)) THEN
BEGIN
IF ZIGZAG = TRUE THEN
PLOT4[PBAR[50]](P[50],"SWINGS");
LOWSEEK = FALSE;
FOR W = 1 TO 49
BEGIN
PBAR[W] = PBAR[W+1];
P[W] = P[W+1];
END;
P[50] = H;
PBAR[50] = 0;
END;
END;

IF TIME = LASTCALCTIME
AND DATE = LASTCALCDATE
AND P[48 - PP] <> 0 THEN
BEGIN
PP =-1;
WOLFE = 0;
WHILE WOLFE < OCCUR AND PP < 46
BEGIN
PP = PP+1;
VALUE1 = P[47-PP];
VALUE2 = P[48-PP];
VALUE3 = P[49-PP];
VALUE4 = P[50-PP];

CONDITION1 =
VALUE2 > VALUE1
AND VALUE4 > VALUE3
AND VALUE4 < VALUE2
AND VALUE3 < VALUE1
AND VALUE4 > VALUE1;

CONDITION2 =
VALUE2 < VALUE1
AND VALUE4 < VALUE3
AND VALUE4 > VALUE2
AND VALUE3 > VALUE1
AND VALUE4 < VALUE1;

IF CONDITION1 OR CONDITION2 THEN WOLFE = WOLFE +1;
END;

JA_SLOPE1 = (P[49-PP] - P[47-PP]) / (PBAR[47-PP] -
PBAR[49-PP]);
JA_SLOPE2 = (P[50-PP] - P[47-PP]) / (PBAR[47-PP] -
PBAR[50-PP]);


{LINE 1 - 3}
VALUE90=
TL_New(DATE[PBAR[47-PP]],TIME[PBAR[47-PP]],P[47-PP],DATE[PBAR[49-
PP]],TIME[PBAR[49-PP]],P[49-PP]);
Value14 = TL_SetColor(VALUE90,5);
{VALUE93 = TL_SetExtRight(VALUE90,TRUE);}
Value94 =
TL_SETEND(VALUE90,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-
PLOTBARS],TL_GETVALUE(VALUE90,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-
PP]-PLOTBARS]));


{LINE 1 - 4}
VALUE91=
TL_NEW(DATE[PBAR[47-PP]],TIME[PBAR[47-PP]],P[47-PP],
DATE[PBAR[50-PP]],TIME[PBAR[50-PP]],P[50-PP]);
Value14 = TL_SetColor(VALUE91,16);
{VALUE93 = TL_SetExtRight(VALUE90,TRUE);}
TL_SETEND(VALUE91,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-
PLOTBARS],TL_GETVALUE(VALUE91,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-
PP]-PLOTBARS]));

{ETA LINE}

IF ETALINE THEN
BEGIN
VALUE92=
TL_New(DATE[PBAR[48-PP]],TIME[PBAR[48-PP]],P[48-PP],
DATE[PBAR[50-PP]],TIME[PBAR[50-PP]],P[50-PP]);
Value14 = TL_SetColor(VALUE92,4);
TL_SETEND(VALUE92,DATE[PBAR[50-PP]-PLOTBARS],TIME[PBAR[50-PP]-
PLOTBARS],TL_GETVALUE(VALUE92,DATE[PBAR[50-PP]-PLOTBARS],TIME[PBAR[50-
PP]-PLOTBARS]));

END;
END;

IF DATE = LASTCALCDATE
AND TIME = LASTCALCTIME
AND ZIGZAG = TRUE THEN
BEGIN
JA_SLOPE3 = (P[50-PP] - P[49-PP]) / (PBAR[49-PP] -
PBAR[50-PP]);
FOR JLA_CTR = PBAR[49] DOWNTO PBAR[50]
BEGIN
PLOT4[JLA_CTR](P[49]+(PBAR[49]-JLA_CTR) *
JA_SLOPE3,"SWINGS");
END;
END;

FOR W = 1 TO 50
BEGIN
PBAR[W] = PBAR[W]+1;
END;

 

This one requires two functions:

 

BarsToDate_Time & Swing_Lee_Simple

Swing_Lee_Simple can probably be substituted with Swing_Lee

 

//Tradestation: Wolfe Wave 1
//http://finance.groups.yahoo.com/group/amibroker/message/112236

Inputs:  NBars(13),     {Number of bars for Swing_Lee    pivot picking }

    MaxBars(250);  {Maximum number of bars forward to search for  }

                       {Match/Crossing of ETA lines to set end EPA    }

                       {If this is set to a very high number, the time}

           {to compute and plot will become excessive.    }

Vars:    TPCount(0),Direct(0),

       HoldPrice(0),BarsBk(0),

       Slope1(0),Slope2(0),

       ETA1(0),ETA2(0),EPA(0),

      NewDate(0),NewTime(0);

Arrays:  TPDate[4](0),TPTime[4](0),TPBar[4](0),TPPrice[4](0),TPDirect[4](0);

Direct=Swing_Lee(NBars);  //Swing_Lee_Simple(NBars,False);  // something about Zaf's modification ?

If Sign(Direct)<>Sign(Direct[1]) then begin

BarsBk=AbsValue(Direct);

{Found a TurningPoing so increase count}

TPCount=TPCount+1;

{Save the proper price}

 If Direct<0 then HoldPrice=High[barsBk]

           else HoldPrice=Low [barsBk];

 {Push the Stack}

For Value1=1 to 3 begin

  TPDate[Value1]  =TPDate[Value1+1];

  TPTime[Value1]  =TPTime[Value1+1];

 TPBar[Value1]   =TPBar[Value1+1];

  TPPrice[Value1] =TPPrice[Value1+1];

  TPDirect[Value1]=TPDirect[Value1+1];

 End; 

{Save Current Data}

TPDate[4]  =Date[barsBk];

TPTime[4]  =Time[barsBk];

TPBar[4]   =CurrentBar-BarsBk;

TPPrice[4] =HoldPrice;

TPDirect[4]=Sign(Direct);

Plot1[barsBk](HoldPrice,"TP");

If TPCount>3 then begin

  {If we have 4 TP's then we can look for WW}

 Condition1=False;Condition2=False;

 Slope1=(TPPrice[3]-TPPrice[1])/(TPBar[1]-TPBar[3]);

 Slope2=(TPPrice[4]-TPPrice[2])/(TPBar[2]-TPBar[4]);

 If TPDirect[1]>0 then begin

  {Look for Bullish WW}

     Condition1=

         TPPrice[4]>TPPrice[3] and

     TPPrice[4]<TPPrice[2] and

     TPPrice[3]<TPPrice[1] and

     TPPrice[4]>TPPrice[1] and

     Slope1    <Slope2     ;

   End

 Else Begin

  {Look for Bearish WW}

     Condition2=

     TPPrice[4]<TPPrice[3] and

     TPPrice[4]>TPPrice[2] and

     TPPrice[3]>TPPrice[1] and

     TPPrice[4]<TPPrice[1] and

     Slope1    >Slope2     ;

   End;

{Plot the wave and lines if it exists}

  If Condition1 or Condition2 then begin

  ETA1=TL_NEW(TPDate[1],TPTime[1],TPPrice[1],TPDate[3],TPTime[3],TPPrice[3]);

  ETA2=TL_NEW(TPDate[2],TPTime[2],TPPrice[2],TPDate[4],TPTime[4],TPPrice[4]);

  EPA =TL_NEW(TPDate[1],TPTime[1],TPPrice[1],TPDate[4],TPTime[4],TPPrice[4]);

  Value5=TL_New(Date,Time,TL_GetValue(ETA1,Date,Time),

               Date,Time,TL_GetValue(ETA2,Date,Time));

  Value1=mod(tpcount,6)+2;

  Value1=red;

  TL_SetColor(ETA1,VALUE1);

  TL_SetColor(ETA2,VALUE1);

  TL_SetColor(EPA ,VALUE1);

  TL_SetColor(Value5,Red);

  TL_SetSize(Value5,3);

  Value2=0;

  Value1=0;

    While Value2=0 and Value1< MaxBars begin

 	// need function BarsToDate_Time

 //  Value2=BarsToDate_Time(TPBar[4]-TPBar[3], Value1, NewDate, NewTime);

   Value3=TL_GetValue(ETA2, NewDate, NewTime)-TL_GetValue(ETA1, NewDate, NewTime);

   If Condition1 and Value3>0 then Value2=0;

   If Condition2 and Value3<0 then Value2=0;

    Value1=Value1+1;

    End;

  If Value2<>0 or Value1=MaxBars then begin

   TL_SetEnd(ETA1, NewDate, NewTime, TL_GetValue(ETA1, NewDate, NewTime));

   Value7=TL_GetValue(ETA2, NewDate, NewTime);

   TL_SetEnd(ETA2, NewDate, NewTime, Value7);

   Value8=Text_New(NewDate,NewTime,Value7,"ETA");

       Text_SetStyle(Value8, 0, 2);

   Value7=TL_GetValue(EPA , NewDate, NewTime);

   TL_SetEnd(EPA , NewDate, NewTime, Value7);

   Value8=Text_New(NewDate,NewTime,Value7,"EPA");

       Text_SetStyle(Value8, 0, 2);

  End;
 End;
End;
End;

 

Swing_Lee function:

[LegacyColorValue = true]; 

{*******************************************************************
Function		: Swing_Lee
Last Edit	: 6/4/99
Provided By	: Clyde Lee (c) 1997,1998,1999

Notes:	Uses HighestHigh and LowestLow to determine Turning
	Points for Swing Analysis.

	Returns number of bars back to last swing point.
			Negative if low.  Positive if high.

********************************************************************}
Input: 	NDays(NumericSimple);
Vars:		HBar(0),				LBar(0),
			MinInt(IntPortion(NDays/5+1)),
			Direct(0),			Return(0);

If NDays<>0 and CurrentBar>NDays then begin
Value2=H;HBar=0;
For Value1=1 to AbsValue(NDays)-1 begin
	If H[Value1]>Value2 then begin
		HBar=Value1;Value2=H[HBar];
	End;
End;		
Value2=L;LBar=0;
For Value1=1 to AbsValue(NDays)-1 begin
	If L[Value1]<Value2 then begin
		LBar=Value1;Value2=L[LBar];
	End;
End;		

If Direct=0 then begin
	Direct=HBar-LBar;
End;

If Direct>0 then 
	Return=Return+1
else
	Return=Return-1;

If LBar<HBar and Direct>0 {and HBar-LBar>MinInt} then	begin
	Direct=-1;
	Return=-HBar;
End
Else If HBar<LBar and Direct<0 {and LBar-HBar>MinInt}  then	begin
	Direct=+1;
	Return=LBar;
End;

End;

Swing_Lee = Return;

Share this post

Link to post
Share on other sites

thrunner    10

thrunner
Posted
Thx mate for your feedback but the code which verifies is not for ts8xx but for older version I think,if someone can post a code which works for 8X versions it will be a big help.
They both verified and plotted for TS8xx. These Ww code has been around for many years and some features may be absent because of the one missing function and legacy coding. The complete code should be available somewhere, but this is what I could gather with limited searching. Version 2 posted (the first code box posted above) has runtime error for referencing future data.. it has been corrected in this version below by TradeStation Securities support :

//Tradestation: Wolfe Wave 2a   modified by Mitch Shack of TradeStation Securities
//https://www.tradestation.com/Discussions/Topic_Archive.aspx?Topic_ID=41125
[LegacyColorValue = True]  

INPUTS: 
TICKCHG(10), {Change (number of ticks) required to set up a new swing 
	high/low.} 
PCTCHG(.2), {Percent change in price to set up a new swing high/low} 
OCCUR(1), 
PLOTBARS(40), 
ETALINE(true), 
ZIGZAG(TRUE); 

ARRAY: 
PBAR[50](0), 
P[50](0); 

VARS: 
X(0), 
PP(1), 
JA_SLOPE1(0), 
JLA_CTR(0), 
JLA_LINE(0), 
JAIRHBAR(0), { LAST SWING HIGH BAR} 
JAIRLBAR(0), {LAST SWING LOW BAR} 
LOWSEEK(FALSE), {LOOKING FOR A LOW OR A HIGH?} 
W(0), {COUNTER} 
JLA_IRH(0), {LAST SWING HIGH VALUE} 
JLA_IRL(99999), {LAST SWING LOW VALUE} 
JA_SLOPE2(0), 
JA_SLOPE3(0), 
JLA_PT1(0), 
WOLFE(0); 
{==================MAIN  


PROGRAM=========================} 


IF CURRENTBAR = 1 THEN P[50] = C; 
IF LOWSEEK = FALSE AND P[50] <= H THEN 
BEGIN 
P[50] = H; 
PBAR[50] = 0; 
END; 

IF LOWSEEK = TRUE AND P[50] >= L THEN 
BEGIN 
P[50] = L; 
PBAR[50] = 0; 
END; 

IF (LOWSEEK = FALSE AND PBAR[50] <> 0) THEN 
BEGIN 
IF (TICKCHG = 0 
	AND L < P[50] * ( 1 - PCTCHG / 100) ) 
	OR (TICKCHG <> 0 
	AND L < ( P[50] - tickchg * minmove points)) THEN 
	BEGIN  
		IF ZIGZAG = TRUE THEN  
			PLOT4[PBAR[50]](P[50],"SWINGS"); 
	LOWSEEK = TRUE; 
	FOR W = 1 TO 49 
		BEGIN 
		PBAR[W] = PBAR[W+1]; 
		P[W] = P[W+1]; 
		END; 
		P[50] = L; 
	PBAR[50] = 0; 
	END; 
END;  

IF (LOWSEEK = TRUE AND PBAR[50] <> 0) THEN 
BEGIN 
IF (TICKCHG = 0 
	AND H> P[50] * ( 1 + PCTCHG / 100)) 
	OR (TICKCHG <> 0 
	AND H > (P[50] + tickchg * minmove points )) THEN 
	BEGIN 
	IF ZIGZAG = TRUE THEN  
		PLOT4[PBAR[50]](P[50],"SWINGS"); 
	LOWSEEK = FALSE; 
	FOR W = 1 TO 49 
		BEGIN 
		PBAR[W] = PBAR[W+1]; 
		P[W] = P[W+1]; 
		END; 
	P[50] = H; 
	PBAR[50] = 0; 
	END; 
END; 

IF TIME = LASTCALCTIME 
	AND DATE = LASTCALCDATE 
	AND P[48 - PP] <> 0 THEN 
	BEGIN 
	PP = -1; 
	WOLFE = 0; 
	WHILE WOLFE < OCCUR AND PP < 46 
		BEGIN 
		PP = PP + 1; 
		VALUE1 = P[47-PP]; 
		VALUE2 = P[48-PP]; 
		VALUE3 = P[49-PP]; 
		VALUE4 = P[50-PP]; 

		CONDITION1 = 
			VALUE2 > VALUE1 
			AND VALUE4 > VALUE3 
			AND VALUE4 < VALUE2 
			AND VALUE3 < VALUE1 
			AND VALUE4 > VALUE1; 

		CONDITION2 = 
			VALUE2 < VALUE1 
			AND VALUE4 < VALUE3 
			AND VALUE4 > VALUE2 
			AND VALUE3 > VALUE1 
			AND VALUE4 < VALUE1; 

		IF CONDITION1 OR CONDITION2 THEN  
			WOLFE = WOLFE + 1; 

		END; 

	JA_SLOPE1 = (P[49-PP] - P[47-PP]) / (PBAR[47-PP] - PBAR[49-PP]);  
	JA_SLOPE2 = (P[50-PP] - P[47-PP]) / (PBAR[47-PP] - PBAR[50-PP]); 

	{LINE 1-3} 
	if PBAR[47-PP] >=0 and PBAR[49-PP] >= 0 and PBAR[49-PP]-PLOTBARS >=0 then 
		begin 
		VALUE90 = TL_New(DATE[PBAR[47-PP]],TIME[PBAR[47-PP]],P[47-PP ], 
			DATE[PBAR[49-PP]], TIME[PBAR[49-PP]],P[49-PP]); 
		Value14=TL_SetColor(VALUE90, red); 
	{VALUE93 = TL_SetExtRight(VALUE90,TRUE);} 
		VALUE94 = 
			TL_SETEND(VALUE90,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS], 
			TL_GetVALUE(VALUE90,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS])); //
		end ; 

	{LINE 1-4} 
	if PBAR[47-PP] >= 0 and PBAR[50-PP] >= 0 and PBAR[49-PP]-PLOTBARS >= 0 then 
		begin 
		VALUE91 = TL_NEW(DATE[PBAR[47-PP]],TIME[PBAR[47-PP]],P[47-PP ], 
			DATE[PBAR[50-PP]], TIME[PBAR[50-PP]],P[50-PP]); 
			Value14=TL_SetColor(VALUE91, green); 

		TL_SETEND(VALUE91,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS], 
		TL_GETVALUE(VALUE91,DATE[PBAR[49-PP]-PLOTBARS],TIME[PBAR[49-PP]-PLOTBARS])); 
		end ; 

	if PBAR[48-PP] >=0 and PBAR[50-PP]-PLOTBARS >= 0 then 
  		begin 
		{ETA LINE} 
		IF ETALINE THEN 
			BEGIN 
			VALUE92 = TL_NEW(DATE[PBAR[48-PP]],TIME[PBAR[48-PP]],P[48-PP ], 
				DATE[PBAR[50-PP]], TIME[PBAR[50-PP]],P[50-PP]); 
			Value14=TL_SetColor(VALUE92, blue); 
			TL_SETEND(VALUE92,DATE[PBAR[50-PP]-PLOTBARS],TIME[PBAR[50-PP]-PLOTBARS], 
			TL_GETVALUE(VALUE92,DATE[PBAR[50-PP]-PLOTBARS],TIME[PBAR[50-PP] -PLOTBARS])); 
			END; 
		end; 

	END; 


IF DATE = LASTCALCDATE 
AND TIME = LASTCALCTIME 
AND ZIGZAG = TRUE THEN 
BEGIN 
JA_SLOPE3 = (P[50] - P[49]) / (PBAR[49] - PBAR[50]); 
FOR JLA_CTR = PBAR[49] DOWNTO PBAR[50]	BEGIN 
	PLOT4[JLA_CTR](P[49] + (PBAR[49] - JLA_CTR) *  
	JA_SLOPE3,"Swings"); 
	END; 
END; 

FOR W = 1 TO 50 
BEGIN 
PBAR[W] = PBAR[W]+1; 
END;

Credit goes to Clyde Lee of theswingmachine for releasing the code for his Ww version show below:

attachment.php?attachmentid=4356&stc=1&d=1197094303

5aa70e2870de6_clydeleeWw2007-12-08_010818.png.884614b90a574287f41d1f048c487e6e.png

Share this post

Link to post
Share on other sites

techtrader    10

techtrader
Posted

Thanks a tonn for your replies,I have the code which you have posted but strangly I get different chart out of it,check comex gold chart plotted below with ww which looks like a normal zigzag chart and not actural ww.

btw I have used same (corrected) code posted by you in your last message.

If I did anything wrong do correct me,thanks again for taking pain.

wwaves.thumb.jpg.83b982dc49e3cc5544ab9d3236f35ddf.jpg

Share this post

Link to post
Share on other sites

thrunner    10

thrunner
Posted
looks like a normal zigzag chart and not actural ww
Yes, currently Ww2 and Ww2a do not work with TS 8.1 and above in plotting Ww, only Zz. The chart you see with Ww is Wolfe Wave 1 code from Clyde Lee as explained in the chart caption above.

Import the Swing_Lee function and then create the Lee Ww indicator. The Lee Ww was once freely available as an ELA around 2001. If someone has a copy, please post it. I don't include the ELD because it is missing a function; it is just to show that the code does work.

Share this post

Link to post
Share on other sites

montexxx    10

montexxx
Posted
or anyone can copy for me the code at that page:

 

https://www.tradestation.com/Discussions/Topic.aspx?Topic_ID=41125

 

it should be that !

 

thanks

 

its interesting, someone named ropulos is selling Wolfe Wave on ebay for $49. :-D

 

http://cgi.ebay.com/WOLFE-WAVES-INDICATOR-coded-TRADESTATION-FOREX-TRADING_W0QQitemZ320259952776QQihZ011QQcategoryZ158906QQssPageNameZWDVWQQrdZ1QQcmdZViewItem

Share this post

Link to post
Share on other sites

Guest forsearch   

Guest forsearch
Posted

Ain't capitalism great! Aren't you all glad you did his dirty work for him?

 

Of course, next he'll just setup a website like Carter/Senters did at TTM using "open source code" from the TS forums...

 

-fs

Share this post

Link to post
Share on other sites

thrunner    10

thrunner
Posted

Hey Ropulos, we hardly knew you :)

attachment.php?attachmentid=7020&stc=1&d=1213134628

 

But really, what does it matter? I am sure for every Ropulos, there are dozens of traders that got some real use out of this thread and other threads like this on TL.

5aa70e74d7ca5_ropuloswolfewave2008-06-09_001030.jpg.90c1831cbed75aa75a65fec9c2bfdf4d.jpg

Share this post

Link to post
Share on other sites

sunilrohira    10

sunilrohira
Posted

I saw the post by Ropulos and then I saw the eBay ad:

 

http://cgi.ebay.com/WOLFE-WAVES-INDICATOR-coded-TRADESTATION-FOREX-TRADING_W0QQitemZ320324841897QQcmdZViewItemQQptZUS_Software?hash=item320324841897&_trksid=p3286.c0.m14&_trkparms=72%3A570%7C66%3A2%7C65%3A12%7C39%3A1%7C240%3A1318%7C301%3A1%7C293%3A1%7C294%3A50

 

Can someone please help with a Tradestation ELD ELA file. I saw the kind post by BluRay. Thank you.

Share this post

Link to post
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.
Note: Your post will require moderator approval before it will be visible.

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.

×
Go To Topic Listing

  • Topics

  • Posts

    • HFblogNews
      HFMarkets (hfm.com): Market analysis services.

      By HFblogNews · Posted

      Date: 25th April 2024. Investors Monitor a Potential Japanese Intervention, and upcoming Tech Earnings. Meta stocks top earnings expectations, but revenue guidance for the next 6 months triggers significant selloff. Meta stocks decline 15.00% and the Magnificent Seven also trade lower. Japanese Authorities are on watch and most market experts predict the Japanese Federal Government will intervene once again. The Japanese Yen is the day’s worst performing currency while the Australian Dollar continues to top the charts. The US Dollar trades 0.10% lower, but this afternoon’s performance is likely to be dependent on the US GDP. USA100 – Meta Stocks Fall 15% On the Next 6-Months Guidance The NASDAQ has declined 1.51% over the past 24 hours, unable to maintain momentum from Monday and Tuesday. Technical analysts advise the decline is partially simply a break in the bullish momentum and the asset continues to follow a bullish correction pattern. However, if the decline continues throughout the day, the retracement scenario becomes a lesser possibility. In terms of indications and technical analysis, most oscillators, and momentum-based signals point to a downward price movement. The USA100 trades below the 75-Bar EMA, below the VWAP and the RSI hovers above 40.00. All these factors point towards a bearish trend. The bearish signals are also likely to strengthen if the price declines below $17,295.11. The stock which is experiencing considerably large volatility is Meta which has fallen more than 15.00%. The past quarter’s earnings beat expectations and according to economists, remain stable and strong. Earnings Per Share beat expectations by 8.10% and revenue was as expected. However, company expenses significantly rose in the past quarter and the guidance for the second half of the year is lower than previous expectations. These two factors have caused investors to consider selling their shares and cashing in their profits. Meta’s decline is one of the main causes for the USA100’s bearish trend. CFRA Senior Analyst, Angelo Zino, advises the selloff may be a slight over reaction based on earnings data. If Meta stocks rise again, investors can start to evaluate a possible upward correction. However, a concern for investors is that more and more companies are indicating caution for the second half of the year. The price movements will largely now depend on Microsoft and Alphabet earnings tonight after market close. Microsoft is the most influential stock for the NASDAQ and Alphabet is the third. The two make up 14.25% of the overall index. If the two companies also witness their stocks decline after the earnings reports, the USA100 may struggle to gain upward momentum. EURJPY – Will Japan Intervene Again? In the currency market, the Japanese Yen remains within the spotlight as investors believe the Japanese Federal Government is likely to again intervene. The Federal Government has previously intervened in the past 12 months which caused a sharp rise in the Yen before again declining. The government opted for this option in an attempt to hinder a further decline. Volatility within the Japanese Yen will also depend on today’s US GDP reading and tomorrow’s Core PCE Price Index. However, investors will more importantly pay close attention to the Bank of Japan’s monetary policy. Investors will be keen to see if the central bank believes it is appropriate to again hike in 2024 as well as comment regarding inflation and the economy. In terms of technical analysis, breakout levels can be considered as areas where the exchange rate may retrace or correct. Breakout levels can be seen at 166.656 and 166.333. However, the only indicators pointing to a decline are the RSI and similar oscillators which advise the price is at risk of being “overbought”. Always trade with strict risk management. Your capital is the single most important aspect of your trading business. Please note that times displayed based on local time zone and are from time of writing this report. Click HERE to access the full HFM Economic calendar. Want to learn to trade and analyse the markets? Join our webinars and get analysis and trading ideas combined with better understanding on how markets work. Click HERE to register for FREE! Click HERE to READ more Market news. Michalis Efthymiou Market Analyst HFMarkets Disclaimer: This material is provided as a general marketing communication for information purposes only and does not constitute an independent investment research. Nothing in this communication contains, or should be considered as containing, an investment advice or an investment recommendation or a solicitation for the purpose of buying or selling of any financial instrument. All information provided is gathered from reputable sources and any information containing an indication of past performance is not a guarantee or reliable indicator of future performance. Users acknowledge that any investment in FX and CFDs products is characterized by a certain degree of uncertainty and that any investment of this nature involves a high level of risk for which the users are solely responsible and liable. We assume no liability for any loss arising from any investment made based on the information provided in this communication. This communication must not be reproduced or further distributed without our prior written permission.
    • Stocks4life
      Breakout and Swing Stock Ideas

      By Stocks4life · Posted

      $ALVR AlloVir stock bottom breakout watch, huge upside gap, https://stockconsultant.com/?ALVR
    • Stocks4life
      Breakout and Swing Stock Ideas

      By Stocks4life · Posted

      $DIS Disney stock attempting to move higher off the 112.79 triple support area, https://stockconsultant.com/?DIS
    • Stocks4life
      Breakout and Swing Stock Ideas

      By Stocks4life · Posted

      $ADCT Adc Therapeutics stock flat top breakout watch above 5.31, https://stockconsultant.com/?ADCT
    • Stocks4life
      Breakout and Swing Stock Ideas

      By Stocks4life · Posted

      $CXAI CXApp stock local support and resistance areas at 2.78, 3.52 and 5.19, https://stockconsultant.com/?CXAI
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.

  I accept