home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / finance / tas206.zip / VOLSTUDY.TAS < prev   
Text File  |  1991-02-16  |  466b  |  15 lines
  1. {
  2.    volstudy.tas -        
  3.       This TAS script runs a couple of volume indicator studies
  4.       on each symbol. 
  5. }
  6. IF FIRST_TICKER THEN
  7. BEGIN
  8. WRITELN('      \t\t         \t        \t        \t   OBV AS');
  9. WRITELN('      \t\t         \t        \t        \t   %age of');
  10. WRITELN('TICKER\t\t      OBV\t     PVI\t     NVI\t   AVG VOL');
  11. END;
  12.  
  13. AVG_VOL := CUM(V)/QUOTE_COUNT;
  14. WRITELN(TICKER,'\t',OBV(),'\t',PVI(),'\t',NVI(),'\t',INT(OBV()/AVG_VOL * 100));
  15.