home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / t / tas501.zip / SELCT.TAS < prev    next >
Text File  |  1993-02-25  |  8KB  |  204 lines
  1. #TITLE Script to compute 6 point binary wave and show change          
  2. #MAX_QUOTES 200
  3. #OUTPUT_FILE 'SELECT.LST'
  4. { 
  5. SHOW_ALL equal to zero if you only want to show BUY/SELL SIGNALS
  6. }
  7. SHOW_ALL = 1;            
  8.  
  9. {
  10.   ---------------------  STUDY1.scr ---------------------------
  11.    This script contains the "Achelis Binary Wave(tm)" calculation
  12.    shown in the Metastock(*) 2.0 distribution system. It has been
  13.    modified to include the following indicators as well:
  14.                                     BUY         SELL
  15.       Chaikin's Oscillator          > 0         < 0
  16.       Commodity Channel Index      > 100       < -100
  17.    It is here to give an example of the kind of analysis
  18.    available with the TAS Script language.
  19.    The Metastock manual discusses this binary wave system on
  20.    page 187 of the User's Manual.
  21.    The script will put out a message if the value of the binary
  22.    wave changes from yesterday to today (the terms 'today' and
  23.    'yesterday' are used loosely, but meant to be the 'latest day'
  24.    and the 'day before', respectively).
  25.    Two variables are defined and updated as each of the four
  26.    individual binary wave formulas are checked.
  27.    They are:
  28.    "t_bwave" which is today's binary wave value (-6 to +6)
  29.             and
  30.    "y_bwave" which is yesterday's binary wave value (-6 to +6)
  31.    What we are looking for is a TRANSITION from yesterday to
  32.    today. If the stock moved to +6 today and it was lower yesterday,
  33.    perhaps this is a buying opportunity. If the stock moved to -6
  34.    perhaps it is a short sell.
  35. }
  36. y_total : number;        { yesterday's total bwave }
  37. t_total : number;        { today's total bwave value }
  38. c_total : number;        { total changed bwave values}
  39. tick_total : number;     { ticker count }
  40. sell_count : number;     { total SELL's given }
  41. buy_count : number;      { total BUY's given }
  42. MACD_ARRAY : ARRAY;    { Place to put values for TODAY }
  43. MACDTRIG_ARRAY : ARRAY;
  44. MA20 : ARRAY;
  45. ROC12 : ARRAY;           { PLACE TO PUT RATE OF CHANGE }
  46. STOCH53 : ARRAY;                { PLACE TO PUT STOCH(5,3) VALUES }
  47. CO_ARRAY : ARRAY;
  48. CCI14 : ARRAY;          { PLACE TO PUT CCI(14) VALUES }
  49. y_bwave := 0;     { this is our 'score' yesterday}
  50. t_bwave := 0;     { this is our 'score' today}
  51. alert   := '         ';
  52. if FIRST_TICKER then
  53. begin
  54.     good_date = dates[0];   { check's for files not current }
  55.     writeln('                         --BINARY WAVE--        ');
  56.     writeln('TICKER  FULLNAME         PRIOR CURR  CHNG  ALERT    CLOSE');
  57.     y_total = 0;        { yesterday's total bwave }
  58.     t_total = 0;        { today's total bwave value }
  59.     c_total = 0;        { total changed bwave values}
  60.     tick_total = 0;     { ticker count }
  61.     sell_count = 0;     { SELL count }
  62.     buy_count = 0;      { BUY count }
  63. end;
  64. { SKIP any tickers which are not 'up-to-date'}
  65. if good_date = dates[0] then
  66. BEGIN
  67.     {
  68.        First compute MACD Binary Wave for yesterday and today
  69.        Note that MACD() computes the 12 day EMA - 26 day EMA and places
  70.        the result in the array MACD_ARRAY. The 9 day EMA is computed
  71.        and placed in the result array MACDTRIG_ARRAY
  72.     }
  73.     MACD_ARRAY = MACD();
  74.     MACDTRIG_ARRAY = MACDTRIGGER();
  75.     {
  76.        Now compute 20-MA B-Wave
  77.     }
  78.     MA20 := mov(c,20,'E');   { Compute 20 unit EMA of close }
  79.     {
  80.        Now compute 12-ROC B-Wave
  81.     }
  82.     ROC12 := roc(c,12,'%');
  83.     {
  84.        Now compute 5-3 stochastic B-wave
  85.     }
  86.     STOCH53 := stoch(5,3);          { compute stoch(%K period, %K slow) }
  87.     {
  88.         check if Chaikin's AD oscillator is above or below 0
  89.     }
  90.     CO_ARRAY := CO();       { PLACE CHAIKIN'S OSCILLATOR IN CO_ARRAY}
  91.     {
  92.         check if CCI(14)  above +100 or below -100
  93.     }
  94.     CCI14 := cci(14);
  95.  
  96.    { All arrays are calculated. Now do the checking of change }
  97.     IF MACD_ARRAY[0] > MACDTRIG_ARRAY[0] THEN
  98.        t_bwave := t_bwave + 1    { macd greater than trigger }
  99.     else
  100.        t_bwave := t_bwave - 1;   { macd less than trigger    }
  101.     if MACD_ARRAY[-1] > MACDTRIG_ARRAY[-1] then
  102.        y_bwave := y_bwave + 1    { macd greater than trigger }
  103.     else
  104.        y_bwave := y_bwave - 1;   { macd less than trigger    }
  105.     if c[0] > MA20 then    { compare today's close to today's ema}
  106.        t_bwave := t_bwave + 1    { ema greater than close }
  107.     else
  108.        t_bwave := t_bwave - 1;   { ema less than close    }
  109.     if c[-1] > MA20[-1] then    { compare yesterday's close to today's ema}
  110.        y_bwave := y_bwave + 1    { ema greater than close }
  111.     else
  112.        y_bwave := y_bwave - 1;   { ema less than close    }
  113.     if ROC12 > 0 then
  114.        t_bwave := t_bwave + 1    { roc greater than 0 }
  115.     else
  116.        t_bwave := t_bwave - 1;   { roc less than 0    }
  117.     if ROC12[-1] > 0 then
  118.        y_bwave := y_bwave + 1    { roc greater than 0 }
  119.     else
  120.        y_bwave := y_bwave - 1;   { roc less than 0    }
  121.     if STOCH53[0] > 50 then
  122.        t_bwave := t_bwave + 1    { stoch greater than 50 }
  123.     else
  124.        t_bwave := t_bwave - 1;   { stoch less than 50    }
  125.     if STOCH53[-1] > 50 then
  126.        y_bwave := y_bwave + 1    { stoch greater than 50 }
  127.     else
  128.            y_bwave := y_bwave - 1;   { stoch less than 50    }
  129.     IF CO_ARRAY[0] > 0 THEN
  130.         t_bwave := t_bwave + 1
  131.     else
  132.         t_bwave := t_bwave - 1;
  133.     IF CO_ARRAY[-1] > 0 THEN
  134.         y_bwave := y_bwave + 1
  135.     else
  136.         y_bwave := y_bwave - 1;
  137.     if CCI14[0] < -100 then
  138.        t_bwave := t_bwave - 1
  139.     else
  140.     if CCI14[0] > 100 then
  141.        t_bwave := t_bwave + 1;
  142.     if CCI14[-1] < -100 then
  143.        y_bwave := y_bwave - 1
  144.     else
  145.     if CCI14[-1] > 100 then
  146.        y_bwave := y_bwave + 1;
  147.     {
  148.        Okay, here we are at the end of the script. We have boiled
  149.        the formulas down to two values:
  150.        "t_bwave" which is today's binary wave value (-6 to +6)
  151.                 and
  152.        "y_bwave" which is yesterday's binary wave value (-6 to +6)
  153.     }
  154.     {
  155.        First, let's check if the wave moved to +6..if so, let's print
  156.        out it's value then and now
  157.     }
  158.     y_bwave := INT(y_bwave);   { make y_bwave into an INTEGER }
  159.     t_bwave := INT(t_bwave);   { make t_bwave into an INTEGER }
  160.     diff := INT(t_bwave-y_bwave);
  161.     tick_total = tick_total + 1;    { add to count of tickers }
  162.     y_total = y_total + y_bwave;    { add yesterday's bwave to total}
  163.     t_total = t_total + t_bwave;    { add today's bwave to total}
  164.     c_total = c_total + diff;    { add diff in bwave to total}
  165.     buy_flag = 0;
  166.     sell_flag = 0;
  167.     alert = '         ';
  168.     if ((y_bwave < 6) and (t_bwave = 6)) then
  169.     begin
  170.         buy_flag = 1;
  171.         alert = '   BUY   ';
  172.         buy_count = buy_count + 1;
  173.     end
  174.     {
  175.        Now, let's check if the wave moved to -6..if so, let's print
  176.        out it's value then and now
  177.     }
  178.     else
  179.     if ((y_bwave > -6) and (t_bwave = -6)) then
  180.     begin
  181.         sell_flag =  1;
  182.         alert = '   SELL  ';
  183.         sell_count = sell_count + 1;
  184.     end;
  185.     if (show_all = 1) or (buy_flag = 1) or (sell_flag = 1) then
  186.     begin
  187.        { Write out the line with the current alert }
  188.        write(TICKER,fullname,' ');
  189.        write(y_bwave,t_bwave,diff);
  190.        writeln(alert,c);
  191.     end;
  192. END;     { of if good_date = date }
  193. if last_ticker then
  194. begin
  195.    writeln('\t\t\n\n------------- SUMMARY--------------------');
  196.    writeln('\tTickers Processed             ',INT(tick_total));
  197.    writeln('\tYesterday Binary Wave Average ',y_total/tick_total);
  198.    writeln('\tToday Binary Wave Average     ',t_total/tick_total);
  199.    writeln('\tAverage Change in Binary Wave ',c_total/tick_total);
  200.    writeln('\t',INT(buy_count),' BUY Signals');
  201.    writeln('\t',INT(sell_count),' SELL Signals');
  202. end;
  203.  
  204.