home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABACKTST.ZIP / EMV----P.05I < prev    next >
Encoding:
Text File  |  1991-11-02  |  1.1 KB  |  42 lines
  1. USES APROCEDU;
  2.  
  3. CONST datafilename='EMV----P.05I'; {DONT CHANGE!}
  4. VAR EMV,OHIGH,OLOW,OVOL,DVOL,AVEDVOL,MIDMOVE,BOXRATIO:REAL;
  5.    OLDDAY:STRING;
  6.    ICOLOR:BYTE;
  7.  
  8.  BEGIN
  9.  Howtochart(line,autoadjust,datafilename);
  10.  WITH MARKETDATA DO
  11.  BEGIN
  12.  OLDDAY:='';
  13.  READMARKETFILE;OHIGH:=HIGH;OLOW:=LOW;OVOL:=VOL;
  14.  AVEDVOL:=VOL;DVOL:=VOL;
  15.  REPEAT
  16.    READMARKETFILE;
  17.    IF OLDDAY<>DAYNOW THEN
  18.      BEGIN
  19.       OLDDAY:=DAYNOW;
  20.       OVOL:=VOL;
  21.     END;
  22.    DVOL:=(DVOL*(25-1)+ABS(VOL-OVOL+5e-3))/25;
  23.    AVEDVOL:=(AVEDVOL*(100-1)+DVOL)/100;
  24.    MIDMOVE:=((HIGH+LOW+5e-3)/2)-((OHIGH-OLOW)/2);
  25.    BOXRATIO:=(AVEDVOL-DVOL)/(100*(HIGH-LOW+5e-3));
  26.    EMV:=MIDMOVE/BOXRATIO;
  27.    IF EMV<0 THEN ICOLOR:=RED ELSE ICOLOR:=GREEN;
  28.    indicatordata.data:=EMV;
  29.    indicatordata.color:=ICOLOR;
  30.    Writechartdatafile;
  31.    OHIGH:=HIGH;OLOW:=LOW;OVOL:=VOL;
  32.    Nexttime;
  33.    IF OLDDAY<>DAYNOW THEN
  34.        BEGIN
  35.         OLDDAY:=DAYNOW;
  36.         OVOL:=VOL;
  37.       END;
  38.   UNTIL Alldone;
  39.   END;
  40.  Done;
  41.  END.
  42.