home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / STOCHSIG.TAS < prev    next >
Text File  |  1991-08-13  |  686b  |  23 lines

  1. {   This script uses a 14-day slow stochastic to generate buy and sell
  2.     signals.
  3.                                                                      }
  4. #max_quotes 50
  5. stoch_array : array;
  6. stoch_array = stoch(14,3);
  7. d3_array : array;
  8. d3_array = mov(stoch_array,3,'E');
  9. ma_array = mov(c,21,'E');
  10. if  d3_array[-1] <= 20 AND
  11.     stoch_array[-1] < d3_array[-1] AND
  12.     stoch_array > d3_array AND
  13.     C < ma_array THEN
  14.     begin
  15.     WRITELN('BUY SIGNAL ON ', TICKER, C        );
  16. if  d3_array[-1] >= 80 AND
  17.     stoch_array[-1] > d3_array[-1] AND
  18.     stoch_array < d3_array AND
  19.     C > ma_array THEN
  20.     begin
  21.     WRITELN('SELL SIGNAL ON ', TICKER, C       );
  22.     end;
  23.