Float Analysis

["Peter Gialames" <investor@xxxx>]

Hello Tomasz,

I am trying to code a volume analysis function similar to Steve Woods idea.
This is a "backward cumulative count of the volume ... studied in relation
to a stock's floating supply of shares."

Now float is a variable found in Quotes Plus that is easily accessible via

<%
CInfo = new ActiveXObject("QuotesPlus.CompanyInfo");
CInfo.Symbol = AFL("ticker");
try
{
AFL("Float") = Number( CInfo.Float() );
}
catch( e )
{
AFL("Float") = 0;
}
%> //->Thanks Steve Wiser

Now that we have the Float we need to accumulate volume, on a day to day
basis, backwards until the accumulated volume is greater than the float
(volume turnover). This is our starting date.

>From this date we need to find the highest high and the lowest low over this
period of time and draw channel lines (horizontal line over highest high and
horizontal line over lowest low).

Now where I am stuck is on how to accumulate the volume backwards. AFAIK
the only way to do this is (excuse my VB syntax):

i=1
do while accumVol <> float
accumVol=ref(vol,-i)
if ref(high,-i)>highestHIGH then
highestHIGH=ref(high,-i)
endif
if ref(low,-i)<lowestLOW then
lowestLOW=ref(low,-i)
endif
i=i+1
loop

But AFL does not support looping, right? If there is another way of
achieving this calculation, please let me know.

Also, I have read about the ref() function not being that efficient. Is
there an easier way to reference other values in the array (close(-1),
volume(-2), high(-i))?

Thanks in advance,
Peter Gialames