pluggin in amibroker

johnnypareek

Well-Known Member
#12
KP- Fast1
HTML:
_SECTION_BEGIN("KP Fast 1");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
//tskp_fast1val1, tskp_fast1val2, tskp_fast1val3, tskp_fast1val4
dummy=E_TSKPFAST1(Open,High,Low,Close,Volume);
//Histogram
Plot(tskp_fast1val1,"Fast1_1",ParamColor("Fast1_1Color",colorBlue),ParamStyle("Fast1_1Style",styleHistogram|styleThick,maskHistogram));
Plot(tskp_fast1val2,"Fast1_2",ParamColor("Fast1_2Color",colorRed),ParamStyle("Fast1_2Style",styleHistogram|styleThick,maskHistogram));
//Lines
Plot(tskp_fast1val3,"Fast1_3",ParamColor("Fast1_3Color",colorYellow),ParamStyle("Fast1_3Style",styleLine|styleThick));
Plot(tskp_fast1val4,"Fast1_4",ParamColor("Fast1_4Color",colorCustom11),ParamStyle("Fast1_4Style",styleLine|styleThick));
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title =FullName();
_SECTION_END();
KP FAST2

HTML:
_SECTION_BEGIN("KP Fast 2");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
//tskp_fast2val1, tskp_fast2val2
dummy=E_TSKPFAST2(Open,High,Low,Close,Volume);
Plot(tskp_fast2val1,"Fast2_1",ParamColor("ColorUp",colorBlue),ParamStyle("Style",style=styleHistogram|styleThick,maskDefault)); 
Plot( tskp_fast2val2,"Fast2_2",ParamColor("ColorDown",colorRed),ParamStyle("Style",style=styleHistogram|styleThick,maskDefault)); 
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title =FullName();
_SECTION_END();

KP-FAST3

HTML:
_SECTION_BEGIN("KP Fast 3 Line or Histogram");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
//r[0] = mydll.call("E_GETRETURN",stateID,0);
//r[1] = Math.max(r[0],0);
Line = ParamToggle("Line or Histogram","Histogram|Line",1);
// tskp_mediumma,tskp_mediumup,tskp_mediumdown
fast3 = E_TSKPFAST3(Open,High,Low,Close,Volume);
Color = IIf(fast3>0,colorBlue,colorRed);
//Line or Histogram
if (Line)
Plot( fast3,"Fast3",Color,styleThick|styleNoLabel);
else
Plot(fast3,"Fast3",Color,styleHistogram|styleThick|styleNoLabel);
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title =FullName();
_SECTION_END();
KP Medium All Histogram


HTML:
_SECTION_BEGIN("KP Medium All Histogram");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
// tskp_mediumma,tskp_mediumup,tskp_mediumdown
dummy = E_TSKPMEDIUM(Close);
Plot(tskp_mediumup,"MediumUp",ParamColor("UpColor",colorBlue ),ParamStyle("UpStyle",styleHistogram|styleThick,maskHistogram));
Plot(tskp_mediumdown,"MediumDown",ParamColor("DownColor",colorRed ),ParamStyle("DownStyle",styleHistogram|styleThick,maskHistogram));
Plot(tskp_mediumma,"MediumMA",ParamColor("MAColor",colorWhite ),ParamStyle("MAStyle",styleHistogram|styleThick,maskHistogram));
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title=FullName();
_SECTION_END();
 
#15
KP SnapBack With Trend Bias Background of Kwik Pop.

Code:
_SECTION_BEGIN("KPSnapBack");

LenDPO = 8;

Len1=8;
Len2=16;
Len3=3;

sw = E_TSKPUPSELL(Open,High,Low,Close,Volume);
KPTriggerLine = tskp_triggerline;
Detrend = KPTriggerLine - MA(KPTriggerLine, LenDPO);	//Detrend KPTriggerLine
Detrend1 = EMA(Detrend, Len1);
Detrend2 = EMA(Detrend, Len2);
KPSnapBack = EMA(Detrend, Len3);

Color = IIf(KPSnapBack > Detrend2, colorBlue, 
        IIf(KPSnapBack < Detrend2, colorRed, colorGrey40));
 
Plot(WMA( KPSnapBack , 6), "Smoothed", colorWhite);

Plot (KPSnapBack, "KPSnapBack", Color, styleHistogram|styleThick);
Plot(0, "", colorDarkGrey);
//--Created by Kelvinhand
_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,"",IIf(KPTB > KPTBSlow,parmToneColorUp,parmToneColorDn),styleOwnScale|styleArea|styleNoLabel,0,10);
_SECTION_END();
 

Similar threads