How to plot Price Near to Toughs & Peaks

Trady

Active Member
#1
Hello,

Can anyone help with the following query? This query was posted on another forum by MR.bodisadi.


"i tried to put prices on rsi indicator
and every thing goes perfect
but one thing i cant do it
i need to put price narrow to peaks and trough
any help ????"
....................................
_SECTION_BEGIN("RSI styleClipMinMax");
SetChartOptions(0,0,chartGrid20|chartGrid50|chartG rid80);
periods = Param( "Periods", 12, 1, 200, 1 );
Plot( RSI( periods), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
maxClip = Param( "maxClip", 80, 1, 100, 1 );
minClip = Param( "minClip", 20, 1, 100, 1 );
r = RSI(periods);
PlotOHLC( r,r,50,r, "", IIf( r > 50, colorRed, colorBrightGreen ), styleCloud | styleNoLabel | styleClipMinMax, minClip, maxClip );
Overbought = 80 ;
Oversold =20 ;
Center = 50 ;

Plot(Overbought, "",colorRed) ;
Plot(Oversold, "",colorGreen) ;
Plot(Center, "",colorBlack, styleDashed) ;

_SECTION_END();


_SECTION_BEGIN("Show Values at H&L");

n=Param("Values back",20,1,200,1);
p=Param("zig %",5,1,100,0.1);
fraction1= IIf(StrRight(Name(),3) == "",1,4);
fraction2= IIf(StrRight(Name(),3) == "",1,4);

ero = Param("ATR multiple", 2.8, 0.5, 200, 0.1 )*Param("ATR period", 10, 3, 50 );
ss=Peak(r,ero);
s=Trough(r,ero);
dist=IIf(r>Ref(ss,-1),1,IIf(r<Ref(s,-1),-3,0.5));
for( i =0; i < n; i++)
{
PlotText(""+LastValue(Peak(C,p,i),True),BarCount-1-LastValue(PeakBars(C,p,i)),LastValue(fraction1,Tru e)+LastValue(Peak(r,fraction1,i),False),ParamColor ("HIGHColor", colorBrightGreen ));
PlotText(""+LastValue(Trough(C,p,i),True),BarCount-1-LastValue(TroughBars(C,p,i)),LastValue(Trough(r,fr action2,i),False)-LastValue(fraction2,True),ParamColor("LOWColor", colorBrightGreen ));
}


_SECTION_END();

Regards,
Trady
 
#2
Hi
Kindly try this.
===============================
_SECTION_BEGIN("RSI");
SetChartOptions(0,0,chartGrid30|chartGrid70|chartGrid50);
SetChartOptions (0,30,styleLine|styleThick|colorGreen);
r = RSI(14);
Plot( r, "RSI", colorGreen,styleThick );
Plot(EMA( r, periods = Param( "RSI", 50, 1, 200, 1 ) ), _DEFAULT_NAME(),
IIf(EMA( r, periods = Param( "RSI", 50, 1, 200, 1 ) ) > Ref(EMA( r, periods = Param( "RSI", 25, 1, 200, 1 ) ),-1),ParamColor("Rising EMA", colorGreen),ParamColor("Falling EMA", colorRed)),
ParamStyle("style",styleLine+styleDots,maskAll));
periods = Param( "RSI", 50, 1, 200, 1 );
PlotOHLC( r,r,50,r, "", IIf( r > 50, colorRed, colorGreen ), styleCloud | styleClipMinMax, 30, 70 );
_SECTION_END();

==================================

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN("Tops and bottom");

pd = Param("Periods",13,5,144,1);
pds = 2*pd-1;// (Adjustment for Wilders MA)
aa = Close-Ref(Close,-1);
uu = EMA(Max(0,aa),pds);
dd= EMA((Max(0,0-aa)),pds);

rf = IIf(C>2,1000,10000);

c1 = Param("Upper Level",70,50,90,1);
qq1 =100/(100-c1)-1;
ff1 = qq1*dd-uu;
ff2 = ff1/qq1;
f1 = Max(ff1,ff2);
UL = Close + f1*(pds-1)/2;
UL = IIf(UL>C,floor(UL*rf),ceil(UL*rf))/rf;

c2 = Param("Equilibrium",50,50,50,0);
qq2 =100/(100-c2)-1;// [=1]
ff = dd-uu;
MM = Close + ff*(pds-1)/2;
MM = IIf(MM>C,floor(MM*rf),ceil(MM*rf))/rf;

c3 = Param("Lower Level",30,10,50,1);
qq3 =100/(100-c3)-1;
ff1 = qq3*dd-uu;
ff2 = ff1/qq3;
f3 = Min(ff1,ff2);
LL = Close + f3*(pds-1)/2;
LL = IIf(LL>C,floor(LL*rf),ceil(LL*rf))/rf;

band = Param("band width",4,0,15,0.25);
mmu = MM+band;
mmd = MM-band;



Buy=Cover=Cross( C,LL) ;
Sell=Short= Cross(UL,C);

PlotShapes(shapeCircle*Buy,colorBlue,0,L,-15);
PlotShapes(shapeCircle*Sell,colorRed,0,H,15);
_SECTION_END();
 

Similar threads