Aggressive AFL Code (ATR SYSYTEM)

alexwang7777

1. SetBarsRequired(1000000, 1000000);
   
2. SetChartOptions(2,chartShowArrows|chartShowDates);
   
3. SetTradeDelays(0,0,0,0);
   
4. 
   
5. period = Param("Period", 13, 1, 240, 1);
   
6. mult = Param("Multiplier", 1.7, 1, 240, 0.1);
   
7. showPrice = ParamToggle("Show Price","No|yes",1);
   
8. showArrows = ParamToggle("Show Arrows","No|yes",1);
   
9. showRibbon = ParamToggle("Show Ribbon","No|yes",1);
   
10. 
    
11. f=ATR(period);
    
12. 
    
13. VS[0] = Close[0];
    
14. trend[0] = 0;
    
15. HighC[0]=0;
    
16. Lowc[0]=0;
    
17. 
    
18. 
    
19. for( i = period+1; i < BarCount; i++ )
    
20. {
    
21. 
    
22. vs[i] = vs[i-1];
    
23. trend[i] = trend[i-1];
    
24. highC[i] = HighC[i-1];
    
25. lowc[i] = lowc[i-1];
    
26. 
    
27. if ((trend[i]>=0) && ( C[i] <VS[i] ))
    
28. {
    
29. trend[i] =-1;
    
30. HighC[i] = C[i];
    
31. lowc[i] = C[i];
    
32. }
    
33. 
    
34. if ((trend[i]<=0) && (C[i] >VS[i]))
    
35. {
    
36. trend[i]=1;
    
37. HighC[i] = C[i];
    
38. lowc[i] = C[i];
    
39. }
    
40. 
    
41. if (trend[i]==-1)
    
42. {
    
43. if (C[i]<lowc[i]) lowc[i] = C[i];
    
44. VS[i]= lowc[i]+ (mult*f[i]);
    
45. }
    
46. 
    
47. 
    
48. if (trend[i]==1)
    
49. {
    
50. if (C[i]>HighC[i]) HighC[i] = C[i];
    
51. VS[i]= HighC[i]-(mult*f[i]);
    
52. }
    
53. 
    
54. }
    
55. 
    
56. 
    
57. Buy=Cross(Trend,0);
    
58. Sell=Cross(0, Trend);
    
59. Short = Sell;
    
60. Cover = Buy;
    
61. 
    
62. if (ShowPrice) Plot(Close,"Close",colorBlack,styleCandle);
    
63. Plot(VS, "Vol Stop",IIf(trend==1,10,11 ),styleThick);
    
64. 
    
65. mkol = IIf( Trend==1, 10, 11);
    
66. if (ShowRibbon) Plot(5, "ribbon", mkol, styleOwnScale|styleArea|styleNoLabel|styleNoTitle, 0, -5);
    
67. 
    
68. shape = Buy * shapeUpArrow + Sell* shapeDownArrow;
    
69. if (ShowArrows) PlotShapes( shape, IIf( Buy, colorGreen, colorRed ), 0, IIf( Buy, Low-f, High+f));
    
70. AlertIf( Buy, "SOUND C:\\Windows\\Media\\timeout.wav", "Sell " + C,2,1+2,1);
    
71. AlertIf( Sell, "SOUND C:\\Windows\\Media\\timeout.wav","Buy " + C,1,1+2,1);
    

複製代碼

alexwang7777

AlertIf( Buy, "SOUND C:\\Windows\\Media\\timeout.wav", "Sell " + C,2,1+2,1);

AlertIf( Sell, "SOUND C:\\Windows\\Media\\timeout.wav","Buy " + C,1,1+2,1);
買賣點會回報聲音........音效請自己改喔^^

mimi

推 ~~~   好東西  ~~  謝謝分享  ~~~

mndmnd

看看哦~~~~~~

jacky768120

謝謝你的分享，研究學習看看

pigpig123

不錯，很厲害