|
PureBytes Links
Trading Reference Links
|
A. For an Exploration, following the new terms,use
the code
/*EVENING STAR
EXPLORATION*/
Filter=CdBlack(0.1) AND Ref(CdDoji(0.1),-1) AND
Ref(CdWhite(0.1),-2);
numcolumns=1;
column0=close;
Explore all stocks for the last day of your
data.
In above code I ask the first candle to be white, the
second to be a doji
and the third to be black, without looking at more
details.
B. For daily chart of evening stars, follow the
code:
/*EVENING STARS PER
DAY*/
values = CdBlack(0.1) AND Ref(CdDoji(0.1),-1) AND
Ref(CdWhite(0.1),-2<FONT
size=2>);
EnableScript("vbscript");<FONT
size=2>
days = Day();<FONT
size=2>
months = Month();<FONT
size=2>
years = Year();<FONT
size=2>
initialize = Status("stocknum") == 0<FONT
size=2>;
<%
Name = <FONT
size=2>"_EVENINGSTAR"
days = AFL("days")<FONT
size=2>
months = AFL("months")<FONT
size=2>
years = AFL("years")<FONT
size=2>
values = AFL("values")<FONT
size=2>
initialize = AFL("initialize"<FONT
size=2>)
Set oAB = CreateObject("Broker.Application"<FONT
size=2>)
If initialize Then<FONT
size=2>
oAB.Stocks.Remove( Name )
End If
Set comp = oAB.Stocks.Add( Name
)
For i = 0 To UBound( days )<FONT
size=2>
Set qt = comp.Quotations.Add( years( i ) & "-" & months( i )&
"-" & days( i ) )<FONT
size=2>
If values( i ) = 1 Then qt.Volume = qt.Volume + <FONT
size=2>1
Next
If initialize Then
oAB.RefreshAll()
End If
%>
Buy = 0;
Scan all stocks, all quotations. This is the way to
create composite ticker
"_EVENINGSTAR".
Then, in Indicator Builder, paste the
formula
/*EVENING STARS PER DAY
GRAPH*/
<FONT
size=2>Graph2=Foreign("_EVENINGSTAR","V");<FONT
face=Verdana size=2>
Graph2Style=4+<FONT
size=2>2;Graph2BarColor=<FONT
size=2>2;
Dimitris Tsokakis
|