// Downloaded From https://www.WiseStockTrader.com
Per1=Param("Max Length",55,2,300,1);
Per2=Param("Min Length",13,2,300,1);
RWH= RWIHi(Per2,Per1); 
RWL=RWILo(Per2,Per1); 
Pk=MA(WMA((RWH-RWL),3),3); 
KCD=Pk-MA(Pk,8); 
MN=MA(KCD,per1); 
SD=StDev(KCD,Per1); 
Val1=Max(MN+(1.75*SD),1.75*SD); 
Val2=Min(MN-(1.75*SD),-1.75*SD);  
ln3=IIf(KCD>0,Val1,Val2); 
Red=IIf(Ref(KCD,-1)>KCD,KCD,0); 
Green=IIf(KCD>Ref(KCD,-1),KCD,0); 

WriteIf( Val2>=KCD, "Writing here", "Writing here" );


Buy= IIf(KCD<Val2,Val2>=KCD-0.01,Val2>=KCD); 
Sell= IIf(KCD>Val1,KCD+0.01>=Val1,KCD>=Val1);
Plot(Red,"Red CD max"+per1+"-min"+per2,IIf(Buy,colorBlue,colorRed),styleHistogram|styleThick,Null,Null,0,1);
Plot(Green,"Green CD",IIf(Sell,colorBlue,colorGreen),styleHistogram|styleThick,Null,Null,0,1);