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 ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Yancedolly Bands V.6. for Amibroker (AFL)
Rating:
3 / 5 (Votes 6)
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
Leave Comment
Please login here to leave a comment.
Back
please give explanations for the
arrow signs
tks
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…
hi Yancedolly
How do you understand how to sell or buy explore ?
HOW TO CHANGE COLOR FROM DARK BLUE AND BLACK TO GREEN AND RED