AO動能指標 (顏色自己改吧)

alexwang7777

1. /* Exploration, System and Indicator */
   
2. // Author: Steve Wiser
   
3. // Email address: slwiserr@erols.com
   
4. // May 5, 2001 */
   
5. /*
   
6. 
   
7. The Awesome Oscillator measures the immediate momentum of the last 5 price bars as
   
8. compared to the last 34 price bars.
   
9. Three types of signals are generated by the AO:
   
10. The Saucer, the Cross, and Twin Peaks
    
11. Above the Zero Line, the only signals generated are a Twin Peaks sell, a Saucer buy and
    
12. a buy Cross.
    
13. Below the Zero Line, the only signals generated are a Twin Peaks buy, Saucer sell, and a
    
14. sell Cross.
    
15. 
    
16. We color green any histogram bar that is higher than the previous
    
17. histogram bar, and we color red any histogram bar that is lower than the previous bar.
    
18. 
    
19. Saucer Signal:
    
20. 1. Always read from left to right.
    
21. 2. It takes a minimum of three bars to create a signal.
    
22. 3. There is no limit to how many bars can be inside a saucer.
    
23. 4. All bars in a Saucer must be above the zero line
    
24. 5. The signal bar will be a Green Bar
    
25. 6. You can not have a buy and sell at the same time.
    
26. 7. After creating a signal, you MUST have a change of direction (color) before creating
    
27. another signal.
    
28. 8. Once you have created a signal, go to the corresponding price bar and add/subtract 1
    
29. tick to the high/low.
    
30. 
    
31. THE AO CROSS BUY
    
32. buy when the histogram is "crossing" the zero line from a negative number to a positive
    
33. number.
    
34. 
    
35. Twin Peaks buy signal
    
36. This is the only buy signal that can be created while the AO histogram is below the zero line
    
37. a€￠ The first peak must be a larger negative number than the second peak.
    
38. a€￠ Your trigger bar will be a Green Bar and a smaller negatille number than either peak.
    
39. a€￠ If any bars cross the zero line in the Twin Peaks, the signal is invalid.
    
40. a€￠ A Saucer Sell will be created before a Twin Peaks Buy.
    
41. 
    
42. General Emphasis: You cannot sell on an AO signal if the current
    
43. histogram bar is green, and you cannot buy any AO signals if the current histogram bar is red.
    
44. */
    
45. 
    
46. //outsidebar = Outside();
    
47. //insidebar = H <= Ref(H,-1) AND L >= Ref(L,-1);
    
48. //upbar = H > Ref(H,-1) AND L >= Ref(L, -1);
    
49. //downbar = L < Ref(L,-1) AND H <= Ref(H,-1);
    
50. //barcolor=IIf(outsidebar, 1,
    
51. // IIf(downbar, 4,
    
52. // IIf(upbar, 5,
    
53. // IIf(insidebar,6, 0 ) ) ) );
    
54. 
    
55. /*barcolor=
    
56. iif(outsidebar, 1, iif(downbar, 4, iif(upbar,5, 0) ) );*/
    
57. 
    
58. 
    
59. var1=MA( Avg , 34);
    
60. var2=MA( Avg,5);
    
61. diff = var2-var1;
    
62. Graph0= diff;
    
63. Graph0Name = "AO";
    
64. Graph0Style=2+4;
    
65. Graph1=Wilders(diff ,5);
    
66. Graph1Style=4+1;
    
67. UpBar = diff > Ref(diff,-1);
    
68. DownBar = diff < Ref(diff,-1);
    
69. Graph0BarColor=IIf(UpBar, colorred, colorblack);
    
70. 
    
71. SoucerUp = Ref(diff,-2) > Ref(diff,-1) AND Ref(diff,-1) < diff;
    
72. SoucerDown = Ref(diff,-2) < Ref(diff,-1) AND Ref(diff,-1) > diff;
    
73. 
    
74. SoucerBuy = SoucerUp AND (diff > 0 AND Ref(diff,-1) > 0 AND Ref(diff,-2) > 0);
    
75. SoucerSell = SoucerDown AND (diff < 0 AND Ref(diff,-1) < 0 AND Ref(diff,-2) < 0);
    
76. 
    
77. CrossBuy = diff > 0 AND Ref(diff,-1) < 0;
    
78. CrossSell = diff < 0 AND Ref(diff,-1) > 0;
    
79. 
    
80. Buy = SoucerBuy OR CrossBuy;
    
