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

Yancedolly Bands V.6. for Amibroker (AFL)

Rating:
3 / 5 (Votes 5)
Tags:
amibroker, bands

Have a nice day..

Screenshots

Indicator / Formula

Copy & Paste Friendly
_SECTION_BEGIN("Background Color");
BKswitch = ParamToggle("Background Color","On,Off");
 
OUTcolor =colorBlack;// ParamColor("Outer Panel Color",colorBlack);
INUPcolor =colorBlack;// ParamColor("Inner Panel Upper",colorBlack);
INDNcolor =colorBlack;// ParamColor("Inner Panel Lower",colorBlack);
TitleColor =colorBlack;// ParamColor("Title Color ",colorBlack);
 
if (NOT BKswitch)
{
SetChartBkColor(OUTcolor); // color of outer border
SetChartBkGradientFill(INUPcolor,INDNcolor,TitleColor); // color of inner panel
}
_SECTION_END();

_SECTION_BEGIN("Parameter Color");
Line1=17;//ParamColor("Line Yancedolly Bands Medium Cycle Color",17);
Line2=6;//ParamColor("Line Yancedolly Bands Short Cycle Color",6);
Line3=9;//ParamColor("Line Floor Top Color",9);
Peak_valley_color=ColorRGB(0,0,23);//ParamColor("Peak_valley_color",colorPaleBlue);
Vol1=colorDarkGreen;//ParamColor("Vol Up Color",colorDarkGreen);
Vol2=colorDarkRed;//ParamColor("Vol Down Color",colorDarkRed);
Vol3=colorDarkGrey;//ParamColor("Vol Avarage Color",23);
price1=colorRose;//ParamColor("Price Color",colorRose);
price2=colorBrightGreen;//ParamColor("Price Down Color",colorBrightGreen);
price3=colorRed;//ParamColor("Price Up Color",colorRed);
_SECTION_END();

_SECTION_BEGIN("Peak & Valley");
// E.M.Pottasch 09/06/10
//nbar =Param("nbar",3,1,5,1);
nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
//GraphXSpace = 5;
//SetChartOptions(0, chartShowDates);
//Plot(C,"\nLast",colorWhite,styleCandle);
 
//Plot(PHighPrice1,"\nPHighPrice",colorOrange,styleThick);
//Plot(PHighPrice2,"",colorOrange,styleDots | styleNoLine);
//Plot(PLowPrice1,"\nPLowPrice",colorBrightGreen,styleThick);
//Plot(PLowPrice2,"",colorBrightGreen,styleDots | styleNoLine);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
 
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);


//Plot( Flip( Buy, Sell ), "Trade", colorDarkGreen, styleArea | styleOwnScale, 0, 1 );
 
//PlotShapes(IIf(Buy , shapeSmallUpTriangle, shapeNone) ,colorGreen, 0,L,-30);
//PlotShapes(IIf( Sell, shapeSmallDownTriangle, shapeNone) ,colorOrange, 0,H,-25);
_SECTION_END();

_SECTION_BEGIN("SHR");
SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );

if (NOT ParamToggle("SHR_PEAK Line ","On,Off"))
{
if (NOT ParamToggle("SHR_PEAK Type ","On,Off"))
{ 
Plot(Hh,"",colorOrange,styleDashed=32);
Plot(Ll,"",colorBrightGreen,styleDashed=32);
//Peak_valley_color=ColorRGB(0,0,23);
//Plot( Flip( Buy_shr2 , Sell_shr2 ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
else
{ 
Plot(PHighPrice0,"",colorOrange,styleDashed=32);
Plot(PLowPrice0 ,"",colorBrightGreen,styleDashed=32);
//Peak_valley_color=ColorRGB(0,0,23);
//Plot( Flip( Buy_peak, Sell_peak ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
}

/*
if (NOT ParamToggle("SHR_PEAK Color ","On,Off"))
{
if (NOT ParamToggle("SHR_PEAK Color Type ","On,Off"))
{ 
Peak_valley_color=ColorRGB(0,0,23);
Plot( Flip( Buy_shr2 , Sell_shr2 ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
else
{ 
Peak_valley_color=ColorRGB(0,0,23);
Plot( Flip( Buy_peak, Sell_peak ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
}*/
_SECTION_END();

_SECTION_BEGIN("Volume");
/* basic variable defs
 ud: up-Day (Close up from Open)
 dd: down-Day (Close down from Open)
 uc: up-Close (Close up from previous Close)
 dc: down-Close: (Close down from previous Close)
*/
C1 = Ref(C, -1);
uc = C > C1; dc = C <= C1;
ud = C > O; dd = C <= O;
 
/*
Volume Day types:
 green: up-day and up-close
 yellow: up-day but down-close
 red: down-day and down-close
 blue: down-day but up-close
 white: close equals open, close equals previous close
 
(currently unused vtypes are for future enhancements)
*/
green = 1; blue = 2; yellow = 3; red = 4; white = 5;
VType = IIf(ud,            
            IIf(uc, green, yellow),
         IIf(dd,
            IIf(dc, red, blue), white));
 
/* green volume: up-day and up-close*/
gv = IIf(VType == green, V, 0);
/* yellow volume: up-day but down-close */
yv = IIf(VType == yellow, V, 0);
/* red volume: down-day and down-close */
rv = IIf(VType == red, V, 0);
/* blue volume: down-day but up-close */
bv = IIf(VType == blue, V, 0);
if (ParamToggle("Volume Switch","On,Off"))
{
Plot( Volume, _DEFAULT_NAME(), IIf( VType==green OR VType==blue, Vol1, Vol2), styleNoTitle | ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram  ), 2 );
Plot(MA(Volume,5/*Param("MA Periods",5,5,50,1)*/),"",Vol3,styleLine |styleOwnScale ,5/*Param("Scale",5,1,20,1)*/);
}
_SECTION_END();
_SECTION_BEGIN("Price");
K1=5;// Param("EMA Periods?",5,3,50);
K2=10;// Param("ATR Periods?",10,2,50);
Mul=1;//Param("ATR Multiplier?",1,0.5,5,0.5);
Mi=EMA(C, K1);
Kel= ATR(K2)*Mul;
UB= Mi + Kel;
LB= Mi - Kel;
GraphXSpace = 5;
SetChartOptions( 0, chartShowDates | chartShowArrows | chartLogarithmic | chartWrapTitle );
_N( Title = StrFormat( "{{NAME}} - " + SectorID( 1 ) + " - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " + WriteVal( V, 1.0 ) + " {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ) );
Plot(C,"", IIf(L<=LB,price2,IIf(H>=UB,price3,price1)),styleCandle);
_SECTION_END();


_SECTION_BEGIN("Automatic Fibonacci");
// Get values for fib levels
 
StartBar=SelectedValue(BarIndex());
FinishBar = EndValue( BarIndex() );
i = startbar;
period = FinishBar - StartBar;
 
Lo =LLV(L,period);
Hi = HHV(H,period);
Line0 = 0;
Line1 = 0;
Line2 = 0;
Line3 = 0;
Line4= 0;
Line5= 0;
Line6= 0;
Line7= 0;
Line100 = 0;
 
for( i = startbar; i < finishbar; i++ )
{
if(EndValue(C)<SelectedValue(C))
{
Line0  = EndValue(Lo);
Line100 = EndValue(Hi);
Line1 = Line0 + abs(Line100-Line0)*0.236;
Line2 = Line0 + abs(Line100-Line0)*0.382;
Line3 = Line0 + abs(Line100-Line0)*0.5;
Line4 = Line0 + abs(Line100-Line0)*0.618;
Line5 = Line0 + abs(Line100-Line0)*0.786;
Line6 = Line0 + abs(Line100-Line0)*1.618;
Line7 = Line0 + abs(Line100-Line0)*2.618;
 
}
else
{
Line100  = EndValue(Lo);
Line0 = EndValue(Hi);
Line1 =Line0 - abs(Line100-Line0)*0.236;
Line2 = Line0 - abs(Line100-Line0)*0.382;
Line3 = Line0 - abs(Line100-Line0)*0.5;
Line4 = Line0 - abs(Line100-Line0)*0.618;
Line5 = Line0 - abs(Line100-Line0)*0.786;
Line6 = Line0 - abs(Line100-Line0)*1.618;
Line7 = Line0 - abs(Line100-Line0)*2.618;
 
}
}
 
// external fib lines begining fom selecetdbarindex()
fib0= LineArray(startbar, Line0, finishbar, Line0, 0, 1);
fib100 = LineArray(startbar, Line100, finishbar, Line100, 0, 1);
 
// depth of middle lines
n= round((finishbar-startbar)/2);
 
// middle lines
fib1= LineArray((finishbar-n), Line1, finishbar, Line1, 0, 1);
fib2= LineArray((finishbar-n), Line2, finishbar, Line2, 0, 1);
fib3= LineArray((finishbar-n), Line3, finishbar, Line3, 0, 1);
fib4= LineArray((finishbar-n), Line4, finishbar, Line4, 0, 1);
fib5= LineArray((finishbar-n), Line5, finishbar, Line5, 0, 1);
fib6= LineArray((finishbar-n), Line6, finishbar, Line6, 0, 1);
fib7= LineArray((finishbar-n), Line7, finishbar, Line7, 0, 1);

if (ParamToggle("Automatic Fibonacci","On,Off"))
{
Plot(fib0,"", colorWhite);
Plot(fib100,"", colorRed);
Plot(fib1,"", colorGrey50);
Plot(fib2,"", colorGrey50);
Plot(fib3,"", colorOrange);
Plot(fib4,"", colorGrey50);
Plot(fib5,"", colorGrey50);
}
if (ParamToggle("Fib6","On,Off"))
{ 
Plot(fib6,"", colorDarkTeal);
}
if (ParamToggle("Fib7","On,Off"))
{ 
Plot(fib7,"", colorViolet);
 }
//Title = Name() + " -  FIB LEVELS ";
_SECTION_END();

_SECTION_BEGIN("Yancedolly Bands");
CY2 =80/2;//  Param("Medium Cycle Length?" ,80, 1 ,1000 ,1 )/2;
M2 = 1;// Param("Medium Cycle Multiplyer?" ,3, 0.01 ,10 ,1 );
UpY=EMA(C, CY2)+M2*ATR(CY2);
MdY=EMA(C, CY2);
DnY=EMA(C, CY2)-M2*ATR(CY2);


UpperBand4 =EMA( C, CY2) + ( 6.8540 * ATR(CY2));
UpperBand3 =EMA( C, CY2) + ( 4.2360 * ATR(CY2));
UpperBand2=EMA( C, CY2) +  ( 2.6180 * ATR(CY2));
UpperBand1=EMA( C, CY2) +  ( 1.6180 * ATR(CY2));
 
MidPoint=EMA(C, CY2);
 
LowerBand1=EMA( C, CY2) - ( 1.6180 * ATR(CY2));
LowerBand2=EMA( C, CY2) - ( 2.6180 * ATR(CY2));
LowerBand3=EMA( C, CY2) - ( 4.2360 * ATR(CY2));
LowerBand4=EMA( C, CY2) - ( 6.8540 * ATR(CY2));

if (ParamToggle("Yancedolly Band Line ","On,Off"))
{
Plot(UpperBand4,"UpperBand4",colorDarkTeal,1);
Plot(UpperBand3,"UpperBand3",colorDarkGrey,1);
Plot(UpperBand2,"UpperBand2",colorDarkRed,1);
Plot(UpperBand1,"UpperBand1",colorViolet,1);
Plot(MidPoint,"MidPoint",colorDarkGreen,4);
Plot(LowerBand1,"LowerBand1",colorViolet,1);
Plot(LowerBand2,"LowerBand2",colorDarkRed,1);
Plot(LowerBand3,"LowerBand3",colorDarkGrey,1);
Plot(LowerBand4,"LowerBand4",colorDarkTeal,1);
}
else
{
Plot(UpperBand4,"",colorDarkTeal,1);
Plot(UpperBand3,"",colorDarkGrey,1);
Plot(UpperBand2,"",colorDarkRed,1);
Plot(UpperBand1,"",colorViolet,1);
Plot(MidPoint,"",colorDarkGreen,4);
Plot(LowerBand1,"",colorViolet,1);
Plot(LowerBand2,"",colorDarkRed,1);
Plot(LowerBand3,"",colorDarkGrey,1);
Plot(LowerBand4,"",colorDarkTeal,1);
}


//==============================================
//Type 22 --> Peak --> Modified 20140109
//==============================================

SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );

Buy_shr3=Buy_shr2;
Sell_shr3=Sell_shr2;

Up3BarFractal = Ref(H,-1) < H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up4BarFractal = Ref(H,-3) < H AND Ref(H,-2) <= H AND Ref(H,-1) <= H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up5BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
Up6BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND (H == Ref(H,1)) AND Ref(H,2) < H;// AND Ref(H,3) < H;
Up7BarFractal = Ref(H,-2) < H AND Ref(H,-1) <= H AND Ref(H,1) < H AND Ref(H,2) <= H;
Down3BarFractal = Ref(L,-1) > L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down4BarFractal = Ref(L,-3) > L AND Ref(L,-2) >= L AND Ref(L,-1) >= L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down5BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
Down6BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND (L == Ref(L,1)) AND Ref(L,2) > L;// AND Ref(L,3) > L;
Down7BarFractal = Ref(L,-2) > L AND Ref(L,-1) >= L AND Ref(L,1) > L AND Ref(L,2) >= L;
//TODO: More filtering: Show only troughs that are around atrough in trix(9).

Up = (Up3BarFractal OR Up4BarFractal OR Up5BarFractal OR Up6BarFractal OR Up7BarFractal);
Down = (Down3BarFractal OR Down4BarFractal OR Down5BarFractal OR Down6BarFractal OR Down7BarFractal);

Buy_Fractal7 = IIf(Down ,1,0);
Sell_Fractal7 = IIf(Up,1,0);

nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
//PHigh = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
//PLow = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);



//BuyDT=Buy_shr2
//OR (Buy_Fractal5 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
//OR (Buy_Fractal5 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
//OR (Buy_Fractal5  AND IsEmpty(LowerBand2)==1  );
//SellDT=(Sell_Fractal5 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
//OR (IIf(Ref(Flip( Buy_shr2, Sell_shr2),-1),1,0)==1 AND Sell_shr2)
//OR (Sell_Fractal5 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);

Buy_shr2=Buy_peak;
Sell_shr2=Sell_peak;

BuyDT=Buy_shr2 OR Buy_Fractal7;
SellDT=Sell_shr2 OR Sell_Fractal7;
//Change
BuyDT= //(Buy_Fractal  AND C<LowerBand1 AND C>LowerBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0) OR 
Buy_shr2 // OR (C<LowerBand2 AND IIf(Upper_x,1,0)==0 AND IIf(Flip( Buy_LowerBand2, Sell_LowerBand2),1,0)==0);
OR (Buy_Fractal7 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
//OR (Buy_Fractal7  AND C<UpperBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Buy_Fractal7 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR (Buy_Fractal7  AND IsEmpty(LowerBand2)==1  );//OR (Buy_fractal AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);
SellDT=(Sell_Fractal7 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
//(Sell_Fractal7 AND C<Lowerband2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
//OR (Sell_Fractal7 AND C>midpoint AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand2,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand3,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand4,C))
OR (IIf(Ref(Flip( Buy_shr2, Sell_shr2),-1),1,0)==1 AND Sell_shr2)
OR (Sell_Fractal7  AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);
//OR (Sell_Fractal7 AND C<UpperBand1 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
//OR (Sell_Fractal7 AND C>UpperBand3);



//==============================================
// END
//==============================================



BuyDT=ExRem(BuyDT,SellDT);SellDT=ExRem(SellDT,BuyDT);
//PlotShapes( BuyDT* shapeHollowUpTriangle, colorDarkRed,0, L, -18);
//PlotShapes( SellDT* shapeHollowDownTriangle, colorDarkRed,0, H, -18);

Buy=BuyDT;
Sell=SellDT;
Buy=ExRem(Buy,Sell);Sell=ExRem(Sell,Buy);

//==============================================
//Type 32 --> Peak --> Modified 20140109
//==============================================

SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );

Up3BarFractal = Ref(H,-1) < H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up4BarFractal = Ref(H,-3) < H AND Ref(H,-2) <= H AND Ref(H,-1) <= H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up5BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
Up6BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND (H == Ref(H,1)) AND Ref(H,2) < H;// AND Ref(H,3) < H;
Up7BarFractal = Ref(H,-2) < H AND Ref(H,-1) <= H AND Ref(H,1) < H AND Ref(H,2) <= H;
Down3BarFractal = Ref(L,-1) > L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down4BarFractal = Ref(L,-3) > L AND Ref(L,-2) >= L AND Ref(L,-1) >= L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down5BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
Down6BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND (L == Ref(L,1)) AND Ref(L,2) > L;// AND Ref(L,3) > L;
Down7BarFractal = Ref(L,-2) > L AND Ref(L,-1) >= L AND Ref(L,1) > L AND Ref(L,2) >= L;
//TODO: More filtering: Show only troughs that are around atrough in trix(9).

Up = (Up3BarFractal OR Up4BarFractal OR Up5BarFractal OR Up6BarFractal OR Up7BarFractal);
Down = (Down3BarFractal OR Down4BarFractal OR Down5BarFractal OR Down6BarFractal OR Down7BarFractal);

Buy_Fractal7 = IIf(Down ,1,0);
Sell_Fractal7 = IIf(Up,1,0);

nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
//PHigh = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
//PLow = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);

Buy_shr2=Buy_peak;
Sell_shr2=Sell_peak;

/*Buy_fract1= //(Buy_Fractal  AND C<LowerBand1 AND C>LowerBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0) OR 
Buy_shr2 // OR (C<LowerBand2 AND IIf(Upper_x,1,0)==0 AND IIf(Flip( Buy_LowerBand2, Sell_LowerBand2),1,0)==0);
OR (Buy_Fractal3 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
//OR (Buy_Fractal3  AND C<UpperBand3 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Buy_Fractal2  AND C<LowerBand1 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR (Buy_Fractal  AND IsEmpty(LowerBand2)==1  );//OR (Buy_fractal AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);
Sell_fract1=(Sell_Fractal2 AND C<Lowerband2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR (Sell_Fractal2 AND C>=Lowerband2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand2,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand3,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand4,C))
OR (IIf(Ref(Flip( Buy_shr2, Sell_shr2),-1),1,0)==1 AND Sell_shr2)
OR (Sell_Fractal2 AND C<UpperBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Sell_Fractal2 AND C>UpperBand3);*/

Buy_fract1=Sell_Fractal7;
Sell_fract1=Ref(Sell_Fractal7,1);

//==============================================
// END
//==============================================
Buy_fract1=ExRem(Buy_fract1,Sell_fract1);Sell_fract1=ExRem(Sell_fract1,Buy_fract1);

//==============================================
//Type 22SC --> Peak --> Modified 20140315
//==============================================

SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );



Up3BarFractal = Ref(H,-1) < H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up4BarFractal = Ref(H,-3) < H AND Ref(H,-2) <= H AND Ref(H,-1) <= H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up5BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
Up6BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND (H == Ref(H,1)) AND Ref(H,2) < H;// AND Ref(H,3) < H;
Up7BarFractal = Ref(H,-2) < H AND Ref(H,-1) <= H AND Ref(H,1) < H AND Ref(H,2) <= H;
Down3BarFractal = Ref(L,-1) > L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down4BarFractal = Ref(L,-3) > L AND Ref(L,-2) >= L AND Ref(L,-1) >= L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down5BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
Down6BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND (L == Ref(L,1)) AND Ref(L,2) > L;// AND Ref(L,3) > L;
Down7BarFractal = Ref(L,-2) > L AND Ref(L,-1) >= L AND Ref(L,1) > L AND Ref(L,2) >= L;
//TODO: More filtering: Show only troughs that are around atrough in trix(9).

Up = (Up3BarFractal OR Up4BarFractal OR Up5BarFractal OR Up6BarFractal OR Up7BarFractal);
Down = (Down3BarFractal OR Down4BarFractal OR Down5BarFractal OR Down6BarFractal OR Down7BarFractal);

Buy_Fractal7 = IIf(Down ,1,0);
Sell_Fractal7 = IIf(Up,1,0);

nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
//PHigh = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
//PLow = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);

//Buy_shr2=Buy_peak;
//Sell_shr2=Sell_peak;

/*BuySC= //(Buy_Fractal  AND C<LowerBand1 AND C>LowerBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0) OR 
Buy_shr2 // OR (C<LowerBand2 AND IIf(Upper_x,1,0)==0 AND IIf(Flip( Buy_LowerBand2, Sell_LowerBand2),1,0)==0);
OR (C<UpperBand1 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
//OR (Buy_Fractal3 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Buy_Fractal2  AND C<LowerBand1 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR (Buy_Fractal  AND IsEmpty(LowerBand2)==1  );//OR (Buy_fractal AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);
SellSC=(Sell_Fractal2 AND C<Lowerband2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR (Sell_Fractal2 AND C>midpoint AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand2,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand3,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand4,C))
OR (IIf(Ref(Flip( Buy_shr2, Sell_shr2),-1),1,0)==1 AND Sell_shr2)
//OR (Sell_Fractal2 AND C<UpperBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Sell_Fractal2 AND C>UpperBand3);
*/
//BuySC=(Buy_Fractal4 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);
//SellSC=(Sell_Fractal2 AND C>UpperBand3);

BuySC=Buy_Fractal7;
SellSC=Ref(Buy_Fractal7,1);

//==============================================
// END
//==============================================
//BuySC=ExRem(BuySC,SellSC);SellSC=ExRem(SellSC,BuySC);


if (NOT ParamToggle("Smooth CCI Switch","On,Off"))
{
PlotShapes( BuyDT* shapeHollowUpTriangle, 11,0, L, -18);
PlotShapes( SellDT* shapeHollowDownTriangle, 11,0, H, -18);

PlotShapes( Buy_fract1 * shapeHollowSmallCircle, colorBlue,0, L, -5);
PlotShapes( Sell_fract1 * shapeHollowSmallCircle, colorBlue,0, H, 5);

PlotShapes( BuySC * shapeHollowSmallCircle, colorYellow,0, L, -10);
PlotShapes( SellSC * shapeHollowSmallCircle, colorYellow,0, H, 10);
}
PlotShapes( Buy_peak * shapeHollowUpTriangle, colorDarkYellow,0, L, -22);
PlotShapes( Sell_peak * shapeHollowDownTriangle, colorDarkYellow,0, H, -22);

_SECTION_END();

_SECTION_BEGIN("Peak & Valley");
// E.M.Pottasch 09/06/10
//nbar =Param("nbar",3,1,5,1);
nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
//GraphXSpace = 5;
//SetChartOptions(0, chartShowDates);
//Plot(C,"\nLast",colorWhite,styleCandle);
 
//Plot(PHighPrice1,"\nPHighPrice",colorOrange,styleThick);
//Plot(PHighPrice2,"",colorOrange,styleDots | styleNoLine);
//Plot(PLowPrice1,"\nPLowPrice",colorBrightGreen,styleThick);
//Plot(PLowPrice2,"",colorBrightGreen,styleDots | styleNoLine);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
 
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);


//Plot( Flip( Buy, Sell ), "Trade", colorDarkGreen, styleArea | styleOwnScale, 0, 1 );
 
//PlotShapes(IIf(Buy , shapeSmallUpTriangle, shapeNone) ,colorGreen, 0,L,-30);
//PlotShapes(IIf( Sell, shapeSmallDownTriangle, shapeNone) ,colorOrange, 0,H,-25);
_SECTION_END();


_SECTION_BEGIN("SHR");
SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );

