home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / EASEMOV2.TAS < prev    next >
Text File  |  1992-05-25  |  2KB  |  64 lines
  1.  {This indicator is an oscillator designed to reveal the direction that
  2.   a stock or commodity is moving with the least amount of resistance.
  3.   First, calculate the midpoint movement (MPM):
  4.                 MPM = TH+TL  - YH+YL
  5.                       -----    -----
  6.                         2        2
  7.   Where   TH = Today's High
  8.           YH = Yesterday's High
  9.           TL = Today's Low
  10.           YL = Yesterday's Low
  11.                EMV = Midpoint Move
  12.                       -------------
  13.                         Box Ratio
  14.   The ease of movement value is:
  15.                 EMV =       0.05
  16.                       ----------------    = 0.64
  17.                          (5.5 / 7)}
  18.  
  19. #max_quotes 20
  20. #output_file 'EASE.LST N'
  21. if first_ticker then
  22. begin
  23. writeln('Stock analysis based on Equivolume averaged on a 5 EMA overided by a 3 ROC');
  24. writeln(DATE, '                             Good look and good trades!!!!   Haim
  25. ');
  26. writeln('Ticker','      Close','  Chng','  Least Resist.','     Ind. Strenght','       Ind. Change');
  27. end;
  28. end;
  29. emva  : array;
  30. emvama : array;
  31. rocemv : array;
  32. delta : array;
  33. chng : array;
  34. x = 1;
  35. :loop
  36. if x < 20 then
  37.   gosub ease else
  38.   begin
  39.   emvama = mov(emva,5,'e');
  40. rocemv=(ROC(emvama,3,'$'))/10;
  41.     if rocemv < 0.1 then
  42.        ind =' weak or revers';
  43.     if rocemv > 0.1 then
  44.       ind = ' strength';
  45.   if emvama > 0 then
  46.      ease = ' is UP  ';
  47.   if emvama < 0 then
  48.      ease = ' is DOWN';
  49.   delta = emvama[0]-emvama[-1];
  50.   chng = ((C[0] - C[-1])*8)
  51.  {chg = chng;}
  52.   chg = int(chng);
  53.  writeln(ticker,C,chg,('/8'),emvama,ease,rocemv, ' ind.' ,ind,'  ',delta,);
  54.   end;
  55. return;
  56. :ease
  57. if v = 0 then return;
  58. mpm = ((h[x]+l[x])/2)-((h[x-1]+l[x-1])/2);
  59. box_ratio_price = (h[x]-l[x])/8;
  60. if v[x] > 1000 then box_ratio_vol = v[x]/1000 else box_ratio_vol = v[x]/100;
  61. emva[x] = 500*(mpm/(box_ratio_vol/box_ratio_price));
  62. x = x+1;
  63. goto loop;
  64. return