home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / RSIST.TAS < prev    next >
Text File  |  1992-01-26  |  1KB  |  33 lines

  1. #index 'SPX'
  2. #MAX_QUOTES 100
  3. #OUTPUT_FILE 'RSISTO.LST'
  4. RS : ARRAY; { Relative Strength Array}
  5. OFS : ARRAY;    { Initial Offset array}
  6. rsroc: array;
  7. rsi_array : array;
  8. rsi12: array;
  9. stoch_array : array;
  10. stoch_array = stoch(14,3);
  11. RS=mulby(div(C,index),100);
  12. set(OFS,RS[1]);
  13. RS=SUB(RS,OFS);
  14. rsroc=ROC(RS,5,'%');
  15. rsi_array=RSI(14);
  16. rsi12=MOV(rsi_array,12,'E');
  17. rsidif: array;
  18. rsidif=SUB(rsi_array,rsi12);
  19. d3_array : array;
  20. d3_array = mov(stoch_array,3,'E');
  21. ma_array = mov(c,21,'E');
  22. if  d3_array[-1] <= 30 AND
  23.     stoch_array[-1] < d3_array[-1] AND
  24.     stoch_array > d3_array AND
  25.     C < ma_array AND rsroc>(-2) AND rsidif> (-10) THEN
  26.     WRITELN('BUY SIGNAL ON ', TICKER, C,     stoch_array,     rsi_array,);
  27. if  d3_array[-1] >= 70 AND
  28.     stoch_array[-1] > d3_array[-1] AND
  29.     stoch_array < d3_array AND
  30.     C > ma_array AND rsroc< 2 AND rsidif< 10 THEN
  31.     WRITELN('SELL SIGNAL ON ', TICKER, C,    stoch_array,     rsi_array,);
  32. end;