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