WiseStockTrader.com Trading Program Listings
Indicators
Submit New Indicator
All Amibroker (AFL) Metastock eSignal (EFS) NinjaTrader
Function Index
Paste Bin
Register
Login

Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

KP SystemV.2 (final) for Amibroker (AFL)
Anonymous
almost 12 years ago
Amibroker (AFL)

Rating:
2 / 5 (Votes 3)
Tags:
amibroker, pivots

I’ve putted in the Standard Error Bands and NewUpDown.
Some modification.
Added some more visuals.
For extra information look at V.1

Hope you like it, enjoy!

Similar Indicators / Formulas

Pivots and prices
Submitted by kaiji almost 15 years ago
Pivots
Submitted by kkumar over 12 years ago
Pivots And Prices And Swing Volume
Submitted by esnataraj over 14 years ago
Camarilla Pivots
Submitted by novicetraders over 14 years ago
Pivot Trading All-In-One
Submitted by kirthi1987 over 14 years ago
Daily, Weekly and Monthly Pivots
Submitted by sam_u6 over 14 years ago

Indicator / Formula

Indicator
Copy & Paste Friendly
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
dec=(Param("Decimals",2,0,7,1)/10)+1;
GraphXSpace=Param("GraphXSpace",20,-10,25,1);

BarTime1=LastValue(TimeNum() - Now(4));  
DataError=IIf(Now(4) > TimeNum(),True,False); 
TimeBase=IIf(Interval(1)>0,1,0); 
_N(StrBarTime=NumToStr(BarTime1,1.0,False)); 
BT_Length=StrLen(StrBarTime); 
_N(TimeLeft_= 
WriteIf(BT_Length==1,"0:0"+StrBarTime,WriteIf(BT_Length==2,"0:"+StrBarTime, 
WriteIf(BT_Length==3,StrLeft(StrBarTime,1)+":"+StrRight(StrBarTime,2), 
StrLeft(StrBarTime,2)+":"+StrRight(StrBarTime,2))))); 
TimeLeft=WriteIf(TimeBase==1,TimeLeft_,"N/A"); 
Title= EncodeColor(16)+ " High = "+ EncodeColor(27) + WriteVal(H,dec) +
EncodeColor(16)+ "   Low = "+ EncodeColor(32)+ WriteVal(L,dec) + 
EncodeColor(16) +"  TimeLeft = "+ EncodeColor(29) +TimeLeft  +
EncodeColor(16)+ "   Volume = "+ EncodeColor(18)+ WriteVal(V,1);
_SECTION_END();

_SECTION_BEGIN("TSKPScoreCardColors");
Ctmpl= E_TSKPCOLORTMPL(Open,High,Low,Close,Volume);
total=0;
total=total+ IIf(tskp_colortmplcnd0 > 0, 1,-1); 
total=total+ IIf(tskp_colortmplcnd1 > 0, 1,-1); 
total=total+ IIf(tskp_colortmplcnd2 > 0, 1,-1); 
total=total+ IIf(tskp_colortmplcnd3 > 0, 1,-1); 
total=total+ IIf(tskp_colortmplcnd4 > 0, 1,-1); 
total=total+ IIf(tskp_colortmplcnd5 > 0, 1,-1); 
total=total+ IIf(tskp_colortmplcnd6 > 0, 1,-1); 
total=total+ IIf(tskp_colortmplcnd7 > 0, 1,-1); 
total=total+ IIf(tskp_colortmplcnd8 > 0, 1,-1); 

for(i=0; i < BarCount; i++ ) 
{
if( total[i] >= 5 )
Color[i]= colorBlue;
else if(total[i] <= -5 )
Color[i]=colorRed;
else
Color[i]=colorYellow;
} 
CO = Open;
CH = High;
CL = Low;
CC = Close;
PlotOHLC( CO,CH,CL,CC, "Price", color, styleCandle );//Plot Selected Ticker
_SECTION_END();

