[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [amibroker] Re: Wolf Wave.



PureBytes Links

Trading Reference Links

Thanks for the code. I don't see how this will work. If you put some traces after the start and end variables like :
 
// Only interested in the visible bars
lastbar =
Status("lastvisible barindex" ) - 3
;
startBar =
Status("firstvisible barindex"
);

_TRACE("Startbar"
+Startbar);
_TRACE("Lastbar"+Lastbar);
 
... both vars are empty. So the script will never run de loop ...
 
Regards, Ton.
 
 
 
----- Original Message -----
Sent: Saturday, May 17, 2008 3:40 PM
Subject: [amibroker] Re: Wolf Wave.

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="") ;

__._,_.___

Please note that this group is for discussion between users only.

To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com

For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/

For other support material please check also:
http://www.amibroker.com/support.html




Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___