// Downloaded From https://www.WiseStockTrader.com _SECTION_BEGIN("Kase Peak Osc Orginal V2.batu"); Per1=Param("Max Length",55,2,200,1); Per2=Param("Min Length",13,2,200,1); RWH=RWIHi(Per2,Per1); RWL=RWILo(Per2,Per1); Pk=WMA((RWH-RWL),3); MN=MA(Pk,Per1); SD=StDev(Pk,Per1); Val1=Max(MN+(2*SD),2.2*SD); Val2=Min(MN-(2*SD),-2.2*SD); Val3=Max(MN+(2*SD),3*SD); Val4=Min(MN-(2*SD),-3*SD); LN1=IIf(PK>=0,Val1,Val2); LN2=IIf(PK>=0,Val3,Val4); Red=IIf(Ref(Pk,-1)>Pk,Pk,0); Green=IIf(Pk>Ref(Pk,-1),Pk,0); WriteIf( Val2>=Pk, "Buraya yazabilirsin", "Buraya yazılıyor" ); Buy= IIf(Pk=Pk-0.01,Val2>=Pk); Sell= IIf(Pk>Val1,Pk+0.01>=Val1,Pk>=Val1); for( i = 0; i < BarCount; i++ ) { if( Buy[i] ) PlotText( "Pk<" + Val2[ i ], i, Pk[ i ]-2, colorGreen,colorWhite); if( Sell[i] ) PlotText( "Pk>" + Val1[ i ], i, Pk[ i ]+2, colorRed,colorWhite); } PlotShapes( Buy *18,IIf( Buy, colorGreen, colorRed ),0,0); PlotShapes(Sell * 17, IIf( Buy, colorGreen, colorRed ),0,0); Buy= IIf(Pk=Pk-0.01,Val4>=Pk); Sell= IIf(Pk>Val3,Pk+0.01>=Val3,Pk>=Val3); Plot(Red,"Red min "+per2+"-max "+per1,IIf(Buy,11,colorOrange),styleHistogram|styleThick,Null,Null,0,1); Plot(Green,"Green min"+per2+"-max "+per1,IIf(Sell,11,colorGreen),styleHistogram|styleThick,Null,Null,0,1); Plot(LN1,"StDev Loc",colorViolet,styleLine); Plot(ln2,"StDev GL",colorTurquoise,styleLine); _SECTION_END();