home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABACKTST.ZIP / MACD---P.05I < prev    next >
Encoding:
Text File  |  1991-09-28  |  885 b   |  30 lines
  1. USES APROCEDU;
  2.  
  3. CONST datafilename='MACD---P.05I'; {DONT CHANGE!}
  4.       BARSS=200;BARSF=100;
  5. VAR MSLOW,MFAST,MACD,OLDMACD,MKT:REAL;
  6.     ICOLOR:BYTE;
  7.  
  8.  BEGIN
  9.   Howtochart(line,AUTOADJUST,datafilename);
  10.   READMARKETFILE;MKT:=MARKETDATA.LAST;
  11.   MSLOW:=MKT;MFAST:=MKT;OLDMACD:=0;
  12.   REPEAT
  13.    READMARKETFILE;MKT:=MARKETDATA.LAST;
  14.    MSLOW:=(MSLOW*(BARSS-1)+MKT)/BARSS;
  15.    MFAST:=(MFAST*(BARSF-1)+MKT)/BARSF;
  16.    MACD:=MFAST-MSLOW;
  17.    IF MACD>OLDMACD THEN ICOLOR:=GREEN ELSE ICOLOR:=RED;
  18.    OLDMACD:=MACD;
  19.    IF MACD>0 THEN
  20.      BEGIN
  21.       IF ICOLOR=GREEN THEN ICOLOR:=LIGHTGREEN ELSE ICOLOR:=LIGHTRED;
  22.      END;
  23.    indicatordata.data:=MACD;
  24.    indicatordata.color:=ICOLOR;
  25.    Writechartdatafile;
  26.    Nexttime;
  27.   UNTIL Alldone;
  28.   Done;
  29.  END.
  30.