MA 13 34 55 Ichi KPL Candle

/
_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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
 _SECTION_END();



 PctVlt=(ATR(10)/C)*100;//PercentVolatility

 PK=IIf(PctVlt<0.5,Peak(Close,0.5,1),
 IIf( PctVlt>=0.5 AND PctVlt< 1.0 ,Peak(Close,0.70,1),
 IIf( PctVlt>=1.0 AND PctVlt< 1.5 ,Peak(Close,0.90,1),
 IIf( PctVlt>=1.5 AND PctVlt< 2.0 ,Peak(Close,1.10,1),
 IIf( PctVlt>=2.0 AND PctVlt< 2.5 ,Peak(Close,1.30,1),
 IIf( PctVlt>=2.5 AND PctVlt< 3.0 ,Peak(Close,1.50,1),
 IIf( PctVlt>=3.0 AND PctVlt< 3.5 ,Peak(Close,1.70,1),
 IIf( PctVlt>=3.5 AND PctVlt< 4.0 ,Peak(Close,2.00,1),
 Peak(Close,2.20,1) ))))))));

 TGH=IIf(PctVlt<0.5,Trough(Close,0.5,1),
 IIf( PctVlt>=0.5 AND PctVlt< 1.0 ,Trough(Close,0.75,1),
 IIf( PctVlt>=1.0 AND PctVlt< 1.5 ,Trough(Close,1.00,1),
 IIf( PctVlt>=1.5 AND PctVlt< 2.0 ,Trough(Close,1.25,1),
 IIf( PctVlt>=2.0 AND PctVlt< 2.5 ,Trough(Close,1.50,1),
 IIf( PctVlt>=2.5 AND PctVlt< 3.0 ,Trough(Close,1.75,1),
 IIf( PctVlt>=3.0 AND PctVlt< 3.5 ,Trough(Close,2.00,1),
 IIf( PctVlt>=3.5 AND PctVlt< 4.0 ,Trough(Close,2.25,1),
 Trough(Close,2.50,1) ))))))));

 Sens=IIf(PctVlt<0.5,0.5,
 IIf( PctVlt>=0.5 AND PctVlt< 1.0 ,0.75,
 IIf( PctVlt>=1.0 AND PctVlt< 1.5 ,1.00,
 IIf( PctVlt>=1.5 AND PctVlt< 2.0 ,1.25,
 IIf( PctVlt>=2.0 AND PctVlt< 2.5 ,1.50,
 IIf( PctVlt>=2.5 AND PctVlt< 3.0 ,1.75,
 IIf( PctVlt>=3.0 AND PctVlt< 3.5 ,2.00,
 IIf( PctVlt>=3.5 AND PctVlt< 4.0 ,2.25,
 2.50 ))))))));


 Color=IIf(BarsSince(Cross(C,Ref(PK,-1)))Ref(res,-1),1,IIf(C1;i--)
 {
 if(Buy[i] == 1)
 {
 entry = C[i];
 sig = "BUY";
 sl = s5d[i];
 tar1 = entry + (entry * .0050);
 tar2 = entry + (entry * .0092);
 tar3 = entry + (entry * .0179);

 bars = i;
 i = 0;
 }
 if(Sell[i] == 1)
 {
 sig = "SELL";
 entry = C[i];
 sl = s5d[i];
 tar1 = entry - (entry * .0050);
 tar2 = entry - (entry * .0112);
 tar3 = entry - (entry * .0212);


 bars = i;
 i = 0;
 }
 }
 Offset = 20;
 Clr = IIf(sig == "BUY", colorLime, colorRed);
 ssl = IIf(bars == BarCount-1, s5d[BarCount-1], Ref(s5d, -1));
 sl = ssl[BarCount-1];

 Plot(LineArray(bars-Offset, tar1, BarCount, tar1,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
 Plot(LineArray(bars-Offset, tar2, BarCount, tar2,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
 Plot(LineArray(bars-Offset, tar3, BarCount, tar3,1), "", Clr, styleLine|styleDots, Null, Null, Offset);

 Plot(LineArray(bars-Offset, sl, BarCount, sl,1), "", colorDarkRed, styleLine|styleLine, Null, Null, Offset);
 Plot(LineArray(bars-Offset, entry, BarCount, entry,1), "", colorGreen, styleLine|styleLine, Null, Null, Offset);

 for (i=bars; i Sp2,ParamColor("S pan1 Color", ColorRGB(0,255,0)),ParamColor("Span2 Color",ColorRGB(255,104,32))),styleCloud);

 _SECTION_END(); 

 /////////////////////////////////////Kpl Swing
 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 //kpl swing formula here
 //---- heikin ashi
 HaClose = (O+H+L+C)/4; 
 HaOpen = AMA( Ref( HaClose, -1 ), .40); 
 HaHigh = Max( H, Max( HaClose, HaOpen ) ); 
 HaLow = Min( L, Min( HaClose, HaOpen ) ); 
 xDiff = (HaHigh - Halow) * IIf(StrFind(Name(),"JPY"),100,10000);
 // Plot(EMA(HaClose,9),"",colorWhite, styleLine);
 // Plot(EMA(HaClose,18),"",colorBlack, styleLine);
 _SECTION_BEGIN("KPL Swing");
 no=Param( "Swing", 10, 1, 55 );
 tsl_col=ParamColor( "Color", colorCycle );

 res=HHV(H,no);
 sup=LLV(L,no);
 avd=IIf(C>Ref(res,-1),1,IIf(CC); }
 else if(P == 2) { PatternName = "LongBlackCandle"; Pv = (O>C AND
 (O-C)/(.001+H-L)>.6); }
 else if(P == 3) { PatternName = "SmallBlackCandle"; Pv = ((O>C) AND
 ((H-L)>(3*(O-C)))); }
 else if(P == 4) { PatternName = "WhiteCandle"; Pv = (C>O); }
 else if(P == 5) { PatternName = "LongWhiteCandle"; Pv = ((C>O) AND
 ((C-O)/(.001+H-L)>.6)); }
 else if(P == 6) { PatternName = "SmallWhiteCandle"; Pv = ((C>O) AND
 ((H-L)>(3*(C-O)))); }
 else if(P == 7) { PatternName = "BlackMaubozu"; Pv = (O>C AND H==O AND
 C==L); }
 else if(P == 8) { PatternName = "WhiteMaubozu"; Pv = (C>O AND H==C AND
 O==L); }
 else if(P == 9) { PatternName = "BlackClosingMarubozu"; Pv = (O>C AND
 C==L); }
 else if(P == 10) { PatternName = "WhiteClosingMarubozu"; Pv = (C>O AND
 C==H); }
 else if(P == 11) { PatternName = "BlackOpeningMarubozu"; Pv = (O>C AND
 O==H); }
 else if(P == 12) { PatternName = "WhiteOpeningMarubozu"; Pv = (C>O AND
 O==L); }
 else if(P == 13) { PatternName = "HangingMan"; Pv = (((H-L)>4*(O-C)) AND
 ((C-L)/(.001+H-L)>= 0.75) AND ((O-L)/(.001+H-L)>= 0.75)); }
 else if(P == 14) { PatternName = "Hammer"; Pv = (((H-L)>3*(O-C)) AND
 ((C-L)/(.001+H-L)>0.6) AND ((O-L)/(.001+H-L)>0.6)); }
 else if(P == 15) { PatternName = "InvertedHammer"; Pv = (((H-L)>3*(O-C))
 AND ((H-C)/(.001+H-L)>0.6) AND ((H-O)/(.001+H-L)>0.6)); }
 else if(P == 16) { PatternName = "ShootingStar"; Pv = (((H-L)>4*(O-C))
 AND ((H-C)/(.001+H-L)>= 0.75) AND ((H-O)/(.001+H-L)>= 0.75)); }
 else if(P == 17) { PatternName = "BlackSpinningTop"; Pv = ((O>C) AND
 ((H-L)>(3*(O-C))) AND (((H-O)/(.001+H-L))<.4) AND
 (((C-L)/(.001+H-L))<.4)); }
 else if(P == 18) { PatternName = "WhiteSpinningTop"; Pv = ((C>O) AND
 ((H-L)>(3*(C-O))) AND (((H-C)/(.001+H-L))<.4) AND
 (((O-L)/(.001+H-L))<.4)); }
 else if(P == 19) { PatternName = "BearishAbandonedBaby"; Pv = ((C1 == O1)
 AND (C2>O2) AND (O>C) AND (L1>H2) AND (L1>H)); }
 else if(P == 20) { PatternName = "BearishEveningDojiStar"; Pv = ((C2>O2)
 AND ((C2-O2)/(.001+H2-L2)>.6) AND (C2O1) AND
 ((H1-L1)>(3*(C1-O1))) AND (O>C) AND (OO1 AND
 ((C1+O1)/2)>C AND O>C AND O>C1 AND C>O1 AND (O-C)/(.001+(H-L)>0.6)); }
 else if(P == 22) { PatternName = "BearishEngulfing"; Pv = ((C1>O1) AND
 (O>C) AND (O>= C1) AND (O1>= C) AND ((O-C)>(C1-O1))); }
 else if(P == 23) { PatternName = "ThreeOutsideDownPattern"; Pv = ((C2>O2)
 AND (O1>C1) AND (O1>= C2) AND (O2>= C1) AND ((O1-C1)>(C2-O2)) AND (O>C) AND
 (CC2) AND (C>O) AND (L2>H1) AND (L>H1)); }
 else if(P == 25) { PatternName = "BullishMorningDojiStar"; Pv = ((O2>C2)
 AND ((O2-C2)/(.001+H2-L2)>.6) AND (C2>O1) AND (O1>C1) AND
 ((H1-L1)>(3*(C1-O1))) AND (C>O) AND (O>O1)); }
 else if(P == 26) { PatternName = "BullishEngulfing"; Pv = ((O1>C1) AND
 (C>O) AND (C>= O1) AND (C1>= O) AND ((C-O)>(O1-C1))); }
 else if(P == 27) { PatternName = "ThreeOutsideUpPattern"; Pv = ((O2>C2)
 AND (C1>O1) AND (C1>= O2) AND (C2>= O1) AND ((C1-O1)>(O2-C2)) AND (C>O) AND
 (C>C1)); }
 else if(P == 28) { PatternName = "BullishHarami"; Pv = ((O1>C1) AND (C>O)
 AND (C<= O1) AND (C1<= O) AND ((C-O)<(O1-C1))); }
 else if(P == 29) { PatternName = "ThreeInsideUpPattern"; Pv = ((O2>C2)
 AND (C1>O1) AND (C1<= O2) AND (C2<= O1) AND ((C1-O1)<(O2-C2)) AND (C>O) AND
 (C>C1) AND (O>O1)); }
 else if(P == 30) { PatternName = "PiercingLine"; Pv = ((C10.6)); }
 else if(P == 31) { PatternName = "BearishHarami"; Pv = ((C1>O1) AND (O>C)
 AND (O<= C1) AND (O1<= C) AND ((O-C)<(C1-O1))); }
 else if(P == 32) { PatternName = "ThreeInsideDownPattern"; Pv = ((C2>O2)
 AND (O1>C1) AND (O1<= C2) AND (O2<= C1) AND ((O1-C1)<(C2-O2)) AND (O>C) AND
 (CO*1.01)
 AND (C1>O1*1.01) AND (C2>O2*1.01) AND (C>C1) AND (C1>C2) AND (OO1) AND (O1O2) AND (((H-C)/(H-L))<.2) AND
 (((H1-C1)/(H1-L1))<.2) AND (((H2-C2)/(H2-L2))<.2); }
 else if(P == 34) { PatternName = "DarkCloudCover"; Pv = (C1>O1*1.01) AND
 (O>C) AND (O>H1) AND (C>O1) AND (((C1+O1)/2)>C) AND (C>O1) AND
 (MA(C,13)-Ref(MA(C,13),-4)>0); }
 else if(P == 35) { PatternName = "ThreeBlackCrows"; Pv = (O>C*1.01) AND
 (O1>C1*1.01) AND (O2>C2*1.01) AND (CC1) AND (OC2) AND (O11.01*H1; }
 else if(P == 40) { PatternName = "BigGapDown"; Pv = H<0.99*L1; }
 else if(P == 41) { PatternName = "HugeGapUp"; Pv = L>1.02*H1; }
 else if(P == 42) { PatternName = "HugeGapDown"; Pv = H<0.98*L1; }
 else if(P == 43) { PatternName = "DoubleGapUp"; Pv = GapUp() AND
 Ref(GapUp(),-1); }
 else if(P == 44) { PatternName = "DoubleGapDown"; Pv = GapDown() AND
 Ref(GapDown(),-1); }
 return Pv;
 }

 PatternNameList = "";
 for(Cp=0; Cp<=44; Cp++)
 {
 VarSet("Pattern"+NumToStr(Cp,1.0),CandlePattern(cP ));
 PatternNameList = PatternNameList +PatternName+","; 
 }

 BI = BarIndex();
 SelectedBar = SelectedValue(BI) -BI[0];
 //Selectedbar = Status("lastvisiblebar")-1;
 PStr="";
 for(Cp=0; Cp<=44; Cp++)
 {
 Temp = VarGet("Pattern"+NumToStr(Cp,1.0));
 if(temp[SelectedBar]) Pstr=Pstr+"#"+NumToStr(Cp,1.0)+" - "+StrExtract(PatternNameList,Cp)+"\n";
 }


 FS=Param("Font Size",11,11,100,1);
 GfxSelectFont("Times New Roman", FS, 700, True ); 
 GfxSetBkMode( colorWhite ); 
 GfxSetTextColor( ParamColor("Color",colorWhite) ); 
 Hor=Param("Horizontal Position",237,1,1200,1);
 Ver=Param("Vertical Position",50,1,830,1); 
 GfxTextOut("Candle Reader= "+Pstr, Hor , Ver );




 _SECTION_END();