home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / DOTDASH.TAS < prev    next >
Text File  |  1992-10-30  |  2KB  |  51 lines
  1. { 
  2.     Dot-Dash system 
  3.     The Dot-Dash system is rather simple. For each date in the 
  4.     price data, a "dot" is indicated 
  5.         when the current close is higher than the previous close 
  6.             OR
  7.         when the current close is the same as the previous close AND
  8.         the previous day had a "dot".
  9.     Accumulate the "dots" over a period specified by the caller
  10.     for a "Count" period. 
  11.     Take a simple moving average of the number of "dots" over a
  12.     second range called the "Average".
  13.     To run this script with the default Count(50) and Average(8), just 
  14.     type 
  15.         TAS DOTDASH tickerListName
  16.         where tickerListName is the name of the "Ticker List" to run
  17.     To run this script with the custom Count and Average, just 
  18.     type 
  19.         TAS DOTDASH tickerListName @Count=cc;Average=pp;Dump=d
  20.             where
  21.                 cc is the "Count" over which to sum the "dots"
  22.                 pp is the "Average" over which to average the count of dots
  23.                 d  is 1 if you want the values 'dumped' to the output file
  24. }
  25. #Output_File DotDash.Lst
  26. If Count = 0 Then
  27.     Count = 50;         { ** Change this to change default Count **}
  28. If Average = 0 Then
  29.     Average = 8;        { ** Change this to change default Average **}
  30. Dots is an Array;       { An array of "dots" }
  31. ACount is an Array;     { An array of Count of "dots" over Count period }
  32. AAverage is an Array;    { An SMA of Count over Average period }
  33. Dots = Roc(C,1,'$');
  34. Dots = Div(Dots,Abs(Dots)); { Make the dots +1, -1 or 0 }
  35. For i = 2; i <= Quote_Count; i = i+1;
  36. Begin
  37.     if (Dots[i] = -1) then Dots[i] =0.0 { Down Day }
  38.     else
  39.     if (Dots[i] = 0 and Dots[i-1] = 1) then Dots[i] = 1.0;
  40. End;
  41. ACount = Sum(Dots,Count);
  42. AAverage = Mov(Acount,Average,'S');
  43. OpenGraph(2);
  44. Graph(1,'Close '+Format(C[0],'%8.3f'));
  45. Graph(Acount,Format(Count,'%3.0f Bar Count - '+Format(Acount[0],'%4.0f')),
  46.       AAverage,Format(Average,'%3.0f Bar Moving Average - '+
  47.       Format(AAverage[0],'%5.2f')));
  48. CloseGraph();
  49. if Dump <> 0 Then
  50.     Dump_Array(o,h,l,c,Dots,Acount,AAverage);
  51.