_SECTION_BEGIN("3 Price Break");
Title = Name()+ " Price Break Indicator." ;
//+ "  Trend is " + Trend_Text + ".  SEQUENCE IS " + Sequence_Text;
Plot(C,Title,colorBlack,styleCandle);

/////////   Parameters  ////////

nBars_To_Scan = Param("Number of bars to Scan",20, 10,480, 10);		//Number of bars to include in scan
PB_Interval = Param("Number of Bars for Price Break",3,2,3,1);

/////////  Use Array of Prices and Price Breaks to Look Back and Determine What Price Break is For Current Bar
Seedbar = nBars_To_Scan + 1;					//Need an initial value to start the PB process
if (BarCount > Seedbar) 						//Make sure there are enough bars available to evaluate
{
											
Price[0]= LastValue(Ref(C,-Seedbar));			//Seed the 0 Bar in the Array with Values
Trend[0]=1;										//1 = Long, 0=Short
Sequence[0]=0;									//Sequence counter - counts number of new price breaks
Price_Break[0] = LastValue(Ref(C,-Seedbar));
High_C1[0] = LastValue(Ref(C,-Seedbar));		//Highest Close 1 Ago
High_C2[0]= LastValue(Ref(C,-Seedbar));			//Highest Close 2 Ago
High_C3[0]= LastValue(Ref(C,-Seedbar));			//Highest Close 3 Ago
Low_C1[0] = LastValue(Ref(C,-Seedbar));			//Lowest Close 1 Ago
Low_C2[0] = LastValue(Ref(C,-Seedbar));			//Lowest Close 2 Ago
Low_C3[0] = LastValue(Ref(C,-Seedbar));			//Lowest Close 3 Ago
											
for ( i=1; i < Seedbar ; i++) 			//Cycle through prices filling in price array and caculating price breaks 
{											
	Prior = i-1;									//Index for Prior entry in array.  Set the current array values to 
	Trend[i]=Trend[Prior];						//prior values to make sure everything that isn't changed later
	Price_Break[i] = Price_Break[Prior];			//gets carried forward to the next row in the array.
			Low_C1[i] = Low_C1[Prior]; 			//Carryover current values
			Low_C2[i] = Low_C2[Prior];
			Low_C3[i] = Low_C3[Prior];  
			High_C1[i] = High_C1[Prior];			//Carryover current values
			High_C2[i] = High_C2[Prior];
			High_C3[i] = High_C3[Prior];
			Sequence[i] = Sequence[Prior];

	Price[i] = LastValue (Ref (C,-(Seedbar-i)));	//Seedbar is the bar just in front of where I start the method.  Works since i starts at 1

	if (Price[i] >Price[Prior] AND Trend[Prior] == 1 )	// If Close is Greater than the prior close And the Trend is Long
	{		if (Price[i] >High_C1[Prior])			//If the Close is greater than the last highest close
			{									//Test For Price Break.  The IIF is there to accomodate a 2 price or 3 price break option
												//based on the PB_Interval parameter
			Price_Break[i] = IIf(PB_Interval == 3,High_C3[Prior],IIf(PB_Interval == 2,High_C2[Prior],High_C3[Prior]));	
												//The 3PB method says I take the highest close 4 ago as the new price break.
			Sequence[i] = Sequence[i] + 1;		//Increment Sequence if Price Break
			High_C3[i] = High_C2[Prior];			//Stacking the higher closes like this avoids having to go back and iterate through the.
			High_C2[i] = High_C1[Prior];			//closes to find and count the higher closes.  They are just carried forward in the stack.
			High_C1[i] = Price[i];				//When a higher close occurs, it is put on the top of the stack, each close below is
			}									//pushed down in sequence, and the earliest (farthest back) close goes away.
	}		

	if (Price[i] >Price[Prior] AND Trend[Prior] == 0 )	// If Close is Greater than the prior close And the Trend is Short
	{		if (Price[i] >Price_Break[Prior])		//If Close > Price Break in trend is Short, Reverse and go Long
			{
			High_C1[i] = High_C2[i] = High_C3[i] = Price[i];				//Initialize sequence of new Highs
			Price_Break[i] = Price[i];				//Set new value for Price Break
			Trend[i] = 1;							//Set the trend Long
			Sequence = 0;
			}
	}		

	if (Price[i] <Price[Prior] AND Trend[Prior] ==0)	// If The Close is less than the prior close And the Trend is Short
	{		if (Price[i] <Low_C1[Prior])			//If the Close is less than the last lowest close
			{
			Price_Break[i] = IIf(PB_Interval == 3,Low_C3[Prior],IIf(PB_Interval == 2,Low_C2[Prior],Low_C3[Prior]));	//Test For Price Break
			Sequence[i] = Sequence[i] + 1;		//Increment Sequence if Price Break
			Low_C3[i] = Low_C2[Prior];			//Update sequence of new Lows
			Low_C2[i] = Low_C1[Prior];
			Low_C1[i] = Price [i];
			}
	}		

	if (Price[i] <Price[Prior] AND Trend[Prior] ==1)	// If The Close is less than the prior close And the Trend is Long
	{		if (Price[i] < Price_Break[Prior])				//If Close < Price Break in Long Trend, reverse and go Short
			{
			Low_C1[i] = Low_C2[i] = Low_C3[i] = Price[i];	//Initialize sequence of new Lows
			Price_Break[i] = Price[i];							//Set new value for Price Break
			Trend[i] = 0;								//Set Trend Short
			Sequence = 0;
			}
	}		

////  Plot the Price Breaks.
Bar_x1=BarCount - (nBars_To_Scan - Prior );
Bar_x2=BarCount - ( nBars_To_Scan - i);
PB_Color = IIf(Trend[i] == 1,colorGreen, colorRed);
Plot(LineArray(Bar_x1,Price_Break[i],Bar_x2,Price_Break[i],extend=0),"",PB_Color,styleThick);
Sequence_Text = NumToStr(Sequence,format=1.0);
Trend_Text = WriteIf(Trend[i] > 0, "Long","Short");

}												//Close the For Loop

}												//Close the first test for sufficient bars to do the study
_SECTION_END();


