home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABACKTST.ZIP / MOVEAV-P.05I < prev    next >
Encoding:
Text File  |  1991-10-30  |  896 b   |  27 lines
  1. USES APROCEDU;
  2.  
  3. {DOES EXPONENTIAL MOVING AVERAGE OF MARKET DATA}
  4.  
  5. CONST datafilename='MOVEAV-P.05I'; {DONT CHANGE!}
  6.       MOVINGPERCENT=0.05;{ << ENTER VALUE OF MOVING AVERAGE}
  7.  
  8. VAR  MKT,MOVINGAVERAGE,OLDMOVINGAVERAGE:REAL;
  9.      COLOR:BYTE;
  10.  
  11.  BEGIN
  12.   Howtochart(line,FOLLOWMARKET,datafilename);
  13.   READMARKETFILE; MOVINGAVERAGE:=MARKETDATA.LAST;
  14.   OLDMOVINGAVERAGE:=MOVINGAVERAGE;
  15.   REPEAT
  16.    READMARKETFILE; MKT:=MARKETDATA.LAST;
  17.    MOVINGAVERAGE:=(MOVINGAVERAGE*(1-MOVINGPERCENT))+(MOVINGPERCENT*MKT);
  18.    IF MOVINGAVERAGE<OLDMOVINGAVERAGE THEN COLOR:=RED ELSE COLOR:=GREEN;
  19.    indicatordata.data:=MOVINGAVERAGE;
  20.    indicatordata.color:=COLOR;
  21.    Writechartdatafile;
  22.    OLDMOVINGAVERAGE:=MOVINGAVERAGE;
  23.    Nexttime;
  24.   UNTIL Alldone;
  25.   Done;
  26.  END.
  27.