// Downloaded From https://www.WiseStockTrader.com // asfa.alam@yahoo.com // SetChartBkColor(ParamColor("Panel Color",colorLightGrey)); SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey)); _SECTION_BEGIN("KPAutoStop-KPA900 Trend"); Disp2=ParamToggle("KPAutoStop-KPA900 Trend","Show|Hide",0); parmASStyle = ParamStyle("AutopStop Style", styleDots | styleThick, maskAll); parmASColor = ParamColor("AutoStop Color", colorYellow); parmPA900Style = ParamStyle("KP A900 Style", styleLine | styleThick, maskAll); parmPA900Color = ParamColor("KP A900 Color", colorWhite); if(Disp2){ Plot( E_TSKPAUTOSTOP(High,Low,Close) ,"KP AutoStop",parmASColor, parmASStyle); Plot( E_TSKPA900(Close) , "KP A900", parmPA900Color, parmPA900Style);} _SECTION_END(); _SECTION_BEGIN("KPStopLine-KPTriggerLine"); Disp3=ParamToggle("KPStopLine-KPTriggerLine","Show|Hide",0); parmSLStyle = ParamStyle("KPStopLine Style", styleLine | styleThick, maskAll); parmSLColor = ParamColor("KPStopLine Color", colorRed); parmTLStyle = ParamStyle("KPTriggerLine Style", styleLine | styleThick, maskAll); parmTLColor = ParamColor("KPTriggerLine Color", colorBlue); sw = E_TSKPUPSELL(Open,High,Low,Close,Volume); if(Disp3){ Plot( E_TSKPSTOPLINE(High,Low,Close) , "KPStopLine", parmSLColor,parmSLStyle ); Plot( tskp_triggerline, "KPTriggerLine", parmTLColor,parmTLStyle ); } _SECTION_END(); _SECTION_BEGIN("KP Trigger Cloud"); Var1=tskp_triggerline; Var2=E_TSKPA900(Close); Color=IIf(Var1 >Var2,colorBlue,colorRed); PlotOHLC(Var1,Var1,Var2,Var2,"Cloud",Color,styleCloud); _SECTION_END(); _SECTION_BEGIN("KP Standard Error Bands"); Disp12=ParamToggle("KP Standard Error Bands","Show|Hide",1); Periods=Param("Standard Error",30,3,200,1); Smooth=Param("Smooth",20,2,100,1); LRCurve=LinearReg( C, periods ); MALRCurve=MA(LRCurve, Smooth); SEValue=StdErr( C, periods ); SErrorAvg=MA(SEValue, Smooth); LowerBand= MALRCurve - SErrorAvg ; UpperBand= MALRCurve + SErrorAvg ; if(Disp12){ Plot(MALRCurve,"MidBand",ParamColor("ColorMB",colorViolet),ParamStyle("StyleMB",styleLine|styleThick)); Plot(UpperBand,"UpperBand",ParamColor("ColorUp",colorViolet),ParamStyle("StyleUp",styleDashed,maskDefault)); Plot(LowerBand,"LowerBand",ParamColor("ColorLo",colorViolet),ParamStyle("StyleLow",styleDashed,maskDefault)); PlotOHLC( UpperBand,UpperBand,LowerBand,LowerBand,"Band",ParamColor( "Color", colorTan ),styleCloud|styleNoLabel);} _SECTION_END(); _SECTION_BEGIN("KP TrendBias BackGround");//Plot Tone dummy = E_TSKPTRENDBIAS(High,Low,Close); KPTB = tskp_sb; KPTBSlow = tskp_tbxavg; parmToneColorUp=ParamColor("Tone Color Up", colorLightBlue ); parmToneColorDn=ParamColor("Tone Color Dn", colorTan); RibbonSize=Param("Ribbon Size",20,0.5,10,0.5); Plot( RibbonSize,"Tone",IIf(KPTB > KPTBSlow,parmToneColorUp,parmToneColorDn),styleOwnScale|styleArea|styleNoLabel,0,10); _