Hi Ton,
Here is the code for you.I have debugged the code after getting it
from this thread and corrected some of the very minor errors(But for
your information I never got "Subscript Out of range" error message.)
and now its not showing any error.
But the problem is that I can't understand the notto of the code.
It just plotting candlestick chart in black background nothing else.
How does it catch the wolf wave I dont know u please try to find it
out and let me know as early as possible.
Debdulal Bhattacharyya.
code
========
/*Graph1 = ROC(EMA(High-Low,10),10);
Volspike=V/EMA(V,10);
Plot(Volspike,"Volume Spike",colorBlue,styleLine);
Plot(1,"'ZSignal Line",colorRed,styleLine); */
/*
// second test
//Potting EMA of 1Min Chart in Hourly Chart(Default Chart)
PlotOHLC(O,H,L,C, "Multiple Time EMA",styleBar+styleThick);
Minprice=TimeFrameGetPrice("C",in1Minute,0);
MinEMA=EMA(Minprice,Param("1Min EMA Period",55,5,500));
defaultEMA=EMA(C,Param("Default EMA Period",55,10,400));
MinEMAcolor=ParamColor("1MinEMA Color",colorRed);
defaultEMAcolor=ParamColor("Default EMA Color",colorBlue);
Plot(MinEMA,"1Min EMA",MinEMAcolor);
Plot(defaultEMA,"Default EMA",defaultEMAcolor);
*/
// 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=ParamToggle("Plot bull signals", "No,Yes");
BullGuide=ParamToggle("Plot bull guides","No, Yes");
ExtendBull=ParamToggle("Extend bull plot", "No,Yes");
BullWColor=ParamColor("Bullish wave colour", colorBrightGreen) ;
BullTColor=ParamColor("Bullish trend colour", colorDarkGreen) ;
BearPlot=ParamToggle("Plot bear signals", "No,Yes");
BearGuide=ParamToggle("Plot bear guides", "No,Yes");
ExtendBear=ParamToggle("Extend bear plot", "No,Yes");
BearWColor=ParamColor("Bearish wave colour", colorRed);
BearTColor=ParamColor("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|styleNoLabel);
PlotXB = LineArray(T2Idx[ Bar], T2[Bar], T1Idx[Bar], T1
[Bar],extendBull) ;
Plot(PlotXB, "", BullTColor, styleLine|styleNoLabel);
PlotXC = LineArray(T2Idx[ Bar], T2[Bar], P1Idx[Bar], P1
[Bar],extendBull) ;
Plot(PlotXC, "", BullTColor, styleLine|styleNoLabel);
}
}
} // 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|styleNoLabel);
PlotXB = LineArray(P2Idx[ Bar], P2[Bar], P1Idx[Bar], P1
[Bar],extendBear) ;
Plot(PlotXB, "", BearTColor, styleLine|styleNoLabel);
PlotXC = LineArray(P2Idx[ Bar], P2[Bar], T1Idx[Bar], T1
[Bar],extendBear) ;
Plot(PlotXC, "", BearTColor, styleLine|styleNoLabel);
}
}
} // fi if(BearPlot)
} // fi for(Bar =
_N(Title="") ;
