|
PureBytes Links
Trading Reference Links
|
What's the periodicity of the data in your charts ? 5 Min ? 10 Min ?
--- In amibroker@xxxxxxxxxxxxxxx, "rlfoxworth2006"
<rlfoxworth2006@xxx> wrote:
>
> Ok thanks, I had figured the blank line thing out....
> Still wondering what to do with this "<<...>>"?
>
> Anyhow in the code I'm not getting a value for "n" or any values for
> A1 to A9 when scrolling through the chart, also no Red Dots
anywhere.
>
> Sorry to be such a pain... Again thankyou!
>
> I used this extra code to check for values when testing....
>
> Title = Name ( ) + ", " + Date ( ) + " - " +
> "\n " + "n = " + n +
> "\n " + "A1 = " + A1 +
> "\n " + "A2 = " + A2 +
> "\n " + "A3 = " + A3 +
> "\n " + "A4 = " + A4 +
> "\n " + "A5 = " + A5 +
> "\n " + "A6 = " + A6 +
> "\n " + "A7 = " + A7 +
> "\n " + "A8 = " + A8 +
> "\n " + "A9 = " + A9 +
> "\n " + "BI = " + BI +
> "\n " + "LVBI = " + LVBI +
> "\n " + "TN = " + TN +
> "\n " + "H = " + H +
> "\n " + "L = " + L +
> "\n " + "C = " + C ;
>
>
> --- In amibroker@xxxxxxxxxxxxxxx, "Fred" <ftonetti@> wrote:
> >
> > "An Error Message" is not terribly specific ... That's kind of
like
> > me taking my car to the mechanic and saying "I have a problem
with my
> > car, can you fix it ?" ... I suspect the mechanic might want to
know
> > presactly what problem I think I'm having ...
> >
> > For starters ... DON'T ALTER THE CODE ... It works as posted ...
> >
> > The underscores are continuation characters in VBS indicating
that
> > the next line is part of the preceding one. The problem is that
> > Yahoo added extra blank lines after code lines ... so ... make
sure
> > the lines that have underscores at the right end of them do NOT
have
> > blank lines following them as this causes a VBS syntax error.
> >
> > --- In amibroker@xxxxxxxxxxxxxxx, "rlfoxworth2006"
> > <rlfoxworth2006@> wrote:
> > >
> > > I really appreciate your help, again thanks for taking time out
and
> > > helping. The code looks really great! But I've copied and
loaded
> > the
> > > code and get an error message. I removed the underscore lines
after
> > > the AND and OR to make sure that's not it and also this at end
> > <<...>>
> > > with no luck. I've tried it as is and tested with the
removement.
> > > Any idea what I'm doing wrong?
> > >
> > >
> > >
> > > --- In amibroker@xxxxxxxxxxxxxxx, Fred Tonetti <ftonetti@>
wrote:
> > > >
> > > > Any how . to conclude ( sort of ) . The semi-dumb complete
version
> > > of this
> > > > would look like the AFL below . and would produce a chart
like
> > that
> > > attached
> > > > .
> > > >
> > > > It's a little smarter then the previously posted incomplete
> > version
> > > in that
> > > > it reuses arrays when it can but it is still dumb in that it
uses
> > > AFL arrays
> > > > rather than the Osaka pluggin to handle the tables and as
such
> > requires
> > > > EVERY array to be defined and plotted .
> > > >
> > > >
> > > >
> > > > PlotOHLC(O,H,L,C, "Data", colorWhite, styleBar);
> > > >
> > > > BI = BarIndex();
> > > >
> > > > LVBI = LastValue(BI);
> > > >
> > > > TN = TimeNum();
> > > >
> > > > printf(NumToStr(LVBI));
> > > >
> > > > EnableScript("VBScript");
> > > >
> > > > A1 = A2 = A3 = A4 = A5 = A6 = A7 = A8 = A9 = Cum(0);
> > > >
> > > > <%
> > > >
> > > > BI = AFL("BI")
> > > >
> > > > LVBI = AFL("LVBI")
> > > >
> > > > TN = AFL("TN")
> > > >
> > > > H = AFL("H")
> > > >
> > > > L = AFL("L")
> > > >
> > > > C = AFL("C")
> > > >
> > > > A1 = AFL("A1")
> > > >
> > > > A2 = AFL("A2")
> > > >
> > > > A3 = AFL("A3")
> > > >
> > > > A4 = AFL("A4")
> > > >
> > > > A5 = AFL("A5")
> > > >
> > > > A6 = AFL("A6")
> > > >
> > > > A7 = AFL("A7")
> > > >
> > > > A8 = AFL("A8")
> > > >
> > > > A9 = AFL("A9")
> > > >
> > > > Dim TBL(10, 500)
> > > >
> > > > for i = 1 to LVBI
> > > >
> > > > for j = 1 to 9
> > > >
> > > > if TBL(j, 0) = 1 then
> > > >
> > > > if TN(i) <> 95500 then
> > > >
> > > > if (C(i-1) <= TBL(j, i-1) AND _
> > > >
> > > > H(i) >= TBL(j, i-1)) OR _
> > > >
> > > > (C(i-1) >= TBL(j, i-1) AND _
> > > >
> > > > L(i) <= TBL(j, i-1)) then
> > > >
> > > > TBL(j, i) = TBL(j, i-1)
> > > >
> > > > TBL(j, 0) = 0
> > > >
> > > > else
> > > >
> > > > TBL(j, i) = TBL(j, i-1)
> > > >
> > > > end if
> > > >
> > > > else
> > > >
> > > > TBL(j, i) = TBL(j, i-1)
> > > >
> > > > end if
> > > >
> > > > end if
> > > >
> > > > Next
> > > >
> > > > if TN(i) = 95000 then
> > > >
> > > > for j = 1 To 10
> > > >
> > > > if TBL(j, 0) = 0 then
> > > >
> > > > Exit for
> > > >
> > > > End if
> > > >
> > > > Next
> > > >
> > > > TBL(j, i) = H(i)
> > > >
> > > > TBL(j, 0) = 1
> > > >
> > > > for j = 1 To 10
> > > >
> > > > if TBL(j, 0) = 0 then
> > > >
> > > > Exit for
> > > >
> > > > End if
> > > >
> > > > Next
> > > >
> > > > TBL(j, i) = L(i)
> > > >
> > > > TBL(j, 0) = 1
> > > >
> > > > end if
> > > >
> > > > Next
> > > >
> > > > for i = 0 to 499
> > > >
> > > > A1(i) = TBL(1, i)
> > > >
> > > > A2(i) = TBL(2, i)
> > > >
> > > > A3(i) = TBL(3, i)
> > > >
> > > > A4(i) = TBL(4, i)
> > > >
> > > > A5(i) = TBL(5, i)
> > > >
> > > > A6(i) = TBL(6, i)
> > > >
> > > > A7(i) = TBL(7, i)
> > > >
> > > > A8(i) = TBL(8, i)
> > > >
> > > > A9(i) = TBL(9, i)
> > > >
> > > > Next
> > > >
> > > > AFL("n") = n
> > > >
> > > > AFL("A1") = A1
> > > >
> > > > AFL("A2") = A2
> > > >
> > > > AFL("A3") = A3
> > > >
> > > > AFL("A4") = A4
> > > >
> > > > AFL("A5") = A5
> > > >
> > > > AFL("A6") = A6
> > > >
> > > > AFL("A7") = A7
> > > >
> > > > AFL("A8") = A8
> > > >
> > > > AFL("A9") = A9
> > > >
> > > > %>
> > > >
> > > > printf(NumToStr(n));
> > > >
> > > > Plot(IIf(A1 > 1, A1, -1e10), "", colorRed, styleDots);
> > > >
> > > > Plot(IIf(A2 > 1, A2, -1e10), "", colorRed, styleDots);
> > > >
> > > > Plot(IIf(A3 > 1, A3, -1e10), "", colorRed, styleDots);
> > > >
> > > > Plot(IIf(A4 > 1, A4, -1e10), "", colorRed, styleDots);
> > > >
> > > > Plot(IIf(A5 > 1, A5, -1e10), "", colorRed, styleDots);
> > > >
> > > > Plot(IIf(A6 > 1, A6, -1e10), "", colorRed, styleDots);
> > > >
> > > > Plot(IIf(A7 > 1, A7, -1e10), "", colorRed, styleDots);
> > > >
> > > > Plot(IIf(A8 > 1, A8, -1e10), "", colorRed, styleDots);
> > > >
> > > > Plot(IIf(A9 > 1, A9, -1e10), "", colorRed, styleDots);
> > > >
> > > > <<...>>
> > > >
> > > >
> > > >
> > > > _____
> > > >
> > > > I am using the free version of SPAMfighter for private users.
> > > > It has removed 8649 spam emails to date.
> > > > Paying users do not have this message in their emails.
> > > > Try SPAMfighter <http://www.spamfighter.com/go.asp?t=249>
for
> > free now!
> > > >
> > >
> >
>
Content-Description: "AVG certification"
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.13.27/517 - Release Date: 11/3/2006
|