[amibroker] Re: Guppy Count Back Lines - VBscript HELP !!! - Type Mismatch

["pacific5_au <pacific5_au@xxxxxxxxx>" <pacific5_au@xxxxxxxxx>]

Graham

Guppy CBL AFL (not sure who posted it originally) :

HighDays =13; 
A1=IIf(Cum(C<0),1,0);
Aa=H<Ref(HHV(H,Highdays),-1);
bb=Cum(Aa==1);
dd=IIf(bb==Ref(bb,-1),bb-bb +bb,0);
ee=IIf(BarsSince(dd==0)>1,ValueWhen(bb,L,0),0);
kk=IIf(ee==0,Ref(ValueWhen(ee,L,1),ee),0);

zz=IIf(High < HHV(High, HighDays),kk==1,IIf(Ref(L,-2) < Ref(L,-1) AND 
Ref(L,-2) < L AND Ref(L,-1) < L,  Ref(L,-2),  IIf((Ref(L,-3)< Ref(L,-
2) AND Ref(L,-3) < Ref(L,-1) AND Ref(L,-3) < L) AND (Ref(L,-2)< L OR 
Ref(L,-1) < L),  Ref(L,-3),  IIf((Ref(L,-4)< Ref(L,-3) AND Ref(L,-4) 
< Ref(L,-2) AND Ref(L,-4) < Ref(L,-1) AND Ref(L,-4) < L) AND (Ref(L,-
3)< L OR Ref(L,-2) < L OR Ref(L,-1) < L),  Ref(L,-4),  IIf((Ref(L,-5)
< Ref(L,-4) AND Ref(L,-5) < Ref(L,-3) AND Ref(L,-5) < Ref(L,-2) AND 
Ref(L,-5) < Ref(L,-1) AND Ref(L,-5) < L) AND (Ref(L,-4)< L OR Ref(L,-
3) < L OR Ref(L,-2) < L OR Ref(L,-1) < L),  Ref(L,-5),0))))); 

Aaa=zz==0 + kk==0;
bba=Cum(1);
dda=IIf(bba=Ref(bba,-1),bba-bba +bba,0);
eea=IIf(BarsSince(aaA==0)==1,aaa,0);
ffa=IIf(eea=0 ,Cum(eea==1) AND BarsSince(eea==1)==1,Cum(eea>1));
kka=IIf(eea>Ref(eea,-1),Ref(ValueWhen(eea,eea,1),eea),zz);
ssa=IIf(Aaa,ValueWhen(kkA>0,kka,1),ValueWhen(zz==0,L,1));
Plot(HHV(ssa,2),"",2,4);  // change color as necessary
Plot(C,"",2,64);  // change color as necessary


Buy = C > HHV(ssa,2);

Sell = C < HHV(ssa,2);

Buy = ExRem(Buy,Sell);
Sell = ExRem(Sell,Buy);



PlotShapes( shapeUpArrow * Buy, colorBrightGreen );

PlotShapes( shapeDownArrow * Sell, colorRed );


regards


pacific





-------------------------------------------------------
--- In amibroker@xxxxxxxxxxxxxxx, "grmulhall <gmulhall@xxxx>" 
<gmulhall@xxxx> wrote:
> Hi,
> 
> In coding Guppy's count back lines (which I'll post in the AFL 
> library when complete) I get a 'Type Mismatch' error. Presumably 
the 
> datatype for the graph I'm creating doesn't match Ami's Low array 
> type.
> 
> The script is below if anyone can assist.
> 
> Thanks,
> 
> Geoff
> 
> /* Guppy Count Back Lines */
> /* Geoff Mulhall 12-02-2003 */
> 
> EnableScript("Vbscript");
> 
> <%
> 
> LowArray = AFL("low")
> 
> CurrentLow = LowArray(UBound(LowArray))
> 
> For I = UBound(LowArray) to LBound(LowArray) Step -1
>    J = I - 1
>    Hits = 0
>    While Hits < 3 AND J > 0
>       If LowArray (J) < CurrentLow then
>          Hits = Hits + 1
>          CurrentLow = LowArray (J)                  ' Type Mismatch
>       End If
>       J = J - 1
>    Wend
>    If Hits = 3 Then
>       StopArray(I) = CurrentLow
>    End If
> Next
> 
> AFL.Var("CBLStop") = StopArray 
> 
> %>
> 
> GraphXSpace = 5;
> 
> /* Candlestick Chart */
> 
> Plot(Close," ",1,64);
> 
> Plot(CBLStop,"Count Back Line", colorBlue,styleLine);


Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx 
(Web page: http://groups.yahoo.com/group/amiquote/messages/)

Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/