home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABACKTST.ZIP / MOMETM-P.05I < prev    next >
Encoding:
Text File  |  1991-11-02  |  698 b   |  26 lines
  1. USES APROCEDU;
  2.  
  3. {THIS IS A MOMENTUM INDICATOR}
  4.  
  5. CONST datafilename='MOMETM-P.05I'; {DONT CHANGE!}
  6.  
  7. VAR OMOM,MO,MOMENTUM,MKT,VOL:REAL;
  8.     COLOR:BYTE;
  9.  
  10.  BEGIN
  11.   Howtochart(line,LOCK,datafilename);
  12.   MO:=MARKETDATA.LAST;MOMENTUM:=0;OMOM:=0;
  13.   REPEAT
  14.    READMARKETFILE; MKT:=MARKETDATA.LAST;
  15.    MO:=(MO*(30-1)+MKT)/30;
  16.    MOMENTUM:=MOMENTUM+(MKT-MO);
  17.    IF MOMENTUM>0 THEN COLOR:=GREEN ELSE COLOR:=RED;
  18.    OMOM:=MOMENTUM;
  19.    indicatordata.data:=MOMENTUM;
  20.    indicatordata.color:=COLOR;
  21.    Writechartdatafile;
  22.    Nexttime;
  23.   UNTIL Alldone;
  24.   Done;
  25.  END.
  26.