home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
t
/
tas412.zip
/
PCTF.TAS
< prev
next >
Wrap
Text File
|
1992-11-22
|
611b
|
33 lines
#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();