KPBB htrsystem for Amibroker (AFL)

kp band advance fully utilized…..enjoy
little bit heavy…

bbm = ParamToggle(“bbma”,”Show|Hide”,1);
bbms = ParamToggle(“bbms”,”Show|Hide”,0);
skip = ParamToggle(“skip”,”Show|Hide”,0);
font = ParamToggle(“font”,”Show|Hide”,1);
messageboard = ParamToggle(“Message Board”,”Show|Hide”,1);
prexplore= ParamToggle(“perce/buysell”,”pers|buysell”,1);
bslable= ParamToggle(“bslable”,”Show|Hide”,1);
trigercloud=ParamToggle(“trigercloud”,”Show|Hide”,1);
Dispa=ParamToggle(“KP Standard Bands”,”Show|Hide”,1);
Disp2=ParamToggle(“KPAutoStop-KPA900 Trend”,”Show|Hide”,1);
Disp3=ParamToggle(“KPStopLine-KPTriggerLine”,”Show|Hide”,1);
_SECTION_BEGIN (“TSI”);
r = Param (“TSI period ‘Length’:”, 4, 1, 100, 1);
s = Param (“TSI period ‘Smoothing’:”, 18, 1, 100, 1 );
u = Param (“TSI period ‘Smoothinga’:”, 16, 1, 100, 1);
sig = Param (“Signal period:”, 6, 1, 100, 1);
Mtm = C – Ref (C , -1);
AbsMtm = abs (Mtm);
Num_T = EMA (EMA (EMA (Mtm, r), s), u);
Den_T = EMA (EMA (EMA (AbsMtm, r), s), u);
TSI = 500 * Nz (Num_T / Den_T);
Tsicolor = IIf (tsi> Ref (tsi, -1), colorBrightGreen, colorRed);
//Show_color = ParamToggle(“Display CandleColor”, “No|Yes”, 1);
Smooth11=Param(“Smooth11”,3,2,100,1);
Smooth21=Param(“Smooth21”,5,2,100,1);
Smooth31=Param(“Smooth31”,8,2,100,1);
Smooth41=Param(“Smooth41”,18,2,100,1);
Smooth51=Param(“Smooth51”,11,2,100,1);
Smooth61=Param(“Smooth61”,11,2,100,1);
x1=EMA(C,Smooth11);
y1=MA(C,Smooth21);
z1=MA(C,Smooth51);
E_TSKPUPSELL=TSF(z1,Smooth61);
E_TSKPA900=TSF(x1,Smooth31);
tskp_triggerline=TSF(y1,Smooth41);
//P = ParamField(“Price field”,-1);
//Smooth1=Param(“Smooth1”,3,2,100,1);
//Smooth2=Param(“Smooth2”,5,2,100,1);
Smooth3=Param(“Smooth3”,10,2,100,1);
Smooth4=Param(“Smooth4”,11,2,100,1);
Var1=E_TSKPA900;
Var2=tskp_triggerline;
Colora=IIf(Var1 >Var2,colorBlue,colorRed);
Colorb=IIf(Var1 >Var2,colorBrightGreen,colorRed);
_SECTION_BEGIN(“KPAutoStop-KPA900 Trend”);
//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(skip==1){
PlotGrid ( 200 , colorLightGrey );
PlotGrid (- 200 , colorLightGrey );
Plot (TSI, “TSI (” + r + “,” + s + “,” + u + “)”, Tsicolor, ParamStyle (“Style”) | styleThick +8);
Plot (EMA (TSI, sig), “”, ParamColor (“color”, colorYellow), styleLine | styleThick +8);
Plot (0, “”, colorWhite, styleLine | styleThick); PlotGrid (200, colorLightGrey);
//PlotGrid (-200, TSI,-15);
_SECTION_END ();
}else{
//—- heikin ashi
py = Param(“pc”, 9, 0, 100,1 );
HaClose = (EMA(O,py)+EMA(H,py)+EMA(L,py)+EMA(C,py))/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
xDiff = (HaHigh – Halow) * IIf(StrFind(Name(),”JPY”),100,10000);
barcolor = IIf(HaClose >= HaOpen,colorBrightGreen,colorOrange);
PlotOHLC( HaOpen, Haopen, Haclose, HaClose, “”, barcolor, styleCandle );
// Plot(EMA(HaClose,9),””,colorWhite, styleLine);
// Plot(EMA(HaClose,18),””,colorBlack, styleLine);
if(bbm==0){
_SECTION_BEGIN(“MA1”);
P = ParamField(“Price field”,-1);
Periods = Param(“Periods”, 12, 2, 200, 1, 1 );
bb=MA( P, Periods );
bbcolor = IIf (Avg> Ref (bb, -1), colorWhite, colorRed);
Plot( bb, _DEFAULT_NAME(),bbcolor ,ParamStyle(“Style”) );
_SECTION_END();
_SECTION_BEGIN(“Bollinger Bands”);
P = ParamField(“Price field”,-1);
Periods = Param(“Periods”, 15, 2, 100, 1 );
Width = Param(“Width”, 2, 0, 10, 0.05 );
//Color = ParamColor(“Color”, colorCycle );
bbcolor1 = IIf (Avg> Ref (bb, -1), colorBrightGreen, colorRed);
Style = ParamStyle(“Style”);
Plot( BBandTop( P, Periods, Width ), “BBTop” + _PARAM_VALUES(), bbcolor1, Style );
Plot( BBandBot( P, Periods, Width ), “BBBot” + _PARAM_VALUES(), bbcolor1, Style );
_SECTION_END();}
//Buy=Cover=(Cross(Tsicolor==colorBrightGreen,Tsicolor==colorRed));
//Sell=Short=(Cross(Tsicolor==colorRed,Tsicolor==colorBrightGreen));
//Cover=Buy;
//Short=Sell;
if(bbms==0){
if(Disp2==1){
//Plot( E_TSKPAUTOSTOP(High,Low,Close) ,”KP AutoStop”,parmASColor, parmASStyle);
Plot( E_TSKPA900 , “KP A900”, parmPA900Color, parmPA900Style);}
_SECTION_END();
_SECTION_BEGIN(“KPStopLine-KPTriggerLine”);
//parmSLStyle = ParamStyle(“KPStopLine Style”, styleLine | styleThick, maskAll);
//parmSLColor = ParamColor(“KPStopLine Color”, colorRed);
parmTLStyle = ParamStyle(“KPTriggerLine Style”, styleLine | styleThick, maskAll);
parmTLColor = ParamColor(“KPTriggerLine Color”, colorYellow);
sw = E_TSKPUPSELL;
if(Disp3){
//Plot( E_TSKPSTOPLINE(High,Low,Close) , “KPStopLine”, parmSLColor,parmSLStyle );
Plot( tskp_triggerline, “KPTriggerLine”, parmTLColor,parmTLStyle ); }
_SECTION_END();
_SECTION_BEGIN(“KP Trigger Cloud”);
if(trigercloud==1){
PlotOHLC(Var1,Var1,Var2,Var2,”Cloud”,Colora,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 ;
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));
if(Dispa==1){
PlotOHLC( UpperBand,UpperBand,LowerBand,LowerBand,”Band”,ParamColor( “Color”, colorTan ),styleCloud|styleNoLabel);
}
_SECTION_BEGIN(“Price Line”);
PriceLineColor=ParamColor(“PriceLineColor”,ColorRGB(82,82,82));
PriceLevel = ParamField(“PriceField”, field = 3 );
Daysback = Param(“Bars Back”,100,10,500,1);
FirstBar = BarCount – DaysBack;
YY = IIf(BarIndex() >= Firstbar,EndValue(PriceLevel),Null);
Plot(YY,”Current Price”,PriceLineColor,ParamStyle(“LineStyle”,styleLine|styleDashed|styleNoTitle|styleNoLabel|styleThick,maskAll));
side = Param(“side”,1,0,1000,1);
dist = 0;
for( i = 0; i < BarCount; i++ )
{
if(i+side== BarCount) PlotText( “\n ” + PriceLevel[ i ], i, YY[ i ]-dist[i], colorLightBlue );
}
_SECTION_END();
_SECTION_END();
}
_SECTION_BEGIN(“KP TrendBias BackGround”);//Plot Tone
dummy = Var1;
KPTB = Var2;
KPTBSlow = MA(Var1,Var2);
parmToneColorUp= Colorb ;
parmToneColorDn=ParamColor(“Tone Color Dn”, colorTan);
RibbonSize=Param(“Ribbon Size”,1,0.5,10,0.5);
Plot( RibbonSize,”Tone”,IIf(KPTB > KPTBSlow,parmToneColorUp,parmToneColorDn),styleOwnScale|styleArea|styleNoLabel,0,10);
Buy=Cover=(Cross(E_TSKPA900,tskp_triggerline));
Sell=Short=(Cross(tskp_triggerline,E_TSKPA900));
Cover=Buy;
Short=Sell;
if(font==0)
{
_SECTION_BEGIN(“Name”);
GfxSetOverlayMode(0);
GfxSelectFont(“Tahoma”, Status(“pxheight”)/8 );
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( ColorHSB( 42, 42, 42 ) );
GfxSetBkMode(0); // transparent
GfxTextOut( Name(), Status(“pxwidth”)/2, Status(“pxheight”)/12 );
GfxSelectFont(“Tahoma”, Status(“pxheight”)/18 );
GfxTextOut(“” , Status(“pxwidth”)/2, Status(“pxheight”)/4 );
GfxSelectFont(“Tahoma”, Status(“pxheight”)/18 );
GfxSelectFont(“Tahoma”, Status(“pxheight”)/36 );
GfxTextOut( “”, Status(“pxwidth”)/2, Status(“pxheight”)/3 );
_SECTION_END();
//Magfied Market Price
GfxSetTextAlign( 6 );// center alignment
FS=Param(“Font Size”,72,11,100,1);
GfxSelectFont(“Times New Roman”, FS, 700, True );
GfxSetBkMode(0); // transparent
GfxSetTextColor( ColorHSB( 42, 42, 42 ) );
Hor=Param(“Horizonta Position”,615,1,1200,1);
Ver=Param(“Vertica Position”,152,1,830,1);
GfxTextOut(“”+C, Hor , Ver );
YC=TimeFrameGetPrice(“C”,inDaily,-1);
DD=Prec(C-YC,2);
GfxSetTextAlign( 6 );// center alignment
xx=Prec((DD/YC)100,2); FS2=Param(“Font Size2”,35,11,100,1); GfxSelectFont(“Times New Roman”, FS2,11, 700, True ); GfxSetBkMode( colorBlack ); Hor1=Param(“Horizontal Position”,615,1,1200,1); Ver1=Param(“Vertical Position”,188,1,830,1); GfxSetTextColor( ColorHSB( 42, 42, 42 ) ); GfxTextOut(“”+DD+” (“+xx+”%)”, Hor1 , Ver1+45 ); } else {{ //Magfied Market Price GfxSetTextAlign( 6 );// center alignment fse=Param(“Font Sizee”,35,11,100,1); GfxSelectFont(“Times New Roman”, fse, 700, True ); GfxSetBkMode( colorGold ); GfxSetTextColor( ParamColor(“Color”,colorGold) ); Hora=Param(“Horizontal Positiona”,525,1,1200,1); Vera=Param(“Vertical Positiona”,17,1,830,1); GfxTextOut(“”+C, Hora , Vera ); YCa=TimeFrameGetPrice(“C”,inDaily,-1); DDa=Prec(C-YCa,2); GfxSetTextAlign( 6 );// center alignment xxa=Prec((DDa/YCa)100,2);
FSb=Param(“Font Sizeb”,16,11,100,1);
GfxSelectFont(“Times New Roman”,fsb, 700, True );
GfxSetBkMode( colorBlack );
GfxSetTextColor(ParamColor(“Color”,colorYellow) );
GfxTextOut(“”+DDa+” (“+xxa+”%)”, Hora , Vera+45 );
_SECTION_END();
}}
PlotShapes( Buy * shapeUpArrow + Sell * shapeDownArrow, IIf( Buy, colorWhite, colorYellow ) );
PlotShapes( Buy * shapeUpTriangle + Sell * shapeDownTriangle, IIf( Buy, colorWhite, colorYellow ) );
PlotShapes( Buy * shapeHollowSmallCircle + Sell * shapeHollowSmallCircle, IIf( Buy, colorWhite, colorYellow ));
PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorGreen);
PlotShapes(IIf(Buy,shapeHollowUpArrow,shapeNone),colorWhite);
PlotShapes(IIf(Buy,shapeHollowSmallCircle,shapeNone),colorWhite);
PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colorRed);
PlotShapes(IIf(Sell,shapeHollowDownArrow,shapeNone),colorWhite);
PlotShapes(IIf(Sell,shapeHollowSmallCircle,shapeNone),colorWhite);
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
AlertIf( Buy, “”, “BUY @ ” + C, 1 );
AlertIf( Sell, “”, “SELL @ ” + C, 2 );
no=Param( “Swing”, 8, 1, 55 );
tsl_col=ParamColor( “Color”, colorLightGrey );
res=HHV(H,no);
sup=LLV(L,no);
avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
avn=ValueWhen(avd!=0,avd,1);
tsl=IIf(avn==1,sup,res);
no = Optimize(“TSL”,Param(“A (Change To Optimise)”,10, 1, 55 ,1),1, 55 ,1);
tsl_col=ParamColor( “Color”, colorLightGrey );
res=HHV(H,no);
sup=LLV(L,no);
avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
avn=ValueWhen(avd!=0,avd,1);
dtsl=IIf(avn==1,sup,res);
SellPrice=ValueWhen(Short,C,1);
BuyPrice=ValueWhen(Buy,C,1);
Long=Flip(Buy,Sell);
Shrt=Flip(Short,Cover);
Relax = NOT Long AND NOT Buy AND NOT shrt AND NOT Sell AND NOT Sell AND NOT Cover;
SellSL=ValueWhen(Short,DTSL,1);
BuySL=ValueWhen(Buy,DTSL,1);
BuyDifference= BuyPrice – BuySL;
SellDifference = SellSL – SellPrice;
tar1 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + BuyDifference), (SellPrice – SellDifference));
tar2 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + (2BuyDifference)), (SellPrice – (2SellDifference)));
tar3 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + (4BuyDifference)), (SellPrice – (4SellDifference)));
CloseAtEnd = ParamToggle(“Close Positions EOD”, “No|Yes”);
stopreverse =ParamToggle(“Switch To Stop And Reverse”,”No|Yes”,0);
Trend = ATR(21) < StDev (C,21); Range = ATR(21) > StDev (C,21);
no=10;
C13=20;
C14=2.1;
C15=12;
tsl_col=ParamColor( “Color”, colorLightGrey );
res=HHV(H,no);
sup=LLV(L,no);
avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
avn=ValueWhen(avd!=0,avd,1);
dtsl=IIf(avd==1,sup,res);
SellPrice=ValueWhen(Short,C,1);
BuyPrice=ValueWhen(Buy,C,1);
Long=Flip(Buy,Sell);
Shrt=Flip(Short,Cover);
Relax = NOT Long AND NOT Buy AND NOT shrt AND NOT Sell AND NOT Sell AND NOT Cover;
SellSL=ValueWhen(Short,DTSL,1);
BuySL=ValueWhen(Buy,DTSL,1);
BuyDifference= BuyPrice – BuySL;
SellDifference = SellSL – SellPrice;
//tar1 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + BuyDifference), (SellPrice – SellDifference));
//tar2 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + (2BuyDifference)), (SellPrice – (2SellDifference)));
//tar3 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + (4BuyDifference)), (SellPrice – (4SellDifference)));
buyach1 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > tar1, 0);
buyach2 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > tar2 , 0);
buyach3 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > tar3, 0);
sellach1 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < tar1 , 0);
sellach2 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < tar2, 0);
sellach3 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < tar3, 0);
// User-defined parameter for EMA periods
EMA_Type = Param(“EMA-1, TEMA-2, JMA-3”, 2, 1, 3, 1);
EMA_prds = Param(“EMA_periods”, 7, 1, 30, 1);
Std_MACD = Param(“Standard MACD? No-0, Yes-1”, 1, 0, 1, 1);
Plot_fashion = Param(“Bar+Arrows-1, Impulse Bars-2”, 2, 1, 2, 1);
// Allow user to define Weekly and Monthly Ribbon Location and Height
WR_P1 = Param(“Weekly Ribbon Location”, -10.5, -1000, 1000, 0.1);
WR_P2 = Param(“Weekly Ribbon Height”, 366.5, -0.001, 500, 0.1);
MR_P1 = Param(“Monthly Ribbon Location”, 5.2, -1000, 1000, 0.1);
MR_P2 = Param(“Monthly Ribbon Height”, 199, -0.001, 500, 0.1);
// Compute EMA and MACD Histogram
if(EMA_Type == 1)
{
DayEMA = EMA(Close, EMA_prds);
}
if (EMA_Type == 2)
{
DayEMA = TEMA(Close, EMA_prds);
}
if(EMA_Type == 3)
{
// Line below to be used with Jurik JMA
// DayEMA = JurikJMA(C, EMA_Prds);
}
Histogram = MACD() – Signal();
// Determine if we have an Impulse UP, DOWN or None
Impulse_Up = DayEMA > Ref(DayEMA, -1) AND Histogram > Ref(Histogram, -1);
Impulse_Down = DayEMA < Ref(DayEMA, -1) AND Histogram < Ref(Histogram, -1);
Impulse_None = (NOT Impulse_UP) AND (NOT Impulse_Down);
// Compute Weekly MACD and determine whether rising or falling
// Note: uses “non-standard” parameters!
TimeFrameSet(inWeekly);
if (Std_MACD == 0)
{
MACD_val = MACD(5, 8);
Signal_val = Signal(5, 8, 5);
}
else
{
MACD_val = MACD(12, 26);
Signal_val = Signal(12, 26, 9);
}
Hist_in_w = MACD_val – Signal_val;
wh_rising = Hist_in_w > Ref(Hist_in_w, -1);
wh_falling = Hist_in_w < Ref(Hist_in_w, -1);
TimeFrameRestore();
// Now get Monthly MACD Histogram….
TimeFrameSet(inMonthly);
MACD_val = MACD(5, 8);
Signal_val = Signal(5, 8, 5);
Hist_in_m = MACD_val – Signal_val;
mh_rising = Hist_in_m > Ref(Hist_in_m, -1);
mh_falling = Hist_in_m < Ref(Hist_in_m, -1);
TimeFrameRestore();
wh_rising = TimeFrameExpand( wh_rising, inWeekly, expandLast );
wh_falling = TimeFrameExpand( wh_falling, inWeekly, expandLast);
mh_rising = TimeFrameExpand(mh_rising, inMonthly, expandLast);
mh_falling = TimeFrameExpand(mh_falling, inMonthly, expandLast);
kol = IIf( wh_rising, colorGreen, IIf(wh_falling, colorRed,
colorLightGrey));
mkol = IIf( mh_rising, colorBlue, IIf(mh_falling, colorYellow,
colorLightGrey));
// Plot them all!
if (Plot_fashion == 1)
{
Plot(Close, “Close”, colorTeal, styleBar);
PlotShapes(shapeUpArrow * Impulse_Up, colorBlue, 0, Low, -12);
PlotShapes(shapeDownArrow * Impulse_Down, colorRed, 0, High, -12);
PlotShapes(shapeSmallCircle * Impulse_None, colorWhite, 0, High, 5);
}
else
{
bar_kol = IIf(impulse_UP, colorBlue, IIf(impulse_Down, colorRed,
colorWhite));
//Plot(C, “Close”, bar_kol, styleBar);
}
Plot(10, “ribbon”, kol, styleOwnScale|styleArea|styleNoLabel, WR_P1, WR_P2);//Weekly trend
Plot(10, “ribbon”, mkol, styleOwnScale|styleArea|styleNoLabel, MR_P1,
MR_P2); // Monthly Trend
// Explorer Section
// Determine if Impulse status is bullish, neutral or bearish. Display as Text Column.
Impulse_State = WriteIf(Impulse_Up, “Bul”, WriteIf(Impulse_Down,
“Bear”, “Neut”));
// Set the background color for Impulse Status Column
Impulse_Col = IIf(Impulse_Up, colorGreen, IIf(Impulse_Down, colorRed,
colorLightGrey));
// Determine Weekly Trend. Display as Text Column
Weekly_Trend = WriteIf(wh_rising, “Rising”, WriteIf(wh_falling, “Falling”,
“Flat!”));
Weekly_Col = IIf(wh_rising, colorGreen, IIf(wh_falling, colorRed,
colorLightGrey));
// Determine Monthly Trend. Display as Text Column
Monthly_Trend = WriteIf(mh_rising, “Rising”, WriteIf(mh_falling, “Falling”,
“Flat!”));
Monthly_Col = IIf(mh_rising, colorGreen, IIf(mh_falling, colorRed,
colorLightGrey));
// Determine how many bars has the current state existed
bars_in_bull = Min(BarsSince(impulse_none), BarsSince(impulse_down));
bars_in_bear = Min(BarsSince(impulse_up), BarsSince(impulse_none));
bars_in_neut = Min(BarsSince(impulse_down), BarsSince(impulse_up));
// Set a single variable to show number of bars in current state depending upon
// actual Impulse Status – Bullish, Bearish or Neutral
bars_in_state = IIf(Impulse_Up,bars_in_bull, IIf(Impulse_down, bars_in_bear,bars_in_neut));
//AddColumn(Close,”Close”,1.2);
// Columns for display in Explorer
//AddTextColumn(Impulse_State, “Status”, 1, colorWhite, Impulse_Col);
//AddColumn(bars_in_state, “Bars”, 1, colorWhite, Impulse_col);
//Action = WriteIf(Buy, “BUY”, WriteIf(Sell, “SELL”, ” “));
//i=0;
//bars_in_statee = IIf(Buy, BarCount[i], IIf(Sell, BarCount[i],bars_in_neut));
//bars=BarsSince(IIf(Buy+BarCount+1),OR( Sell-BarCount+1));
plus= Param(“plus”, 0.8,0,52,1);
Minus = Param(“Minus”, -0.8,-15,-0,-20);
prch = (C- TimeFrameGetPrice( “C”, inDaily, -1 ))/ TimeFrameGetPrice( “C”, inDaily, -1 )100 ; prcha= (C-Ref(C,-6))/Ref(C,-6)100;
prche= (C-Ref(C,-2))/Ref(C,-1)100; prchjk= (C-Ref(C,-2))+Ref(C,-1)10/1;
//prchjka=(prchjk)/10;
prchjka = (C+ TimeFrameGetPrice( “C”, inDaily, -1 ))- Close;
//Date()
//prchjk= (Date()-Ref(Date(),-1))+Ref(Date(),-1);
prch5=(prche-prch);
prch6= (C-Ref(C,-5))/Ref(C,-5)100; prch7= (C-Ref(C,-29))/Ref(C,-29)100;
prch8= (C-Ref(C,-87))/Ref(C,-87)100; prch9= (C-Ref(C,-150))/Ref(C,-150)100;
prch10= (C-Ref(C,-254))/Ref(C,-252)100; prch11= (C-Ref(C,-490))/Ref(C,-490)100;
prch12= (C-Ref(C,-735))/Ref(C,-735)100; prch13= (C-Ref(C,-1283))/Ref(C,-1283)100;
col=IIf ((Volume > 1.25 * EMA( Volume, 34 )),colorRed,colorLime);
//Col=IIf(( Buy, 66 , 83 ), formatChar, colorDefault, IIf( plus , colorGreen, colorRed ));
//Filter = prch6 <3 OR prch6 <-3 ; if(prexplore==0) {Filter = prch > plus OR prch < Minus ;
AddColumn(prchjka ,”prvClose”,colorDefault,Col,colorPlum);
AddColumn(Close,”Close”,1.2,colorDefault, Col);
AddColumn(prch5,”prviday”, 1.2,colorDefault, Col);
AddColumn(prch,”daily”, 1.2,colorDefault, Col);
//Filter=0;
AddColumn( IIf( Buy, 66 , 83 ), “Signal”, formatChar, colorDefault, IIf( Buy , colorGreen, colorRed ) );
AddColumn(Volume,”Volume”,1.0, colorDefault, IIf ((Volume > 1.25 * EMA( Volume, 34 )),colorCustom12,colorLime));
AddColumn(prch6,”weekly”, 1.2,colorDefault, Col);
AddColumn(prch7,”monthly”, 1.2,colorDefault, Col);
AddColumn(prch8,”qutrly”, 1.2,colorDefault, Col);
AddColumn(prch9,”halfyly”, 1.2,colorDefault, Col);
AddColumn(prch10,”yearly”, 1.2,colorDefault, Col);
AddColumn(prch11,”twoyrly”, 1.2,colorDefault, Col);
AddColumn(prch12,”thirdyrly”, 1.2,colorDefault, Col);
AddColumn(prch13,”fiveyrly”, 1.2,colorDefault, Col);
}
else
{
//Filter = Sell>-2 AND i<-3 OR Buy>2 AND i<3 ; AddColumn(ROC(V,1),”RVol “,1.2, IIf(ROC(V,1) > 0,colorDefault,colorYellow),Impulse_col);
AddColumn(bars_in_state ,”Bars”, 1, colorWhite, Impulse_col);
prchjka = (C+ TimeFrameGetPrice( “C”, inDaily, -1 ))- Close;
//AddColumn(C + C +1 ,”Close”,1.2,colorDefault, Col)/2;
AddColumn(prchjka ,”prvClose”,colorDefault,colorWhite, colorBlue);
//AddTextColumn(Weekly_Trend, “W Trend”, 1, colorWhite, Weekly_Col);
//AddTextColumn(Monthly_Trend, “M Trend”, 1, colorWhite, Monthly_Col);
//Filter = 1;
_SECTION_END();
//Settings for exploration
H1 = SelectedValue( TimeFrameGetPrice( “H”, inDaily, -1 ) );
L1 = SelectedValue( TimeFrameGetPrice( “L”, inDaily, -1 ) );
C1 = SelectedValue( TimeFrameGetPrice( “C”, inDaily, -1 ) );
H2 = SelectedValue( TimeFrameGetPrice( “H”, inDaily, 0 ) );
L2 = SelectedValue( TimeFrameGetPrice( “L”, inDaily, 0 ) );
O1 = SelectedValue( TimeFrameGetPrice( “open”, inDaily, 0 ) );
F4 = 0;
D1 = ( H1 – L1 );
D2 = ( H2 – L2 );
F1 = D1 * 0.433;
F2 = D1 * 0.766;
F3 = D1 * 1.35;
if ( D2 <= F1 )
F4 = F1;
else
if ( D2 <= F2 )
F4 = F2;
else
F4 = F3;
S_P = ( O1 – F4 );
B_P = ( O1 + F4 );
BP = ( L2 + F4 );
BPTGT = ( BP + ( BP * .0065 ) );//.0015 brokerage
BPSTPLS = ( BP – ( BP * .0085 ) );
SP = ( H2 – F4 );
SPTGT = ( SP – ( SP * .0065 ) );
SPSTPLS = ( SP + ( SP * .0085 ) );
p = ( H1 + L1 + C1 ) / 3;
s1 = ( H1 );
r1 = ( L1 );
r2 = SelectedValue( L2 );
s2 = SelectedValue( H2 );
//CONDITION
if (ParamToggle(“Tooltip shows”, “All Values|Only Prices”))
{
ToolTip = StrFormat(“Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%) \nVolume: ” + NumToStr(V, 1), O, H, L, C, SelectedValue(ROC(C, 1)));
}
//space = Param(“Space on Chart”, 20, – 15, 50, 1);
//GraphXSpace = space;
//SetChartBkColor(ParamColor(“Background Color”, colorBlack));
// ================= Rasheed’s original code (with Lookback and Shift default set to his specs) =================
H0 = H;
L0 = L;
C0 = C;
O0 = O;
Lookback = Param(“LookBack”, 10, 10, 50, 1); // Default for interday commodity currency trading
shift = Param(“Shift”, 5, 1, 50, 1); // ?
x0 = LastValue(Cum(1));
x1 = x0 – shift;
H = Ref(H, – shift + 1);
L = Ref(L, – shift + 1);
H1 = LastValue(Ref(HHV(H, Lookback), – 1));
L1 = LastValue(Ref(LLV(L, Lookback), – 1));
//Plot(H1, “H1”, colorYellow);
//Plot(L1, “L1”, colorYellow);
H = H0;
L = L0;
C = C0;
O = O0;
up = Cross(H, H1)AND Cum(1) > x1;
dn = Cross(L1, L)AND Cum(1) > x1;
//Plot(C, “Close”, IIf(Cum(1) > x1 – Lookback AND Cum(1) <= x1, colorBlue, IIf(Up, colorBrightGreen, IIf(Dn, colorRed, IIf(C > O, colorGreen, colorRed)))), 64);
//PlotShapes(shapeDownArrow *(Cum(1) == x1 + 1), colorBlue);
// ======================= Exploration and Signal Code =================
TRIGGER = ParamToggle(“Trigger “, “CLOSE|HIGH OR LOW”);
XH1 = Cross(C, H1);
XL1 = Cross(L1, C);
XH2 = Cross(H, H1);
XL2 = Cross(L1, L);
if (TRIGGER == 0)
{
//Buy = XH1;
//Sell = XL1;
}
else
{
//Buy = XH2;
//Sell = XL2;
}
//TradeDisplay = ParamToggle(“Remove Extra Trades?”, “No|Yes”);
//if(TradeDisplay != 0){
//Buy = ExRem(Buy, Sell);
//Sell = ExRem(Sell, Buy); // THIS WILL REMOVE EXESS SIGNALS ON A CHART OR IN AN EXPLORATION
//}
//Filter = Buy >2 <3 == BarCount+1 OR Sell >-3<-3 == BarCount+1;
Action = WriteIf(Buy, “BUY”, WriteIf(Sell, “SELL”, ” “));
//AddTextColumn(IndustryID(1), “Industry Sector “, 30.0, colorBlue, colorYellow);
AddColumn(C, “Entry “, 2.2, colorWhite, colorBlue);
AddTextColumn(Action, “Action”, 8.0, IIf(xh1, colorDarkGreen, colorDarkRed), colorYellow);
AddColumn(IIf(XH1, H1, L1), “BREAKOUT LEVEL”, 3.2, colorYellow, IIf(XH1, colorDarkGreen, colorDarkRed));
// ———————————————————————————– Arrow signals — FOR TRADES ———————————————————-
//PlotShapes(Buy shapeUpArrow, colorBrightGreen, 0, L / ENTRY_TRAILARRAY */, – 30);
//PlotShapes(Sell *shapeDownArrow, colorLightYellow, 0, H, – 30);
_SECTION_END();
_SECTION_BEGIN(“Volume At Price”);
PlotVAPOverlay(Param(“Lines”, 1000, 100, 1000, 10), Param(“Width”, 15, 1, 100, 1), ParamColor(“Color”, colorBlue), ParamToggle(“Side”, “Left|Right”, 1) | 4 *ParamToggle(“Z-order”, “On top|Behind”, 1));
_SECTION_END();
//Filter = Buy OR Sell;
//AddColumn( IIf( Buy, 66, 1 ), “Buy”, formatChar, 1, bkcolor = IIf( Buy, 43, 33 ) );
//AddColumn( IIf( Sell, 83, 1 ), “Sell”, formatChar, 1, bkcolor = IIf( Sell, 25, 32 ) );
//AddColumn( C, “CMP”, 1.2, colorDefault, colorLightBlue );
//AddColumn( BP, “SELL PRICE”, 1.2, colorDefault, colorGreen );
//AddColumn( BPTGT, “TGT PRICE”, 1.2, colorDefault, colorBrown );
//AddColumn( BPSTPLS, “STPLS BUY”, 1.2, colorDefault, colorRed );
AddColumn( p, “PIVOT”, 1.2, colorDefault, colorYellow );
//AddColumn( SPSTPLS, “STPLS SELL”, 1.2, colorDefault, colorRed );
//AddColumn( SP, “SELL PRICE”, 1.2, colorDefault, colorGreen );
//AddColumn( SPTGT, “TGT PRICE”, 1.2, colorDefault, colorBrown );
//Settings for exploration
Filter=Buy OR Short;
AddColumn( IIf( Buy, 66 , 83 ), “Signal”, formatChar, colorDefault, IIf( Buy , colorGreen, colorRed ) );
//AddColumn(Close,”Entry Price”,1.4, colorDefault, IIf( Buy , colorGreen, colorRed ));
AddColumn(dtsl,”Stop Loss”,1.4, colorDefault, IIf( Buy , colorGreen, colorRed ));
AddColumn(tar1,”Target 1″,1.4, colorDefault, IIf( Buy , colorGreen, colorRed ));
AddColumn(tar2,”Target 2″,1.4, colorDefault, IIf( Buy , colorGreen, colorRed ));
AddColumn(tar3,”Target 3″,1.4, colorDefault, IIf( Buy , colorGreen, colorRed ));
AddColumn(Volume,”Volume”,1.0, colorDefault, IIf ((Volume > 1.25 * EMA( Volume, 34 )),colorBlue,colorYellow));
AddColumn( H1, “PRE-HIGH” );
AddColumn( L1, “PRE-LOW” );
AddColumn( D1, “PRE-DIFF” );
AddColumn( F1, “0.433” );
AddColumn( F2, “0.766” );
AddColumn( F3, “1.35” );
AddColumn( H2, “D-HIGH” );
AddColumn( L2, “D-LOW” );
AddColumn( D2, “D-DIFF” );
AddColumn( F4, “SELECT FACT” );
//AlertIf( Buy , “SOUND C:\Windows\Media\chimes.wav”, “Audio alert”, 2 );
//AlertIf( Sell , “SOUND C:\Windows\Media\alert.wav”, “Audio alert”, 2 );
}
//Short = Sell;
//Cover = Buy;
//Short = ExRem(Short, Cover);
//Cover = ExRem(Cover, Short);
pxHeight = Status( “pxchartheight” ) ;
xx = Status( “pxchartwidth”);
Left = 1100;
width = 310;
x = 5;
x2 = 280;
y = pxHeight;
dist = 2ATR(10); dist1 = 3ATR(10);
i=BarCount;
bars = i;
if(messageboard)
{
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] )
{
// PlotText( “\nBuy:” + L[ i ] + “\nT= ” + (L[i]1.005) + “\nSL= ” + (L[i]0.9975), i, L[ i ]-dist[i], colorGreen, colorWhite );
// Signal Display Panel // SellPrice=ValueWhen(Sell,C,1); BuyPrice=ValueWhen(Buy,L[ i ]); Long=Flip(Buy,Sell); Shrt=Flip(Sell,Buy ); BuyStop2 = L[i]*0.9975; BuyTP1 = L[i]*1.070; BuyTP2 = L[i]*1.050; BuyTP3 = L[i]*1.035;
buyach1 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > BuyTP3, 0);
buyach2 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > BuyTP2, 0);
buyach3 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > BuyTP1, 0);
GfxSelectFont( “Tahoma”, 13, 100 );
GfxSetOverlayMode( mode = 0 );
GfxSelectPen( colorBrightGreen, 3 );
GfxSelectSolidBrush( colorBrightGreen);
GfxRoundRect( x, y – 163, x2, y , 7, 7 ) ;
GfxSetTextColor( colorGold );
GfxTextOut( ( ” Trading System “),73,y-165);
GfxTextOut( (” “),27,y-160);
GfxSetBkMode(1);
GfxSelectFont( “Arial”, 10, 700, False );
GfxSetTextColor( colorBlue );
GfxSetTextAlign(0);
GfxSelectFont( “Tahoma”, 13, 100 );
GfxTextOut( WriteIf(L[ i ], “Buy Above: “+L[ i ],””), 13, y-140);
GfxSetTextColor( colorGold );
GfxTextOut( WriteIf(BuyStop2, “Long SL: “+(BuyStop2),””), 13, y-120);
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf(BuyTP1, “Buy TGT1: “+(BuyTP3),””), 13,y- 100);
GfxTextOut( WriteIf(BuyTP2, “Buy TGT2: “+(BuyTP2),””), 13,y- 80);
GfxTextOut( WriteIf(BuyTP3, “BuyTGT3: “+(BuyTP1),””), 13,y- 60);
GfxSetTextColor( colorViolet );
GfxTextOut( (“Current P/L : ” + WriteVal(IIf(Buy ,(C-BuyPrice),(C-BuyPrice)),2.2)), 88, y-22);
GfxTextOut( (“Buy Signal came ” + (BarCount-bars +1) * Interval()/3 + ” mins ago”), 13, y-40) ;
GfxTextOut
( (“” + WriteIf (buyach1, ” Done: “+BuyTP3,””)), 160, y-100);
GfxTextOut
( (“” + WriteIf (buyach2, ” Done: “+BuyTP2,””)), 160, y-80);
GfxTextOut
( (“” + WriteIf (buyach3, ” Done: “+BuyTP1,””)), 160, y-60);
// END of Signal Display Panel //
}
if( Sell[i] )
{
// PlotText( “Sell:” + H[ i ] + “\nT= ” + (H[i]0.995) + “\nSL= ” + (H[i]1.0025), i, H[ i ]+dist1[i], colorRed, colorWhite );
// Signal Display Panel // SellPrice=ValueWhen(Sell,C,1);
BuyPrice=ValueWhen(Buy,H[ i ]);
Long=Flip(Buy,Sell);
Shrt=Flip(Sell,Buy );
SellStop2 = H[i]1.0025; SellTP1 = H[i]0.978;
SellTP2 = H[i]0.982; SellTP3 = H[i]0.988;
sellach1 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < SellTP3 , 0);
sellach2 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < SellTP2, 0);
sellach3 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < SellTP1, 0);
GfxSelectFont( "Tahoma", 13, 100 ); GfxSetOverlayMode( mode = 0 ); GfxSelectPen( colorRed, 3 ); GfxSelectSolidBrush( colorRed ); GfxRoundRect( x, y - 163, x2, y , 7, 7 ) ; GfxTextOut( (" "),27,y-160); GfxSetBkMode(1); GfxSelectFont( "Arial", 10, 700, False ); GfxSetTextColor( colorWhite ); GfxSetTextAlign(0); GfxSelectFont( "Tahoma", 13, 100 ); GfxSetTextColor( colorGold ); GfxTextOut( ( " Trading System "),73,y-165); GfxSetTextColor( colorWhite ); GfxTextOut( WriteIf(H[ i ], "Sell Below: "+H[ i ],""), 13, y-140); GfxSetTextColor( colorGold ); GfxTextOut( WriteIf(SellStop2, "Short SL: "+(SellStop2),""), 13, y-120); GfxSetTextColor( colorBlue ); GfxTextOut( WriteIf(SellTP1, "Short TGT1: "+(SellTP3),""), 13, y-100); GfxTextOut( WriteIf(SellTP2, "Short TGT2: "+(SellTP2),""), 13, y-80); GfxTextOut( WriteIf(SellTP3, "Short TGT3: "+(SellTP1),""), 13, y-60); GfxSetTextColor( colorGold ); GfxTextOut( ("Current P/L : " + WriteVal(IIf(Sell ,(SellPrice-C),(SellPrice-C)),2.2)), 88, y-22); GfxTextOut( ("sell Signal came " + (BarCount-bars +1) * Interval()/1 + " mins ago"), 13, y-40) ; GfxTextOut
( (“” + WriteIf (sellach1, ” Done: “+SellTP3,””)), 160, y-100);
GfxTextOut
( (“” + WriteIf (sellach2, ” Done: “+SellTP2,””)), 160, y-80);
GfxTextOut
( (“” + WriteIf (sellach3, ” Done: “+SellTP1,””)), 160, y-60);
// END of Signal Display Panel //
}}}
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] )
{
OUTcolor = ParamColor(“Outer Panel Color”,colorTeal);
INUPcolor = ParamColor(“Inner Panel Upper”,colorDarkGreen);
INDNcolor = ParamColor(“Inner Panel Lower”,colorDarkOliveGreen);
TitleColor = ParamColor(“Title Color “,colorBlack);
SetChartBkColor(OUTcolor); // color of outer border
SetChartBkGradientFill(INUPcolor,INDNcolor,TitleColor); // color of inner panel
}
if( Sell[i] )
{
OUTcolor = ParamColor(“Outer Panel Color”,colorTeal);
INUPcolor = ParamColor(“Inner Panel Upper2”,colorDarkRed);
INDNcolor = ParamColor(“Inner Panel Lower2”,colorPlum);
TitleColor = ParamColor(“Title Color “,colorBlack);
SetChartBkColor(OUTcolor); // color of outer border
SetChartBkGradientFill(INUPcolor,INDNcolor,TitleColor); // color of inner panel
}
}
_SECTION_BEGIN(“Pivot calc”);
pd = Param(“Periods”,13,5,144,1);
pds = 2*pd-1;// (Adjustment for Wilders MA)
aa = Close-Ref(Close,-1);
uu = EMA(Max(0,aa),pds);
dd= EMA((Max(0,0-aa)),pds);
rf = IIf(C>2,1000,10000);
c1 = Param(“Upper Level”,70,50,90,1);
qq1 =100/(100-c1)-1;
ff1 = qq1dd-uu; ff2 = ff1/qq1; f1 = Max(ff1,ff2); UL = Close + f1(pds-1)/2;
UL = IIf(UL>C,floor(ULrf),ceil(ULrf))/rf;
c2 = Param(“Equilibrium”,50,50,50,0);
qq2 =100/(100-c2)-1;// [=1]
ff = dd-uu;
MM = Close + ff(pds-1)/2; MM = IIf(MM>C,floor(MMrf),ceil(MM*rf))/rf;
c3 = Param(“Lower Level”,30,10,50,1);
qq3 =100/(100-c3)-1;
ff1 = qq3dd-uu; ff2 = ff1/qq3; f3 = Min(ff1,ff2); LL = Close + f3(pds-1)/2;
LL = IIf(LL>C,floor(LLrf),ceil(LLrf))/rf;
band = Param(“band width”,4,0,15,0.25);
mmu = MM+band;
mmd = MM-band;
X=Cross( C,LL);
Y=Cross(UL,C);
Buy1= X ;
Sell1= Y ;
TimeFrameSet( in15Minute*2 );
DH=Ref(H,-1);
DL=Ref(L,-1);
DC=Ref(C,-1);
pd = ( DH+ DL + DC )/3;
sd1 = (2pd)-DH; sd2 = pd -(DH – DL); sd3 = Sd1 – (DH-DL); rd1 = (2pd)-DL;
rd2 = pd +(DH -DL);
rd3 = rd1 +(DH-DL);
TimeFrameRestore();
_SECTION_END();
Title =
EncodeColor(colorWhite) + Name() + ” – ” + EncodeColor(colorRed)+ Interval(2)
EncodeColor(colorWhite) + ” – ” + Date() +” – “
+”\n”
+EncodeColor(colorYellow) +”Op-“+O+” “+”Hi-“+H+” “+”Lo-“+L+” “+ “Cl-“+C+” “+ “Vol= “+ WriteVal(V)
//+ WriteIf ((e3>e45) ,EncodeColor(colorLime)+ ” Direction : LONG”,EncodeColor(colorRed)+” Direction : SHORT”)
+”\n”
WriteIf (Sell , ” EXIT LONG / Reverse Signal at “+C+”\n”,””)
WriteIf (Buy , ” EXIT SHORT / Reverse Signal at “+C+”\n”,””)
+WriteIf(Sell , “Total Profit / Loss for the Last Trade Rs.”+(C-BuyPrice)+””,””)+
WriteIf(Buy , “Total Profit / Loss for the Last trade Rs.”+(SellPrice-C)+””,””)+
WriteIf(Long AND NOT Buy,EncodeColor(colorLime)+ “Trade : Long – Entry price Rs.”+(BuyPrice)+” Tgt : “+UL,””)+
WriteIf(shrt AND NOT Sell,EncodeColor(colorRed)+ “Trade : Short – Entry price Rs.”+(SellPrice)+” Tgt : “+LL,””)+”\n”+
WriteIf(Long AND NOT Buy, “Current Profit / Loss Rs.”+(C-BuyPrice)+””,””)+
WriteIf(shrt AND NOT Sell, “Current Profit / Loss Rs.”+(SellPrice-C)+””,””)
EncodeColor(colorBrightGreen)+ “\n R3 : “+ EncodeColor(colorWhite)+RD3
EncodeColor(colorBrightGreen)+ “\n R2 : “+ EncodeColor(colorWhite)+RD2
EncodeColor(colorBrightGreen)+ “\n R1 : “+ EncodeColor(colorWhite)+RD1 + EncodeColor(colorBrightGreen)+ ” UP TGT : “+ EncodeColor(colorWhite)+UL
EncodeColor(colorBlue)+ “\n Pivot : “+ EncodeColor(colorWhite)+pd+ EncodeColor(colorBlue)+ ” MIDPOINT : “+ EncodeColor(colorWhite)+MM
EncodeColor(colorRed)+ “\n S1 : “+ EncodeColor(colorWhite)+SD1 + EncodeColor(colorRed)+ ” BOT TGT : “+ EncodeColor(colorWhite)+LL
EncodeColor(colorRed)+ “\n S2 : “+ EncodeColor(colorWhite)+SD2
EncodeColor(colorRed)+ “\n S3 : “+ EncodeColor(colorWhite)+SD3;
if(bslable==0)
{
dist = 1.0ATR(10); dist1= 2.0ATR(10);
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] )
{
//PlotText( WriteVal(H[ i ],1.3) + “\n” + WriteVal(C[i],1.2), i, L[ i ]-dist[i], colorLime, colorBlack );
PlotText( WriteVal(L[ i ],1.2), i, L[ i ]-dist[i], colorBlue, colorWhite );
}
if( Sell[i] )
{
//PlotText( “” + WriteVal(L[ i ],1.3)+ “\n” + WriteVal(C[i],1.2), i, H[ i ]+dist1[i], colorRed, colorBlack );
PlotText( WriteVal(H[ i ],1.2), i, H[ i ]+dist1[i], colorRed, colorWhite );
}}}
if (EndValue(Buy)==1) Say(“strong Buy go long dear”,-1);
if (EndValue(Sell)==1) Say(“strong Sell go short dear”,-1);
//if (EndValue(Cover)==1) Say(” go long dear”);
//if (EndValue(Short)==1) Say(” go short dear”);