home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
finance
/
tas515dm.zip
/
EXAMPLES.ZIP
/
RS.TAS
< prev
next >
Wrap
Text File
|
1991-10-29
|
338b
|
13 lines
#index SP-500
#MAX_QUOTES 100
RS : ARRAY; { Relative Strength Array}
OFS : ARRAY; { Initial Offset array}
RS = MULBY(DIV(C,INDEX),100);
SET(OFS,RS[1]); { Set OFS to first day's quotient}
RS = SUB(RS,OFS); { subtract ofs}
OPENGRAPH(2);
GRAPH(1); { Graph ticker Price}
GRAPH(RS); { Graph Relative Strength}
CLOSEGRAPH();