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 [email protected], Fred Tonetti <[EMAIL PROTECTED]> 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! > 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 Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/amibroker/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/amibroker/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
