Thanks MR Reinsley Deepak Patade, Nasik.
________________________________ From: reinsley <[email protected]> To: [email protected] Sent: Wed, December 23, 2009 3:49:13 PM Subject: Re: [amibroker] candle color, price and macd Hi, Some ideas applied to histogram MACD : Best regards // Macd Rising Falling Two Colors // adapted by reinsley // blank bars show no cross signal r1 = Param( "Fast avg", 12, 2, 200, 1 ); r2 = Param( "Slow avg", 26, 2, 200, 1 ); r3 = Param( "Signal avg", 9, 2, 200, 1 ); mm = MACD(r1, r2); ms = Signal(r1, r2, r3); mh = mm-ms; mcol= IIf(mh>Ref(mh, -1),IIf(mh > 0,27,27),IIf( mh > 0,32,32));// 27 43 11 32 Plot(mm,StrFormat( _SECTION_ NAME()+"( %g,%g)", r1 ,r2),29,4); Plot(ms," Signal" + _PARAM_VALUES( ),32); Plot(mh,"MACDHistog ram",mcol, 6|styleNoTitle| 4096);//32768| Plot(mh,"MACDHistog ram",mcol, 5|styleNoTitle| 4096); //32768| lastbar0 = Ref( mh, 0 ) > Ref( mh, - 1 )AND mh >= 0 ; lastbar1 = Ref( mh, - 1 ) < Ref( mh, - 2 )AND mh >= 0 ; lastbar2 = Ref( mh, - 2 ) < Ref( mh, - 3 )AND mh >= 0 ; lastbar3 = Ref( mh, - 3 ) < Ref( mh, - 4 )AND mh >= 0 ; signocrossup = IIf( lastbar0 AND lastbar1 AND lastbar2 AND lastbar3 , 1, 0 ); barcolorup = IIf( signocrossup, 2, 1 ); lastbardn0 = Ref( mh, 0 ) < Ref( mh, - 1 )AND mh <= 0 ; lastbardn1 = Ref( mh, - 1 ) > Ref( mh, - 2 )AND mh <= 0 ; lastbardn2 = Ref( mh, - 2 ) > Ref( mh, - 3 )AND mh <= 0 ; lastbardn3 = Ref( mh, - 3 ) > Ref( mh, - 4 )AND mh <= 0 ; signocrossdown = IIf( lastbardn0 AND lastbardn1 AND lastbardn2 AND lastbardn3 , 1, 0 ); barcolordn = IIf( signocrossdown, 2, 1 ); Graph2BarColor = IIf ( signocrossup, barcolorup, IIf( signocrossdown, barcolordn, mcol ) ); //11 mauve //27 green //43 bright green //32 red Le 23/12/2009 07:15, Deepak Patade a écrit : > > Can you helpme in this > Plot the color of candle green if MACD is above signal line > and > Plot the candle red when signal line is above green line. > Price > > ("Price"); > > SetChartOptions( 0,*chartShowArro ws*|*chartShowDa tes*); > > _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 )) )); > > Plot( *C*, "Close", ParamColor(" Color", *colorBlack* ), *styleNoTitle* | > ParamStyle(" Style") | GetPriceStyle( ) ); > > * * > > *if*( ParamToggle( "Tooltip shows", "All Values|Only Prices" ) ) > > { > > *ToolTip*=StrFormat ("Open: %g\nHigh: %g\nLow: %g\nClose: %g > (%.1f%%)\nVolume: "+NumToStr( *V*, 1 ), *O*, *H*, *L*, *C*, > SelectedValue( ROC( *C*, 1 ))); > > } > > macd > > r1 = Param( "Fast avg", 12, 2, 200, 1 ); > > r2 = Param( "Slow avg", 26, 2, 200, 1 ); > > r3 = Param( "Signal avg", 9, 2, 200, 1 ); > > Plot( ml = MACD(r1, r2), StrFormat(_SECTION_ NAME()+"( %g,%g)", r1, r2), > ParamColor(" MACD color", *colorBlue* ), ParamStyle(" MACD style") ); > > Plot( sl = Signal(r1,r2, r3), "Signal" + _PARAM_VALUES( ), > ParamColor(" Signal color", *colorRed* ), ParamStyle(" Signal style") ); > > Plot( ml-sl, "MACD Histogram", ParamColor(" Histogram color", > *colorBlack* ), *styleNoTitle* | ParamStyle(" Histogram style", > *styleHistogram* | *styleNoLabel* , *maskHistogram* ) ); > > > Deepak Patade, > Nasik. > > > > -- Best regards