/*if (NOT ParamToggle("SHR_PEAK Line ","On,Off"))
{
if (NOT ParamToggle("SHR_PEAK Type ","On,Off"))
{ 
Plot(Hh,"PHighPrice",colorOrange,styleDashed=32);
Plot(Ll,"PLowPrice",colorBrightGreen,styleDashed=32);
//Peak_valley_color=ColorRGB(0,0,23);
//Plot( Flip( Buy_shr2 , Sell_shr2 ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
else
{ 
Plot(PHighPrice0,"PHighPrice",colorOrange,styleDashed=32);
Plot(PLowPrice0 ,"PLowPrice",colorBrightGreen,styleDashed=32);
//Peak_valley_color=ColorRGB(0,0,23);
//Plot( Flip( Buy_peak, Sell_peak ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
}
*/
if (NOT ParamToggle("SHR_PEAK Color ","On,Off"))
{
if (NOT ParamToggle("SHR_PEAK Color Type ","On,Off"))
{ 
Peak_valley_color=ColorRGB(0,0,23);
Plot( Flip( Buy_shr2 , Sell_shr2 ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
else
{ 
Peak_valley_color=ColorRGB(0,0,23);
Plot( Flip( Buy_peak, Sell_peak ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
}
_SECTION_END();





_SECTION_BEGIN("Yancedolly Explorer");

UpperDolly_4=IIf(H>UpperBand4,1,0);
UpperDolly_3=IIf(H>UpperBand3 AND H<=UpperBand4,1,0);
UpperDolly_2=IIf(H>UpperBand2 AND H<=UpperBand3,1,0);
UpperDolly_1=IIf(H>UpperBand1 AND H<=UpperBand2,1,0);
UpperDolly_0=IIf(H>MidPoint AND H<=UpperBand1,1,0);
LowerDolly_0=IIf(L<=MidPoint AND L>LowerBand1,1,0);
LowerDolly_1=IIf(L<=LowerBand1 AND L>LowerBand2,1,0);
LowerDolly_2=IIf(L<=LowerBand2 AND L>LowerBand3,1,0);
LowerDolly_3=IIf(L<=LowerBand3 AND L>LowerBand4,1,0);
LowerDolly_4=IIf(L<=LowerBand4,1,0);



//=====================================================================================
// Type 22 Begin
//=====================================================================================


Buy_Peak_Valey=BuyDT;
Sell_Peak_Valey=SellDT;
Buy_Peak_Valey=ExRem(Buy_Peak_Valey,Sell_Peak_Valey); Sell_Peak_Valey=ExRem(Sell_Peak_Valey,Buy_Peak_Valey);


Buy_PV_1=	Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),0)==1;
Buy_PV_2=	Buy_PV_1  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-1)==1;
Buy_PV_3=	Buy_PV_2  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-2)==1;
Buy_PV_4=	Buy_PV_3  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-3)==1;
Buy_PV_5=	Buy_PV_4  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-4)==1;
Buy_PV_6=	Buy_PV_5  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-5)==1;
Buy_PV_7=	Buy_PV_6  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-6)==1;
Buy_PV_8=	Buy_PV_7  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-7)==1;
Buy_PV_9=	Buy_PV_8  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-8)==1;
Buy_PV_10=	Buy_PV_9  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-9)==1;
Buy_PV_11=	Buy_PV_10 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-10)==1;
Buy_PV_12=	Buy_PV_11 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-11)==1;
Buy_PV_13=	Buy_PV_12 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-12)==1;
Buy_PV_14=	Buy_PV_13 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-13)==1;
Buy_PV_15=	Buy_PV_14 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-14)==1;
Buy_PV_16=	Buy_PV_15 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-15)==1;
Buy_PV_17=	Buy_PV_16 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-16)==1;
Buy_PV_18=	Buy_PV_17 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-17)==1;
Buy_PV_19=	Buy_PV_18 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-18)==1;
Buy_PV_20=	Buy_PV_19 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-19)==1;
Buy_PV_21=	Buy_PV_20 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-20)==1;
Buy_PV_22=	Buy_PV_21 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-21)==1;
Buy_PV_23=	Buy_PV_22 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-22)==1;
Buy_PV_24=	Buy_PV_23 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-23)==1;
Buy_PV_25=	Buy_PV_24 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-24)==1;
Buy_PV_26=	Buy_PV_25 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-25)==1;
Buy_PV_27=	Buy_PV_26 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-26)==1;
Buy_PV_28=	Buy_PV_27 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-27)==1;
Buy_PV_29=	Buy_PV_28 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-28)==1;
Buy_PV_30=	Buy_PV_29 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-29)==1;

Sell_PV_1=		Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),0)==0;
Sell_PV_2=		Sell_PV_1  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-1)==0;
Sell_PV_3=		Sell_PV_2  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-2)==0;
Sell_PV_4=		Sell_PV_3  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-3)==0;
Sell_PV_5=		Sell_PV_4  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-4)==0;
Sell_PV_6=		Sell_PV_5  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-5)==0;
Sell_PV_7=		Sell_PV_6  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-6)==0;
Sell_PV_8=		Sell_PV_7  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-7)==0;
Sell_PV_9=		Sell_PV_8  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-8)==0;
Sell_PV_10=	Sell_PV_9  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-9)==0;
Sell_PV_11=	Sell_PV_10 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-10)==0;
Sell_PV_12=	Sell_PV_11 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-11)==0;
Sell_PV_13=	Sell_PV_12 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-12)==0;
Sell_PV_14=	Sell_PV_13 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-13)==0;
Sell_PV_15=	Sell_PV_14 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-14)==0;
Sell_PV_16=	Sell_PV_15 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-15)==0;
Sell_PV_17=	Sell_PV_16 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-16)==0;
Sell_PV_18=	Sell_PV_17 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-17)==0;
Sell_PV_19=	Sell_PV_18 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-18)==0;
Sell_PV_20=	Sell_PV_19 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-19)==0;
Sell_PV_21=	Sell_PV_20 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-20)==0;
Sell_PV_22=	Sell_PV_21 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-21)==0;
Sell_PV_23=	Sell_PV_22 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-22)==0;
Sell_PV_24=	Sell_PV_23 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-23)==0;
Sell_PV_25=	Sell_PV_24 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-24)==0;
Sell_PV_26=	Sell_PV_25 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-25)==0;
Sell_PV_27=	Sell_PV_26 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-26)==0;
Sell_PV_28=	Sell_PV_27 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-27)==0;
Sell_PV_29=	Sell_PV_28 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-28)==0;
Sell_PV_30=	Sell_PV_29 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-29)==0;

Buy_PV=		IIf(Buy_PV_30,30,
				IIf(Buy_PV_29,29,
				IIf(Buy_PV_28,28,
				IIf(Buy_PV_27,27,
				IIf(Buy_PV_26,26,
				IIf(Buy_PV_25,25,
				IIf(Buy_PV_24,24,
				IIf(Buy_PV_23,23,
				IIf(Buy_PV_22,22,
				IIf(Buy_PV_21,21,
				IIf(Buy_PV_20,20,
				IIf(Buy_PV_19,19,
				IIf(Buy_PV_18,18,
				IIf(Buy_PV_17,17,
				IIf(Buy_PV_16,16,
				IIf(Buy_PV_15,15,
				IIf(Buy_PV_14,14,
				IIf(Buy_PV_13,13,
				IIf(Buy_PV_12,12,
				IIf(Buy_PV_11,11,
				IIf(Buy_PV_10,10,
				IIf(Buy_PV_9,9,
				IIf(Buy_PV_8,8,
				IIf(Buy_PV_7,7,
				IIf(Buy_PV_6,6,
				IIf(Buy_PV_5,5,
				IIf(Buy_PV_4,4,
				IIf(Buy_PV_3,3,
				IIf(Buy_PV_2,2,
				IIf(Buy_PV_1,1,0))))))))))))))))))))))))))))));

Sell_PV=		IIf(Sell_PV_30,30,
				IIf(Sell_PV_29,29,
				IIf(Sell_PV_28,28,
				IIf(Sell_PV_27,27,
				IIf(Sell_PV_26,26,
				IIf(Sell_PV_25,25,
				IIf(Sell_PV_24,24,
				IIf(Sell_PV_23,23,
				IIf(Sell_PV_22,22,
				IIf(Sell_PV_21,21,
				IIf(Sell_PV_20,20,
				IIf(Sell_PV_19,19,
				IIf(Sell_PV_18,18,
				IIf(Sell_PV_17,17,
				IIf(Sell_PV_16,16,
				IIf(Sell_PV_15,15,
				IIf(Sell_PV_14,14,
				IIf(Sell_PV_13,13,
				IIf(Sell_PV_12,12,
				IIf(Sell_PV_11,11,
				IIf(Sell_PV_10,10,
				IIf(Sell_PV_9,9,
				IIf(Sell_PV_8,8,
				IIf(Sell_PV_7,7,
				IIf(Sell_PV_6,6,
				IIf(Sell_PV_5,5,
				IIf(Sell_PV_4,4,
				IIf(Sell_PV_3,3,
				IIf(Sell_PV_2,2,
				IIf(Sell_PV_1,1,0))))))))))))))))))))))))))))));


//=====================================================================================
// Type 22 End
//=====================================================================================

//=====================================================================================
// Type 22SC Begin
//=====================================================================================


Buy_Scold_Field=BuySC;
Sell_Scold_Field=SellSC;
Buy_Scold_Field=ExRem(Buy_Scold_Field,Sell_Scold_Field); Sell_Scold_Field=ExRem(Sell_Scold_Field,Buy_Scold_Field);


Buy_SC_1=	Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),0)==1;
Buy_SC_2=	Buy_SC_1  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-1)==1;
Buy_SC_3=	Buy_SC_2  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-2)==1;
Buy_SC_4=	Buy_SC_3  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-3)==1;
Buy_SC_5=	Buy_SC_4  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-4)==1;
Buy_SC_6=	Buy_SC_5  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-5)==1;
Buy_SC_7=	Buy_SC_6  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-6)==1;
Buy_SC_8=	Buy_SC_7  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-7)==1;
Buy_SC_9=	Buy_SC_8  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-8)==1;
Buy_SC_10=	Buy_SC_9  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-9)==1;
Buy_SC_11=	Buy_SC_10 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-10)==1;
Buy_SC_12=	Buy_SC_11 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-11)==1;
Buy_SC_13=	Buy_SC_12 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-12)==1;
Buy_SC_14=	Buy_SC_13 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-13)==1;
Buy_SC_15=	Buy_SC_14 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-14)==1;
Buy_SC_16=	Buy_SC_15 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-15)==1;
Buy_SC_17=	Buy_SC_16 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-16)==1;
Buy_SC_18=	Buy_SC_17 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-17)==1;
Buy_SC_19=	Buy_SC_18 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-18)==1;
Buy_SC_20=	Buy_SC_19 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-19)==1;
Buy_SC_21=	Buy_SC_20 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-20)==1;
Buy_SC_22=	Buy_SC_21 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-21)==1;
Buy_SC_23=	Buy_SC_22 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-22)==1;
Buy_SC_24=	Buy_SC_23 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-23)==1;
Buy_SC_25=	Buy_SC_24 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-24)==1;
Buy_SC_26=	Buy_SC_25 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-25)==1;
Buy_SC_27=	Buy_SC_26 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-26)==1;
Buy_SC_28=	Buy_SC_27 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-27)==1;
Buy_SC_29=	Buy_SC_28 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-28)==1;
Buy_SC_30=	Buy_SC_29 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-29)==1;

