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

INTRADAY AFL for Amibroker (AFL)

Copy & Paste Friendly
//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); 
			}
Back