SetChartOptions(0,chartShowArrows|chartShowDates);
GraphXSpace=5;
Plot(C,"",colorBlack,styleCandle);

_SECTION_BEGIN("Magnified Market Price");
//by Vidyasagar, (E? ??? C?????? ??? ???? ?IC?? ?O??? C???EI?)// 
FS=Param("Font Size",35,11,100,1);
GfxSelectFont("Times New Roman", FS, 700, True ); 
GfxSetBkMode( colorWhite ); 
GfxSetTextColor( ParamColor("Color",colorGreen) ); 
Hor=Param("Horizontal Position",750,1,1200,1);
Ver=Param("Vertical Position",1,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",colorGreen) ); 
GfxTextOut(""+DD+" ("+xx+"%)", Hor , Ver+45 );
_SECTION_END();


_SECTION_BEGIN("Price");
//SetChartBkColor( colorBlack ); 
Col_1 = IIf(EMA(RSI(39),30) > Ref(EMA(RSI(39),30),-1),colorGreen,colorRed);
//Plot( C, "", col_1, styleBar); 
Plot(C,"",Col_1,128);

_SECTION_END();

Plot(EMA(C,10), "EMA(10)", colorRed, styleLine| styleNoLabel);
Plot(EMA(C,50), "EMA(50)", colorBlue, styleLine| styleNoLabel);
Plot(MA(C,200), "MA(200)", colorRed, styleThick| styleNoLabel);
_SECTION_END();

_SECTION_BEGIN("Phase");
RCP = C > EMA(C,50) AND EMA(C,50) < MA(C,200); // Recovery                         Blue
ACP = C > EMA(C,50) AND C > MA(C,200) AND EMA(C,50) < MA(C,200); // Accumulation   seagreen
BLP = C > EMA(C,50) AND C > MA(C,200) AND EMA(C,50) > MA(C,200); // Bullish        Limegreen
WRP = C < EMA(C,50) AND EMA(C,50) > MA(C,200); // Warning                          Pink
DSP = C < EMA(C,50) AND C < MA(C,200) AND EMA(C,50) > MA(C,200); // Distribution   Orange
BRP = C < EMA(C,50) AND C < MA(C,200) AND EMA(C,50) < MA(C,200); // Bearish        Red

//Plot( 1, "", IIf(RCP, colorBlue, IIf(ACP, colorSeaGreen, IIf(BLP, colorDarkGreen, IIf(WRP, colorOrange, IIf(DSP, colorRed, IIf(BRP, colorDarkRed, 0)))))), styleOwnScale|styleArea|styleNoLabel, -0.1, 50 );
Plot( 1, "", IIf(RCP, colorBlue, IIf(ACP, colorAqua, IIf(BLP, colorLime, IIf(WRP, colorPink, IIf(DSP, colorOrange, IIf(BRP, colorRed, 0)))))), styleOwnScale|styleArea|styleNoLabel, -0.1, 50 );

Buy_cross1050 = Cross(EMA(Close,10),EMA(Close,50));

Sell_cross1050 = Cross(EMA(Close,50),EMA(Close,10));



Buy_cross1050 = ExRem(Buy_cross1050, Sell_cross1050  );
sell_cross1050 = ExRem(sell_cross1050, buy_cross1050  );
dist = 1.5*ATR(10); 
for( i = 0; i < BarCount; i++ ) 
{ 

HH1 = HHV(H,20);
LL1 = LLV(L,20);

if( Buy_cross1050[i] ) PlotText( "A=" + HH1[ i ], i, L[ i ]-dist[i], colorBlack, colorLime); 
if( sell_cross1050[i] ) PlotText( "A=" + LL1[ i ], i, H[ i ]+dist[i], colorLightYellow, colorRed); 
}


PlotShapes(Buy_cross1050*shapeUpArrow,colorGreen, 0, Low, Offset =-12);
PlotShapes(sell_cross1050*shapeDownArrow,colorRed, 0, High, Offset =-12);

pds = 20;
DonchianUpper =HHV(Ref(H,-1),pds);
DonchianLower = LLV(Ref(L,-1),pds);


Buy_Price = C;
Sell_Price = C;

BuySL  = DonchianLower ;
SellSL = DonchianUpper;

BPdiff = HH1 - BuySL ;
SPdiff = LL1 - SellSL;

SwingBuy = (BPdiff/BuySL)*100 ;
SwingSell = (SPdiff/SellSL)*100 ;

BuyTarget = Buy_Price + BPdiff ;
SellTarget = Sell_Price + SPdiff ; 



// Exploration

Filter=Buy_cross1050 OR sell_cross1050;// OR Buy_cross10200 OR sell_cross10200;// OR Buy_cross50200 OR sell_cross50200;
mytimenum = DateTimeConvert( 1, DateTime() ); 

AddColumn( IIf(Buy_cross1050,C,IIf(sell_cross1050,-C,Null)) ,"A=Cross",1.1,colorBlack,IIf(Buy_cross1050,colorLightGrey,IIf(sell_cross1050,colorLightGrey,colorLightGrey)));
AddColumn( IIf(Buy_cross1050,HH1,IIf(sell_cross1050,-LL1,Null)) ,"Enter",1.1,colorBlack,IIf(Buy_cross1050,colorGreen,IIf(sell_cross1050,colorRed,colorLightGrey)));
AddColumn( IIf(Buy_cross1050 ,Prec(SwingBuy,1),IIf(Sell_cross1050 ,Prec(SwingSell,1),Null)) ,"%SWING",1.1,colorBlack,IIf(Buy_cross1050 ,colorLightGrey,IIf(Sell_cross1050 ,colorLightGrey,colorLightGrey)));

AddColumn( mytimenum,"TimeNum",colorBlack);
SetSortColumns(-6);
_SECTION_END();

_SECTION_BEGIN( "Fundamental Data" );

    if ( ParamToggle( "Show Columns in AA", "Off,On", 1 ) )
    {
        AddColumn( GetFnData( "EPS" ), "EPS" );
        AddColumn( GetFnData( "EPSEstCurrentYear" ), "EPS Est Current Year" );
        AddColumn( GetFnData( "EPSEstNextYear" ), "EPS Est Next Year" );
        AddColumn( GetFnData( "EPSEstNextQuarter" ), "EPS Est Next Quarter" );
        AddColumn( GetFnData( "PEGRatio" ), "PEG Ratio" );
        AddColumn( GetFnData( "SharesFloat" ), "Shares Float", 1.0 );
        AddColumn( GetFnData( "SharesOut" ), "Shares Out", 1.0 );
        AddColumn(GetFnData("DividendPayDate"),"Dividend Pay Date");
        AddColumn(GetFnData("ExDividendDate"),"Ex Dividend Date");
        AddColumn( GetFnData( "BookValuePerShare" ), "Book Value Per Share" );
        AddColumn( GetFnData( "DividendPerShare" ), "Dividend Per Share" );
        AddColumn( GetFnData( "ProfitMargin" ), "Profit Margin" );
        AddColumn( GetFnData( "OperatingMargin" ), "Operating Margin" );
        AddColumn( GetFnData( "OneYearTargetPrice" ), "One Year Target Price" );
        AddColumn( GetFnData( "ReturnOnAssets" ), "Return On Assets" );
        AddColumn( GetFnData( "ReturnOnEquity" ), "Return On Equity" );
        AddColumn( GetFnData( "QtrlyRevenueGrowth" ), "Qtrly Revenue Growth" );
        AddColumn( GetFnData( "GrossProfitPerShare" ), "Gross Profit Per Share" );
        AddColumn( GetFnData( "SalesPerShare" ), "Sales Per Share" );
        AddColumn( GetFnData( "EBITDAPerShare" ), "EBITDA Per Share" );
        AddColumn( GetFnData( "QtrlyEarningsGrowth" ), "Qtrly Earnings Growth" );
        AddColumn( GetFnData( "InsiderHoldPercent" ), "Insider Hold Percent" );
        AddColumn( GetFnData( "InstitutionHoldPercent" ), "Institution Hold Percent" );
        AddColumn( GetFnData( "SharesShort" ), "Shares Short", 1.0 );
        AddColumn( GetFnData( "SharesShortPrevMonth" ), "Shares Short Prev Month", 1.0 );
        AddColumn( GetFnData( "ForwardDividendPerShare" ), "Forward Dividend Per Share" );
        AddColumn( GetFnData( "ForwardEPS" ), "Forward EPS" );
        AddColumn( GetFnData( "OperatingCashFlow" ), "Operating Cash Flow", 1.0 );
        AddColumn( GetFnData( "LeveredFreeCashFlow" ), "Levered Free Cash Flow", 1.0 );
        AddColumn( GetFnData( "Beta" ), "Beta" );
        AddColumn( GetFnData( "LastSplitRatio" ), "Last Split Ratio" );
        AddColumn(GetFnData("LastSplitDate"),"Last Split Date");
    }

    _SECTION_END();