|
PureBytes Links
Trading Reference Links
|
"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@xxx> 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
|