Sell_SC_1=		Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),0)==0;
Sell_SC_2=		Sell_SC_1  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-1)==0;
Sell_SC_3=		Sell_SC_2  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-2)==0;
Sell_SC_4=		Sell_SC_3  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-3)==0;
Sell_SC_5=		Sell_SC_4  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-4)==0;
Sell_SC_6=		Sell_SC_5  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-5)==0;
Sell_SC_7=		Sell_SC_6  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-6)==0;
Sell_SC_8=		Sell_SC_7  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-7)==0;
Sell_SC_9=		Sell_SC_8  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-8)==0;
Sell_SC_10=	Sell_SC_9  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-9)==0;
Sell_SC_11=	Sell_SC_10 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-10)==0;
Sell_SC_12=	Sell_SC_11 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-11)==0;
Sell_SC_13=	Sell_SC_12 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-12)==0;
Sell_SC_14=	Sell_SC_13 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-13)==0;
Sell_SC_15=	Sell_SC_14 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-14)==0;
Sell_SC_16=	Sell_SC_15 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-15)==0;
Sell_SC_17=	Sell_SC_16 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-16)==0;
Sell_SC_18=	Sell_SC_17 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-17)==0;
Sell_SC_19=	Sell_SC_18 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-18)==0;
Sell_SC_20=	Sell_SC_19 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-19)==0;
Sell_SC_21=	Sell_SC_20 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-20)==0;
Sell_SC_22=	Sell_SC_21 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-21)==0;
Sell_SC_23=	Sell_SC_22 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-22)==0;
Sell_SC_24=	Sell_SC_23 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-23)==0;
Sell_SC_25=	Sell_SC_24 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-24)==0;
Sell_SC_26=	Sell_SC_25 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-25)==0;
Sell_SC_27=	Sell_SC_26 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-26)==0;
Sell_SC_28=	Sell_SC_27 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-27)==0;
Sell_SC_29=	Sell_SC_28 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-28)==0;
Sell_SC_30=	Sell_SC_29 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-29)==0;

Buy_SC=		IIf(Buy_SC_30,30,
				IIf(Buy_SC_29,29,
				IIf(Buy_SC_28,28,
				IIf(Buy_SC_27,27,
				IIf(Buy_SC_26,26,
				IIf(Buy_SC_25,25,
				IIf(Buy_SC_24,24,
				IIf(Buy_SC_23,23,
				IIf(Buy_SC_22,22,
				IIf(Buy_SC_21,21,
				IIf(Buy_SC_20,20,
				IIf(Buy_SC_19,19,
				IIf(Buy_SC_18,18,
				IIf(Buy_SC_17,17,
				IIf(Buy_SC_16,16,
				IIf(Buy_SC_15,15,
				IIf(Buy_SC_14,14,
				IIf(Buy_SC_13,13,
				IIf(Buy_SC_12,12,
				IIf(Buy_SC_11,11,
				IIf(Buy_SC_10,10,
				IIf(Buy_SC_9,9,
				IIf(Buy_SC_8,8,
				IIf(Buy_SC_7,7,
				IIf(Buy_SC_6,6,
				IIf(Buy_SC_5,5,
				IIf(Buy_SC_4,4,
				IIf(Buy_SC_3,3,
				IIf(Buy_SC_2,2,
				IIf(Buy_SC_1,1,0))))))))))))))))))))))))))))));

Sell_SC=		IIf(Sell_SC_30,30,
				IIf(Sell_SC_29,29,
				IIf(Sell_SC_28,28,
				IIf(Sell_SC_27,27,
				IIf(Sell_SC_26,26,
				IIf(Sell_SC_25,25,
				IIf(Sell_SC_24,24,
				IIf(Sell_SC_23,23,
				IIf(Sell_SC_22,22,
				IIf(Sell_SC_21,21,
				IIf(Sell_SC_20,20,
				IIf(Sell_SC_19,19,
				IIf(Sell_SC_18,18,
				IIf(Sell_SC_17,17,
				IIf(Sell_SC_16,16,
				IIf(Sell_SC_15,15,
				IIf(Sell_SC_14,14,
				IIf(Sell_SC_13,13,
				IIf(Sell_SC_12,12,
				IIf(Sell_SC_11,11,
				IIf(Sell_SC_10,10,
				IIf(Sell_SC_9,9,
				IIf(Sell_SC_8,8,
				IIf(Sell_SC_7,7,
				IIf(Sell_SC_6,6,
				IIf(Sell_SC_5,5,
				IIf(Sell_SC_4,4,
				IIf(Sell_SC_3,3,
				IIf(Sell_SC_2,2,
				IIf(Sell_SC_1,1,0))))))))))))))))))))))))))))));


//=====================================================================================
// Type 22SC End
//=====================================================================================


//=====================================================================================
// Type 32 Begin
//=====================================================================================

Buy_Sheroune = Buy_fract1;
Sell_Sheroune = Sell_fract1;
Buy_Sheroune=ExRem(Buy_Sheroune,Sell_Sheroune); Sell_Sheroune=ExRem(Sell_Sheroune,Buy_Sheroune);

Buy_SHR_1=	Ref(Flip(Buy_Sheroune,Sell_Sheroune),0)==1;
Buy_SHR_2=	Buy_SHR_1  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-1)==1;
Buy_SHR_3=	Buy_SHR_2  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-2)==1;
Buy_SHR_4=	Buy_SHR_3  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-3)==1;
Buy_SHR_5=	Buy_SHR_4  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-4)==1;
Buy_SHR_6=	Buy_SHR_5  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-5)==1;
Buy_SHR_7=	Buy_SHR_6  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-6)==1;
Buy_SHR_8=	Buy_SHR_7  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-7)==1;
Buy_SHR_9=	Buy_SHR_8  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-8)==1;
Buy_SHR_10=	Buy_SHR_9  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-9)==1;
Buy_SHR_11=	Buy_SHR_10 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-10)==1;
Buy_SHR_12=	Buy_SHR_11 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-11)==1;
Buy_SHR_13=	Buy_SHR_12 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-12)==1;
Buy_SHR_14=	Buy_SHR_13 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-13)==1;
Buy_SHR_15=	Buy_SHR_14 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-14)==1;
Buy_SHR_16=	Buy_SHR_15 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-15)==1;
Buy_SHR_17=	Buy_SHR_16 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-16)==1;
Buy_SHR_18=	Buy_SHR_17 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-17)==1;
Buy_SHR_19=	Buy_SHR_18 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-18)==1;
Buy_SHR_20=	Buy_SHR_19 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-19)==1;
Buy_SHR_21=	Buy_SHR_20 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-20)==1;
Buy_SHR_22=	Buy_SHR_21 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-21)==1;
Buy_SHR_23=	Buy_SHR_22 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-22)==1;
Buy_SHR_24=	Buy_SHR_23 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-23)==1;
Buy_SHR_25=	Buy_SHR_24 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-24)==1;
Buy_SHR_26=	Buy_SHR_25 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-25)==1;
Buy_SHR_27=	Buy_SHR_26 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-26)==1;
Buy_SHR_28=	Buy_SHR_27 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-27)==1;
Buy_SHR_29=	Buy_SHR_28 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-28)==1;
Buy_SHR_30=	Buy_SHR_29 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-29)==1;

Sell_SHR_1=		Ref(Flip(Buy_Sheroune,Sell_Sheroune),0)==0;
Sell_SHR_2=		Sell_SHR_1  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-1)==0;
Sell_SHR_3=		Sell_SHR_2  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-2)==0;
Sell_SHR_4=		Sell_SHR_3  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-3)==0;
Sell_SHR_5=		Sell_SHR_4  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-4)==0;
Sell_SHR_6=		Sell_SHR_5  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-5)==0;
Sell_SHR_7=		Sell_SHR_6  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-6)==0;
Sell_SHR_8=		Sell_SHR_7  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-7)==0;
Sell_SHR_9=		Sell_SHR_8  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-8)==0;
Sell_SHR_10=	Sell_SHR_9  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-9)==0;
Sell_SHR_11=	Sell_SHR_10 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-10)==0;
Sell_SHR_12=	Sell_SHR_11 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-11)==0;
Sell_SHR_13=	Sell_SHR_12 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-12)==0;
Sell_SHR_14=	Sell_SHR_13 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-13)==0;
Sell_SHR_15=	Sell_SHR_14 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-14)==0;
Sell_SHR_16=	Sell_SHR_15 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-15)==0;
Sell_SHR_17=	Sell_SHR_16 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-16)==0;
Sell_SHR_18=	Sell_SHR_17 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-17)==0;
Sell_SHR_19=	Sell_SHR_18 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-18)==0;
Sell_SHR_20=	Sell_SHR_19 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-19)==0;
Sell_SHR_21=	Sell_SHR_20 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-20)==0;
Sell_SHR_22=	Sell_SHR_21 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-21)==0;
Sell_SHR_23=	Sell_SHR_22 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-22)==0;
Sell_SHR_24=	Sell_SHR_23 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-23)==0;
Sell_SHR_25=	Sell_SHR_24 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-24)==0;
Sell_SHR_26=	Sell_SHR_25 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-25)==0;
Sell_SHR_27=	Sell_SHR_26 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-26)==0;
Sell_SHR_28=	Sell_SHR_27 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-27)==0;
Sell_SHR_29=	Sell_SHR_28 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-28)==0;
Sell_SHR_30=	Sell_SHR_29 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-29)==0;

Buy_SHR=		IIf(Buy_SHR_30,30,
				IIf(Buy_SHR_29,29,
				IIf(Buy_SHR_28,28,
				IIf(Buy_SHR_27,27,
				IIf(Buy_SHR_26,26,
				IIf(Buy_SHR_25,25,
				IIf(Buy_SHR_24,24,
				IIf(Buy_SHR_23,23,
				IIf(Buy_SHR_22,22,
				IIf(Buy_SHR_21,21,
				IIf(Buy_SHR_20,20,
				IIf(Buy_SHR_19,19,
				IIf(Buy_SHR_18,18,
				IIf(Buy_SHR_17,17,
				IIf(Buy_SHR_16,16,
				IIf(Buy_SHR_15,15,
				IIf(Buy_SHR_14,14,
				IIf(Buy_SHR_13,13,
				IIf(Buy_SHR_12,12,
				IIf(Buy_SHR_11,11,
				IIf(Buy_SHR_10,10,
				IIf(Buy_SHR_9,9,
				IIf(Buy_SHR_8,8,
				IIf(Buy_SHR_7,7,
				IIf(Buy_SHR_6,6,
				IIf(Buy_SHR_5,5,
				IIf(Buy_SHR_4,4,
				IIf(Buy_SHR_3,3,
				IIf(Buy_SHR_2,2,
				IIf(Buy_SHR_1,1,0))))))))))))))))))))))))))))));

Sell_SHR=		IIf(Sell_SHR_30,30,
				IIf(Sell_SHR_29,29,
				IIf(Sell_SHR_28,28,
				IIf(Sell_SHR_27,27,
				IIf(Sell_SHR_26,26,
				IIf(Sell_SHR_25,25,
				IIf(Sell_SHR_24,24,
				IIf(Sell_SHR_23,23,
				IIf(Sell_SHR_22,22,
				IIf(Sell_SHR_21,21,
				IIf(Sell_SHR_20,20,
				IIf(Sell_SHR_19,19,
				IIf(Sell_SHR_18,18,
				IIf(Sell_SHR_17,17,
				IIf(Sell_SHR_16,16,
				IIf(Sell_SHR_15,15,
				IIf(Sell_SHR_14,14,
				IIf(Sell_SHR_13,13,
				IIf(Sell_SHR_12,12,
				IIf(Sell_SHR_11,11,
				IIf(Sell_SHR_10,10,
				IIf(Sell_SHR_9,9,
				IIf(Sell_SHR_8,8,
				IIf(Sell_SHR_7,7,
				IIf(Sell_SHR_6,6,
				IIf(Sell_SHR_5,5,
				IIf(Sell_SHR_4,4,
				IIf(Sell_SHR_3,3,
				IIf(Sell_SHR_2,2,
				IIf(Sell_SHR_1,1,0))))))))))))))))))))))))))))));

//=====================================================================================
// Type 32 End
//=====================================================================================

//=====================================================================================
// BUY PEAK VALEY Begin
//=====================================================================================

nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
//PHigh = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
//PLow = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);

Buy_LowerBand2 =Buy_peak;
Sell_LowerBand2 =Sell_peak;
Buy_LowerBand2 =ExRem(Buy_LowerBand2,Sell_LowerBand2); Sell_LowerBand2=ExRem(Sell_LowerBand2,Buy_LowerBand2);

Buy_LB2_1=	Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),0)==1;
Buy_LB2_2=	Buy_LB2_1  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-1)==1;
Buy_LB2_3=	Buy_LB2_2  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-2)==1;
Buy_LB2_4=	Buy_LB2_3  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-3)==1;
Buy_LB2_5=	Buy_LB2_4  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-4)==1;
Buy_LB2_6=	Buy_LB2_5  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-5)==1;
Buy_LB2_7=	Buy_LB2_6  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-6)==1;
Buy_LB2_8=	Buy_LB2_7  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-7)==1;
Buy_LB2_9=	Buy_LB2_8  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-8)==1;
Buy_LB2_10=	Buy_LB2_9  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-9)==1;
Buy_LB2_11=	Buy_LB2_10 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-10)==1;
Buy_LB2_12=	Buy_LB2_11 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-11)==1;
Buy_LB2_13=	Buy_LB2_12 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-12)==1;
Buy_LB2_14=	Buy_LB2_13 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-13)==1;
Buy_LB2_15=	Buy_LB2_14 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-14)==1;
Buy_LB2_16=	Buy_LB2_15 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-15)==1;
Buy_LB2_17=	Buy_LB2_16 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-16)==1;
Buy_LB2_18=	Buy_LB2_17 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-17)==1;
Buy_LB2_19=	Buy_LB2_18 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-18)==1;
Buy_LB2_20=	Buy_LB2_19 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-19)==1;
Buy_LB2_21=	Buy_LB2_20 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-20)==1;
Buy_LB2_22=	Buy_LB2_21 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-21)==1;
Buy_LB2_23=	Buy_LB2_22 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-22)==1;
Buy_LB2_24=	Buy_LB2_23 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-23)==1;
Buy_LB2_25=	Buy_LB2_24 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-24)==1;
Buy_LB2_26=	Buy_LB2_25 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-25)==1;
Buy_LB2_27=	Buy_LB2_26 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-26)==1;
Buy_LB2_28=	Buy_LB2_27 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-27)==1;
Buy_LB2_29=	Buy_LB2_28 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-28)==1;
Buy_LB2_30=	Buy_LB2_29 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-29)==1;

Sell_LB2_1=		Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),0)==0;
Sell_LB2_2=		Sell_LB2_1  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-1)==0;
Sell_LB2_3=		Sell_LB2_2  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-2)==0;
Sell_LB2_4=		Sell_LB2_3  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-3)==0;
Sell_LB2_5=		Sell_LB2_4  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-4)==0;
Sell_LB2_6=		Sell_LB2_5  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-5)==0;
Sell_LB2_7=		Sell_LB2_6  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-6)==0;
Sell_LB2_8=		Sell_LB2_7  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-7)==0;
Sell_LB2_9=		Sell_LB2_8  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-8)==0;
Sell_LB2_10=	Sell_LB2_9  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-9)==0;
Sell_LB2_11=	Sell_LB2_10 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-10)==0;
Sell_LB2_12=	Sell_LB2_11 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-11)==0;
Sell_LB2_13=	Sell_LB2_12 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-12)==0;
Sell_LB2_14=	Sell_LB2_13 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-13)==0;
Sell_LB2_15=	Sell_LB2_14 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-14)==0;
Sell_LB2_16=	Sell_LB2_15 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-15)==0;
Sell_LB2_17=	Sell_LB2_16 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-16)==0;
Sell_LB2_18=	Sell_LB2_17 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-17)==0;
Sell_LB2_19=	Sell_LB2_18 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-18)==0;
Sell_LB2_20=	Sell_LB2_19 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-19)==0;
Sell_LB2_21=	Sell_LB2_20 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-20)==0;
Sell_LB2_22=	Sell_LB2_21 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-21)==0;
Sell_LB2_23=	Sell_LB2_22 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-22)==0;
Sell_LB2_24=	Sell_LB2_23 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-23)==0;
Sell_LB2_25=	Sell_LB2_24 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-24)==0;
Sell_LB2_26=	Sell_LB2_25 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-25)==0;
Sell_LB2_27=	Sell_LB2_26 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-26)==0;
Sell_LB2_28=	Sell_LB2_27 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-27)==0;
Sell_LB2_29=	Sell_LB2_28 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-28)==0;
Sell_LB2_30=	Sell_LB2_29 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-29)==0;