81. Sell = SoucerSell OR CrossSell;
    
82. //PlotShapes( IIf(SoucerBuy ,shapeDigit1,0) ,colorBlue, 0, 0,-12);
    
83. //PlotShapes( IIf(CrossBuy ,shapeDigit2,0) ,colorBlue, 0, 0,-12);
    
84. //PlotShapes( IIf(SoucerSell ,shapeDigit1,0) ,colorOrange, 0, 0,12);
    
85. //PlotShapes( IIf(CrossSell ,shapeDigit2,0) ,colorOrange, 0, 0,12);
    
86. 
    
87. LatestLowPeak = IIf(diff < 0, Ref(LowestSince(CrossSell, diff, 1), -1), 0);
    
88. TwinPeaksBuy = diff < 0 AND Ref(DownBar, -1) AND UpBar AND Ref(diff,-1) > LatestLowPeak;
    
89. 
    
90. //Move latest lowest peak to the new one created now:
    
91. LatestLowPeak = IIf(TwinPeaksBuy, Ref(diff,-1), LatestLowPeak);
    
92. 
    
93. 
    
94. //PlotShapes( IIf(TwinPeaksBuy ,shapeDigit3,0) ,colorBlue, 0, 0,12);
    
95. 
    
96. LatestHighPeak = IIf(diff > 0, Ref(HighestSince(CrossBuy, diff, 1), -1), 0);
    
97. TwinPeaksSell = diff > 0 AND Ref(UpBar, -1) AND downBar AND Ref(diff,-1) < LatestHighPeak ;
    
98. 
    
99. LatestHighPeak = IIf(TwinPeaksSell, Ref(diff,-1), LatestHighPeak );
    
100. 
     
101. //PlotShapes( IIf(TwinPeaksSell ,shapeDigit3,0) ,colorOrange, 0, 0,-12);
     
102. 
     
103. SuperAOBuy = Ref(DownBar, -3) AND Ref(UpBar, -2) AND Ref(UpBar, -1) AND UpBar;
     
104. SuperAOSell = Ref(UpBar, -3) AND Ref(DownBar, -2) AND Ref(DownBar, -1) AND DownBar;
     
105. //PlotShapes( IIf(SuperAOBuy ,shapeDigit4,0) ,colorBlue, 0, 0,12);
     
106. //PlotShapes( IIf(SuperAOSell ,shapeDigit4,0) ,colorOrange, 0, 0,-12);
     
107. 
     
108. /* Super AO Blue Light Special
     
109. If you have a Super AO buy signal and it is not hit and the AO does not change color,
     
110. and the next bar has a lower high then you will move your buy stop down to one tick above that high.
     
111. You will continue to do this until the signal is hit or the AO changes color
     
112. */
     
113. 
     
114. //Commentary:
     
115. WriteIf(SuperAOBuy,"Place Buy Stop to buy 1 unit if price rises to " + WriteVal(H+0.01)+" or higher. (AO+ SAO Add on)",
     
116. WriteIf(SuperAOSell ,"Place Sell Stop to sell 1 unit if price falls to " + WriteVal(L-0.01)+" or lower. (AO- SAO Add on)",
     
117. WriteIf(SoucerBuy ,"Place Buy Stop to buy 1 unit if price rises to " + WriteVal(H+0.01)+" or higher. (AO+ Soucer)",
     
118. WriteIf(SoucerSell ,"Place Sell Stop to sell 1 unit if price falls to " + WriteVal(L-0.01)+" or lower. (AO- Soucer)",
     
119. WriteIf(CrossBuy ,"Place Buy Stop to buy 1 unit if price rises to " + WriteVal(H+0.01)+" or higher. (AO+ Zero Cross)",
     
120. WriteIf(CrossSell ,"Place Sell Stop to sell 1 unit if price falls to " + WriteVal(L-0.01)+" or lower. (AO- Zero Cross)",
     
121. WriteIf(TwinPeaksBuy ,"Place Buy Stop to buy 1 unit if price rises to " + WriteVal(H+0.01)+" or higher. (AO+ Twin Peaks)",
     
122. WriteIf(TwinPeaksSell ,"Place Sell Stop to sell 1 unit if price falls to " + WriteVal(L-0.01)+" or lower. (AO- Twin Peaks)",""))))))));
     

複製代碼

清茶無糖

alexwang7777下午分享好多清茶小弟看沒有的東東

aaqqww93

好長一串最後這個;
複製不了要自己加上
謝謝分享呢