Fractals ZigZag indicating Wolfe Waves

This topic has 9 replies, 7 voices, and was last updated 4 years ago by ALE.

Viewing 10 posts - 1 through 10 (of 10 total)

02/20/2017 at 3:50 PM #25762

Pere

Hi.

I saw recently the Fractals ZigZag indicator (https://www.prorealcode.com/prorealtime-indicators/fractals-zigzag/#comment-2952), and thought that it would be very nice to detect Wolfe Waves on the graphics.

Could it be posible to add a number on the last 5 points, like 1, 2, 3, 4 and 5? In this way I could see if the last 5 points fulfill the conditions of these Wolfe Waves.

Or much better, could it be possible to automatically detect these waves and mark them on the screen?

For those who don’t know the conditions for these kind of waves, they are as follows:

For Up-trending waves:

Point 2 is a high peak
Point 1 is the minimum previous to the point 2
Point 3 is the next minimum after point 2. It should be lower than point 1
Point 4 is the next maximum after point 3, higher than point 1
Point 5 is the last minimum, the lowest one, lower than point 3.

For Down-trending waves, exactly the inverse.

Pere

Participant

Topics: 20

Replies: 97

Been thanked: 20 times

02/23/2017 at 5:28 PM #26192

Nicolas

Hi Petrus, very interesting. I’d like to help, but I got no enough time until the next week. Please remind me if I don’t give news next week. Maybe someone else could help in the meantime ? 🙂

1 user thanked author for this post.

Alai-n

Nicolas

Keymaster

Topics: 81

Replies: 20824

Been thanked: 4733 times

05/11/2017 at 8:38 AM #35151

Atenoip

Awesome idea, let us know about the progress. Thank you

Atenoip

Participant

Topics: 1

Replies: 2

Been thanked: 0 times

02/21/2018 at 6:53 PM #63411

MrCrous

Hi,

I am also interested in such an indicator.

@nicolas, do you think you can have a look on this thread please?

Thank you.

MrCrous

PS : Below, a code from TS8xx, maybe just help us to find equivalent functions ?

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;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

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;

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;

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;

FOR W = 1 TO 50

BEGIN

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

END;

1 user thanked author for this post.

Alai-n

MrCrous

Participant

Topics: 8

Replies: 30

Been thanked: 1 time

02/26/2018 at 11:58 AM #63952

Alai-n

@MrCrous

Hello Mr.Crous, what language is it TS8 ??? Thank you

Alai-n

Participant

Topics: 40

Replies: 202

Been thanked: 27 times

02/26/2018 at 6:44 PM #63998

MrCrous

Hi Alai-n,

I dont know if i have rights to talk about another platform here, so my message may be deleted.

TS8 is Tradestation 8.

BR,

MrCrous

Participant

Topics: 8

Replies: 30

Been thanked: 1 time

02/26/2018 at 7:34 PM #64007

Alai-n

Ok thanks … I think you can talk about other platforms here !!! They are not sectarian 😉

Alai-n

Participant

Topics: 40

Replies: 202

Been thanked: 27 times

03/03/2018 at 9:58 AM #64259

Alai-n

Participant

Topics: 40

Replies: 202

Been thanked: 27 times

03/03/2018 at 10:49 AM #64263

Despair

This will be difficult to translate to PRT since it uses arrays. 🙁

Despair

Blocked

Topics: 97

Replies: 1034

Been thanked: 217 times

05/20/2019 at 4:09 PM #98911

ALE

Hello Guys
if could be of your interest I’ve coded Wolf Waves indicator and screener for ProRealTime, for more information : https://www.automatictrading.it/product/wolf-waves-chart-pattern/

Thanks
Ale

ALE

Moderator

Topics: 16

Replies: 569

Been thanked: 223 times

Author

Posts

Viewing 10 posts - 1 through 10 (of 10 total)

Find exclusive trading pro-tools on