It seems that the spaces were removed between /* and */ from my post.
It had a nice diagram of the waves in the file but I suppose one
could lookup wolf wave and figure it out.
--- In amibroker@xxxxxxxxx ps.com,
"booker_1324" <booker_1324@ ...>
wrote:
>
> Here is a
version I ran into some time back. It runs very slow
> and probably
needs to be rewritten.
>
> // WolfeWave-V1. 01.afl
> //
Author: Mac Johnson
> // Date: 28aug2005
>
>
Version(4.70) ; // works from this version onwards
>
>
SetChartBkColor( ParamColor( "Background colour",colorBlack) );
>
> Plot(C, "", colorGrey40, styleCandle );
>
> // Only
interested in the visible bars
> lastbar = Status("lastvisible
barindex" ) - 3;
> startBar = Status("firstvisibl ebarindex"
);
>
> // Some visual choices ...
> BullPlot=ParamToggl
e("Plot bull signals", "No,Yes");
> BullGuide=ParamTogg le("Plot bull
guides","No, Yes");
> ExtendBull=ParamTog gle("Extend bull plot",
"No,Yes");
> BullWColor=ParamCol or("Bullish wave colour",
colorBrightGreen) ;
> BullTColor=ParamCol or("Bullish trend colour",
colorDarkGreen) ;
>
> BearPlot=ParamToggl e("Plot bear
signals", "No,Yes");
> BearGuide=ParamTogg le("Plot bear guides",
"No,Yes");
> ExtendBear=ParamTog gle("Extend bear plot",
"No,Yes");
> BearWColor=ParamCol or("Bearish wave colour",
colorRed);
> BearTColor=ParamCol or("Bearish trend colour",
colorBrown);
>
> // set AB's Peak/Trough percentage selection
ratio
> ValidDiff=1/ Param("Peak ratio", 65, 0,500,5);
>
> for(Bar = startbar; Bar < lastbar; Bar++)
> {
> //
Build Peak and Trough arrays
> P1 = Peak(H, validdiff, 1);
>
P1Idx = Bar - PeakBars(H, ValidDiff, 1);
>
> P2 = Peak(H,
validdiff, 2);
> P2Idx = Bar - PeakBars(H, ValidDiff, 2);
>
> T1 = Trough(L, validdiff, 1);
> T1Idx = Bar - TroughBars(L,
ValidDiff, 1);
>
> T2 = Trough(Low, validdiff, 2);
>
T2Idx = Bar - TroughBars(L, ValidDiff, 2);
>
> /* Test for a
WolfeWave Bullish setup
> *
> * \ 2 + EPA
> * \ Peak A is
P2 / |
> * \ /\ 4 / |
> * \ / \ Peak C is P1 / |
> * \ / \
/\ / |
> * \ / \ / \ / |
> * \/ \ / \ / |
> * Trough X is
T2 \ / \ / |
> * 1 \ / \ / |
> * \/ \ / |
> * Trough B is
T1 \/ |
> * 3 5-D ETA
> * Lines
> * 1 - 4 = EPA
> *
2 - 4 +
> * 1 - 3 = ETA convergence
> */
>
if(BullPlot)
> {
> // are the peaks and troughs in the correct
timewise order?
> PTValid = (P1Idx[Bar] > T1Idx[Bar]) AND
(T1Idx[Bar] > P2Idx[Bar])
> AND (P2Idx[Bar] >
T2Idx[Bar]);
>
> // are the peaks and troughs hi's and lo's
correct relatively?
> HLValid = (P1[Bar] < P2[Bar]) AND (T1[Bar]
< T2[Bar]) AND (P1
[Bar]
> > T1[Bar]);
>
>
if(PTValid AND HLValid){
> // Bareish Wolfewave found. Draw
pattern.
> PlotXA = LineArray(T2Idx[ Bar], T2[Bar], P2Idx[Bar],
P2[Bar]);
> Plot(PlotXA, "", BullWColor, styleLine);
>
>
PlotAB = LineArray(P2Idx[ Bar], P2[Bar], T1Idx[Bar], T1[Bar]);
>
Plot(PlotAB, "", BullWColor, styleLine );
>
> PlotBC =
LineArray(T1Idx[ Bar], T1[Bar], P1Idx[Bar], P1[Bar]);
> Plot(PlotBC,
"", BullWColor, styleLine);
>
> if(BullGuide) {
> PlotAC
= LineArray(P2Idx[ Bar], P2[Bar], P1Idx[Bar], P1
> [Bar],extendBull)
;
> Plot(PlotAC, "", BullTColor, styleLine|styleNoLa bel);
>
> PlotXB = LineArray(T2Idx[ Bar], T2[Bar], T1Idx[Bar], T1
>
[Bar],extendBull) ;
> Plot(PlotXB, "", BullTColor, styleLine|styleNoLa
bel);
>
> PlotXC = LineArray(T2Idx[ Bar], T2[Bar], P1Idx[Bar],
P1
> [Bar],extendBull) ;
> Plot(PlotXC, "", BullTColor,
styleLine|styleNoLa bel);
> }
> }
> } // fi
if(BullPlot)
>
>
> /* Test for a WolfeWave Bearish
setup
> *
> * 3 5-D ETA
> * Peak B is P1 /\ |
> * /\
/ \ |
> * 1 / \ / \ |
> * Peak X is P2 / \ / \ |
> * /\ /
\ / \ |
> * / \ / \ / \ |
> * / \ / \/ \ |
> * / \ /
Trough C is T1 \ |
> * / \/ 4 \ |
> * / Trough A is T2 \
|
> * / 2 + EPA
> *
> *
> * Lines
> * 1 - 4 =
EPA
> * 2 - 4 +
> * 1 - 3 = ETA convergence
> */
>
if(BearPlot)
> {
> // are the peaks and troughs in the correct
timewise order?
> PTValid = (T1Idx[Bar] > P1Idx[Bar]) AND
(P1Idx[Bar] > T2Idx[Bar])
> AND (T2Idx[Bar] >
P2Idx[Bar]);
>
> // are the peaks and troughs hi's and lo's
correct relatively?
> HLValid = (P1[Bar] > P2[Bar]) AND (T1[Bar]
> T2[Bar]) AND (T1
[Bar]
> < P1[Bar]);
>
>
if(PTValid AND HLValid){
> // Bullish Wolfewave found. Draw
patterns
> PlotXA = LineArray(P2Idx[ Bar], P2[Bar], T2Idx[Bar],
T2[Bar]);
> Plot(PlotXA, "", BearWColor, styleLine);
>
>
PlotAB = LineArray(T2Idx[ Bar], T2[Bar], P1Idx[Bar], P1[Bar]);
>
Plot(PlotAB, "", BearWColor, styleLine );
>
> PlotBC =
LineArray(P1Idx[ Bar], P1[Bar], T1Idx[Bar], T1[Bar]);
> Plot(PlotBC,
"", BearWColor, styleLine);
>
> if(BearGuide) {
> PlotAC
= LineArray(T2Idx[ Bar], T2[Bar], T1Idx[Bar], T1
> [Bar],extendBear)
;
> Plot(PlotAC, "", BearTColor, styleLine|styleNoLa bel);
>
> PlotXB = LineArray(P2Idx[ Bar], P2[Bar], P1Idx[Bar], P1
>
[Bar],extendBear) ;
> Plot(PlotXB, "", BearTColor, styleLine|styleNoLa
bel);
>
> PlotXC = LineArray(P2Idx[ Bar], P2[Bar], T1Idx[Bar],
T1
> [Bar],extendBear) ;
> Plot(PlotXC, "", BearTColor,
styleLine|styleNoLa bel);
> }
> }
> } // fi
if(BearPlot)
> } // fi for(Bar =
> _N(Title="") ;
>
>
>
> --- In amibroker@xxxxxxxxx ps.com,
kailash pareek <johnnypareek@ >
> wrote:
> >
>
> Hi,
> > I wonder if any one have coded "Wolf Wave" in
afl.
> > If yes, Please share.
> > Kailash Pareek
>
> www.moneybulls. blogspot. com
>
>
>