Buy_LB2=		IIf(Buy_LB2_30,30,
				IIf(Buy_LB2_29,29,
				IIf(Buy_LB2_28,28,
				IIf(Buy_LB2_27,27,
				IIf(Buy_LB2_26,26,
				IIf(Buy_LB2_25,25,
				IIf(Buy_LB2_24,24,
				IIf(Buy_LB2_23,23,
				IIf(Buy_LB2_22,22,
				IIf(Buy_LB2_21,21,
				IIf(Buy_LB2_20,20,
				IIf(Buy_LB2_19,19,
				IIf(Buy_LB2_18,18,
				IIf(Buy_LB2_17,17,
				IIf(Buy_LB2_16,16,
				IIf(Buy_LB2_15,15,
				IIf(Buy_LB2_14,14,
				IIf(Buy_LB2_13,13,
				IIf(Buy_LB2_12,12,
				IIf(Buy_LB2_11,11,
				IIf(Buy_LB2_10,10,
				IIf(Buy_LB2_9,9,
				IIf(Buy_LB2_8,8,
				IIf(Buy_LB2_7,7,
				IIf(Buy_LB2_6,6,
				IIf(Buy_LB2_5,5,
				IIf(Buy_LB2_4,4,
				IIf(Buy_LB2_3,3,
				IIf(Buy_LB2_2,2,
				IIf(Buy_LB2_1,1,0))))))))))))))))))))))))))))));

Sell_LB2=		IIf(Sell_LB2_30,30,
				IIf(Sell_LB2_29,29,
				IIf(Sell_LB2_28,28,
				IIf(Sell_LB2_27,27,
				IIf(Sell_LB2_26,26,
				IIf(Sell_LB2_25,25,
				IIf(Sell_LB2_24,24,
				IIf(Sell_LB2_23,23,
				IIf(Sell_LB2_22,22,
				IIf(Sell_LB2_21,21,
				IIf(Sell_LB2_20,20,
				IIf(Sell_LB2_19,19,
				IIf(Sell_LB2_18,18,
				IIf(Sell_LB2_17,17,
				IIf(Sell_LB2_16,16,
				IIf(Sell_LB2_15,15,
				IIf(Sell_LB2_14,14,
				IIf(Sell_LB2_13,13,
				IIf(Sell_LB2_12,12,
				IIf(Sell_LB2_11,11,
				IIf(Sell_LB2_10,10,
				IIf(Sell_LB2_9,9,
				IIf(Sell_LB2_8,8,
				IIf(Sell_LB2_7,7,
				IIf(Sell_LB2_6,6,
				IIf(Sell_LB2_5,5,
				IIf(Sell_LB2_4,4,
				IIf(Sell_LB2_3,3,
				IIf(Sell_LB2_2,2,
				IIf(Sell_LB2_1,1,0))))))))))))))))))))))))))))));

//=====================================================================================
// BUY PEAK VALEY End
//=====================================================================================


//=====================================================================================
// BUY SHR Begin
//=====================================================================================


SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );

Buy_ATR_Sys=Buy_shr2;
Sell_ATR_Sys=Sell_shr2;
Buy_ATR_Sys=ExRem(Buy_ATR_Sys,Sell_ATR_Sys); Sell_ATR_Sys=ExRem(Sell_ATR_Sys,Buy_ATR_Sys);

Buy_ATR_1=	Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),0)==1;
Buy_ATR_2=	Buy_ATR_1  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-1)==1;
Buy_ATR_3=	Buy_ATR_2  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-2)==1;
Buy_ATR_4=	Buy_ATR_3  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-3)==1;
Buy_ATR_5=	Buy_ATR_4  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-4)==1;
Buy_ATR_6=	Buy_ATR_5  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-5)==1;
Buy_ATR_7=	Buy_ATR_6  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-6)==1;
Buy_ATR_8=	Buy_ATR_7  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-7)==1;
Buy_ATR_9=	Buy_ATR_8  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-8)==1;
Buy_ATR_10=	Buy_ATR_9  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-9)==1;
Buy_ATR_11=	Buy_ATR_10 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-10)==1;
Buy_ATR_12=	Buy_ATR_11 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-11)==1;
Buy_ATR_13=	Buy_ATR_12 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-12)==1;
Buy_ATR_14=	Buy_ATR_13 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-13)==1;
Buy_ATR_15=	Buy_ATR_14 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-14)==1;
Buy_ATR_16=	Buy_ATR_15 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-15)==1;
Buy_ATR_17=	Buy_ATR_16 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-16)==1;
Buy_ATR_18=	Buy_ATR_17 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-17)==1;
Buy_ATR_19=	Buy_ATR_18 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-18)==1;
Buy_ATR_20=	Buy_ATR_19 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-19)==1;
Buy_ATR_21=	Buy_ATR_20 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-20)==1;
Buy_ATR_22=	Buy_ATR_21 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-21)==1;
Buy_ATR_23=	Buy_ATR_22 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-22)==1;
Buy_ATR_24=	Buy_ATR_23 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-23)==1;
Buy_ATR_25=	Buy_ATR_24 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-24)==1;
Buy_ATR_26=	Buy_ATR_25 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-25)==1;
Buy_ATR_27=	Buy_ATR_26 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-26)==1;
Buy_ATR_28=	Buy_ATR_27 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-27)==1;
Buy_ATR_29=	Buy_ATR_28 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-28)==1;
Buy_ATR_30=	Buy_ATR_29 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-29)==1;

Sell_ATR_1=		Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),0)==0;
Sell_ATR_2=		Sell_ATR_1  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-1)==0;
Sell_ATR_3=		Sell_ATR_2  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-2)==0;
Sell_ATR_4=		Sell_ATR_3  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-3)==0;
Sell_ATR_5=		Sell_ATR_4  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-4)==0;
Sell_ATR_6=		Sell_ATR_5  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-5)==0;
Sell_ATR_7=		Sell_ATR_6  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-6)==0;
Sell_ATR_8=		Sell_ATR_7  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-7)==0;
Sell_ATR_9=		Sell_ATR_8  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-8)==0;
Sell_ATR_10=	Sell_ATR_9  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-9)==0;
Sell_ATR_11=	Sell_ATR_10 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-10)==0;
Sell_ATR_12=	Sell_ATR_11 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-11)==0;
Sell_ATR_13=	Sell_ATR_12 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-12)==0;
Sell_ATR_14=	Sell_ATR_13 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-13)==0;
Sell_ATR_15=	Sell_ATR_14 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-14)==0;
Sell_ATR_16=	Sell_ATR_15 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-15)==0;
Sell_ATR_17=	Sell_ATR_16 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-16)==0;
Sell_ATR_18=	Sell_ATR_17 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-17)==0;
Sell_ATR_19=	Sell_ATR_18 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-18)==0;
Sell_ATR_20=	Sell_ATR_19 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-19)==0;
Sell_ATR_21=	Sell_ATR_20 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-20)==0;
Sell_ATR_22=	Sell_ATR_21 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-21)==0;
Sell_ATR_23=	Sell_ATR_22 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-22)==0;
Sell_ATR_24=	Sell_ATR_23 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-23)==0;
Sell_ATR_25=	Sell_ATR_24 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-24)==0;
Sell_ATR_26=	Sell_ATR_25 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-25)==0;
Sell_ATR_27=	Sell_ATR_26 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-26)==0;
Sell_ATR_28=	Sell_ATR_27 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-27)==0;
Sell_ATR_29=	Sell_ATR_28 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-28)==0;
Sell_ATR_30=	Sell_ATR_29 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-29)==0;

Buy_ATR=		IIf(Buy_ATR_30,30,
				IIf(Buy_ATR_29,29,
				IIf(Buy_ATR_28,28,
				IIf(Buy_ATR_27,27,
				IIf(Buy_ATR_26,26,
				IIf(Buy_ATR_25,25,
				IIf(Buy_ATR_24,24,
				IIf(Buy_ATR_23,23,
				IIf(Buy_ATR_22,22,
				IIf(Buy_ATR_21,21,
				IIf(Buy_ATR_20,20,
				IIf(Buy_ATR_19,19,
				IIf(Buy_ATR_18,18,
				IIf(Buy_ATR_17,17,
				IIf(Buy_ATR_16,16,
				IIf(Buy_ATR_15,15,
				IIf(Buy_ATR_14,14,
				IIf(Buy_ATR_13,13,
				IIf(Buy_ATR_12,12,
				IIf(Buy_ATR_11,11,
				IIf(Buy_ATR_10,10,
				IIf(Buy_ATR_9,9,
				IIf(Buy_ATR_8,8,
				IIf(Buy_ATR_7,7,
				IIf(Buy_ATR_6,6,
				IIf(Buy_ATR_5,5,
				IIf(Buy_ATR_4,4,
				IIf(Buy_ATR_3,3,
				IIf(Buy_ATR_2,2,
				IIf(Buy_ATR_1,1,0))))))))))))))))))))))))))))));

Sell_ATR=		IIf(Sell_ATR_30,30,
				IIf(Sell_ATR_29,29,
				IIf(Sell_ATR_28,28,
				IIf(Sell_ATR_27,27,
				IIf(Sell_ATR_26,26,
				IIf(Sell_ATR_25,25,
				IIf(Sell_ATR_24,24,
				IIf(Sell_ATR_23,23,
				IIf(Sell_ATR_22,22,
				IIf(Sell_ATR_21,21,
				IIf(Sell_ATR_20,20,
				IIf(Sell_ATR_19,19,
				IIf(Sell_ATR_18,18,
				IIf(Sell_ATR_17,17,
				IIf(Sell_ATR_16,16,
				IIf(Sell_ATR_15,15,
				IIf(Sell_ATR_14,14,
				IIf(Sell_ATR_13,13,
				IIf(Sell_ATR_12,12,
				IIf(Sell_ATR_11,11,
				IIf(Sell_ATR_10,10,
				IIf(Sell_ATR_9,9,
				IIf(Sell_ATR_8,8,
				IIf(Sell_ATR_7,7,
				IIf(Sell_ATR_6,6,
				IIf(Sell_ATR_5,5,
				IIf(Sell_ATR_4,4,
				IIf(Sell_ATR_3,3,
				IIf(Sell_ATR_2,2,
				IIf(Sell_ATR_1,1,0))))))))))))))))))))))))))))));


//=====================================================================================
// BUY SHR End
//=====================================================================================


//====Explorer Begin====

Filter = 1!=0;

Close_Diff = C-Ref(C,-1);
Close_Diff_Percent = (C-Ref(C,-1))*100/Ref(C,-1);
Satuan_terkecil=2000000;
Jumlah_Lot = round((satuan_terkecil/(100*C))+0.5);
Harga_Beli=C*Jumlah_Lot*100/1000;

AddColumn(C, "Close", 1.0);
AddColumn(Close_Diff_Percent,"   %   ",1.2,IIf(Close_Diff_Percent<0,colorRed,IIf(Close_Diff_Percent>0,colorGreen,colorDefault)),colorDefault);
AddColumn(Jumlah_Lot, "  JL ", 1.2);
AddColumn(Harga_Beli, "     Hrg  ", 1.2);

AddColumn(IIf(LowerDolly_0,1,IIf(LowerDolly_1,2,IIf(LowerDolly_2,3,IIf(LowerDolly_3,4,IIf(LowerDolly_4,5,0))))),"L2",1.0,colorDefault,IIf(LowerDolly_0,colorDarkGreen,IIf(LowerDolly_1,colorViolet,IIf(LowerDolly_2,colorDarkRed,IIf(LowerDolly_3,colorDarkGrey,IIf(LowerDolly_4,colorDarkTeal,colorDefault))))));
AddColumn(IIf(UpperDolly_0,1,IIf(UpperDolly_1,2,IIf(UpperDolly_2,3,IIf(UpperDolly_3,4,IIf(UpperDolly_4,5,0))))),"U2",1.0,colorDefault,IIf(UpperDolly_0,colorDarkGreen,IIf(UpperDolly_1,colorViolet,IIf(UpperDolly_2,colorDarkRed,IIf(UpperDolly_3,colorDarkGrey,IIf(UpperDolly_4,colorDarkTeal,colorDefault))))));

AddColumn(Flip(Buy_Peak_Valey,Sell_Peak_Valey),"22",1.0,colorDefault,IIf(Flip(Buy_Peak_Valey,Sell_Peak_Valey)==1,colorGreen,colorRed));
AddColumn(IIf(Flip(Buy_Peak_Valey,Sell_Peak_Valey)==1,Buy_PV,Sell_PV),"D22",1.0,colorDefault,IIf(Flip(Buy_Peak_Valey,Sell_Peak_Valey)==1,colorGreen,colorRed));

AddColumn(Flip(Buy_Sheroune,Sell_Sheroune),"30",1.0,colorDefault,IIf(Flip(Buy_Sheroune,Sell_Sheroune)==1,colorGreen,colorRed));
AddColumn(IIf(Flip(Buy_Sheroune,Sell_Sheroune)==1,Buy_SHR,Sell_SHR),"D30",1.0,colorDefault,IIf(Flip(Buy_Sheroune,Sell_Sheroune)==1,colorGreen,colorRed));

AddColumn(Flip(Buy_Scold_Field,Sell_Scold_Field),"SC",1.0,colorDefault,IIf(Flip(Buy_Scold_Field,Sell_Scold_Field)==1,colorGreen,colorRed));
AddColumn(IIf(Flip(Buy_Scold_Field,Sell_Scold_Field)==1,Buy_SC,Sell_SC),"DSC",1.0,colorDefault,IIf(Flip(Buy_Scold_Field,Sell_Scold_Field)==1,colorGreen,colorRed));

AddColumn(Flip(Buy_LowerBand2,Sell_LowerBand2),"PK",1.0,colorDefault,IIf(Flip(Buy_LowerBand2,Sell_LowerBand2)==1,colorGreen,colorRed));
AddColumn(IIf(Flip(Buy_LowerBand2,Sell_LowerBand2)==1,Buy_LB2,Sell_LB2),"DPK",1.0,colorDefault,IIf(Flip(Buy_LowerBand2,Sell_LowerBand2)==1,colorGreen,colorRed));

AddColumn(Flip(Buy_ATR_Sys,Sell_ATR_Sys),"SR",1.0,colorDefault,IIf(Flip(Buy_ATR_Sys,Sell_ATR_Sys)==1,colorGreen,colorRed));
AddColumn(IIf(Flip(Buy_ATR_Sys,Sell_ATR_Sys)==1,Buy_ATR,Sell_ATR),"DSR",1.0,colorDefault,IIf(Flip(Buy_ATR_Sys,Sell_ATR_Sys)==1,colorGreen,colorRed));




//====Explorer End====


_SECTION_END();_SECTION_BEGIN("Background Color");
BKswitch = ParamToggle("Background Color","On,Off");
 
OUTcolor =colorBlack;// ParamColor("Outer Panel Color",colorBlack);
INUPcolor =colorBlack;// ParamColor("Inner Panel Upper",colorBlack);
INDNcolor =colorBlack;// ParamColor("Inner Panel Lower",colorBlack);
TitleColor =colorBlack;// ParamColor("Title Color ",colorBlack);
 
if (NOT BKswitch)
{
SetChartBkColor(OUTcolor); // color of outer border
SetChartBkGradientFill(INUPcolor,INDNcolor,TitleColor); // color of inner panel
}
_SECTION_END();

_SECTION_BEGIN("Parameter Color");
Line1=17;//ParamColor("Line Yancedolly Bands Medium Cycle Color",17);
Line2=6;//ParamColor("Line Yancedolly Bands Short Cycle Color",6);
Line3=9;//ParamColor("Line Floor Top Color",9);
Peak_valley_color=ColorRGB(0,0,23);//ParamColor("Peak_valley_color",colorPaleBlue);
Vol1=colorDarkGreen;//ParamColor("Vol Up Color",colorDarkGreen);
Vol2=colorDarkRed;//ParamColor("Vol Down Color",colorDarkRed);
Vol3=colorDarkGrey;//ParamColor("Vol Avarage Color",23);
price1=colorRose;//ParamColor("Price Color",colorRose);
price2=colorBrightGreen;//ParamColor("Price Down Color",colorBrightGreen);
price3=colorRed;//ParamColor("Price Up Color",colorRed);
_SECTION_END();

_SECTION_BEGIN("Peak & Valley");
// E.M.Pottasch 09/06/10
//nbar =Param("nbar",3,1,5,1);
nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
//GraphXSpace = 5;
//SetChartOptions(0, chartShowDates);
//Plot(C,"\nLast",colorWhite,styleCandle);
 