_SECTION_BEGIN("KP DynSupRes");
sw = E_TSKPSWINGLINE(High,Low,Close);
//tskp_sw, tskp_swmean,tskp_swupper,tskp_swlower
Plot(tskp_swmean,"Mean",ParamColor("MeanColor",colorBlack),ParamStyle("MeanStyle",styleThick) ); 
Plot(tskp_swupper,"Resistance",ParamColor("ResistanceColor",colorDarkRed),ParamStyle("ResistanceStyle",styleThick) ); 
Plot(tskp_swlower,"Support",ParamColor("SupportColor",colorDarkGreen),ParamStyle("SupportStyle",styleThick) ); 
_SECTION_END();

_SECTION_BEGIN("KP MeanSwingLine");
sw = E_TSKPSWINGLINE(High,Low,Close);
Plot(tskp_swmean,"Fat MeanSwing",ParamColor("FatColor",colorLightYellow),ParamStyle("FatStyle",styleLine),0,0,0,0,4); 
_SECTION_END();

_SECTION_BEGIN("KP TrendBias");
/* TSKPTrendBias with TSKPSEB */
Disp1=ParamToggle("Trend Bias","Show|Hide",1);
parmTBStyle = ParamStyle("Trend Bias Style", styleLine | styleThick, maskAll);
parmTBColor = ParamColor("Trend Bias Color", colorRed);
parmTBSlowStyle = ParamStyle("Trend Bias Slow Style", styleLine | styleThick, maskAll);
parmTBSlowColor = ParamColor("Trend Bias Slow Color", colorBlue);
dummy =  E_TSKPTRENDBIAS(High,Low,Close);
KPTB = tskp_sb;
KPTBSlow = tskp_tbxavg;
if(Disp1){
Plot(KPTB, "TB", parmTBColor, parmTBStyle); 
Plot(KPTBSlow, "TBSlow", parmTBSlowColor, parmTBSlowStyle); }
_SECTION_END();

