techtrader

No access for Trading Indicators forum(http://www.traderslaboratory.com/forums/f46/) though I can visit coding forum which is a subforum there,what is wrong as I use to visit both previously without any troubles!

http://www.traderslaboratory.com/forums/f46/

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.

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.

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.

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;