//Plot(PHighPrice1,"\nPHighPrice",colorOrange,styleThick);
//Plot(PHighPrice2,"",colorOrange,styleDots | styleNoLine);
//Plot(PLowPrice1,"\nPLowPrice",colorBrightGreen,styleThick);
//Plot(PLowPrice2,"",colorBrightGreen,styleDots | styleNoLine);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
 
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);


//Plot( Flip( Buy, Sell ), "Trade", colorDarkGreen, styleArea | styleOwnScale, 0, 1 );
 
//PlotShapes(IIf(Buy , shapeSmallUpTriangle, shapeNone) ,colorGreen, 0,L,-30);
//PlotShapes(IIf( Sell, shapeSmallDownTriangle, shapeNone) ,colorOrange, 0,H,-25);
_SECTION_END();

_SECTION_BEGIN("SHR");
SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );

if (NOT ParamToggle("SHR_PEAK Line ","On,Off"))
{
if (NOT ParamToggle("SHR_PEAK Type ","On,Off"))
{ 
Plot(Hh,"",colorOrange,styleDashed=32);
Plot(Ll,"",colorBrightGreen,styleDashed=32);
//Peak_valley_color=ColorRGB(0,0,23);
//Plot( Flip( Buy_shr2 , Sell_shr2 ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
else
{ 
Plot(PHighPrice0,"",colorOrange,styleDashed=32);
Plot(PLowPrice0 ,"",colorBrightGreen,styleDashed=32);
//Peak_valley_color=ColorRGB(0,0,23);
//Plot( Flip( Buy_peak, Sell_peak ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
}

/*
if (NOT ParamToggle("SHR_PEAK Color ","On,Off"))
{
if (NOT ParamToggle("SHR_PEAK Color Type ","On,Off"))
{ 
Peak_valley_color=ColorRGB(0,0,23);
Plot( Flip( Buy_shr2 , Sell_shr2 ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
else
{ 
Peak_valley_color=ColorRGB(0,0,23);
Plot( Flip( Buy_peak, Sell_peak ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
}*/
_SECTION_END();

_SECTION_BEGIN("Volume");
/* basic variable defs
 ud: up-Day (Close up from Open)
 dd: down-Day (Close down from Open)
 uc: up-Close (Close up from previous Close)
 dc: down-Close: (Close down from previous Close)
*/
C1 = Ref(C, -1);
uc = C > C1; dc = C <= C1;
ud = C > O; dd = C <= O;
 
/*
Volume Day types:
 green: up-day and up-close
 yellow: up-day but down-close
 red: down-day and down-close
 blue: down-day but up-close
 white: close equals open, close equals previous close
 
(currently unused vtypes are for future enhancements)
*/
green = 1; blue = 2; yellow = 3; red = 4; white = 5;
VType = IIf(ud,            
            IIf(uc, green, yellow),
         IIf(dd,
            IIf(dc, red, blue), white));
 
/* green volume: up-day and up-close*/
gv = IIf(VType == green, V, 0);
/* yellow volume: up-day but down-close */
yv = IIf(VType == yellow, V, 0);
/* red volume: down-day and down-close */
rv = IIf(VType == red, V, 0);
/* blue volume: down-day but up-close */
bv = IIf(VType == blue, V, 0);
if (ParamToggle("Volume Switch","On,Off"))
{
Plot( Volume, _DEFAULT_NAME(), IIf( VType==green OR VType==blue, Vol1, Vol2), styleNoTitle | ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram  ), 2 );
Plot(MA(Volume,5/*Param("MA Periods",5,5,50,1)*/),"",Vol3,styleLine |styleOwnScale ,5/*Param("Scale",5,1,20,1)*/);
}
_SECTION_END();
_SECTION_BEGIN("Price");
K1=5;// Param("EMA Periods?",5,3,50);
K2=10;// Param("ATR Periods?",10,2,50);
Mul=1;//Param("ATR Multiplier?",1,0.5,5,0.5);
Mi=EMA(C, K1);
Kel= ATR(K2)*Mul;
UB= Mi + Kel;
LB= Mi - Kel;
GraphXSpace = 5;
SetChartOptions( 0, chartShowDates | chartShowArrows | chartLogarithmic | chartWrapTitle );
_N( Title = StrFormat( "{{NAME}} - " + SectorID( 1 ) + " - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " + WriteVal( V, 1.0 ) + " {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ) );
Plot(C,"", IIf(L<=LB,price2,IIf(H>=UB,price3,price1)),styleCandle);
_SECTION_END();


_SECTION_BEGIN("Automatic Fibonacci");
// Get values for fib levels
 
StartBar=SelectedValue(BarIndex());
FinishBar = EndValue( BarIndex() );
i = startbar;
period = FinishBar - StartBar;
 
Lo =LLV(L,period);
Hi = HHV(H,period);
Line0 = 0;
Line1 = 0;
Line2 = 0;
Line3 = 0;
Line4= 0;
Line5= 0;
Line6= 0;
Line7= 0;
Line100 = 0;
 
for( i = startbar; i < finishbar; i++ )
{
if(EndValue(C)<SelectedValue(C))
{
Line0  = EndValue(Lo);
Line100 = EndValue(Hi);
Line1 = Line0 + abs(Line100-Line0)*0.236;
Line2 = Line0 + abs(Line100-Line0)*0.382;
Line3 = Line0 + abs(Line100-Line0)*0.5;
Line4 = Line0 + abs(Line100-Line0)*0.618;
Line5 = Line0 + abs(Line100-Line0)*0.786;
Line6 = Line0 + abs(Line100-Line0)*1.618;
Line7 = Line0 + abs(Line100-Line0)*2.618;
 
}
else
{
Line100  = EndValue(Lo);
Line0 = EndValue(Hi);
Line1 =Line0 - abs(Line100-Line0)*0.236;
Line2 = Line0 - abs(Line100-Line0)*0.382;
Line3 = Line0 - abs(Line100-Line0)*0.5;
Line4 = Line0 - abs(Line100-Line0)*0.618;
Line5 = Line0 - abs(Line100-Line0)*0.786;
Line6 = Line0 - abs(Line100-Line0)*1.618;
Line7 = Line0 - abs(Line100-Line0)*2.618;
 
}
}
 
// external fib lines begining fom selecetdbarindex()
fib0= LineArray(startbar, Line0, finishbar, Line0, 0, 1);
fib100 = LineArray(startbar, Line100, finishbar, Line100, 0, 1);
 
// depth of middle lines
n= round((finishbar-startbar)/2);
 
// middle lines
fib1= LineArray((finishbar-n), Line1, finishbar, Line1, 0, 1);
fib2= LineArray((finishbar-n), Line2, finishbar, Line2, 0, 1);
fib3= LineArray((finishbar-n), Line3, finishbar, Line3, 0, 1);
fib4= LineArray((finishbar-n), Line4, finishbar, Line4, 0, 1);
fib5= LineArray((finishbar-n), Line5, finishbar, Line5, 0, 1);
fib6= LineArray((finishbar-n), Line6, finishbar, Line6, 0, 1);
fib7= LineArray((finishbar-n), Line7, finishbar, Line7, 0, 1);

if (ParamToggle("Automatic Fibonacci","On,Off"))
{
Plot(fib0,"", colorWhite);
Plot(fib100,"", colorRed);
Plot(fib1,"", colorGrey50);
Plot(fib2,"", colorGrey50);
Plot(fib3,"", colorOrange);
Plot(fib4,"", colorGrey50);
Plot(fib5,"", colorGrey50);
}
if (ParamToggle("Fib6","On,Off"))
{ 
Plot(fib6,"", colorDarkTeal);
}
if (ParamToggle("Fib7","On,Off"))
{ 
Plot(fib7,"", colorViolet);
 }
//Title = Name() + " -  FIB LEVELS ";
_SECTION_END();

_SECTION_BEGIN("Yancedolly Bands");
CY2 =80/2;//  Param("Medium Cycle Length?" ,80, 1 ,1000 ,1 )/2;
M2 = 1;// Param("Medium Cycle Multiplyer?" ,3, 0.01 ,10 ,1 );
UpY=EMA(C, CY2)+M2*ATR(CY2);
MdY=EMA(C, CY2);
DnY=EMA(C, CY2)-M2*ATR(CY2);


UpperBand4 =EMA( C, CY2) + ( 6.8540 * ATR(CY2));
UpperBand3 =EMA( C, CY2) + ( 4.2360 * ATR(CY2));
UpperBand2=EMA( C, CY2) +  ( 2.6180 * ATR(CY2));
UpperBand1=EMA( C, CY2) +  ( 1.6180 * ATR(CY2));
 
MidPoint=EMA(C, CY2);
 
LowerBand1=EMA( C, CY2) - ( 1.6180 * ATR(CY2));
LowerBand2=EMA( C, CY2) - ( 2.6180 * ATR(CY2));
LowerBand3=EMA( C, CY2) - ( 4.2360 * ATR(CY2));
LowerBand4=EMA( C, CY2) - ( 6.8540 * ATR(CY2));

if (ParamToggle("Yancedolly Band Line ","On,Off"))
{
Plot(UpperBand4,"UpperBand4",colorDarkTeal,1);
Plot(UpperBand3,"UpperBand3",colorDarkGrey,1);
Plot(UpperBand2,"UpperBand2",colorDarkRed,1);
Plot(UpperBand1,"UpperBand1",colorViolet,1);
Plot(MidPoint,"MidPoint",colorDarkGreen,4);
Plot(LowerBand1,"LowerBand1",colorViolet,1);
Plot(LowerBand2,"LowerBand2",colorDarkRed,1);
Plot(LowerBand3,"LowerBand3",colorDarkGrey,1);
Plot(LowerBand4,"LowerBand4",colorDarkTeal,1);
}
else
{
Plot(UpperBand4,"",colorDarkTeal,1);
Plot(UpperBand3,"",colorDarkGrey,1);
Plot(UpperBand2,"",colorDarkRed,1);
Plot(UpperBand1,"",colorViolet,1);
Plot(MidPoint,"",colorDarkGreen,4);
Plot(LowerBand1,"",colorViolet,1);
Plot(LowerBand2,"",colorDarkRed,1);
Plot(LowerBand3,"",colorDarkGrey,1);
Plot(LowerBand4,"",colorDarkTeal,1);
}


//==============================================
//Type 22 --> Peak --> Modified 20140109
//==============================================

SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );

Buy_shr3=Buy_shr2;
Sell_shr3=Sell_shr2;

Up3BarFractal = Ref(H,-1) < H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up4BarFractal = Ref(H,-3) < H AND Ref(H,-2) <= H AND Ref(H,-1) <= H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up5BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
Up6BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND (H == Ref(H,1)) AND Ref(H,2) < H;// AND Ref(H,3) < H;
Up7BarFractal = Ref(H,-2) < H AND Ref(H,-1) <= H AND Ref(H,1) < H AND Ref(H,2) <= H;
Down3BarFractal = Ref(L,-1) > L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down4BarFractal = Ref(L,-3) > L AND Ref(L,-2) >= L AND Ref(L,-1) >= L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down5BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
Down6BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND (L == Ref(L,1)) AND Ref(L,2) > L;// AND Ref(L,3) > L;
Down7BarFractal = Ref(L,-2) > L AND Ref(L,-1) >= L AND Ref(L,1) > L AND Ref(L,2) >= L;
//TODO: More filtering: Show only troughs that are around atrough in trix(9).

Up = (Up3BarFractal OR Up4BarFractal OR Up5BarFractal OR Up6BarFractal OR Up7BarFractal);
Down = (Down3BarFractal OR Down4BarFractal OR Down5BarFractal OR Down6BarFractal OR Down7BarFractal);

Buy_Fractal7 = IIf(Down ,1,0);
Sell_Fractal7 = IIf(Up,1,0);

nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
//PHigh = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
//PLow = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);



//BuyDT=Buy_shr2
//OR (Buy_Fractal5 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
//OR (Buy_Fractal5 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
//OR (Buy_Fractal5  AND IsEmpty(LowerBand2)==1  );
//SellDT=(Sell_Fractal5 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
//OR (IIf(Ref(Flip( Buy_shr2, Sell_shr2),-1),1,0)==1 AND Sell_shr2)
//OR (Sell_Fractal5 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);

Buy_shr2=Buy_peak;
Sell_shr2=Sell_peak;

BuyDT=Buy_shr2 OR Buy_Fractal7;
SellDT=Sell_shr2 OR Sell_Fractal7;
//Change
BuyDT= //(Buy_Fractal  AND C<LowerBand1 AND C>LowerBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0) OR 
Buy_shr2 // OR (C<LowerBand2 AND IIf(Upper_x,1,0)==0 AND IIf(Flip( Buy_LowerBand2, Sell_LowerBand2),1,0)==0);
OR (Buy_Fractal7 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
//OR (Buy_Fractal7  AND C<UpperBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Buy_Fractal7 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR (Buy_Fractal7  AND IsEmpty(LowerBand2)==1  );//OR (Buy_fractal AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);
SellDT=(Sell_Fractal7 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
//(Sell_Fractal7 AND C<Lowerband2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
//OR (Sell_Fractal7 AND C>midpoint AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand2,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand3,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand4,C))
OR (IIf(Ref(Flip( Buy_shr2, Sell_shr2),-1),1,0)==1 AND Sell_shr2)
OR (Sell_Fractal7 AND C<UpperBand1 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Sell_Fractal7 AND C>UpperBand3);



//==============================================
// END
//==============================================



BuyDT=ExRem(BuyDT,SellDT);SellDT=ExRem(SellDT,BuyDT);
//PlotShapes( BuyDT* shapeHollowUpTriangle, colorDarkRed,0, L, -18);
//PlotShapes( SellDT* shapeHollowDownTriangle, colorDarkRed,0, H, -18);

Buy=BuyDT;
Sell=SellDT;
Buy=ExRem(Buy,Sell);Sell=ExRem(Sell,Buy);

//==============================================
//Type 32 --> Peak --> Modified 20140109
//==============================================

SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );

Up3BarFractal = Ref(H,-1) < H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up4BarFractal = Ref(H,-3) < H AND Ref(H,-2) <= H AND Ref(H,-1) <= H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up5BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
Up6BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND (H == Ref(H,1)) AND Ref(H,2) < H;// AND Ref(H,3) < H;
Up7BarFractal = Ref(H,-2) < H AND Ref(H,-1) <= H AND Ref(H,1) < H AND Ref(H,2) <= H;
Down3BarFractal = Ref(L,-1) > L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down4BarFractal = Ref(L,-3) > L AND Ref(L,-2) >= L AND Ref(L,-1) >= L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down5BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
Down6BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND (L == Ref(L,1)) AND Ref(L,2) > L;// AND Ref(L,3) > L;
Down7BarFractal = Ref(L,-2) > L AND Ref(L,-1) >= L AND Ref(L,1) > L AND Ref(L,2) >= L;
//TODO: More filtering: Show only troughs that are around atrough in trix(9).

Up = (Up3BarFractal OR Up4BarFractal OR Up5BarFractal OR Up6BarFractal OR Up7BarFractal);
Down = (Down3BarFractal OR Down4BarFractal OR Down5BarFractal OR Down6BarFractal OR Down7BarFractal);

Buy_Fractal7 = IIf(Down ,1,0);
Sell_Fractal7 = IIf(Up,1,0);

nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
//PHigh = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
//PLow = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);

Buy_shr2=Buy_peak;
Sell_shr2=Sell_peak;

/*Buy_fract1= //(Buy_Fractal  AND C<LowerBand1 AND C>LowerBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0) OR 
Buy_shr2 // OR (C<LowerBand2 AND IIf(Upper_x,1,0)==0 AND IIf(Flip( Buy_LowerBand2, Sell_LowerBand2),1,0)==0);
OR (Buy_Fractal3 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
//OR (Buy_Fractal3  AND C<UpperBand3 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Buy_Fractal2  AND C<LowerBand1 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR (Buy_Fractal  AND IsEmpty(LowerBand2)==1  );//OR (Buy_fractal AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);
Sell_fract1=(Sell_Fractal2 AND C<Lowerband2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR (Sell_Fractal2 AND C>=Lowerband2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand2,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand3,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand4,C))
OR (IIf(Ref(Flip( Buy_shr2, Sell_shr2),-1),1,0)==1 AND Sell_shr2)
OR (Sell_Fractal2 AND C<UpperBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Sell_Fractal2 AND C>UpperBand3);*/

Buy_fract1=Sell_Fractal7;
Sell_fract1=Ref(Sell_Fractal7,1);

//==============================================
// END
//==============================================
Buy_fract1=ExRem(Buy_fract1,Sell_fract1);Sell_fract1=ExRem(Sell_fract1,Buy_fract1);

//==============================================
//Type 22SC --> Peak --> Modified 20140315
//==============================================

SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );



Up3BarFractal = Ref(H,-1) < H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up4BarFractal = Ref(H,-3) < H AND Ref(H,-2) <= H AND Ref(H,-1) <= H AND Ref(H,1) <= H AND Ref(H,2) < H;
Up5BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
Up6BarFractal = Ref(H,-2) < H AND Ref(H,-1) < H AND (H == Ref(H,1)) AND Ref(H,2) < H;// AND Ref(H,3) < H;
Up7BarFractal = Ref(H,-2) < H AND Ref(H,-1) <= H AND Ref(H,1) < H AND Ref(H,2) <= H;
Down3BarFractal = Ref(L,-1) > L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down4BarFractal = Ref(L,-3) > L AND Ref(L,-2) >= L AND Ref(L,-1) >= L AND Ref(L,1) >= L AND Ref(L,2) > L;// AND Ref(L,2) > L;
Down5BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
Down6BarFractal = Ref(L,-2) > L AND Ref(L,-1) > L AND (L == Ref(L,1)) AND Ref(L,2) > L;// AND Ref(L,3) > L;
Down7BarFractal = Ref(L,-2) > L AND Ref(L,-1) >= L AND Ref(L,1) > L AND Ref(L,2) >= L;
//TODO: More filtering: Show only troughs that are around atrough in trix(9).

Up = (Up3BarFractal OR Up4BarFractal OR Up5BarFractal OR Up6BarFractal OR Up7BarFractal);
Down = (Down3BarFractal OR Down4BarFractal OR Down5BarFractal OR Down6BarFractal OR Down7BarFractal);

Buy_Fractal7 = IIf(Down ,1,0);
Sell_Fractal7 = IIf(Up,1,0);

nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
//PHigh = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
//PLow = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);

//Buy_shr2=Buy_peak;
//Sell_shr2=Sell_peak;

/*BuySC= //(Buy_Fractal  AND C<LowerBand1 AND C>LowerBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0) OR 
Buy_shr2 // OR (C<LowerBand2 AND IIf(Upper_x,1,0)==0 AND IIf(Flip( Buy_LowerBand2, Sell_LowerBand2),1,0)==0);
OR (C<UpperBand1 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
//OR (Buy_Fractal3 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Buy_Fractal2  AND C<LowerBand1 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR (Buy_Fractal  AND IsEmpty(LowerBand2)==1  );//OR (Buy_fractal AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);
SellSC=(Sell_Fractal2 AND C<Lowerband2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR (Sell_Fractal2 AND C>midpoint AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0)
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand2,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand3,C))
OR(IIf(Flip( Buy_shr2, Sell_shr2),1,0)==0 AND Cross(UpperBand4,C))
OR (IIf(Ref(Flip( Buy_shr2, Sell_shr2),-1),1,0)==1 AND Sell_shr2)
//OR (Sell_Fractal2 AND C<UpperBand2 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1)
OR (Sell_Fractal2 AND C>UpperBand3);
*/
//BuySC=(Buy_Fractal4 AND IIf(Flip( Buy_shr2, Sell_shr2),1,0)==1);
//SellSC=(Sell_Fractal2 AND C>UpperBand3);

BuySC=Buy_Fractal7;
SellSC=Ref(Buy_Fractal7,1);

//==============================================
// END
//==============================================
//BuySC=ExRem(BuySC,SellSC);SellSC=ExRem(SellSC,BuySC);


if (NOT ParamToggle("Smooth CCI Switch","On,Off"))
{
PlotShapes( BuyDT* shapeHollowUpTriangle, 11,0, L, -18);
PlotShapes( SellDT* shapeHollowDownTriangle, 11,0, H, -18);

PlotShapes( Buy_fract1 * shapeHollowSmallCircle, colorBlue,0, L, -5);
PlotShapes( Sell_fract1 * shapeHollowSmallCircle, colorBlue,0, H, 5);

PlotShapes( BuySC * shapeHollowSmallCircle, colorYellow,0, L, -10);
PlotShapes( SellSC * shapeHollowSmallCircle, colorYellow,0, H, 10);
}
PlotShapes( Buy_peak * shapeHollowUpTriangle, colorDarkYellow,0, L, -22);
PlotShapes( Sell_peak * shapeHollowDownTriangle, colorDarkYellow,0, H, -22);

_SECTION_END();

_SECTION_BEGIN("Peak & Valley");
// E.M.Pottasch 09/06/10
//nbar =Param("nbar",3,1,5,1);
nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
//GraphXSpace = 5;
//SetChartOptions(0, chartShowDates);
//Plot(C,"\nLast",colorWhite,styleCandle);
 
//Plot(PHighPrice1,"\nPHighPrice",colorOrange,styleThick);
//Plot(PHighPrice2,"",colorOrange,styleDots | styleNoLine);
//Plot(PLowPrice1,"\nPLowPrice",colorBrightGreen,styleThick);
//Plot(PLowPrice2,"",colorBrightGreen,styleDots | styleNoLine);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
 
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);


//Plot( Flip( Buy, Sell ), "Trade", colorDarkGreen, styleArea | styleOwnScale, 0, 1 );
 
//PlotShapes(IIf(Buy , shapeSmallUpTriangle, shapeNone) ,colorGreen, 0,L,-30);
//PlotShapes(IIf( Sell, shapeSmallDownTriangle, shapeNone) ,colorOrange, 0,H,-25);
_SECTION_END();


_SECTION_BEGIN("SHR");
SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );

