home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
t
/
tas501.zip
/
MSURANK.SEL
< prev
next >
Wrap
Text File
|
1993-02-27
|
461b
|
21 lines
#TITLE Emulate Metastock Utilities Rank Function
#MAX_QUOTES 100
F1 : ARRAY;
F1 = C;
{01=CURR PRC Title for F1}
F2 : ARRAY;
F2 = ROC(C,26,'%');
{02=%ROC/PRC Title for F2}
F3 : ARRAY;
F3 = MOV(C,10,'S');
{03=MOV AVG Title for F3}
F4 : ARRAY;
F4 = MOV(F2,10,'S');
{04=MA %ROC Title for F4}
F5 : ARRAY;
F5 = (F1/F3-1)*100;
{05=%PRC MA Title for F5}
C1 = F2 GREATER THAN 0;
IF (C1) THEN
sortout(ticker,F1,F2,F3,F4,F5);