_SECTION_BEGIN("KPAutoStop-KPA900 Trend");
Disp2=ParamToggle("KPAutoStop-KPA900 Trend","Show|Hide",0);
parmASStyle = ParamStyle("AutopStop Style", styleLine | 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 Pivots");
Disp4=ParamToggle("KP Pivots","Show|Hide",1);
parmKPPivotHighColor = ParamColor("KP Pivot High",colorBlack);
parmKPPivotLowColor = ParamColor("KP Pivot Low",colorBlack);
CHiPr=0; CLoPr=9999999; blsLong=0;
PrevCOBar=0; NumBars=0; PrePP=0;
PrevLowVal=9999999; BuySig=0; blsShort=0;
PrevHiVal=0; blsNewCO=0; BarDif=0;

KPA900Val = E_TSKPA900(Close);
KPAutoStopVal = E_TSKPAUTOSTOP(High,Low,Close);
// -- Create 0-initialized arrays the size of barcount
aHPivs= H - H; aLPivs= L - L;
aHiVal= H - H; aLoVal= L - L;

Ctmpl= E_TSKPCOLORTMPL(Open,High,Low,Close,Volume);
sctotal= 0;
sctotal= sctotal+ IIf(tskp_colortmplcnd0 > 0, 1, -1); 
sctotal= sctotal+ IIf(tskp_colortmplcnd1 > 0, 1, -1); 
sctotal= sctotal+ IIf(tskp_colortmplcnd2 > 0, 1, -1); 
sctotal= sctotal+ IIf(tskp_colortmplcnd3 > 0, 1, -1); 
sctotal= sctotal+ IIf(tskp_colortmplcnd4 > 0, 1, -1); 
sctotal= sctotal+ IIf(tskp_colortmplcnd5 > 0, 1, -1); 
sctotal= sctotal+ IIf(tskp_colortmplcnd6 > 0, 1, -1); 
sctotal= sctotal+ IIf(tskp_colortmplcnd7 > 0, 1, -1); 
sctotal= sctotal+ IIf(tskp_colortmplcnd8 > 0, 1, -1);

for (curBar=0; curBar < BarCount-1; curBar++)
{
if ( curBar == 0 )
{
CHiPr=High[curBar];
CHiBar=curBar;
CLoPr=Low[curBar];
CLoBar=curBar;
blsLong=0; blsShort=0;
blsNewCO=0; PrePP=0;
PrevCOBar=0;
PrevHiVal=High[curBar];
PrevLowVal=Low[curBar];
BuySig=0; SellSig=0; blsLL=0;
}
if (High[CurBar] >= CHiPr) {
CHiPr = High[CurBar];
ChiBar = CurBar;
}
if (Low[CurBar] <= CLoPr) {
CLoPr = Low[CurBar];
CLoBar = CurBar;
}
if ( (KPA900Val[curBar] >= KPAutoStopVal[curbar]) AND (PrePP != -1) AND (blsLong != 1) ){
BarDif = CurBar - PrevCOBar;
if (BarDif >= NumBars) {
blsLong=1; blsShort=0;
blsNewCO=1; PrevCOBar = CurBar;}
}
if ( (KPA900Val[curBar] <= KPAutoStopVal[curbar]) AND (PrePP != 1) AND (blsShort != 1) ){
BarDif = CurBar - PrevCOBar;
if (BarDif >= NumBars) {
blsLong=0; blsShort=1;
blsNewCO=1; PrevCOBar=CurBar;}
}
if ( (blsNewCO == 1) AND (sctotal[CurBar] >= 5) AND (blsLong == 1) ) {
LVal = CurBar - CLoBar;
for (j= CLoBar-1; j <= CLoBar+1; j++)
{
if (j >=0) {
aLPivs[j] = 1;
aLoVal[j] = CLoPr;}
}
PrePP=-1;
blsNewCO=0;
CHiPr=High[CurBar];
CHiBar=CurBar;
CLoPr=Low[Curbar];
CLoBar=CurBar;
} 
else if ((blsNewCO == 1) AND (sctotal[CurBar] <= -5) AND (blsShort == 1) ) {
HVal = CurBar - CHiBar;
for (j= CHiBar-1; j <= CHiBar+1; j++)
{		
if (j >=0) {
aHPivs[j] = 1;
aHiVal[j] = CHiPr;}
}
PrePP=1;
blsNewCO=0;
CHiPr=High[CurBar];
CHiBar=CurBar;
CLoPr=Low[Curbar];
CLoBar=CurBar;} 
}
if(Disp4){
PlotShapes(
IIf(aHPivs == 1,shapeSmallCircle,shapeNone),parmKPPivotHighColor,0,aHiVal+0.05,Offset=10);
PlotShapes(
IIf(aLPivs == 1,shapeSmallCircle,shapeNone),parmKPPivotLowColor,0,aLoVal-0.05,Offset=-10);}
_SECTION_END();

_SECTION_BEGIN("KP PivotPops");
Disp5=ParamToggle("KP PivotPops","Show|Hide",0);
parmKPPivPopBuyColor = ParamColor("KP PivotPop Buy",colorDarkBlue);
parmKPPivPopSellColor = ParamColor("KP PivotPop Sell",colorDarkRed);
BarCancl=Param("BarCancel",4,1,20,1);
frMeanSwing=Param("MeanSwing Filter",1,0,1,1); // 1- Use MeanSwing Filter, 0-Donot use MeanSwing Filter

KPA900Val = E_TSKPA900(Close);
KPAutoStopVal = E_TSKPAUTOSTOP(High,Low,Close);
//KPFast3Val = IIf((E_TSKPFAST3(Open,High,Low,Close,Volume)> 0),1, -1);
dummy = E_TSKPFAST2(Open,High,Low,Close,Volume);
KPFast2Val = IIf((tskp_fast2val1 > 0),1,-1);

UpperBand = BBandTop(Close,20,1);
LowerBand = BBandBot(Close,20,1);
swVal = E_TSKPSWINGLINE(High,Low,Close);
MeanSwingLnVal = tskp_swmean;

// -- Create 0-initialized arrays the size of barcount
aHPivs= H - H; aLPivs= L - L;
aHiVal= H - H; aLoVal= L - L;

Ctmpl = E_TSKPCOLORTMPL(Open,High,Low,Close,Volume);
sctotal = 0;
sctotal = sctotal  + IIf(tskp_colortmplcnd0 > 0, 1, -1); 
sctotal = sctotal  + IIf(tskp_colortmplcnd1 > 0, 1, -1); 
sctotal = sctotal  + IIf(tskp_colortmplcnd2 > 0, 1, -1); 
sctotal = sctotal  + IIf(tskp_colortmplcnd3 > 0, 1, -1); 
sctotal = sctotal  + IIf(tskp_colortmplcnd4 > 0, 1, -1); 
sctotal = sctotal  + IIf(tskp_colortmplcnd5 > 0, 1, -1); 
sctotal = sctotal  + IIf(tskp_colortmplcnd6 > 0, 1, -1); 
sctotal = sctotal  + IIf(tskp_colortmplcnd7 > 0, 1, -1); 
sctotal = sctotal  + IIf(tskp_colortmplcnd8 > 0, 1, -1);

for (CurBar=1; CurBar < BarCount-1; CurBar++)
{
if ( CurBar == 1 )
{
CHiPr = High[CurBar]; CHiBar = CurBar;
CLoPr = Low[CurBar]; CLoBar = CurBar;
blsLong = 0; blsShort = 0;
blsNewCO = 0; PrePP = 0; PrevCOBar = 0;
PrevHiVal = High[CurBar]; PrevLowVal = Low[CurBar];
BuySig = 0; SellSig = 0; CanclBar = 0;
}
if (High[CurBar] >= CHiPr) {
CHiPr = High[CurBar];
ChiBar = CurBar;
}
if (Low[CurBar] <= CLoPr) {
CLoPr = Low[CurBar];
CLoBar = CurBar;
}
if ( (KPA900Val[CurBar] > KPAutoStopVal[Curbar]) ){
if ( (blsLong!= 1) ){
blsNewCO = 1; SellSig = 0; blsLong = 1; blsShort = 0;
BarDif = CurBar - PrevCOBar;
if ( (BarDif >= NumBars) AND (PrePP != -1) AND (CLoPr >= PrevLowVal)){
PrevCOBar = CurBar;
CanclBar = CurBar + BarCancl; BuySig = 1;}}
}
else {
if ((blsShort != 1)) {
blsNewCO = 1; BuySig = 0; blsLong = 0; blsShort = 1;
BarDif = CurBar - PrevCOBar;
if ((BarDif >= NumBars) AND (PrePP != 1) AND (CHiPr <= PrevHiVal) ){
PrevCOBar = CurBar;
CanclBar = CurBar + BarCancl;
SellSig = 1;}}
}
if( (BuySig ==1) AND (CurBar <= CanclBar) AND (KPA900Val[curBar] >= KPAutoStopVal[curbar]) ){
if( (KPFast2Val[CurBar]  == 1) AND  (sctotal[CurBar] >= 5) AND (blsLong == 1)
AND (((frMeanSwing ==1 ) AND (Close[Curbar] > MeanSwingLnVal[Curbar])) OR (frMeanSwing==0)) AND (Close[Curbar] > UpperBand[CurBar])
AND (Close[Curbar] > Open[Curbar]) ){
aLPivs[Curbar] = 1;
aLoVal[Curbar] = Low[Curbar];
BuySig = 0;
}
else {
if ( (BuySig == 1) AND ((CurBar > CanclBar) OR  (KPA900Val[CurBar] < KPAutoStopVal[Curbar]) ) ){
BuySig = 0;}}
}
else BuySig = 0;
if( (SellSig ==1) AND (CurBar <= CanclBar) AND (KPA900Val[CurBar] <= KPAutoStopVal[Curbar]) ){
if( (KPFast2Val[CurBar]  == -1) AND  (sctotal[CurBar] <= -5) AND (blsShort == 1) 
AND (((frMeanSwing ==1 ) AND (Close[Curbar] < MeanSwingLnVal[Curbar])) OR (frMeanSwing==0)) AND (Close[Curbar] < LowerBand[CurBar]) 
AND (Close[Curbar] < Open[Curbar]) ){

aHPivs[Curbar] = 1;
aHiVal[Curbar] = High[Curbar];
SellSig = 0;
}
else {
if ( (SellSig == 1) AND ((CurBar > CanclBar) OR  (KPA900Val[CurBar] > KPAutoStopVal[Curbar]) ) ){
SellSig = 0;}}
}
else SellSig = 0;
if ( (blsNewCO == 1) ) { 
if ((sctotal[CurBar] >= 5) AND (blsLong == 1) AND (PrePP != -1) ) {
blsNewCO = 0; PrePP = -1; PrevLowVal = CLoPr;
CHiPr = High[CurBar]; CHiBar = CurBar;
CLoPr = Low[Curbar]; CLoBar = CurBar;
} 
else 
if ( (sctotal[CurBar] <= -5) AND (blsShort == 1) AND (PrePP != 1) ) {
blsNewCO = 0; PrePP = 1;
PrevHiVal = CHiPr;
CHiPr = High[CurBar]; CHiBar = CurBar;
CLoPr = Low[CurBar]; CLoBar = CurBar;} }
}
if(Disp5){
PlotShapes(
IIf(aHPivs == 1,  shapeDownArrow,shapeNone), parmKPPivPopSellColor ,0, aHiVal+0.00, Offset = -20);
PlotShapes(
IIf(aLPivs == 1,  shapeUpArrow,shapeNone), parmKPPivPopBuyColor,0, aLoVal-0.00, Offset = -20);}
_SECTION_END();

_SECTION_BEGIN("KP MoMo's");
/**********************************************************************************************************
This is a  Price Study that displays a DOT based on the folowing:
For a long signal:
    ScoreCardColor is Blue
    KPMedium > Moving Average of KPMedium
    KPFast2 > 0
    KPFast3 > 0
    KPTriggerLine > KPStopLine
    
For a short signal:
    ScoreCardColor is Red
    KPMedium < Moving Average of KPMedium
    KPFast2 < 0
    KPFast3 < 0
    KPTriggerLine < KPStopLine

This signal will reassert itself i.e., display again if one of more of the conditions that trigger go away
and then return to the trigger state.

Note:  This indicator is calculated at the completion of a price bar.  This is different than 
some indicators where the values are calculated/updated upon the arrival
of every tick.  
************************************************************************************************************/

Disp6=ParamToggle("KP MoMo's","Show|Hide",0);
parmMoUpColor = ParamColor("MoUpColor", colorAqua);
parmMoDnColor = ParamColor("MoDnColor", colorRed);
blsLong = 0;
KPStopLine = E_TSKPSTOPLINE(High,Low,Close);
// tskp_upsell, tskp_triggerline, tskp_triggerlinevma
sw = E_TSKPUPSELL(Open,High,Low,Close,Volume);
KPTriggerLine = tskp_triggerline;
KPFast3Val = IIf((E_TSKPFAST3(Open,High,Low,Close,Volume)> 0),1, -1);
//tskp_fast2val1, tskp_fast2val2
dummy = E_TSKPFAST2(Open,High,Low,Close,Volume);
KPFast2Val = IIf ((tskp_fast2val1 > 0),1,-1); 

// tskp_mediumma,tskp_mediumup,tskp_mediumdown
dummy = E_TSKPMEDIUM(Close);
KPMediumUP = tskp_mediumup;
KPMediumDwn = tskp_mediumdown;
KPMediumMA = tskp_mediumma;

for (curBar=5; curBar < BarCount-1; curBar++)
{
if( (blsLong == -1) OR (blsLong == 0))
{
if ((sctotal[CurBar]  >= 5) AND (KPMediumUP[CurBar]  > KPMediumMA[CurBar] ) AND (KPFast3Val[CurBar]  == 1) AND 
(KPFast2Val[CurBar]  == 1) AND (KPTriggerLine[CurBar]  >= KPStopLine[CurBar] ))
{
blsLong = 1;
aLPivs[CurBar] = 1;
aLoVal[CurBar] = Low[CurBar];}
}
if( (blsLong == 1) OR (blsLong == 0))
{
if ((sctotal[CurBar]  <= -5) AND (KPMediumDwn[CurBar]  < KPMediumMA[CurBar] ) AND (KPFast3Val[CurBar]  == -1) AND 
(KPFast2Val[CurBar]  == -1) AND (KPTriggerLine[CurBar]  <= KPStopLine[CurBar] ))
{
blsLong = -1;
aHPivs[Curbar] = 1;
aHiVal[Curbar] = High[Curbar];}
}
if ((blsLong == 1) AND ((sctotal[CurBar]  < 5) OR (KPMediumUP[CurBar]  < KPMediumMA[CurBar] )  OR  
(KPFast2Val[CurBar]  < 1)  OR  (KPFast3Val[CurBar]  < 1) OR (KPTriggerLine[CurBar]  < KPStopLine[CurBar] )) )
{
blsLong= 0;
}
if ((blsLong == -1) AND ((sctotal[CurBar]  > -5)  OR  (KPMediumDwn[CurBar] > KPMediumMA[CurBar] )  OR  
(KPFast2Val[CurBar]  > -1)  OR (KPFast3Val[CurBar]  > -1)  OR 
(KPTriggerLine[CurBar]  > KPStopLine[CurBar] )) )
{
blsLong = 0;}}
if(Disp6){
PlotShapes(
IIf(aHPivs == 1,shapeDownArrow,shapeNone),parmMoDnColor,0,aHiVal+0.00,Offset=-30);
PlotShapes(
IIf(aLPivs == 1,shapeUpArrow,shapeNone),parmMoUpColor,0,aLoVal-0.00,Offset=-30);}
_SECTION_END();

_SECTION_BEGIN("KP PushDots");
Disp7=ParamToggle("KP PushDots","Show|Hide",0);
parmPDBuyColor = ParamColor("PDBuyColor", colorWhite);
parmPDSellColor = ParamColor("PDSellColor", colorDarkRed);
Combo = E_TSKPCOMBO(Open,High,Low,Close,Volume);
NewUpDown = E_TSKPNEWUPDOWN(Open,High,Low,Close,Volume);
UpDown7 = 0.5*(High+Low) - E_TSKPSTOPLINE(High,Low,Close);
if(Disp7){
PlotShapes( IIf( ((Combo>0) AND (NewUpDown > 0) AND (UpDown7 > 0)),shapeSmallCircle,shapeNone), parmPDBuyColor,0, Low, -10);
PlotShapes( IIf( ((Combo<0) AND (NewUpDown < 0) AND (UpDown7 < 0)),shapeSmallCircle,shapeNone), parmPDSellColor,0, High, 10);}
_SECTION_END();

_SECTION_BEGIN("KP PowerPops");
Disp8=ParamToggle("KP PowerPops","Show|Hide",0);
parmPPHighColor = ParamColor("PPHighColor", colorYellow);
parmPPLowColor = ParamColor("PPLowColor", colorYellow);
blsLong = 0;

KP115Val = E_TSKP115SPLIT(High,Low,Close);
KP104Val = E_TSKP104(High,Low,Close); 
dummy = E_TSKPMEDIUM(Close);
KPMediumUpVal = tskp_mediumup;
KPMediumDnVal = tskp_mediumdown;
UpperBand = BBandTop(Close,20,1);
LowerBand = BBandBot(Close,20,1);
swVal = E_TSKPSWINGLINE(High,Low,Close);
MeanSwingLnVal = tskp_swmean;

for (curBar=5; curBar < BarCount-1; curBar++)
{
if (blsLong != 1) {
if( (sctotal[curBar] >= 5) AND (KPMediumUpVal[curBar] > 1.75) AND (Close[curBar] > UpperBand[curBar]) 	
AND (Close[curBar] > KP115Val[curBar]) AND (Close[curBar] > KP104Val[curBar]) 
AND (High[curBar] > High[curBar-3]) AND (Close[curBar] > Close[curBar-3]) 
AND (Close[CurBar] > MeanSwingLnVal[CurBar] ) ){
blsLong = 1;
aLPivs[curBar] =1;
aLoVal[curBar] = Low[curBar];}
}
else if (blsLong != -1) {
if( (sctotal[curBar] <= -5) AND (KPMediumDnVal[curBar] < -1.75) AND (Close[curBar] < LowerBand[curBar]) 	
AND (Close[curBar] < KP115Val[curBar]) AND (Close[curBar] < KP104Val[curBar]) 
AND (Low[curBar] < Low[curBar-3]) AND (Close[curBar] < Close[curBar-3])
AND (Close[curBar] < MeanSwingLnVal[curBar] ) ){
blsLong = -1;
aHPivs[curBar] =1;
aHiVal[curBar] = High[curBar];}}}
if(Disp8){
PlotShapes(
IIf(aHPivs == 1,shapeDownArrow,shapeNone),parmPPHighColor,0,aHiVal+0.00, Offset = -35);
PlotShapes(
IIf(aLPivs == 1,shapeUpArrow,shapeNone),parmPPLowColor,0,aLoVal-0.00, Offset = -35);}
_SECTION_END();

_SECTION_BEGIN("KP Combo");
Disp9=ParamToggle("KP Combo","Show|Hide",0);
Combo = E_TSKPCOMBO(Open,High,Low,Close,Volume);
if(Disp9){
PlotShapes(
IIf( Combo>0, shapeUpArrow, 
IIf(combo<0,shapeDownArrow,shapeNone)), 
IIf(combo>0,colorBlue,colorRed),0,IIf( Combo>0, Low, High ) ); }
_SECTION_END();

_SECTION_BEGIN("KP New UpDown");
Disp10=ParamToggle("KP NewUpDown","Show|Hide",1);
NewUpDown = E_TSKPNEWUPDOWN(Open,High,Low,Close,Volume);
if(Disp10){
PlotShapes( 
IIf( NewUpDown >0, shapeSmallCircle, IIf(NewUpDown <0, shapeSmallCircle+shapePositionAbove,shapeNone)), 
IIf(NewUpDown >0,colorBlue,colorRed),0,IIf( NewUpDown >0, Low, High ) ); }
_SECTION_END();

_SECTION_BEGIN("KP UpDown");
Disp11=ParamToggle("KP UpDown","Show|Hide",0);
updown7 = 0.5*(High+Low) - E_TSKPSTOPLINE(High,Low,Close);
if(Disp11){
PlotShapes( 
IIf( updown7 >0, shapeUpArrow, IIf(updown7 <0,shapeDownArrow,shapeNone)), 
IIf(updown7 >0,colorBlue,colorRed),0,IIf( updown7 >0, Low, High ) ); }
_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",ColorRGB(238,207,161),styleCloud|styleNoLabel);}
_SECTION_END();

_SECTION_BEGIN("KP M Range");
mp=0.5*(High + Low);
tightstop=E_TSKPTIGHTSTOP(High,Low,Close);
stopline=E_TSKPSTOPLINE(High,Low,Close);
Color=colorWhite;
for( i = 0; i < BarCount; i++ ) 
{ 
if( mp[i] > stopline[i] && mp[i] > tightstop[i]  )
Color[i] = colorBlue;
else if(  mp[i] < stopline[i] && mp[i] < tightstop[i])
Color[i] = colorRed;
else
Color[i] = colorWhite;
} 
Plot(0,"MRange0",Color,styleOwnScale|styleArea|styleNoLabel,0, 90 );
Plot(1,"MRange1",Color,styleOwnScale|styleArea|styleNoLabel,0, 90 );
_SECTION_END();

_SECTION_BEGIN("KP TrendBias BackGround");
//Plot Tone
parmToneColorUp=ParamColor("Tone Color Up", colorLightBlue );
parmToneColorDn=ParamColor("Tone Color Dn", colorTan);
RibbonSize=Param("Ribbon Size",10,0.5,10,0.5);
Plot( RibbonSize,"Tone",IIf(KPTB > KPTBSlow,parmToneColorUp,parmToneColorDn),styleOwnScale|styleArea|styleNoLabel,0,10);
_SECTION_END();

14 comments

1. buchacek
almost 12 years ago

Why don’t you re-code it so it doesn’t need to use kpami.dll plug in instead.

Report as Spam
2. Anonymous
almost 12 years ago

Why should I? There are a lot of formulas here using kpami.dll. Like Southwind, etc…
Also I can’t crack the dll and I think the coding get’s longer.
With the dll it loads faster.

Regards an happy new year!

Report as Spam
3. velmont
almost 12 years ago

LN:63, COL: 115 ; ERROR 16. TOO MANY ARGUMENTS

WAT SHLD I SUPPOSE TO DO ?

Report as Spam
4. sjagadish4u
almost 12 years ago

THERE R FOUR ZEROS IN “KP MEAN SWING LINE” REMOVE ONE ZERO AND COMMA AND CLICK APPLY INDICATOR

Report as Spam
5. buchacek
almost 12 years ago

The only useful is that KP System V1. The rest is useless and overdone. Thanks for posting.

Report as Spam
6. buchacek
almost 12 years ago

Taking my words back. You’ve don a great job sharing this system with us. All it needs is to see a several instructional videos.
Thanks again

Report as Spam
7. buchacek
almost 12 years ago

Go to :

http://www.kwikpop.com/

and watch Lone Wolf Pattern Video. Great stuff this indicator. Also make your candles in Amibroker as – Use distinct color for body outline only in your preferences-Colors.
Thanks for this indicator again.

Report as Spam
8. godisbogus
almost 12 years ago

Thanks a million for your excellent job ceurami. Could you please share KP SNAPBACK indicator? That is the only thing missing. Please…..

Report as Spam
9. buchacek
almost 12 years ago

If anybody can create hollow candles in KwikPOP colors that would be great.

Report as Spam
10. buchacek
almost 12 years ago

godisbogus- why don’t you use KP S906 and S907 instead of snapback? It works exactly the same.
Turn white oscillator sticks to a line and use it exactly as you would SNAPBACK. The same thing.

Report as Spam
11. kitika
almost 12 years ago

no body is having proper formula or if any body is having 100% accuracy formula or 80% accuracy plz ail me on my id choudhary.neeta123@gmail.com

Report as Spam
12. anand23983
almost 12 years ago

Sir please post entry and exit rules

Report as Spam
13. buchacek
over 11 years ago

Hi ceurami,
Dynamic Support/Resistance lines adjust late to show HPL and LPH. It should adjust when the new Pivot is reached ,then when A900 Line crosses Autostop line and FIRST blue candle closes above(or RED candle below-depending on up/down condition) Autostop. In Your code it adjusts when THIRD blue candle closes above Autostop (or third red candle closes below Autostop) and that is too late for either HPL or LPH to show up and trade on it. This cannot be changed unless it is changed in KwikPOP kpami plugin or in original setting. It would be good if you have an access to original code to change number of blue candles that close above Autostop line to ONE instead of THREE.
Then Shapes could be added for LPH and HPL and proper color of the S/R Lines ( blue-white and red-white) so we could trade according to KwikPOP videos.
Also, in calculating Pivots you use scorecard colors calculation when you already have it before thus in one afl you calculate this twice and that is slowing the formula as especially this calculation takes a lot of time. You can reduce this to one calculation only and save the time. I personally don’t use these pivots rather I have shapes done in S/R lines to show the uptrend and downtrends (New Pivots High and Low) and shapes for LPH and HPL as it is used this way in KwikPOP videos.
Also blue-white and red-white lines.

Report as Spam
14. aqeel
over 9 years ago

LOTS OF ERRER SIR JI IAM USING AMI 5.70

Report as Spam

Leave Comment

Please login here to leave a comment.

Back

We try to maintain hiqhest possible level of service - most formulas, oscillators, indicators and systems are submitted by anonymous users. Therefore www.WiseStockTrader.com does not take any responsibility for it's quality. If you use any of this information, use it at your own risk. You are responsible for your own trading decisions. Be sure to verify that any information you see on these pages is correct, and is applicable to your particular trade. In no case will www.WiseStockTrader.com be responsible for your trading gains or losses.

News Contact Us Terms and Conditions Privacy Policy