/*if (NOT ParamToggle("SHR_PEAK Line ","On,Off"))
{
if (NOT ParamToggle("SHR_PEAK Type ","On,Off"))
{ 
Plot(Hh,"PHighPrice",colorOrange,styleDashed=32);
Plot(Ll,"PLowPrice",colorBrightGreen,styleDashed=32);
//Peak_valley_color=ColorRGB(0,0,23);
//Plot( Flip( Buy_shr2 , Sell_shr2 ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
else
{ 
Plot(PHighPrice0,"PHighPrice",colorOrange,styleDashed=32);
Plot(PLowPrice0 ,"PLowPrice",colorBrightGreen,styleDashed=32);
//Peak_valley_color=ColorRGB(0,0,23);
//Plot( Flip( Buy_peak, Sell_peak ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
}
*/
if (NOT ParamToggle("SHR_PEAK Color ","On,Off"))
{
if (NOT ParamToggle("SHR_PEAK Color Type ","On,Off"))
{ 
Peak_valley_color=ColorRGB(0,0,23);
Plot( Flip( Buy_shr2 , Sell_shr2 ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
else
{ 
Peak_valley_color=ColorRGB(0,0,23);
Plot( Flip( Buy_peak, Sell_peak ), "", Peak_valley_color, styleArea | styleOwnScale, 0, 1 );
}
}
_SECTION_END();





_SECTION_BEGIN("Yancedolly Explorer");

UpperDolly_4=IIf(H>UpperBand4,1,0);
UpperDolly_3=IIf(H>UpperBand3 AND H<=UpperBand4,1,0);
UpperDolly_2=IIf(H>UpperBand2 AND H<=UpperBand3,1,0);
UpperDolly_1=IIf(H>UpperBand1 AND H<=UpperBand2,1,0);
UpperDolly_0=IIf(H>MidPoint AND H<=UpperBand1,1,0);
LowerDolly_0=IIf(L<=MidPoint AND L>LowerBand1,1,0);
LowerDolly_1=IIf(L<=LowerBand1 AND L>LowerBand2,1,0);
LowerDolly_2=IIf(L<=LowerBand2 AND L>LowerBand3,1,0);
LowerDolly_3=IIf(L<=LowerBand3 AND L>LowerBand4,1,0);
LowerDolly_4=IIf(L<=LowerBand4,1,0);



//=====================================================================================
// Type 22 Begin
//=====================================================================================


Buy_Peak_Valey=BuyDT;
Sell_Peak_Valey=SellDT;
Buy_Peak_Valey=ExRem(Buy_Peak_Valey,Sell_Peak_Valey); Sell_Peak_Valey=ExRem(Sell_Peak_Valey,Buy_Peak_Valey);


Buy_PV_1=	Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),0)==1;
Buy_PV_2=	Buy_PV_1  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-1)==1;
Buy_PV_3=	Buy_PV_2  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-2)==1;
Buy_PV_4=	Buy_PV_3  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-3)==1;
Buy_PV_5=	Buy_PV_4  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-4)==1;
Buy_PV_6=	Buy_PV_5  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-5)==1;
Buy_PV_7=	Buy_PV_6  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-6)==1;
Buy_PV_8=	Buy_PV_7  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-7)==1;
Buy_PV_9=	Buy_PV_8  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-8)==1;
Buy_PV_10=	Buy_PV_9  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-9)==1;
Buy_PV_11=	Buy_PV_10 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-10)==1;
Buy_PV_12=	Buy_PV_11 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-11)==1;
Buy_PV_13=	Buy_PV_12 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-12)==1;
Buy_PV_14=	Buy_PV_13 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-13)==1;
Buy_PV_15=	Buy_PV_14 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-14)==1;
Buy_PV_16=	Buy_PV_15 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-15)==1;
Buy_PV_17=	Buy_PV_16 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-16)==1;
Buy_PV_18=	Buy_PV_17 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-17)==1;
Buy_PV_19=	Buy_PV_18 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-18)==1;
Buy_PV_20=	Buy_PV_19 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-19)==1;
Buy_PV_21=	Buy_PV_20 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-20)==1;
Buy_PV_22=	Buy_PV_21 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-21)==1;
Buy_PV_23=	Buy_PV_22 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-22)==1;
Buy_PV_24=	Buy_PV_23 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-23)==1;
Buy_PV_25=	Buy_PV_24 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-24)==1;
Buy_PV_26=	Buy_PV_25 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-25)==1;
Buy_PV_27=	Buy_PV_26 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-26)==1;
Buy_PV_28=	Buy_PV_27 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-27)==1;
Buy_PV_29=	Buy_PV_28 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-28)==1;
Buy_PV_30=	Buy_PV_29 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-29)==1;

Sell_PV_1=		Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),0)==0;
Sell_PV_2=		Sell_PV_1  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-1)==0;
Sell_PV_3=		Sell_PV_2  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-2)==0;
Sell_PV_4=		Sell_PV_3  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-3)==0;
Sell_PV_5=		Sell_PV_4  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-4)==0;
Sell_PV_6=		Sell_PV_5  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-5)==0;
Sell_PV_7=		Sell_PV_6  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-6)==0;
Sell_PV_8=		Sell_PV_7  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-7)==0;
Sell_PV_9=		Sell_PV_8  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-8)==0;
Sell_PV_10=	Sell_PV_9  AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-9)==0;
Sell_PV_11=	Sell_PV_10 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-10)==0;
Sell_PV_12=	Sell_PV_11 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-11)==0;
Sell_PV_13=	Sell_PV_12 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-12)==0;
Sell_PV_14=	Sell_PV_13 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-13)==0;
Sell_PV_15=	Sell_PV_14 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-14)==0;
Sell_PV_16=	Sell_PV_15 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-15)==0;
Sell_PV_17=	Sell_PV_16 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-16)==0;
Sell_PV_18=	Sell_PV_17 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-17)==0;
Sell_PV_19=	Sell_PV_18 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-18)==0;
Sell_PV_20=	Sell_PV_19 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-19)==0;
Sell_PV_21=	Sell_PV_20 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-20)==0;
Sell_PV_22=	Sell_PV_21 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-21)==0;
Sell_PV_23=	Sell_PV_22 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-22)==0;
Sell_PV_24=	Sell_PV_23 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-23)==0;
Sell_PV_25=	Sell_PV_24 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-24)==0;
Sell_PV_26=	Sell_PV_25 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-25)==0;
Sell_PV_27=	Sell_PV_26 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-26)==0;
Sell_PV_28=	Sell_PV_27 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-27)==0;
Sell_PV_29=	Sell_PV_28 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-28)==0;
Sell_PV_30=	Sell_PV_29 AND Ref(Flip(Buy_Peak_Valey,Sell_Peak_Valey),-29)==0;

Buy_PV=		IIf(Buy_PV_30,30,
				IIf(Buy_PV_29,29,
				IIf(Buy_PV_28,28,
				IIf(Buy_PV_27,27,
				IIf(Buy_PV_26,26,
				IIf(Buy_PV_25,25,
				IIf(Buy_PV_24,24,
				IIf(Buy_PV_23,23,
				IIf(Buy_PV_22,22,
				IIf(Buy_PV_21,21,
				IIf(Buy_PV_20,20,
				IIf(Buy_PV_19,19,
				IIf(Buy_PV_18,18,
				IIf(Buy_PV_17,17,
				IIf(Buy_PV_16,16,
				IIf(Buy_PV_15,15,
				IIf(Buy_PV_14,14,
				IIf(Buy_PV_13,13,
				IIf(Buy_PV_12,12,
				IIf(Buy_PV_11,11,
				IIf(Buy_PV_10,10,
				IIf(Buy_PV_9,9,
				IIf(Buy_PV_8,8,
				IIf(Buy_PV_7,7,
				IIf(Buy_PV_6,6,
				IIf(Buy_PV_5,5,
				IIf(Buy_PV_4,4,
				IIf(Buy_PV_3,3,
				IIf(Buy_PV_2,2,
				IIf(Buy_PV_1,1,0))))))))))))))))))))))))))))));

Sell_PV=		IIf(Sell_PV_30,30,
				IIf(Sell_PV_29,29,
				IIf(Sell_PV_28,28,
				IIf(Sell_PV_27,27,
				IIf(Sell_PV_26,26,
				IIf(Sell_PV_25,25,
				IIf(Sell_PV_24,24,
				IIf(Sell_PV_23,23,
				IIf(Sell_PV_22,22,
				IIf(Sell_PV_21,21,
				IIf(Sell_PV_20,20,
				IIf(Sell_PV_19,19,
				IIf(Sell_PV_18,18,
				IIf(Sell_PV_17,17,
				IIf(Sell_PV_16,16,
				IIf(Sell_PV_15,15,
				IIf(Sell_PV_14,14,
				IIf(Sell_PV_13,13,
				IIf(Sell_PV_12,12,
				IIf(Sell_PV_11,11,
				IIf(Sell_PV_10,10,
				IIf(Sell_PV_9,9,
				IIf(Sell_PV_8,8,
				IIf(Sell_PV_7,7,
				IIf(Sell_PV_6,6,
				IIf(Sell_PV_5,5,
				IIf(Sell_PV_4,4,
				IIf(Sell_PV_3,3,
				IIf(Sell_PV_2,2,
				IIf(Sell_PV_1,1,0))))))))))))))))))))))))))))));


//=====================================================================================
// Type 22 End
//=====================================================================================

//=====================================================================================
// Type 22SC Begin
//=====================================================================================


Buy_Scold_Field=BuySC;
Sell_Scold_Field=SellSC;
Buy_Scold_Field=ExRem(Buy_Scold_Field,Sell_Scold_Field); Sell_Scold_Field=ExRem(Sell_Scold_Field,Buy_Scold_Field);


Buy_SC_1=	Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),0)==1;
Buy_SC_2=	Buy_SC_1  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-1)==1;
Buy_SC_3=	Buy_SC_2  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-2)==1;
Buy_SC_4=	Buy_SC_3  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-3)==1;
Buy_SC_5=	Buy_SC_4  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-4)==1;
Buy_SC_6=	Buy_SC_5  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-5)==1;
Buy_SC_7=	Buy_SC_6  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-6)==1;
Buy_SC_8=	Buy_SC_7  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-7)==1;
Buy_SC_9=	Buy_SC_8  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-8)==1;
Buy_SC_10=	Buy_SC_9  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-9)==1;
Buy_SC_11=	Buy_SC_10 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-10)==1;
Buy_SC_12=	Buy_SC_11 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-11)==1;
Buy_SC_13=	Buy_SC_12 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-12)==1;
Buy_SC_14=	Buy_SC_13 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-13)==1;
Buy_SC_15=	Buy_SC_14 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-14)==1;
Buy_SC_16=	Buy_SC_15 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-15)==1;
Buy_SC_17=	Buy_SC_16 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-16)==1;
Buy_SC_18=	Buy_SC_17 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-17)==1;
Buy_SC_19=	Buy_SC_18 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-18)==1;
Buy_SC_20=	Buy_SC_19 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-19)==1;
Buy_SC_21=	Buy_SC_20 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-20)==1;
Buy_SC_22=	Buy_SC_21 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-21)==1;
Buy_SC_23=	Buy_SC_22 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-22)==1;
Buy_SC_24=	Buy_SC_23 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-23)==1;
Buy_SC_25=	Buy_SC_24 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-24)==1;
Buy_SC_26=	Buy_SC_25 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-25)==1;
Buy_SC_27=	Buy_SC_26 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-26)==1;
Buy_SC_28=	Buy_SC_27 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-27)==1;
Buy_SC_29=	Buy_SC_28 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-28)==1;
Buy_SC_30=	Buy_SC_29 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-29)==1;

