home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TAS407.ZIP / BBAND.TAS next >
Encoding:
Text File  |  1991-08-10  |  1.5 KB  |  50 lines
  1. { BBAND.TAS - This script computes BOLLINGER BANDS. 
  2.   Bollinger bands are lines which are 'n' standard deviations away 
  3.   from a 'p' day moving average of the close. 
  4.   To change the value of 'n', change 'bband_devs' below. To 
  5.   change the value of 'p', change 'bband_period' below.
  6. }
  7. #output_file 'bband.lst' n
  8. #max_quotes 200
  9. GRAPH_SWITCH = 1; {<--------- SET THIS TO 1 TO SEE GRAPHS}
  10. bband_period = 20;              { number of days in BBAND period }
  11. bband_devs   = 2;               { number of STD DEVIATIONS about close}
  12. bband_top : array;              { top band }
  13. bband_bot : array;              { bottom band }
  14. { 
  15.   Top Bollinger Band 
  16. }
  17. bband_top = bbandt(20,2);
  18. { 
  19.   Bottom Bollinger Band 
  20. }
  21. bband_bot = bbandb(20,2);
  22.  
  23. { Now, the rest is up to you. I have suppied a simple check to see
  24.   if the current close is over the top band or below the bottom band.
  25.   You can use these BBAND arrays to check for the narrowing of the 
  26.   bands, tops or bottoms outside the bands, and bouncing off the 
  27.   bands.
  28. }
  29.  
  30. if over(c,bband_top) >= 0 then
  31. begin
  32.   gosub dograph;
  33.   writeln(ticker,' BBAND upward breakout occurred');
  34. end;
  35. if over(bband_bot,c) >= 0 then
  36. begin
  37.   gosub dograph;
  38.   writeln(ticker,' BBAND downward breakout occurred');
  39. end;
  40. return;
  41. :dograph
  42. if graph_switch = 0 then return;
  43. opengraph(3,0,0); 
  44. sizegraph(2,1,1);       { size the graphs 50%, 25%, 25%}
  45. graph(bband_top,bband_bot,1);
  46. graph(macd(),'Macd',macdtrigger(),'Trigger');
  47. graph(cci(14),'CCI 14');
  48. closegraph();
  49. return;
  50.