home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / tas2091.zip / SELECT.TAS < prev    next >
Text File  |  1991-02-17  |  9KB  |  239 lines
  1. #OUTPUT_FILE 'select.lst'
  2. #MAX_QUOTES 200
  3. { 
  4.             Technical Analysis Scanner (TAS)
  5.             --------------------------------
  6.             TAS is a product of Martin Moore
  7.  
  8.    -----------------------------------------------------------------
  9.  
  10.    TAS Script Language (TASSL) is similar to PASCAL syntax. 
  11.    TAS has built-in TA functions and price arrays so that TASSL 
  12.    scripts can be created by the user to screen a Metastock(*) 
  13.    Data Directory (or directories) for stocks which match custom 
  14.    criteria. The rest of this file gives an example of a TASSL
  15.    script. This entire file is the input for the TAS program.
  16.  
  17.    (*) Metastock is a trademark of Equis International, Inc.
  18.    -----------------------------------------------------------------
  19.  
  20.    A few notes about syntax:                                      
  21.    -------------------------                                         }
  22.       {comment}    {- curly braces surround comments
  23.       a := b       - ':=' is used to assign 'b' to 'a'
  24.       * / - +      -  multiply, divide, subtract, add
  25.      ( expression) -  parentheses are used to guarantee order of
  26.                       evaluation is correct
  27.  
  28.       IF (x) THEN  - Conditions are tested with IF (cond) THEN true 
  29.          tstmt;      statement is executed. If (cond) is false, then
  30.       ELSE           the ELSE (if present) portion is executed
  31.          fstmt;      
  32.  
  33.    Predefined Values : Filled in when each MSP file is processed
  34.    --------------------------------------------------------------
  35.       TICKER      -  The 'ticker' symbol, e.g., AXP
  36.       FULLNAME    -  The 'full name', e.g., AMERICAN EXPRESS
  37.       O           -  The OPEN "data array"
  38.       H           -  The HIGH "data array"
  39.       L           -  The LOW  "data array"
  40.       C           -  The CLOSE "data array"
  41.       V           -  The VOLUME "data array"
  42.       OI          -  The OPEN INTEREST "data array"
  43.       P           -  The "last computed" array. For example, 
  44.                      X := MOV(C,30,'E')
  45.                      places the last day's 30day EMA in 'X' and
  46.                      the entire EMA array is in 'P' until another
  47.                      function is called.
  48.       P1          -  Secondary "last computed" array. For example,
  49.                      if X := MACD() is executed, 'P' contains the
  50.                      12day-26day EMA, and 'P1' contains the 9day EMA
  51.                      of the MACD.
  52.  
  53.          S A M P L E    T A S S L     S C R I P T
  54.   ---------------------  SELECT.scr ---------------------------
  55.  
  56.    This TASSL script contains the "Binary Wave" calculation
  57.    shown in the Metastock(*) 2.0 distribution system. It has been
  58.    modified to include the following indicators as well:
  59.                                     BUY         SELL
  60.       Chaikin's Oscillator          > 0         < 0
  61.       Commodity Channel Index      > 100       < -100
  62.       Linear Regression Plot       > close     < close   
  63.       
  64.    It is here to give an example of the kind of analysis 
  65.    available with the TASSL language.
  66.  
  67.    The Metastock manual discusses this binary wave system on 
  68.    page 187 of the User's Manual.
  69.  
  70.  
  71.    The script will put out a message if the value of the binary
  72.    wave changes from yesterday to today (the terms 'today' and
  73.    'yesterday' are used loosely, but meant to be the 'latest day'
  74.    and the 'day before', respectively). 
  75.  
  76.    Two variables are defined and updated as each of the four
  77.    individual binary wave formulas are checked. 
  78.    They are:
  79.  
  80.    "t_bwave" which is today's binary wave value (-6 to +6)
  81.             and
  82.    "y_bwave" which is yesterday's binary wave value (-6 to +6)
  83.  
  84.    What we are looking for is a TRANSITION from yesterday to
  85.    today. If the stock moved to +6 today and it was lower yesterday,
  86.    perhaps this is a buying opportunity. If the stock moved to -6
  87.    perhaps it is a short sell. 
  88.  
  89. }
  90. linear_plot : array;            { array for linear regression plot}
  91.  
  92. y_bwave := 0;     { this is our 'score' yesterday}
  93. t_bwave := 0;     { this is our 'score' today}
  94. {
  95.    First compute MACD Binary Wave for yesterday and today 
  96.  
  97.    Note that MACD() computes the 12 day EMA - 26 day EMA and places 
  98.    the result in the array 'p'. The 9 day EMA is computed at the same
  99.    time and placed in the result array 'p1'
  100. }
  101.  
  102. t_macd := macd();       { get today's macd value}
  103. y_macd := p[-1];        { get yesterday's macd value}
  104. t_macdtrigger := p1[0]; { result array 'p1' contains macd 'trigger'}
  105. y_macdtrigger := p1[-1];    { yesterday's macd trigger }
  106.  
  107. if t_macd > t_macdtrigger then 
  108.        t_bwave := t_bwave + 1;   { macd greater than trigger }
  109. else
  110.        t_bwave := t_bwave - 1;   { macd less than trigger    }
  111.  
  112. if y_macd > y_macdtrigger then 
  113.        y_bwave := y_bwave + 1;   { macd greater than trigger }
  114. else
  115.        y_bwave := y_bwave - 1;   { macd less than trigger    }
  116.  
  117. {
  118.    Now compute 20-MA B-Wave
  119. }
  120. t_ma20 := mov(c,20,'E');   { Compute 20 unit EMA of close }
  121. y_ma20 := p[-1];           { yesterday's EMA is in array 'p'}
  122.  
  123. if c[0] > t_ma20 then    { compare today's close to today's ema}
  124.        t_bwave := t_bwave + 1;   { ema greater than close }
  125. else
  126.        t_bwave := t_bwave - 1;   { ema less than close    }
  127.  
  128. if c[-1] > y_ma20 then    { compare yesterday's close to today's ema}
  129.        y_bwave := y_bwave + 1;   { ema greater than close }
  130. else
  131.        y_bwave := y_bwave - 1;   { ema less than close    }
  132.  
  133. {
  134.    Now compute 12-ROC B-Wave
  135. }
  136. t_roc12 := roc(c,12,'%');
  137. y_roc12 := p[-1];
  138.  
  139. if t_roc12 > 0 then
  140.        t_bwave := t_bwave + 1;   { roc greater than 0 }
  141. else
  142.        t_bwave := t_bwave - 1;   { roc less than 0    }
  143.  
  144. if y_roc12 > 0 then
  145.        y_bwave := y_bwave + 1;   { roc greater than 0 }
  146. else
  147.        y_bwave := y_bwave - 1;   { roc less than 0    }
  148.  
  149. {
  150.    Now compute 5-3 stochastic B-wave
  151. }
  152. t_sto := stoch(5,3);          { compute stoch(%K period, %K slow) }
  153. y_sto := p[-1];               { result in 'p' array again      }
  154.  
  155. if t_sto > 50 then
  156.        t_bwave := t_bwave + 1;   { stoch greater than 50 }
  157. else
  158.        t_bwave := t_bwave - 1;   { stoch less than 50    }
  159.  
  160. if y_sto > 50 then
  161.        y_bwave := y_bwave + 1;   { stoch greater than 50 }
  162. else
  163.        y_bwave := y_bwave - 1;   { stoch less than 50    }
  164.  
  165. {
  166.     check if Chaikin's AD oscillator is above or below 0
  167. }
  168. t_co := co();
  169. y_co := p[-1];
  170. t_bwave := t_bwave + (2 * (t_co > 0) - 1);
  171. y_bwave := y_bwave + (2 * (y_co > 0) - 1);
  172. {
  173.     check if CCI(14)  above +100 or below -100
  174. }
  175. t_cci := cci(14);
  176. y_cci := p[-1];
  177.  
  178. if t_cci < -100 then 
  179.    t_bwave := t_bwave - 1;
  180. else
  181. if t_cci > 100 then 
  182.    t_bwave := t_bwave + 1;
  183. if y_cci < -100 then 
  184.    y_bwave := y_bwave - 1;
  185. else
  186. if y_cci > 100 then 
  187.    y_bwave := y_bwave + 1;
  188. linear_plot := linreg(c,-51,-1); { compute linear regression line for
  189.                                   the last 50 days up to yesterday}
  190. if over(linear_plot,c) >= 0  then
  191.         y_bwave := y_bwave + 1;
  192. else
  193.         y_bwave := y_bwave - 1;
  194. linear_plot := linreg(c,-50,0); { compute linear regression line for
  195.                                   the last 50 days up to today}
  196. if over(linear_plot,c) >= 0  then
  197.         t_bwave := t_bwave + 1;
  198. else
  199.         t_bwave := t_bwave - 1;
  200. {
  201.    Okay, here we are at the end of the script. We have boiled
  202.    the seven formulas down to two values:
  203.    "t_bwave" which is today's binary wave value (-7 to +7)
  204.             and
  205.    "y_bwave" which is yesterday's binary wave value (-7 to +7)
  206.  
  207. }
  208. { 
  209.    First, let's check if the wave moved to +7..if so, let's print 
  210.    out it's value then and now
  211. }
  212. y_bwave := INT(y_bwave);   { make y_bwave into an INTEGER }
  213. t_bwave := INT(t_bwave);   { make t_bwave into an INTEGER }
  214. if FIRST_TICKER then
  215. begin
  216.     writeln('      \t        \t\t\t \tPRIOR\tCURRENT      ');
  217.     writeln('      \t        \t\t\t\tBINARY\t BINARY       ');
  218.     writeln('TICKER\t\tFULLNAME\t\t\t  WAVE\t   WAVE   CHANGE  ALERT');
  219. end;
  220. write(TICKER,'\t',fullname,'\t');
  221. diff := INT(t_bwave-y_bwave);
  222. write(y_bwave,'   ',t_bwave,'    ',diff);
  223. if ((y_bwave < 7) and (t_bwave = 7)) then
  224.     writeln('  **BUY**')
  225. { 
  226.    Now, let's check if the wave moved to -7..if so, let's print 
  227.    out it's value then and now
  228. }
  229. else
  230. if ((y_bwave > -7) and (t_bwave = -7)) then
  231.     writeln('  **SELL**')
  232. else
  233. begin
  234.     writeln(' ');
  235. end;   
  236. {-----------------END OF SELECT.TAS TASSL SCRIPT------------------}
  237.  
  238.  
  239.