home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABACKTST.ZIP / MPROF--P.05P < prev    next >
Encoding:
Text File  |  1991-11-02  |  1.2 KB  |  45 lines
  1. USES APROCEDU;
  2. CONST profitprogramname='MPROF--P.05P';
  3.       BUY=1;SELL=2;OUT=3;PRICEPERTICK=500;COMMISSIONS=0.12;
  4. VAR tempdata,OLDMKT,TOTALMKT,MKT,MV,VOLIT:REAL;
  5.     dcolor,OCOLOR,oocolor,VCOLOR,BUYSELL:BYTE;
  6.  
  7. PROCEDURE DOBUY;
  8.      BEGIN
  9.       TOTALMKT:=MV-COMMISSIONS;
  10.       OLDMKT:=MKT;
  11.       BUYSELL:=BUY;
  12.       DCOLOR:=GREEN;
  13.      END;
  14.  
  15. PROCEDURE DOSELL;
  16.      BEGIN
  17.       TOTALMKT:=MV-COMMISSIONS;
  18.       OLDMKT:=MKT;
  19.       BUYSELL:=SELL;
  20.       DCOLOR:=RED;
  21.      END;
  22.  
  23. BEGIN
  24.  Howtochart(line,LOCK,profitprogramname);
  25.  OPENINDICATORFILE(1,'MACD--');
  26.  BUYSELL:=OUT;MV:=0;DCOLOR:=YELLOW;
  27.  REPEAT
  28.   Readmarketfile;MKT:=MARKETDATA.LAST;
  29.   READINDICATORFILE(1);VOLIT:=INDICATORDATA.DATA;VCOLOR:=INDICATORDATA.COLOR;
  30.   cASE BUYSELL OF
  31.    BUY:MV:=TOTALMKT+MKT-OLDMKT;
  32.    SELL:MV:=TOTALMKT+OLDMKT-MKT;
  33.   END;
  34.   OCOLOR:=DCOLOR;
  35.   IF (oocolor=green) and ((VCOLOR=lightGREEN) OR (VCOLOR=lightred)) AND (BUYSELL<>sell) THEN DOsell;
  36.   IF (oocolor=red) and ((VCOLOR=green) {OR (VCOLOR=red)}) AND (BUYSELL<>buy) THEN DObuy;
  37.   indicatordata.data:=MV*PRICEPERTICK;
  38.   indicatordata.color:=OColor;
  39.   oocolor:=vcolor;
  40.   Writechartdatafile;
  41.   Nexttime;
  42.  UNTIL Alldone;
  43.  Done;
  44. END.
  45.