Sell_SC_1=		Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),0)==0;
Sell_SC_2=		Sell_SC_1  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-1)==0;
Sell_SC_3=		Sell_SC_2  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-2)==0;
Sell_SC_4=		Sell_SC_3  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-3)==0;
Sell_SC_5=		Sell_SC_4  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-4)==0;
Sell_SC_6=		Sell_SC_5  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-5)==0;
Sell_SC_7=		Sell_SC_6  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-6)==0;
Sell_SC_8=		Sell_SC_7  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-7)==0;
Sell_SC_9=		Sell_SC_8  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-8)==0;
Sell_SC_10=	Sell_SC_9  AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-9)==0;
Sell_SC_11=	Sell_SC_10 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-10)==0;
Sell_SC_12=	Sell_SC_11 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-11)==0;
Sell_SC_13=	Sell_SC_12 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-12)==0;
Sell_SC_14=	Sell_SC_13 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-13)==0;
Sell_SC_15=	Sell_SC_14 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-14)==0;
Sell_SC_16=	Sell_SC_15 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-15)==0;
Sell_SC_17=	Sell_SC_16 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-16)==0;
Sell_SC_18=	Sell_SC_17 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-17)==0;
Sell_SC_19=	Sell_SC_18 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-18)==0;
Sell_SC_20=	Sell_SC_19 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-19)==0;
Sell_SC_21=	Sell_SC_20 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-20)==0;
Sell_SC_22=	Sell_SC_21 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-21)==0;
Sell_SC_23=	Sell_SC_22 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-22)==0;
Sell_SC_24=	Sell_SC_23 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-23)==0;
Sell_SC_25=	Sell_SC_24 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-24)==0;
Sell_SC_26=	Sell_SC_25 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-25)==0;
Sell_SC_27=	Sell_SC_26 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-26)==0;
Sell_SC_28=	Sell_SC_27 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-27)==0;
Sell_SC_29=	Sell_SC_28 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-28)==0;
Sell_SC_30=	Sell_SC_29 AND Ref(Flip(Buy_Scold_Field,Sell_Scold_Field),-29)==0;

Buy_SC=		IIf(Buy_SC_30,30,
				IIf(Buy_SC_29,29,
				IIf(Buy_SC_28,28,
				IIf(Buy_SC_27,27,
				IIf(Buy_SC_26,26,
				IIf(Buy_SC_25,25,
				IIf(Buy_SC_24,24,
				IIf(Buy_SC_23,23,
				IIf(Buy_SC_22,22,
				IIf(Buy_SC_21,21,
				IIf(Buy_SC_20,20,
				IIf(Buy_SC_19,19,
				IIf(Buy_SC_18,18,
				IIf(Buy_SC_17,17,
				IIf(Buy_SC_16,16,
				IIf(Buy_SC_15,15,
				IIf(Buy_SC_14,14,
				IIf(Buy_SC_13,13,
				IIf(Buy_SC_12,12,
				IIf(Buy_SC_11,11,
				IIf(Buy_SC_10,10,
				IIf(Buy_SC_9,9,
				IIf(Buy_SC_8,8,
				IIf(Buy_SC_7,7,
				IIf(Buy_SC_6,6,
				IIf(Buy_SC_5,5,
				IIf(Buy_SC_4,4,
				IIf(Buy_SC_3,3,
				IIf(Buy_SC_2,2,
				IIf(Buy_SC_1,1,0))))))))))))))))))))))))))))));

Sell_SC=		IIf(Sell_SC_30,30,
				IIf(Sell_SC_29,29,
				IIf(Sell_SC_28,28,
				IIf(Sell_SC_27,27,
				IIf(Sell_SC_26,26,
				IIf(Sell_SC_25,25,
				IIf(Sell_SC_24,24,
				IIf(Sell_SC_23,23,
				IIf(Sell_SC_22,22,
				IIf(Sell_SC_21,21,
				IIf(Sell_SC_20,20,
				IIf(Sell_SC_19,19,
				IIf(Sell_SC_18,18,
				IIf(Sell_SC_17,17,
				IIf(Sell_SC_16,16,
				IIf(Sell_SC_15,15,
				IIf(Sell_SC_14,14,
				IIf(Sell_SC_13,13,
				IIf(Sell_SC_12,12,
				IIf(Sell_SC_11,11,
				IIf(Sell_SC_10,10,
				IIf(Sell_SC_9,9,
				IIf(Sell_SC_8,8,
				IIf(Sell_SC_7,7,
				IIf(Sell_SC_6,6,
				IIf(Sell_SC_5,5,
				IIf(Sell_SC_4,4,
				IIf(Sell_SC_3,3,
				IIf(Sell_SC_2,2,
				IIf(Sell_SC_1,1,0))))))))))))))))))))))))))))));


//=====================================================================================
// Type 22SC End
//=====================================================================================


//=====================================================================================
// Type 32 Begin
//=====================================================================================

Buy_Sheroune = Buy_fract1;
Sell_Sheroune = Sell_fract1;
Buy_Sheroune=ExRem(Buy_Sheroune,Sell_Sheroune); Sell_Sheroune=ExRem(Sell_Sheroune,Buy_Sheroune);

Buy_SHR_1=	Ref(Flip(Buy_Sheroune,Sell_Sheroune),0)==1;
Buy_SHR_2=	Buy_SHR_1  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-1)==1;
Buy_SHR_3=	Buy_SHR_2  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-2)==1;
Buy_SHR_4=	Buy_SHR_3  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-3)==1;
Buy_SHR_5=	Buy_SHR_4  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-4)==1;
Buy_SHR_6=	Buy_SHR_5  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-5)==1;
Buy_SHR_7=	Buy_SHR_6  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-6)==1;
Buy_SHR_8=	Buy_SHR_7  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-7)==1;
Buy_SHR_9=	Buy_SHR_8  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-8)==1;
Buy_SHR_10=	Buy_SHR_9  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-9)==1;
Buy_SHR_11=	Buy_SHR_10 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-10)==1;
Buy_SHR_12=	Buy_SHR_11 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-11)==1;
Buy_SHR_13=	Buy_SHR_12 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-12)==1;
Buy_SHR_14=	Buy_SHR_13 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-13)==1;
Buy_SHR_15=	Buy_SHR_14 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-14)==1;
Buy_SHR_16=	Buy_SHR_15 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-15)==1;
Buy_SHR_17=	Buy_SHR_16 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-16)==1;
Buy_SHR_18=	Buy_SHR_17 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-17)==1;
Buy_SHR_19=	Buy_SHR_18 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-18)==1;
Buy_SHR_20=	Buy_SHR_19 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-19)==1;
Buy_SHR_21=	Buy_SHR_20 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-20)==1;
Buy_SHR_22=	Buy_SHR_21 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-21)==1;
Buy_SHR_23=	Buy_SHR_22 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-22)==1;
Buy_SHR_24=	Buy_SHR_23 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-23)==1;
Buy_SHR_25=	Buy_SHR_24 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-24)==1;
Buy_SHR_26=	Buy_SHR_25 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-25)==1;
Buy_SHR_27=	Buy_SHR_26 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-26)==1;
Buy_SHR_28=	Buy_SHR_27 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-27)==1;
Buy_SHR_29=	Buy_SHR_28 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-28)==1;
Buy_SHR_30=	Buy_SHR_29 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-29)==1;

Sell_SHR_1=		Ref(Flip(Buy_Sheroune,Sell_Sheroune),0)==0;
Sell_SHR_2=		Sell_SHR_1  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-1)==0;
Sell_SHR_3=		Sell_SHR_2  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-2)==0;
Sell_SHR_4=		Sell_SHR_3  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-3)==0;
Sell_SHR_5=		Sell_SHR_4  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-4)==0;
Sell_SHR_6=		Sell_SHR_5  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-5)==0;
Sell_SHR_7=		Sell_SHR_6  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-6)==0;
Sell_SHR_8=		Sell_SHR_7  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-7)==0;
Sell_SHR_9=		Sell_SHR_8  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-8)==0;
Sell_SHR_10=	Sell_SHR_9  AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-9)==0;
Sell_SHR_11=	Sell_SHR_10 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-10)==0;
Sell_SHR_12=	Sell_SHR_11 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-11)==0;
Sell_SHR_13=	Sell_SHR_12 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-12)==0;
Sell_SHR_14=	Sell_SHR_13 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-13)==0;
Sell_SHR_15=	Sell_SHR_14 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-14)==0;
Sell_SHR_16=	Sell_SHR_15 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-15)==0;
Sell_SHR_17=	Sell_SHR_16 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-16)==0;
Sell_SHR_18=	Sell_SHR_17 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-17)==0;
Sell_SHR_19=	Sell_SHR_18 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-18)==0;
Sell_SHR_20=	Sell_SHR_19 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-19)==0;
Sell_SHR_21=	Sell_SHR_20 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-20)==0;
Sell_SHR_22=	Sell_SHR_21 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-21)==0;
Sell_SHR_23=	Sell_SHR_22 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-22)==0;
Sell_SHR_24=	Sell_SHR_23 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-23)==0;
Sell_SHR_25=	Sell_SHR_24 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-24)==0;
Sell_SHR_26=	Sell_SHR_25 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-25)==0;
Sell_SHR_27=	Sell_SHR_26 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-26)==0;
Sell_SHR_28=	Sell_SHR_27 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-27)==0;
Sell_SHR_29=	Sell_SHR_28 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-28)==0;
Sell_SHR_30=	Sell_SHR_29 AND Ref(Flip(Buy_Sheroune,Sell_Sheroune),-29)==0;

Buy_SHR=		IIf(Buy_SHR_30,30,
				IIf(Buy_SHR_29,29,
				IIf(Buy_SHR_28,28,
				IIf(Buy_SHR_27,27,
				IIf(Buy_SHR_26,26,
				IIf(Buy_SHR_25,25,
				IIf(Buy_SHR_24,24,
				IIf(Buy_SHR_23,23,
				IIf(Buy_SHR_22,22,
				IIf(Buy_SHR_21,21,
				IIf(Buy_SHR_20,20,
				IIf(Buy_SHR_19,19,
				IIf(Buy_SHR_18,18,
				IIf(Buy_SHR_17,17,
				IIf(Buy_SHR_16,16,
				IIf(Buy_SHR_15,15,
				IIf(Buy_SHR_14,14,
				IIf(Buy_SHR_13,13,
				IIf(Buy_SHR_12,12,
				IIf(Buy_SHR_11,11,
				IIf(Buy_SHR_10,10,
				IIf(Buy_SHR_9,9,
				IIf(Buy_SHR_8,8,
				IIf(Buy_SHR_7,7,
				IIf(Buy_SHR_6,6,
				IIf(Buy_SHR_5,5,
				IIf(Buy_SHR_4,4,
				IIf(Buy_SHR_3,3,
				IIf(Buy_SHR_2,2,
				IIf(Buy_SHR_1,1,0))))))))))))))))))))))))))))));

Sell_SHR=		IIf(Sell_SHR_30,30,
				IIf(Sell_SHR_29,29,
				IIf(Sell_SHR_28,28,
				IIf(Sell_SHR_27,27,
				IIf(Sell_SHR_26,26,
				IIf(Sell_SHR_25,25,
				IIf(Sell_SHR_24,24,
				IIf(Sell_SHR_23,23,
				IIf(Sell_SHR_22,22,
				IIf(Sell_SHR_21,21,
				IIf(Sell_SHR_20,20,
				IIf(Sell_SHR_19,19,
				IIf(Sell_SHR_18,18,
				IIf(Sell_SHR_17,17,
				IIf(Sell_SHR_16,16,
				IIf(Sell_SHR_15,15,
				IIf(Sell_SHR_14,14,
				IIf(Sell_SHR_13,13,
				IIf(Sell_SHR_12,12,
				IIf(Sell_SHR_11,11,
				IIf(Sell_SHR_10,10,
				IIf(Sell_SHR_9,9,
				IIf(Sell_SHR_8,8,
				IIf(Sell_SHR_7,7,
				IIf(Sell_SHR_6,6,
				IIf(Sell_SHR_5,5,
				IIf(Sell_SHR_4,4,
				IIf(Sell_SHR_3,3,
				IIf(Sell_SHR_2,2,
				IIf(Sell_SHR_1,1,0))))))))))))))))))))))))))))));

//=====================================================================================
// Type 32 End
//=====================================================================================

//=====================================================================================
// BUY PEAK VALEY Begin
//=====================================================================================

nbar =2;// Param("nbar",3,1,5,1);
 
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) < H;
//PHigh = Ref(H,-2) < H AND Ref(H,-1) < H AND Ref(H,1) < H AND Ref(H,2) < H;
PHighPrice0 = ValueWhen(PHigh,H);
PHighPrice1 = IIf(PHighPrice0 AND BarsSince(PHigh) > nbar,PHighPrice0,Null);
PHighPrice2 = IIf(PHighPrice0 AND BarsSince(PHigh) <= nbar,PHighPrice0,Null);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) > L;
//PLow = Ref(L,-2) > L AND Ref(L,-1) > L AND Ref(L,1) > L AND Ref(L,2) > L;
PLowPrice0 = ValueWhen(PLow,L);
PLowPrice1 = IIf(PLowPrice0 AND BarsSince(Plow) > nbar,PLowPrice0,Null);
PLowPrice2 = IIf(PLowPrice0 AND BarsSince(Plow) <= nbar,PLowPrice0,Null);
 
Buy_peak=H>PHighPrice0;
Sell_peak=L<PLowPrice0;
Buy_peak=ExRem(Buy_peak,Sell_peak);
Sell_peak=ExRem(Sell_peak,Buy_peak);

Buy_LowerBand2 =Buy_peak;
Sell_LowerBand2 =Sell_peak;
Buy_LowerBand2 =ExRem(Buy_LowerBand2,Sell_LowerBand2); Sell_LowerBand2=ExRem(Sell_LowerBand2,Buy_LowerBand2);

Buy_LB2_1=	Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),0)==1;
Buy_LB2_2=	Buy_LB2_1  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-1)==1;
Buy_LB2_3=	Buy_LB2_2  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-2)==1;
Buy_LB2_4=	Buy_LB2_3  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-3)==1;
Buy_LB2_5=	Buy_LB2_4  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-4)==1;
Buy_LB2_6=	Buy_LB2_5  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-5)==1;
Buy_LB2_7=	Buy_LB2_6  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-6)==1;
Buy_LB2_8=	Buy_LB2_7  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-7)==1;
Buy_LB2_9=	Buy_LB2_8  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-8)==1;
Buy_LB2_10=	Buy_LB2_9  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-9)==1;
Buy_LB2_11=	Buy_LB2_10 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-10)==1;
Buy_LB2_12=	Buy_LB2_11 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-11)==1;
Buy_LB2_13=	Buy_LB2_12 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-12)==1;
Buy_LB2_14=	Buy_LB2_13 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-13)==1;
Buy_LB2_15=	Buy_LB2_14 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-14)==1;
Buy_LB2_16=	Buy_LB2_15 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-15)==1;
Buy_LB2_17=	Buy_LB2_16 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-16)==1;
Buy_LB2_18=	Buy_LB2_17 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-17)==1;
Buy_LB2_19=	Buy_LB2_18 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-18)==1;
Buy_LB2_20=	Buy_LB2_19 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-19)==1;
Buy_LB2_21=	Buy_LB2_20 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-20)==1;
Buy_LB2_22=	Buy_LB2_21 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-21)==1;
Buy_LB2_23=	Buy_LB2_22 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-22)==1;
Buy_LB2_24=	Buy_LB2_23 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-23)==1;
Buy_LB2_25=	Buy_LB2_24 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-24)==1;
Buy_LB2_26=	Buy_LB2_25 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-25)==1;
Buy_LB2_27=	Buy_LB2_26 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-26)==1;
Buy_LB2_28=	Buy_LB2_27 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-27)==1;
Buy_LB2_29=	Buy_LB2_28 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-28)==1;
Buy_LB2_30=	Buy_LB2_29 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-29)==1;

Sell_LB2_1=		Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),0)==0;
Sell_LB2_2=		Sell_LB2_1  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-1)==0;
Sell_LB2_3=		Sell_LB2_2  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-2)==0;
Sell_LB2_4=		Sell_LB2_3  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-3)==0;
Sell_LB2_5=		Sell_LB2_4  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-4)==0;
Sell_LB2_6=		Sell_LB2_5  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-5)==0;
Sell_LB2_7=		Sell_LB2_6  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-6)==0;
Sell_LB2_8=		Sell_LB2_7  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-7)==0;
Sell_LB2_9=		Sell_LB2_8  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-8)==0;
Sell_LB2_10=	Sell_LB2_9  AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-9)==0;
Sell_LB2_11=	Sell_LB2_10 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-10)==0;
Sell_LB2_12=	Sell_LB2_11 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-11)==0;
Sell_LB2_13=	Sell_LB2_12 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-12)==0;
Sell_LB2_14=	Sell_LB2_13 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-13)==0;
Sell_LB2_15=	Sell_LB2_14 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-14)==0;
Sell_LB2_16=	Sell_LB2_15 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-15)==0;
Sell_LB2_17=	Sell_LB2_16 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-16)==0;
Sell_LB2_18=	Sell_LB2_17 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-17)==0;
Sell_LB2_19=	Sell_LB2_18 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-18)==0;
Sell_LB2_20=	Sell_LB2_19 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-19)==0;
Sell_LB2_21=	Sell_LB2_20 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-20)==0;
Sell_LB2_22=	Sell_LB2_21 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-21)==0;
Sell_LB2_23=	Sell_LB2_22 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-22)==0;
Sell_LB2_24=	Sell_LB2_23 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-23)==0;
Sell_LB2_25=	Sell_LB2_24 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-24)==0;
Sell_LB2_26=	Sell_LB2_25 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-25)==0;
Sell_LB2_27=	Sell_LB2_26 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-26)==0;
Sell_LB2_28=	Sell_LB2_27 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-27)==0;
Sell_LB2_29=	Sell_LB2_28 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-28)==0;
Sell_LB2_30=	Sell_LB2_29 AND Ref(Flip(Buy_LowerBand2,Sell_LowerBand2),-29)==0;

