T3 price and Chart system for Amibroker

alexwang7777

1. _SECTION_BEGIN("Price");
   
2. SetChartOptions(0,chartShowDates|chartShowArrows|chartLogarithmic|chartWrapTitle);
   
3. //_N(Title = StrFormat("{{NAME}} +" - {{Interval}} {{Date}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
   
4. _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
   
5. 
   
6. Plot( C, "", IIf(Close > Open, colorGreen, colorRed), styleBar + styleNoLabel);
   
7. _SECTION_END();
   
8. function T3(price,periods) //AMA-based
   
9. {
   
10. s = 0.618;
    
11. periods = 2/(periods+1);
    
12. e1=AMA(price,periods);
    
13. e2=AMA(e1,Periods);
    
14. e3=AMA(e2,Periods);
    
15. e4=AMA(e3,Periods);
    
16. e5=AMA(e4,Periods);
    
17. e6=AMA(e5,Periods);
    
18. c1=-s*s*s;
    
19. c2=3*s*s+3*s*s*s;
    
20. c3=-6*s*s-3*s-3*s*s*s;
    
21. c4=1+3*s+s*s*s+3*s*s;
    
22. Ti3=c1*e6+c2*e5+c3*e4+c4*e3;
    
23. return ti3;
    
24. }
    
25. 
    
26. //Ribbon
    
27. //Ribbon
    
28. uptrend=PDI()>MDI()AND Signal()<MACD();
    
29. downtrend=MDI()>PDI()AND Signal()>MACD();
    
30. Plot( 2, "",IIf( uptrend, colorGreen, IIf( downtrend, colorRed, 0 )), styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
    
31. 
    
32. Plot(T3(C,3),"T3",colorTan,styleThick);
    
33. Plot(T3(C,5),"T5",colorLime);
    
34. 
    
35. BuyAlert = Cross (T3(C,3), T3(C,5));
    
36. SellAlert = Cross (T3(C,5), T3(C,3));
    
37. 
    
38. shape = BuyAlert * shapeHollowUpArrow + SellAlert * shapeHollowDownArrow;
    
39. PlotShapes( shape, IIf( BuyAlert ,ColorRGB(210,0,210), colorPink ),0, IIf( BuyAlert , Low, High ) );
    
40. 
    
41. GraphXSpace = 5;
    
42. dist = 0.70*ATR(7);
    
43. 
    
44. for( i = 0; i < BarCount; i++ )
    
45. {
    
46. if( Buyalert[i] ) PlotText( "Buy\n@" + C[ i ], i, L[ i ]-dist[i], colorGreen );
    
47. if( Sellalert[i] ) PlotText( "Sell\n@" + C[ i ], i, H[ i ]+dist[i], colorRed ); }
    
48. 
    
49. 
    
50. Buy = BuyAlert;
    
51. Sell = SellAlert;
    
52. 
    
53. Filter = Buy OR Sell;
    
54. Filter = Volume > 50000;
    
55. 
    
56. AddColumn(Buy, "Buy", 1);
    
57. AddColumn(Sell, "Sell", 1);
    
58. AddColumn(V, "Volume", 1);
    
59. AddColumn(C, "Close", 1.2);
    

複製代碼

alexwang7777

第2張丟錯嘞^^

金双盈

看起來很清楚
跌破均線就轉空方顏色加箭頭
可以拿來嘗試修改看看

aaqqww93

謝謝分享有符號喔