home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / ARMS.TAS < prev    next >
Text File  |  1991-07-19  |  1KB  |  36 lines
  1. { ARMS.TAS
  2.         Compute the Arms' Short Term Trading Index (TRIN).
  3.         This script requires the following ticker files
  4.                 NYAD- NYSE ADV ISSUES
  5.                 NYDE- NYSE DEC ISSUES
  6.                 SPNU- NYSE UP VOL
  7.                 SPND- NYSE DN VOL
  8.                 DJ30- DOW 30 INDUS
  9.  
  10.         TRIN =  (ADV ISSUES/DEC ISSUES)
  11.                 ------------------------
  12.                 (ADV VOL/DEC VOL)
  13. }
  14. #MAX_QUOTES 100
  15. NYAD : ARRAY;   {ADV ISSUES}
  16. NYDE : ARRAY;   {DEC ISSUES}
  17. SPNU : ARRAY;   {UP VOL}
  18. SPND : ARRAY;   {DN VOL}
  19. DJ30 : ARRAY;   {DJ30}
  20. TRIN : ARRAY;
  21. IF TICKER = 'NYAD' THEN    NYAD = C;
  22. IF TICKER = 'NYDE' THEN    NYDE = C;
  23. IF TICKER = 'SPNU' THEN    SPNU = C;
  24. IF TICKER = 'SPND' THEN    SPND = C;
  25. IF TICKER = 'DJ-30' THEN   DJ30 = C;
  26. IF LAST_TICKER = 0 THEN RETURN;
  27.  
  28. TRIN = DIV(NYAD,NYDE);
  29. TRIN = DIV(TRIN,DIV(SPNU,SPND));
  30. OPENGRAPH(2);
  31. GRAPH(DJ30,'DOW 30');
  32. GRAPH(TRIN,'ARMS INDEX',MOV(TRIN,10,'S'),'ARMS 10 DAY SMA');
  33. CLOSEGRAPH();
  34. writeln('TRIN today is ',TRIN,' Change ',TRIN-TRIN[-1]);
  35.  
  36.