home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
t
/
tas501.zip
/
PCTF.TAS
< prev
next >
Wrap
Text File
|
1993-02-25
|
683b
|
34 lines
#TITLE Script to calculate %F as described in TASC May 92 (T. Chande)
#output_file f%.lst
#max_quotes 100
{ Script to calculate %F as described by
Tushar Chande in the May 1992 issue of TASC
%F = Today's Close - The 5 day TSF of yesterday
------------------------------------------ * 100
Today's Close
This script illustrates the use of the REF function to shift a series
or array forward.
}
pctF : array;
tsfA : array;
tsfA = tsf(C,5);
pctF = mulBy( div( ( sub( C,REF( tsfA,-1 ) ) ),C ) , 100 );
{dump_array(c,tsfA,pctf);
return;}
openGraph(2);
sizeGraph(2,1);
Graph(1);
Graph(pctF,'Chandes %F');
closeGraph();