Buy_LB2=		IIf(Buy_LB2_30,30,
				IIf(Buy_LB2_29,29,
				IIf(Buy_LB2_28,28,
				IIf(Buy_LB2_27,27,
				IIf(Buy_LB2_26,26,
				IIf(Buy_LB2_25,25,
				IIf(Buy_LB2_24,24,
				IIf(Buy_LB2_23,23,
				IIf(Buy_LB2_22,22,
				IIf(Buy_LB2_21,21,
				IIf(Buy_LB2_20,20,
				IIf(Buy_LB2_19,19,
				IIf(Buy_LB2_18,18,
				IIf(Buy_LB2_17,17,
				IIf(Buy_LB2_16,16,
				IIf(Buy_LB2_15,15,
				IIf(Buy_LB2_14,14,
				IIf(Buy_LB2_13,13,
				IIf(Buy_LB2_12,12,
				IIf(Buy_LB2_11,11,
				IIf(Buy_LB2_10,10,
				IIf(Buy_LB2_9,9,
				IIf(Buy_LB2_8,8,
				IIf(Buy_LB2_7,7,
				IIf(Buy_LB2_6,6,
				IIf(Buy_LB2_5,5,
				IIf(Buy_LB2_4,4,
				IIf(Buy_LB2_3,3,
				IIf(Buy_LB2_2,2,
				IIf(Buy_LB2_1,1,0))))))))))))))))))))))))))))));

Sell_LB2=		IIf(Sell_LB2_30,30,
				IIf(Sell_LB2_29,29,
				IIf(Sell_LB2_28,28,
				IIf(Sell_LB2_27,27,
				IIf(Sell_LB2_26,26,
				IIf(Sell_LB2_25,25,
				IIf(Sell_LB2_24,24,
				IIf(Sell_LB2_23,23,
				IIf(Sell_LB2_22,22,
				IIf(Sell_LB2_21,21,
				IIf(Sell_LB2_20,20,
				IIf(Sell_LB2_19,19,
				IIf(Sell_LB2_18,18,
				IIf(Sell_LB2_17,17,
				IIf(Sell_LB2_16,16,
				IIf(Sell_LB2_15,15,
				IIf(Sell_LB2_14,14,
				IIf(Sell_LB2_13,13,
				IIf(Sell_LB2_12,12,
				IIf(Sell_LB2_11,11,
				IIf(Sell_LB2_10,10,
				IIf(Sell_LB2_9,9,
				IIf(Sell_LB2_8,8,
				IIf(Sell_LB2_7,7,
				IIf(Sell_LB2_6,6,
				IIf(Sell_LB2_5,5,
				IIf(Sell_LB2_4,4,
				IIf(Sell_LB2_3,3,
				IIf(Sell_LB2_2,2,
				IIf(Sell_LB2_1,1,0))))))))))))))))))))))))))))));

//=====================================================================================
// BUY PEAK VALEY End
//=====================================================================================


//=====================================================================================
// BUY SHR Begin
//=====================================================================================


SupResA = 20;//Param("Sup-Res A Period",20,0,100,1);
SupResB = 25;//Param("Sup-Res B Period",25,0,100,1);
 
BuyOffSet = SupResA;//Optimize("BuyOffSet",18,15,20,1);
SellOffset = BuyOffSet;//Optimize("SellOffset",2,2,14,2);
RegLength = 5;//Optimize("RegLength",5, 2,11,2);
BuyATRPeriod = 2;//Optimize("BuyATRPeriod",2,2,5,1);
SellATRPeriod = BuyATRPeriod;//Optimize("SellATRPeriod",4,2,11,2);
ATRMultiplier = 0.5;//Optimize("ATRMultiplier",1,0.7,1.25,.05);
SuppA = HHV(H-ATRMultiplier*ATR(BuyATRPeriod),BuyOffset); /* RED */
RessB = LLV(L+ATRMultiplier*ATR(SellATRPeriod),SellOffset); /* GREEN */
 
nn=SupResB;
mmm=100;
TYP=(High + Low + 2*Close)/4;
CI=(TYP-MA(TYP,14))/(0.015*StDev(TYP,14));
CCCI=EMA(CI,5)+mmm;
Hh=HHV(H,nn);
Ll=LLV(L,nn);
MM=(Hh+Ll)/2;
CCCC=EMA(CCCI*(Hh-Ll)/(2*mmm)+Ll,5);

 
Buy_shr2 = Cross(H,Ref(Hh,-1));
Sell_shr2 = Cross (Ref(Ll,-1),L);
Buy_shr2 =ExRem(Buy_shr2 ,Sell_shr2 );Sell_shr2 =ExRem(Sell_shr2 ,Buy_shr2 );

Buy_ATR_Sys=Buy_shr2;
Sell_ATR_Sys=Sell_shr2;
Buy_ATR_Sys=ExRem(Buy_ATR_Sys,Sell_ATR_Sys); Sell_ATR_Sys=ExRem(Sell_ATR_Sys,Buy_ATR_Sys);

Buy_ATR_1=	Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),0)==1;
Buy_ATR_2=	Buy_ATR_1  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-1)==1;
Buy_ATR_3=	Buy_ATR_2  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-2)==1;
Buy_ATR_4=	Buy_ATR_3  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-3)==1;
Buy_ATR_5=	Buy_ATR_4  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-4)==1;
Buy_ATR_6=	Buy_ATR_5  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-5)==1;
Buy_ATR_7=	Buy_ATR_6  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-6)==1;
Buy_ATR_8=	Buy_ATR_7  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-7)==1;
Buy_ATR_9=	Buy_ATR_8  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-8)==1;
Buy_ATR_10=	Buy_ATR_9  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-9)==1;
Buy_ATR_11=	Buy_ATR_10 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-10)==1;
Buy_ATR_12=	Buy_ATR_11 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-11)==1;
Buy_ATR_13=	Buy_ATR_12 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-12)==1;
Buy_ATR_14=	Buy_ATR_13 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-13)==1;
Buy_ATR_15=	Buy_ATR_14 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-14)==1;
Buy_ATR_16=	Buy_ATR_15 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-15)==1;
Buy_ATR_17=	Buy_ATR_16 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-16)==1;
Buy_ATR_18=	Buy_ATR_17 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-17)==1;
Buy_ATR_19=	Buy_ATR_18 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-18)==1;
Buy_ATR_20=	Buy_ATR_19 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-19)==1;
Buy_ATR_21=	Buy_ATR_20 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-20)==1;
Buy_ATR_22=	Buy_ATR_21 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-21)==1;
Buy_ATR_23=	Buy_ATR_22 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-22)==1;
Buy_ATR_24=	Buy_ATR_23 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-23)==1;
Buy_ATR_25=	Buy_ATR_24 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-24)==1;
Buy_ATR_26=	Buy_ATR_25 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-25)==1;
Buy_ATR_27=	Buy_ATR_26 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-26)==1;
Buy_ATR_28=	Buy_ATR_27 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-27)==1;
Buy_ATR_29=	Buy_ATR_28 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-28)==1;
Buy_ATR_30=	Buy_ATR_29 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-29)==1;

Sell_ATR_1=		Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),0)==0;
Sell_ATR_2=		Sell_ATR_1  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-1)==0;
Sell_ATR_3=		Sell_ATR_2  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-2)==0;
Sell_ATR_4=		Sell_ATR_3  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-3)==0;
Sell_ATR_5=		Sell_ATR_4  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-4)==0;
Sell_ATR_6=		Sell_ATR_5  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-5)==0;
Sell_ATR_7=		Sell_ATR_6  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-6)==0;
Sell_ATR_8=		Sell_ATR_7  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-7)==0;
Sell_ATR_9=		Sell_ATR_8  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-8)==0;
Sell_ATR_10=	Sell_ATR_9  AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-9)==0;
Sell_ATR_11=	Sell_ATR_10 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-10)==0;
Sell_ATR_12=	Sell_ATR_11 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-11)==0;
Sell_ATR_13=	Sell_ATR_12 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-12)==0;
Sell_ATR_14=	Sell_ATR_13 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-13)==0;
Sell_ATR_15=	Sell_ATR_14 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-14)==0;
Sell_ATR_16=	Sell_ATR_15 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-15)==0;
Sell_ATR_17=	Sell_ATR_16 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-16)==0;
Sell_ATR_18=	Sell_ATR_17 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-17)==0;
Sell_ATR_19=	Sell_ATR_18 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-18)==0;
Sell_ATR_20=	Sell_ATR_19 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-19)==0;
Sell_ATR_21=	Sell_ATR_20 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-20)==0;
Sell_ATR_22=	Sell_ATR_21 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-21)==0;
Sell_ATR_23=	Sell_ATR_22 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-22)==0;
Sell_ATR_24=	Sell_ATR_23 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-23)==0;
Sell_ATR_25=	Sell_ATR_24 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-24)==0;
Sell_ATR_26=	Sell_ATR_25 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-25)==0;
Sell_ATR_27=	Sell_ATR_26 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-26)==0;
Sell_ATR_28=	Sell_ATR_27 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-27)==0;
Sell_ATR_29=	Sell_ATR_28 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-28)==0;
Sell_ATR_30=	Sell_ATR_29 AND Ref(Flip(Buy_ATR_Sys,Sell_ATR_Sys),-29)==0;

Buy_ATR=		IIf(Buy_ATR_30,30,
				IIf(Buy_ATR_29,29,
				IIf(Buy_ATR_28,28,
				IIf(Buy_ATR_27,27,
				IIf(Buy_ATR_26,26,
				IIf(Buy_ATR_25,25,
				IIf(Buy_ATR_24,24,
				IIf(Buy_ATR_23,23,
				IIf(Buy_ATR_22,22,
				IIf(Buy_ATR_21,21,
				IIf(Buy_ATR_20,20,
				IIf(Buy_ATR_19,19,
				IIf(Buy_ATR_18,18,
				IIf(Buy_ATR_17,17,
				IIf(Buy_ATR_16,16,
				IIf(Buy_ATR_15,15,
				IIf(Buy_ATR_14,14,
				IIf(Buy_ATR_13,13,
				IIf(Buy_ATR_12,12,
				IIf(Buy_ATR_11,11,
				IIf(Buy_ATR_10,10,
				IIf(Buy_ATR_9,9,
				IIf(Buy_ATR_8,8,
				IIf(Buy_ATR_7,7,
				IIf(Buy_ATR_6,6,
				IIf(Buy_ATR_5,5,
				IIf(Buy_ATR_4,4,
				IIf(Buy_ATR_3,3,
				IIf(Buy_ATR_2,2,
				IIf(Buy_ATR_1,1,0))))))))))))))))))))))))))))));

Sell_ATR=		IIf(Sell_ATR_30,30,
				IIf(Sell_ATR_29,29,
				IIf(Sell_ATR_28,28,
				IIf(Sell_ATR_27,27,
				IIf(Sell_ATR_26,26,
				IIf(Sell_ATR_25,25,
				IIf(Sell_ATR_24,24,
				IIf(Sell_ATR_23,23,
				IIf(Sell_ATR_22,22,
				IIf(Sell_ATR_21,21,
				IIf(Sell_ATR_20,20,
				IIf(Sell_ATR_19,19,
				IIf(Sell_ATR_18,18,
				IIf(Sell_ATR_17,17,
				IIf(Sell_ATR_16,16,
				IIf(Sell_ATR_15,15,
				IIf(Sell_ATR_14,14,
				IIf(Sell_ATR_13,13,
				IIf(Sell_ATR_12,12,
				IIf(Sell_ATR_11,11,
				IIf(Sell_ATR_10,10,
				IIf(Sell_ATR_9,9,
				IIf(Sell_ATR_8,8,
				IIf(Sell_ATR_7,7,
				IIf(Sell_ATR_6,6,
				IIf(Sell_ATR_5,5,
				IIf(Sell_ATR_4,4,
				IIf(Sell_ATR_3,3,
				IIf(Sell_ATR_2,2,
				IIf(Sell_ATR_1,1,0))))))))))))))))))))))))))))));


//=====================================================================================
// BUY SHR End
//=====================================================================================


//====Explorer Begin====

Filter = 1!=0;

Close_Diff = C-Ref(C,-1);
Close_Diff_Percent = (C-Ref(C,-1))*100/Ref(C,-1);
Satuan_terkecil=2000000;
Jumlah_Lot = round((satuan_terkecil/(100*C))+0.5);
Harga_Beli=C*Jumlah_Lot*100/1000;

AddColumn(C, "Close", 1.0);
AddColumn(Close_Diff_Percent,"   %   ",1.2,IIf(Close_Diff_Percent<0,colorRed,IIf(Close_Diff_Percent>0,colorGreen,colorDefault)),colorDefault);
AddColumn(Jumlah_Lot, "  JL ", 1.2);
AddColumn(Harga_Beli, "     Hrg  ", 1.2);

AddColumn(IIf(LowerDolly_0,1,IIf(LowerDolly_1,2,IIf(LowerDolly_2,3,IIf(LowerDolly_3,4,IIf(LowerDolly_4,5,0))))),"L2",1.0,colorDefault,IIf(LowerDolly_0,colorDarkGreen,IIf(LowerDolly_1,colorViolet,IIf(LowerDolly_2,colorDarkRed,IIf(LowerDolly_3,colorDarkGrey,IIf(LowerDolly_4,colorDarkTeal,colorDefault))))));
AddColumn(IIf(UpperDolly_0,1,IIf(UpperDolly_1,2,IIf(UpperDolly_2,3,IIf(UpperDolly_3,4,IIf(UpperDolly_4,5,0))))),"U2",1.0,colorDefault,IIf(UpperDolly_0,colorDarkGreen,IIf(UpperDolly_1,colorViolet,IIf(UpperDolly_2,colorDarkRed,IIf(UpperDolly_3,colorDarkGrey,IIf(UpperDolly_4,colorDarkTeal,colorDefault))))));

AddColumn(Flip(Buy_Peak_Valey,Sell_Peak_Valey),"22",1.0,colorDefault,IIf(Flip(Buy_Peak_Valey,Sell_Peak_Valey)==1,colorGreen,colorRed));
AddColumn(IIf(Flip(Buy_Peak_Valey,Sell_Peak_Valey)==1,Buy_PV,Sell_PV),"D22",1.0,colorDefault,IIf(Flip(Buy_Peak_Valey,Sell_Peak_Valey)==1,colorGreen,colorRed));

AddColumn(Flip(Buy_Sheroune,Sell_Sheroune),"30",1.0,colorDefault,IIf(Flip(Buy_Sheroune,Sell_Sheroune)==1,colorGreen,colorRed));
AddColumn(IIf(Flip(Buy_Sheroune,Sell_Sheroune)==1,Buy_SHR,Sell_SHR),"D30",1.0,colorDefault,IIf(Flip(Buy_Sheroune,Sell_Sheroune)==1,colorGreen,colorRed));

AddColumn(Flip(Buy_Scold_Field,Sell_Scold_Field),"SC",1.0,colorDefault,IIf(Flip(Buy_Scold_Field,Sell_Scold_Field)==1,colorGreen,colorRed));
AddColumn(IIf(Flip(Buy_Scold_Field,Sell_Scold_Field)==1,Buy_SC,Sell_SC),"DSC",1.0,colorDefault,IIf(Flip(Buy_Scold_Field,Sell_Scold_Field)==1,colorGreen,colorRed));

AddColumn(Flip(Buy_LowerBand2,Sell_LowerBand2),"PK",1.0,colorDefault,IIf(Flip(Buy_LowerBand2,Sell_LowerBand2)==1,colorGreen,colorRed));
AddColumn(IIf(Flip(Buy_LowerBand2,Sell_LowerBand2)==1,Buy_LB2,Sell_LB2),"DPK",1.0,colorDefault,IIf(Flip(Buy_LowerBand2,Sell_LowerBand2)==1,colorGreen,colorRed));

AddColumn(Flip(Buy_ATR_Sys,Sell_ATR_Sys),"SR",1.0,colorDefault,IIf(Flip(Buy_ATR_Sys,Sell_ATR_Sys)==1,colorGreen,colorRed));
AddColumn(IIf(Flip(Buy_ATR_Sys,Sell_ATR_Sys)==1,Buy_ATR,Sell_ATR),"DSR",1.0,colorDefault,IIf(Flip(Buy_ATR_Sys,Sell_ATR_Sys)==1,colorGreen,colorRed));




//====Explorer End====


_SECTION_END();

4 comments

1. val2004

please give explanations for the
arrow signs

tks

2. yancedolly

buy or sell use purple triangle signal.. but first you have to backtest the stock in last 2 years set the parameter of backtest buy—>close, 1 day & sell—>close, 1 day. if the result is good for you.. than choose that stock…

3. serseri26

hi Yancedolly
How do you understand how to sell or buy explore ?

4. pankit

HOW TO CHANGE COLOR FROM DARK BLUE AND BLACK TO GREEN AND RED

Leave Comment

Please login here to leave a comment.

Back