1 min, 5 min, 15 min.
--- In [email protected], "Fred" <[EMAIL PROTECTED]> wrote: > > What's the periodicity of the data in your charts ? 5 Min ? 10 Min ? > > --- In [email protected], "rlfoxworth2006" > <rlfoxworth2006@> 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 [email protected], "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 [email protected], "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 [email protected], 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! > > > > > > > > > > > > > > > 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/
