Thanks Reinsley for your effort. Is it possible to plot on line instead of candlestick? RegardsAfzal
--- On Tue, 9/7/10, reinsley <[email protected]> wrote: From: reinsley <[email protected]> Subject: Re: [amibroker] plot line btn higher high and lower low of RSI To: [email protected] Date: Tuesday, September 7, 2010, 12:16 AM Hi, Here is something you can simplify to get what you want. Best regards // RSIc trendlines w fct // Original : Dimitri Tsokakis // mod by Reinsley procedure RSIc( n ) { C = RSIa( C, n ); O = RSIa( O, n ); H = RSIa( H, n ); H = IIf( H < Max( C, O ), Max( C, O ), H ); L = RSIa( L, n ); L = IIf( L > Min( C, O ), Min( C, O ), L ); } n = Param( "n", 9, 2, 30, 1 );//RSI sensitivity RSIc( n ); Plot( C, "RSIc(" + n + ")", 1, 64 ); RSIlevHi = Param( "RSIlevHi ", 70, 2, 100, 1 ); RSIlevLo = Param( "RSIlevLo ", 30, 2, 100, 1 ); SetChartOptions( 0, 0, ChartGrid30 | ChartGrid70); PlotOHLC( O, H, 50, C, "", IIf( C > 50, colorPink, colorPaleGreen ), styleCloud | styleClipMinMax | styleNoLabel, RSIlevLo , RSIlevHi ); PlotOHLC( O, 50, L, C, "", IIf( C < 50, colorPaleGreen, colorPink ), styleCloud | styleClipMinMax | styleNoLabel, RSIlevLo , RSIlevHi ); Plot(50,"",colorBrown, styleLine |styleDashed|styleNoLabel); //PlotGrid(50); // fast S&R RSIc perfast = Param( "perfast", 10, 3, 100, 1 );//trendlines sensitivity VertShiftFast = Param( "vs+", 4, 1, 20, 1 );// vertical shift "+" // medium S&R RSIc permed = Param( "permed", 40, 3, 100, 1 );//trendlines sensitivity VertShiftMed = Param( "vso", 7, 1, 20, 1 );// vertical shift "0" // Slow S&R RSIc perslow = Param( "perslow", 50, 3, 100, 1 );//trendlines sensitivity VertShiftslow = Param( "vst", 11, 1, 20, 1 );// vertical shift "T" procedure SupRes( per, Vs, symb, Colorline ) { x = Cum( 1 ); s1 = L; s11 = H; pS = TroughBars( s1, per, 1 ) == 0; endt = LastValue( ValueWhen( pS, x, 1 ) ); startt = LastValue( ValueWhen( pS, x, 2 ) ); dtS = endt - startt; endS = LastValue( ValueWhen( pS, s1, 1 ) ); startS = LastValue( ValueWhen( pS, s1, 2 ) ); aS = ( endS - startS ) / dtS; bS = endS; trendlineS = aS * ( x - endt ) + bS; Plot( IIf( x > startt - 10, trendlineS, -1e10 ), "", Colorline, 1 ); PlotText( symb, endt - 1 , endS - Vs , Colorline );// last point 1 support //green PlotText( symb, startt - 1 , startS - Vs , Colorline );// first point 2 support pR = PeakBars( s11, per, 1 ) == 0; endt1 = LastValue( ValueWhen( pR, x, 1 ) ); startt1 = LastValue( ValueWhen( pR, x, 2 ) ); dtR = endt1 - startt1; endR = LastValue( ValueWhen( pR, s11, 1 ) ); startR = LastValue( ValueWhen( pR, s11, 2 ) ); aR = ( endR - startR ) / dtR; bR = endR; trendlineR = aR * ( x - endt1 ) + bR; Plot( IIf( x > startT1 - 10, trendlineR, -1e10 ), "", Colorline, 1 ); PlotText( symb, endt1 - 1 , endR + Vs - 2, Colorline );// last point 1 resistance // red PlotText( symb, startt1 - 1 , startR + Vs - 2 , Colorline );// first point 2 resistance } SRfast = SupRes( perfast, VertShiftFast, "+", colorYellow ); SRmed = SupRes( permed, VertShiftMed, "o", colorAqua ); SRslow = SupRes( perslow, VertShiftslow, "T", colorWhite ); // newday bar NewdayBar = ParamToggle( "NewdayBar ", "No|Yes", 1 ); if ( NewdayBar ) { segments = IIf( Interval() < inDaily, Day(), Month() ); segments = segments != Ref( segments , -1 ); Plot( segments, "", colorDarkBlue, styleHistogram | styleOwnScale | styleDashed | styleNoLabel ); } Title = "{{VALUES}}" + "\\c07 " + " (" + perfast + ")" + "\\c36 " + " (" + permed + ")" + "\\c55 " + " (" + perslow + ")"; GraphXSpace = Param( "GraphXSpace", 5, 0, 30, 0.5 ); Le 07/09/2010 08:47, afzal hossain a écrit : Friends Could you please guys help me to draw line between higher high and lower low value of RSI? Please find the attach as example. Regards Afzal
