[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Ticker Count



PureBytes Links

Trading Reference Links

/*GAINERS*/
values = C>Ref(C,-1);
EnableScript("vbscript");
days = Day();
months = Month();
years = Year();
initialize = Status("stocknum") == 0;
<%
Name = "_GAINERS"
days = AFL("days")
months = AFL("months")
years = AFL("years")
values = AFL("values")
initialize = AFL("initialize")
Set oAB = CreateObject("Broker.Application")
If initialize Then
oAB.Stocks.Remove( Name )
End If
Set comp = oAB.Stocks.Add( Name )
For i = 0 To UBound( days )
Set qt = comp.Quotations.Add( years( i ) & "-" & months( i ) & "-
" & days( i ) )
If values( i ) = 1 Then qt.Volume = qt.Volume + 1
Next
If initialize Then
oAB.RefreshAll()
End If
%>
Buy = 0;

PASTE IN AUTOMATIC ANALYSIS,
SELECT
*Apply to->Use filter->Define->your watch list
*Range All quotations
and SCAN.
IN INDICATOR BUILDER PASTE THE
Graph0=Foreign("_GAINERS","V");
and you will have the Gainers graph.

Dimitris Tsokakis
--- In amibroker@xxxx, kbennett@xxxx wrote:
> 
> I have a watchlist of bellweather stocks which I monitor daily, and 
> pass the closing prices to Excel. In Excel I count the number of 
> gainers and chart the result over time.
> Is it possible to do this in AFL and to use the analysis to produce 
a 
> custom indicator?
> Thanks for any help or guidance.
> kb