Stock Portfolio Organizer
The ultimate porfolio management solution.
Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
harshit supportreistanc Heikin-Ashi module for Amibroker (AFL)
Copy & Paste Friendly
Back
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 | ///////////////////////////////////////////////////////////////////////////////////////////SetChartOptions(0,chartShowArrows|chartShowDates);_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} ,{{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));Plot(C, "", IIf(O>=C, colorRed, colorBlue),styleCandle);SetChartBkGradientFill( ParamColor("Inner panel upper",colorBlack),ParamColor("Inner panel lower",colorBlack));_N(Title = EncodeColor(colorWhite)+StrFormat(" {{NAME}} - {{INTERVAL}} {{DATE}} Open:%g, Close:%g ,{{VALUES}}",O,C ));/////////////////////////////////////////////////////////////////////////////////////////////Plot(EMA(C,5),"",colorYellow);/////////////////////////////////////////////////////////////per1=Param ("per1", 0.1,0.1,50,0.10);per=per1;x = Cum(1);s1=L;s11=H;pS = TroughBars( s1, per, 1 ) == 0;endt= SelectedValue(ValueWhen( pS, x, 1 ));startt=SelectedValue(ValueWhen( pS, x, 2 ));dtS =endt-startt;endS = SelectedValue(ValueWhen( pS, s1, 1 ) );startS = SelectedValue( ValueWhen( pS, s1, 1 ));aS = (endS-startS)/dtS;bS = endS;trendlineS = aS * ( x -endt ) + bS;g3= IIf(x>startt-10,trendlineS,-1e10);Plot(g3,"",colorRed,styleDots,styleThick);pR = PeakBars( s11, per, 1 ) == 0;endt1= SelectedValue(ValueWhen( pR, x, 1 ));startt1=SelectedValue(ValueWhen( pR, x, 2 ));dtR =endt1-startt1;endR = SelectedValue(ValueWhen( pR, s11, 1 ) );startR = SelectedValue( ValueWhen( pR, s11, 1 ));aR = (endR-startR)/dtR;bR = endR;trendlineR = aR * ( x -endt1 ) + bR;g4= IIf(x>startT1-10,trendlineR,-1e10);Plot(g4,"",colorGreen,styleDots,styleThick);//////////////////////////////////////////////////////////////////////////////////////////////////perc=per1;x=BarIndex();xx=SelectedValue(x);t1=SelectedValue(ValueWhen(PeakBars(C,perc)==0,x)) ;H1=SelectedValue(ValueWhen(PeakBars(C,perc)==0,C)) ;t11=SelectedValue(ValueWhen(TroughBars(C,perc)==0, x));H11=SelectedValue(ValueWhen(TroughBars(C,perc)==0, C));g=t1>t11;shape=IIf(g,shapeDownArrow*(x==t1),shapeUpArrow*(x ==t11));Color=IIf(g,colorRed,colorGreen);PlotShapes(shape,color);/////////////////////////////////////////////////////////////////////////////////////////////////per=per1;x = Cum(1);s1=C;s11=C;pS = TroughBars( s1, per, 1 ) == 0;endt= SelectedValue(ValueWhen( pS, x, 1 ));startt=SelectedValue(ValueWhen( pS, x, 2 ));dtS =endt-startt;endS = SelectedValue(ValueWhen( pS, s1, 1 ) );startS = SelectedValue( ValueWhen( pS, s1, 2 ));aS = (endS-startS)/dtS;bS = endS;trendlineS = aS * ( x -endt ) + bS;g3= IIf(x>startt-10,trendlineS,-1e10);Plot(g3,"",colorRed,styleThick);pR = PeakBars( s11, per, 1 ) == 0;endt1= SelectedValue(ValueWhen( pR, x, 1 ));startt1=SelectedValue(ValueWhen( pR, x, 2 ));dtR =endt1-startt1;endR = SelectedValue(ValueWhen( pR, s11, 1 ) );startR = SelectedValue( ValueWhen( pR, s11, 2 ));aR = (endR-startR)/dtR;bR = endR;trendlineR = aR * ( x -endt1 ) + bR;g4= IIf(x>startT1-10,trendlineR,-1e10);Plot(g4,"",colorGreen,styleThick);//////////////////////////////////////////////////////////////////////////////_SECTION_BEGIN("PAC - ZTEMA");SetChartOptions(0,chartShowDates|chartShowArrows|chartLogarithmic|chartWrapTitle);HaClose = (O+H+L+C)/4;HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );HaHigh = Max( H, Max( HaClose, HaOpen ) );HaLow = Min( L, Min( HaClose, HaOpen ) );PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "Modified " + Name(), colorRose, styleCandle );TC = MA( High, 5 );BC = MA( Low, 5 );Plot(tc, "", colorYellow);Plot(bc, "", colorYellow);a = haClose > TC;b = haClose < BC;state=IIf(BarsSince(a)<BarsSince(b),1,0);Buy = Cross(a,b);Sell = Cross(b,a);PlotShapes( IIf(Buy, shapeUpArrow,0) , colorLime,0,HaLow,-20);PlotShapes( IIf(Sell, shapeDownArrow,0) , colorOrange,0,HaHigh,-20);GraphZOrder = 1;_SECTION_END(); |