// Downloaded From https://www.WiseStockTrader.com
//SetChartOptions(0,chartShowArrows|chartShowDates);
//_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
//Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_BEGIN("Volume At Price");
PlotVAPOverlay(Param("Lines", 1000, 100, 1000, 10), Param("Width", 0, 0, 100, 1), ParamColor("Color", colorBlue));
_SECTION_END();
_SECTION_BEGIN("BACK COLR");
SetChartBkGradientFill( ParamColor("BgTop", colorPlum),
ParamColor("BgBottom", colorBlack),ParamColor("titleblock",colorPlum));
//WriteIf(s,"EXIT all Short positions\nif trading long positions, enter long Now-\nOR at the market price on tomorrow's Open with stop="+EncodeColor(4)+WriteVal(L+.75*ATR(5),1.4)+" ,","");
//WriteIf(ss,"exit all long positions today with a Market On Close (MOC) order\nOR at the market price on tomorrow's Open with stop="+EncodeColor(4)+WriteVal(Ref(H+.75*ATR(5), -1),1.4)+",","");
//WriteIf( sss ,"No trading signals today.","") ;
SetBarsRequired(600,0);
GraphXSpace = 20;
SetChartOptions( 0, chartShowArrows | chartShowDates );
//============== TITLE ==============
_SECTION_BEGIN("Magnified Market Price");
FS=Param("Font Size",30,11,100,1);
GfxSelectFont("Times New Roman", FS, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorGold) );
Hor=Param("Horizontal Position",970,1,1200,1);
Ver=Param("Vertical Position",50,1,830,1);
GfxTextOut(""+C, Hor , Ver );
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSelectFont("Times New Roman", 11, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor(ParamColor("Color",colorBlack) );
GfxTextOut(""+DD+" ("+xx+"%)", Hor , Ver+45 );
_SECTION_END();
BuyPrice = Open;
SellPrice = Open;
Derived=WMA(WMA(WMA(((H+L)/2)+(O-C),92),1),1);
i=WMA(Derived,3);
Upper=Ref((Derived+StDev(Derived,7))+ATR(2)/0.8,0);
Lower=Ref((Derived-StDev(Derived,7))-ATR(2)/1.5,0);
color=IIf(BarsSince(Cross(Lower,C))>
BarsSince(Cross(C,upper)), colorBrightGreen,colorRed);
Plot(C,"",colorDefault,64);
Plot(Upper,"upper band",colorRed);
Plot(Lower,"lower band",colorLime);
//Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
//Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
/* Buy or Sell Condition */
Buy = Ref(Cross(C,Lower),0);
Sell = Cross(upper,C);
Buy = ExRem(Buy,Sell);
Sell = ExRem(Sell,Buy);
//Cover=Buy;
//Short=Sell;
//Buy = Buy;
//Sell = Sell;
//Cover = Cross(C,UPPER);
//Short = Ref(Cross(LowER,C),0);
//Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
//Buy = ExRem(Buy,Sell);
//Sell = ExRem(Sell,Buy);
//Short = ExRem(Short, Cover);
//Cover = ExRem(Cover, Short);
/*
*/
/*
dist = 0.8*ATR(10);
dist1 = 2*ATR(10);
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] )
{
PlotText( "\nHNI Buy 10 Lots @" + O[ i ] + "\nTGT=> " + (O[i]*1.0050) +"\nSL=> " + (O[i]*0.9975), i, L[ i ]-dist[i], colorGreen, colorBlack );
}
if( Sell[i] )
{
PlotText( "\nHNI Sell 10 Lots @" + O[ i ] + "\nTGT=> " + (O[i]*0.9950) + "\nSL=> " + (O[i]*1.0050), i, H[ i ]+dist1[i], colorRed, colorBlack );
}
}
*/
for( i = 0; i < BarCount; i++ ){
if (Buy[i] == 1) {
entry = H[i];
sig = "BUY";
sl = (O[i]*0.9970);
tar1 = entry + (entry * .0047);
tar2 = entry + (entry * .0090);
tar3 = entry + (entry * .0179);
bars = i;
}
if (Sell[i]) {
sig = "SELL";
entry = L[i];
sl = (O[i]*1.0055);
tar1 = entry - (entry * .0050);
tar2 = entry - (entry * .0100);
tar3 = entry - (entry * .0170);
bars = i;
}
}
Offset = 20;
Clr = IIf(sig == "BUY", colorDarkGreen, colorRed);
ssl = IIf(bars == BarCount-1, sl[BarCount-1],sl);
sl = ssl[BarCount-1];
Plot(LineArray(bars-Offset, tar1, BarCount, tar1,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
Plot(LineArray(bars-Offset, tar2, BarCount, tar2,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
Plot(LineArray(bars-Offset, tar3, BarCount, tar3,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
Plot(LineArray(bars-Offset, sl, BarCount, sl,1), "", colorDarkRed, styleLine|styleLine, Null, Null, Offset);
Plot(LineArray(bars-Offset, entry, BarCount, entry,1), "", colorGreen, styleLine|styleLine, Null, Null, Offset);
//PlotShapes(IIf(H>=tar1, shapeDigit1,shapeNone) ,colorOrange,0, H, Offset=-20) ;
Prd1=4;//Param("ATR Period 1-20",4,1,20,1);
Prd2=12;//Param("LookBack Period 1-20",11,1,20,1);
Green=HHV(LLV(L,Prd1)+ATR(Prd1),Prd2);
//{Red} {Stop loss when Close<Red}
//RED=LLV(HHV(H,Prd1)-ATR(Prd1),Prd2);
RED = LLV(HHV(H,PRD2),PRD2);
Color=IIf(C>Green ,colorBrightGreen,IIf(C < RED,colorRed,colorBlue));
//Plot(Green,"Green",colorBrightGreen,styleLine);
//Plot(RED,"Red",ParamColor("RED",colorGold),styleLine);
//Plot(C,"",Color,64);
///////////////////////////////////////////////////////////////////
{
GfxSelectFont( "Tahoma", 13, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorGold );
if (sig =="BUY"){
GfxSelectSolidBrush( colorDarkGreen ); // this is the box background color
pxHeight = Status( "pxchartheight" ) ;
xx = Status( "pxchartwidth");
Left = 1100;
width = 310;
x = 5;
x2 = 420;
y = Status( "pxchartheight" );
y=200;
GfxSelectPen( colorGold, 2);
GfxRoundRect( x, y - 130, x2, y+150 , 7, 7 ) ;
GfxTextOut("Avoid All Sell Confirmation Alert Now ",10,275);
GfxTextOut("Trade Only On Buy Confirmation Signals ",10,300);
GfxTextOut("TREND = BUY TREND ",10,250);
}
else
{
GfxSelectSolidBrush( colorDarkRed ); // this is the box background color
pxHeight = Status( "pxchartheight" ) ;
xx = Status( "pxchartwidth");
Left = 1100;
width = 310;
x = 5;
x2 = 420;
y = Status( "pxchartheight" );
y=200;
GfxSelectPen( colorGold, 2);
GfxRoundRect( x, y - 130, x2, y+150 , 7, 7 ) ;
GfxTextOut("Avoid All Buy Confirmation Alert Now ",10,275);
GfxTextOut("Trade Only On Sell Confirmation Signals ",10,300);
GfxTextOut("TREND = SELL TREND ",10,250);}
//GfxSelectSolidBrush( colorDarkRed );
pxHeight = Status( "pxchartheight" ) ;
xx = Status( "pxchartwidth");
Left = 1100;
width = 310;
x = 5;
x2 = 420;
y = Status( "pxchartheight" );
y=200;
GfxSelectPen( colorGold, 2);
GfxRoundRect( x, y - 130, x2, y+25 , 7, 7 ) ;
GfxTextOut( Name(),13,y-120);
GfxTextOut( ("Exit From Trade If "+Interval()/60+ " Min Candle Close SL => " + sl + " "), 13, y-40);
//GfxTextOut( ("" + WriteIf(sig =="Buy",sig + " Only if "+Interval()/60+" Minutes Candle Close Above",sig + " Only if "+Interval()/60+" Minutes Candle Close ") + " => " + entry), 13, y-100);
//GfxTextOut( ("Trailing SL : " + sl + " "), 13, y-80);
GfxTextOut( ("TGT:1 : " + tar1), 13, y -80);
GfxTextOut( ("TGT:2 : " + tar2), 13,y-60);
//GfxTextOut( ("Current P/L : " + WriteVal(IIf(sig == "BUY",(C-entry),(entry-C)),2.2)), 13, y-25);;
GfxTextOut( ("Last "+Interval()/60+" Minutes Candle Close Was =>"+Ref(Close,-1)),13,y-20);
/*{if (sig =="BUY");
GfxTextOut( ("NOTE : "),13,y+3 );
GfxTextOut( ("Buy Only If "+Interval()/60+" Minute Candle Close Above =>" + entry),13,y +150);
if (sig =="SELL");
GfxTextOut( ("Sell Only If "+Interval()/60+" Minute Candle Close Below => "+ entry),13,y +50);}*/
}
_SECTION_BEGIN("KBL Arrow Detection");
Buy=Buy;
Sell=Sell;
PlotShapes(IIf(Buy, shapeSquare,shapeNone) ,colorBlue,0, Low, Offset=-20) ;
PlotShapes(IIf(Buy, shapeSmallUpTriangle,shapeNone) ,colorLime,0, Low, Offset=-22) ;
PlotShapes(IIf(Sell, shapeSquare,shapeNone),colorRed,0, High, Offset=10) ;
PlotShapes(IIf(Sell, shapeSmallDownTriangle,shapeNone),colorLime,0, High, Offset=-12) ;
/*
PlotShapes(IIf(Cover, shapeSquare,shapeNone) ,colorBlue,0, Low, Offset=-10) ;
PlotShapes(IIf(Cover, shapeStar,shapeNone) ,colorLime,0, Low, Offset=-10) ;
PlotShapes(IIf(Short, shapeSquare,shapeNone),colorRed,0, High, Offset=-1) ;
PlotShapes(IIf(Short, shapeStar,shapeNone),colorRed,0, High, Offset=-1) ;
*/
_SECTION_END();
_SECTION_BEGIN("Price Line");
dp= Param("dps",3,0,1000,1);
PriceLineColor=ParamColor("PriceLineColor",colorOrange);
PriceLevel = ParamField("PriceField", field = 3 );
PriceLeve2 = ParamField("PriceField", field = dp );
Daysback = Param("Bars Back",1,10,5000,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], colorGold );
}
_SECTION_END();
/****************/
/* */
/* ALERT OUTPUT */
/* */
/****************/
TxtX = Param("Text Left1", 430, 0, 1000, 10);
TxtY = Param("Text Top1", 61, 1, 650, 10);
GfxSelectFont("Tahoma", 14, 700 );
GfxSetBkMode(1);
if(LastValue(Buy) OR SelectedValue(Buy))
{
GfxSetTextColor(colorBrightGreen);
GfxTextOut("BUY Signal Captured :: Waiting For Confirmation", TxtX, TxtY);
Say("");
}
else if(LastValue(Sell) OR SelectedValue(Sell))
{
GfxSetTextColor(colorRed);
GfxTextOut("SELL Signal Captured :: Waiting For Confirmation ", TxtX, TxtY);
Say("");
}
else
{
GfxSetTextColor(colorGold);
GfxTextOut(" ", TxtX, TxtY);
GfxTextOut("", TxtX, TxtY);
}
_SECTION_BEGIN("sys");
x=Param("xposn",315,0,1000,1);
y=Param("yposn",576,0,1000,1);
GfxSetTextColor(colorGold);
GfxTextOut( ( "KBL Auto Signals "),60,y-110);
GfxSetTextColor(colorGold);
GfxTextOut( ( " www.kuber-laxmi.blogspot.in "),10,y-90);
GfxSetTextColor(colorGold);
GfxTextOut( ( "CALL | +91-9559119895 "),30,y-70);
/*
GfxSetTextColor(colorBrightGreen);
GfxTextOut( ( "Recieving Channel : Funds Server "),300,y-110);*/
GfxSetTextColor(colorBrightGreen);
GfxTextOut( ( "Contact Us For Custom AFL Development "),300,y-90);
/*GfxSetTextColor(colorBrightGreen);
GfxTextOut( ( "Data Status : Recieving "),300,y-70);*/
_SECTION_END();
_SECTION_BEGIN("Background text");
C11=ParamColor("up panel",colorBlack );
C12=ParamColor("dn panel",colorBlack );
C13=Param("fonts",20,10,30,1 );
C14=Param("left-right",2.1,1.0,5.0,0.1 );
C15=Param("up-down",8,1,30,1 );
Miny = Status("axisminy");
Maxy = Status("axismaxy");
lvb = Status("lastvisiblebar");
fvb = Status("firstvisiblebar");
pxwidth = Status("pxwidth");
pxheight = Status("pxheight");
GfxSetBkMode( 0 );
GfxSelectFont("Tahoma", 12, 500, False, False, 0);
GfxSetTextColor(colorCustom12);
GfxSetTextAlign( 6 );
GfxSelectFont("Tahoma", 15, 600, False, False, 0);
GfxSetTextColor(colorWhite);
GfxSetTextAlign( 6 );
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorBrightGreen);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorRed);
pricechange=(C-Ref(C,-1))*100/Ref(C,-1);
changeponit=C-Ref(C,-1);
Vlp=Param("Volume lookback period",15,10,300,10);
Vrg=MA(V,Vlp);
St = StDev(Vrg,Vlp);
Vp3 = Vrg + 3*st;
Vp2 = Vrg + 2*st;;
Vp1 = Vrg + 1*st;;
Vn1 = Vrg -1*st;
Vn2 = Vrg -2*st;
x=Param("xposn",1,0,1000,1);
y=Param("yposn",1,0,1000,1);
GfxGradientRect( 1, 1, 1400, 40, colorViolet, colorBlack);
GfxSetBkMode(0);
GfxSelectFont( "Georgia", 18, 800, False );
GfxSetTextColor( colorGold );
GfxTextOut( "KBL Master Scalper Pro ", x+600, y+10 );
GfxSelectFont( "Tahoma", 16, 800, False );
GfxSetTextColor( colorGold );
GfxTextOut( Name(), x+120, y+10 );
GfxSelectFont( "Century Gothic", 15, 100, False );
GfxSetTextColor( colorGold );
GfxTextOut( Date(), x+1000, y+10 );
GfxSelectFont( "Comic Sans MS", 15, 500, False );
GfxSetTextColor( colorGold );
//GfxTextOut( Interval(2), x+275, y+10 );
//------------------------------------------------------------ H, L, O, C----------------------
GfxGradientRect( 1, 40, 1400, 55, colorViolet, colorBlack );
GfxSetBkMode(0);
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "High:"+WriteVal(H,1.2), x+100, y+40 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Low:"+WriteVal(L,1.2), x+200, y+40 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Open:"+WriteVal(O,1.2), x+300, y+40 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Close:"+WriteVal(C,1.2), x+400, y+40 );
GfxSelectFont( "COMIC SANS MS", 12, 100, False );
GfxSetTextColor( colorGold );
GfxTextOut( " KBL Financial Services ", x+1000, y+35 );
/*
n=130;
per =11.5;
x = Cum(1);
s1=IIf(RSIa(L,n)>Min(RSIa(C,n),RSIa(O,n)),Min(RSIa (C,n),RSIa(O,n)),RSIa(L,n));
s11=IIf(RSIa(H,n)<Max(RSIa(C,n),RSIa(O,n)),Max(RSIa(C,n),RSIa(O,n)),RSIa(H,n));
pS = TroughBars( s1, per, 1 ) == 0;
endt= LastValue(ValueWhen( pS, x, 1 ));
startt=LastValue(ValueWhen( pS, x, 2 ));
dtS =endt-startt;
endS = LastValue(ValueWhen( pS, s1, 1 ) );
startS = LastValue( ValueWhen( pS, s1, 2 ));
aS = (endS-startS)/dtS;bS = endS;
trendlineS = aS * ( x -endt ) + bS;
pR = PeakBars( s11, per, 1 ) == 0;
endt1= LastValue(ValueWhen( pR, x, 1 ));
startt1=LastValue(ValueWhen( pR, x, 2 ));
dtR =endt1-startt1;
endR = LastValue(ValueWhen( pR, s11, 1 ) );
startR = LastValue( ValueWhen( pR, s11, 2 ));
aR = (endR-startR)/dtR;
bR = endR;
trendlineR = aR * ( x -endt1 ) + bR;
//Plot(ValueWhen( (S1==trendlineS ), L),"", colorGreen, styleDashed|styleNoRescale|styleThick);
//Plot(ValueWhen((S11==trendlineR ), H),"", colorRed, styleDashed|styleNoRescale|styleThick);
Buy = Ref(S1==trendlineS ,-5);
Sell = Ref(S11==trendlineR ,-11);
Buy = ExRem( Buy, Sell );
Sell = ExRem( Sell, Buy );
AlertIf( Buy, "", "BUY @ " + C, 1 );
AlertIf( Sell, "", "SELL @ " + C, 2 );
//PlotShapes( Buy * shapeUpArrow + Sell * shapeDownArrow, IIf( Buy, colorBlue, colorPink),High,Low );
PlotShapes(IIf(Buy, shapeUpTriangle,shapeNone) ,colorGold,0, Low, Offset=-10) ;
PlotShapes(IIf(Buy, shapeSmallCircle,shapeNone) ,colorBlue,0, Low, Offset=-12) ;
PlotShapes(IIf(Sell, shapeDownTriangle,shapeNone),colorGold,0, High, Offset=-1) ;
PlotShapes(IIf(Sell, shapeSmallCircle,shapeNone),colorRed,0, High, Offset=3) ;
dist = 0.8*ATR(10);
dist1 = 2*ATR(10);
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] )
{
PlotText( "\n Heavy Fire Up Ahead " , i, L[ i ]-dist[i], colorBlack, colorGreen );
}
if( Sell[i] )
{
PlotText( " Heavy Down Fall Ahead " , i, H[ i ]+dist1[i], colorBlack, colorRed );
}
}*//*
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
function secleft()
{
currtime = Now ( 4 );
hr = int ( currtime / 10000 );
mnt = int ( ( currtime - hr * 10000 ) / 100 );
sec = currtime - hr * 10000 - mnt * 100;
totalsec = hr * 60 ^ 2 + mnt * 60 + sec;
left = Interval() - totalsec % Interval();
return left;
}
function PopupWindowEx( popupID, bodytext, captiontext, timeout, left, top )
{
displayText = bodytext + "_" + captiontext;
if ( ( StaticVarGetText( "prevPopup:" + popupID ) != displayText) OR
( StaticVarGet( "prevPopupTime" + popupID ) < GetSecondNum() ) )
{
StaticVarSetText( "prevPopup:" + popupID, displayText);
StaticVarSet( "prevPopupTime" + popupID, GetSecondNum() + timeout );
PopupWindow( bodytext, Captiontext + popupID, timeout, Left, top );
}
}
/////////////////////////////////////////////////////////////////////////
// one time popup example by trash ....
// http://www.traderji.com/newreply.php?do=postreply&t=78419
/////////////////////////////////////////////////////////////////////////
/*
period = 5; // number of averaging periods
m = MA( Close, period );
Buy = Cross( Close, m );
Sell = Cross( m, Close );*//*
if( Status( "action" ) == actionIndicator )
{
Buy = ExRem( Buy, Sell );
Sell = ExRem( Sell, Buy );
alertstr1 = Name() + /*"_Last Bartime:" DateTimeToStr( LastValue( DateTime() )*/" IF "+Interval()/60+" MINUTES CANDLE CLOSE ABOVE => " + Ref(H,1)+" MaxWealth Consulting" ;
// alertstr2 = Name() + /*"_Last Bartime:" DateTimeToStr( LastValue( DateTime() )*/" IF "+Interval()/60+" MINUTES CANDLE CLOSE BELOW => " + Ref(L,1)+" MaxWealth Consulting" ;
//buyid = "";
//sellid = "";
//duration = secleft(); // one popup ocurrence AFTER confirmed signal
/*
if ( LastValue( Ref( Buy, -1 ) ) )
PopupWindowEx( buyid, "BUY " + alertstr1, "Buy Alert", duration, -1, -1 );
if ( LastValue( Ref( Sell, -1 ) ) )
PopupWindowEx( sellid, "SELL " + alertstr2, "Sell Alert", duration, 0, 0 );
Title = "Intrabar " + StaticVarGetText( "prevPopup:" + buyid ) +
"\nIntrabar " + StaticVarGetText( "prevPopup:" + sellid ) +
"\nBartime left: "+ duration;
//Plot( Buy, "True Buy Sig", colorGreen, styleLine, 0, 1, 0, 0, width = -80 );
//Plot( Sell, "True Sell Sig", colorRed, styleLine, 0, 1, 0, 0, width );
}
*/
/*
n=130;
per =11.5;
x = Cum(1);
s1=IIf(RSIa(L,n)>Min(RSIa(C,n),RSIa(O,n)),Min(RSIa (C,n),RSIa(O,n)),RSIa(L,n));
s11=IIf(RSIa(H,n)<Max(RSIa(C,n),RSIa(O,n)),Max(RSIa(C,n),RSIa(O,n)),RSIa(H,n));
pS = TroughBars( s1, per, 1 ) == 0;
endt= LastValue(ValueWhen( pS, x, 1 ));
startt=LastValue(ValueWhen( pS, x, 2 ));
dtS =endt-startt;
endS = LastValue(ValueWhen( pS, s1, 1 ) );
startS = LastValue( ValueWhen( pS, s1, 2 ));
aS = (endS-startS)/dtS;bS = endS;
trendlineS = aS * ( x -endt ) + bS;
pR = PeakBars( s11, per, 1 ) == 0;
endt1= LastValue(ValueWhen( pR, x, 1 ));
startt1=LastValue(ValueWhen( pR, x, 2 ));
dtR =endt1-startt1;
endR = LastValue(ValueWhen( pR, s11, 1 ) );
startR = LastValue( ValueWhen( pR, s11, 2 ));
aR = (endR-startR)/dtR;
bR = endR;
trendlineR = aR * ( x -endt1 ) + bR;
//Plot(ValueWhen( (S1==trendlineS ), L),"", colorGreen, styleDashed|styleNoRescale|styleThick);
//Plot(ValueWhen((S11==trendlineR ), H),"", colorRed, styleDashed|styleNoRescale|styleThick);
Buy = Ref(S1==trendlineS ,-5);
Sell = Ref(S11==trendlineR ,-7);
Buy = ExRem( Buy, Sell );
Sell = ExRem( Sell, Buy );
AlertIf( Buy, "", "BUY @ " + C, 1 );
AlertIf( Sell, "", "SELL @ " + C, 2 );
//PlotShapes( Buy * shapeUpArrow + Sell * shapeDownArrow, IIf( Buy, colorBlue, colorPink),High,Low );
PlotShapes(IIf(Buy, shapeUpTriangle,shapeNone) ,colorGold,0, Low, Offset=-10) ;
PlotShapes(IIf(Buy, shapeSmallCircle,shapeNone) ,colorBlue,0, Low, Offset=-12) ;
PlotShapes(IIf(Sell, shapeDownTriangle,shapeNone),colorGold,0, High, Offset=-1) ;
PlotShapes(IIf(Sell, shapeSmallCircle,shapeNone),colorRed,0, High, Offset=3) ;
dist = 0.8*ATR(10);
dist1 = 2*ATR(10);
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] )
{
PlotText( "\n Heavy Fire Up Ahead " , i, L[ i ]-dist[i], colorBlack, colorGreen );
}
if( Sell[i] )
{
PlotText( " Heavy Down Fall Ahead " , i, H[ i ]+dist1[i], colorBlack, colorRed );
}
}
*/
_SECTION_BEGIN("Wilders");
P = ParamField("Price field",-1);
Periods = 15;//Param("Periods", 15, 2, 300, 1, 10 );
Plot(W= Wilders( P, Periods ), _DEFAULT_NAME(), colorDefault, styleNoDraw );
_SECTION_END();
_SECTION_BEGIN("Time Left");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
TimeFrame = Interval();
SecNumber = GetSecondNum();
Newperiod = SecNumber % TimeFrame == 0;
SecsLeft = SecNumber - int( SecNumber / TimeFrame ) * TimeFrame;
SecsToGo = TimeFrame - SecsLeft;
x=Param("xposn",50,0,1000,1);
y=Param("yposn",380,0,1000,1);
GfxSelectSolidBrush( ColorRGB( 230, 230, 230 ) );
GfxSelectPen( ColorRGB( 230, 230, 230 ), 2 );
if ( NewPeriod )
{
GfxSelectSolidBrush( colorYellow );
GfxSelectPen( colorYellow, 2 );
Say( "New period" );
}
//GfxRoundRect( x+45, y+40, x-3, y-2, 0, 0 );
//GfxSetBkMode(1);
GfxSelectFont( "Arial", 12, 550, False );
GfxSetTextColor( colorGold );
GfxTextOut( "Time Left For "+Interval()/60+" Minutes Candle Close => "+SecsToGo+" Seconds", x+155, y-179 );
_SECTION_END();
B1 = C>RED OR C>W;
B2 = C>RED AND C>W;
B3 = B1 AND B2;
S1 = C<RED OR C<W;
S2 = C<RED AND C<W;
S3 = S1 AND S2;
S4 = H>=W AND C<=W;
S5 = H>=RED;
S6 = S4 OR S5;
S7 = S3 AND S6;
S8 = S4 AND S7;
B3 = ExRem(B3,s8);
S8 = ExRem(S8,b3);
//ex = BarsSince(Sell);
//GfxTextOut("bars = "+ex,50,100);
s8 = ExRemSpan(s8,10);
b3 = ExRemSpan(b3,10);
PlotShapes(IIf(s8, shapeSmallDownTriangle,shapeNone) ,colorRed,0, H, Offset=-30) ;
PlotShapes(IIf(b3, shapeSmallUpTriangle,shapeNone) ,colorBlue,0, Low, Offset=-30) ;
/****************/
/* */
/* ALERT OUTPUT */
/* */
/****************/
TxtX1 = Param("Text Left", 600, 0, 1000, 10);
TxtY1 = Param("Text Top", 61, 1, 650, 10);
GfxSelectFont("Tahoma", 14, 700 );
GfxSetBkMode(1);
if(LastValue(B3) OR SelectedValue(B3))
{
GfxSetTextColor(colorBrightGreen);
GfxTextOut("BUY Signal Confirmed ", TxtX1, TxtY1);
GfxTextOut("BUY Now Between "+H+" - "+L, TxtX1, TxtY1+20);
GfxTextOut("Buy Confirmed @ "+(O+H+L+C)/4,TxtX1-475,TxtY1+37);
Say("");
}
else if(LastValue(S8) OR SelectedValue(S8))
{
GfxSetTextColor(colorRed);
GfxTextOut("SELL Signal Confirmed ", TxtX1, TxtY1);
GfxTextOut("SELL Now Between "+L+" - "+H, TxtX1, TxtY1+20);
GfxTextOut("Sell Confirmed @ "+(O+H+L+C)/4,TxtX1-475,TxtY1+37);
Say("");
}
else
{
GfxSetTextColor(colorGold);
GfxTextOut(" ", TxtX1, TxtY1);
GfxTextOut("", TxtX1, TxtY1);
}