home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / ER.SEL < prev    next >
Text File  |  1991-12-02  |  700b  |  27 lines
  1. { Selection run based on sell signals generated by the ELDER-RAY method today
  2. (Equis 91')-made me 3 times winner of the weekly "short picks" game in *P
  3. can be easily made into script or converted to "buy signals"-BY JK Leibovitz
  4.                                                          Prodigy # hnhp08a}
  5. {past performance does not guarantee an easy future...}
  6.  
  7. F1 : ARRAY;
  8. F1 = c;
  9. F2 : ARRAY;
  10. F2 = MOV(c,65,'E');
  11. F3 : ARRAY;
  12. F3 = MOV(c,13,'E');
  13. F4 : ARRAY;
  14. F4 = SUB(H,F3);
  15. F5 : ARRAY;
  16. F5 = ROC(F2,1,'$');
  17. F6 : ARRAY;
  18. F6 = F4[-1];
  19. F7 : ARRAY;
  20. F7 = F4[-2];
  21. C1 = F5<0;
  22. C2 = F7>0;
  23. C3 = F6>0;
  24. C4 = F4<0;
  25. IF (C1 AND C2 AND C3 AND C4) THEN
  26.     sortout(ticker,F1,F2,F3,F4,F5,F6,F7);
  27.