RMO looks like same. With my Jugaad Ichi cloud.
Code:
_SECTION_BEGIN("RMO_Candle");
SwingTrd1 = 100 * (Close - ((MA(C,2)+
MA(MA(C,2),2)+
MA(MA(MA(C,2),2),2) +
MA(MA(MA(MA(C,2),2),2),2) +
MA(MA(MA(MA(MA(C,2),2),2),2),2) +
MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2) +
MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2),2), 2),2)+
MA(MA(MA(MA(MA(MA(MA(MA(MA(MA(C,2),2),2),2),2),2), 2),2),2),2))
/10))/(HHV(C,10)-LLV(C,10));
SwingTrd2=EMA(SwingTrd1,30);
SwingTrd3=EMA(SwingTrd2,30);
RMO= EMA(SwingTrd1,81);
Buy=Cross(SwingTrd2,SwingTrd3);
Sell=Cross(SwingTrd3,SwingTrd2);
Bull_Trend=EMA(SwingTrd1,81)>0;
Bear_Trend=EMA(SwingTrd1,81)<0;
Ribbon_kol=IIf(Bull_Trend,colorGreen, IIf(Bear_Trend,colorRed, colorBlack));
Plot(1, "ribbon", Ribbon_kol, styleOwnScale|styleArea|styleNoLabel, -0.5,100);
Impulse_UP= EMA(SwingTrd1,30) > 0;
Impulse_Down= EMA(SwingTrd1,81) < 0;
bar_kol=IIf(impulse_UP, colorBRIGHTGreen, IIf(impulse_Down, colorRed,IIf(Bull_Trend, colorDarkRed, colorGreen)));
//Plot(Close,"Close",bar_kol,styleCandle | styleThick|styleNoLabel);
////////////////////////////////////////////////
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
//BarFillColor=IIf(C>O,colorbrightGreen,IIf(C<=O,colorRed,colorLightGrey));
SetBarFillColor(bar_kol);
//Plot(C,"",IIf(C>O,colorBrightGreen,IIf(C<=O,colorRed,colorLightGrey)),64,0,0,0,0);
//COLORCANDLE=IIf(C>O,colorBrightGreen,IIf(C<O,colorRed,colorLightGrey));
Plot(C,"",bar_kol,styleCandle);
/////////////////////////////////////////////////////
shape = Buy * shapeUpArrow + Sell * shapeDownArrow;
PlotShapes( shape, IIf( Buy, colorBrightGreen, colorRed ),0, IIf( Buy, Low, High ) );
_SECTION_END();
_SECTION_BEGIN("CAMS");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorPink ), styleNoTitle | styleCandle|styleNoLabel);
////////////////////////////////////////////////// DP TOGGLE ///////////////////////////////////////////////////////
Show_Prev = ParamToggle( "Display Pivots", "No|Yes", 1);
// Get Previous Day's close, Low and High
DayC=Prev_Close = TimeFrameGetPrice( "C", inDaily, -1, expandFirst) ;
DayL=Prev_Low = TimeFrameGetPrice( "L", inDaily, -1, expandFirst) ;
DayH=Prev_High = TimeFrameGetPrice( "H", inDaily, -1, expandFirst) ;
Today = LastValue(Day( ) );
P = (Prev_High + Prev_Low + Prev_Close)/ 3;
R6 = (DayH / DayL) * DayC * 1.002;
R5 = (DayH / DayL) * DayC;
R4 = (((DayH / DayL) + 0.83) / 1.83) * DayC;
R3 = ( ( (DayH / DayL) + 2.66) / 3.66) * DayC;
R2 = ( ( (DayH / DayL) + 4.5) / 5.5) * DayC;
R1 = ( ( (DayH / DayL) + 10) / 11) * DayC;
S1 = (2- ( ( (DayH / DayL) + 10) / 11)) * DayC;
S2 = (2-( (DayH / DayL) + 4.5) / 5.5) * DayC;
S3 = (2-(( DayH / DayL) + 2.66) / 3.66) * DayC;
S4 = (2-( (DayH / DayL) + 0.83) / 1.83) * DayC;
S5 = (2-( DayH / DayL)) * DayC;
S6 = (2-( DayH / DayL)) * DayC * 0.998;
////////////////////////////// FPSR 30 MT STRATEGY /////////////////////////////////////////////////////////////
//TimeFrameSet( inDaily );
BS=(Prev_High-Prev_Low)/3;
Y=Prev_Close+BS;
X=Prev_Close-BS;
MULT=0.0003;
YT=Y+MULT*Y;
YB=Y-MULT*Y;
XT=X+MULT*X;
XB=X-MULT*X;
//PlotOHLC( 0, Prev_High ,Prev_Low ,Prev_Low, "", HLColor, styleCloud|styleNoLabel);
HLColor = colorPaleBlue;
if(Show_Prev)
{Plot(IIf(Today == Day(),R5, Null), "R5", ParamColor("R5", colorLightBlue),styleDashed|styleThick|styleNoRescale);
Plot(IIf(Today == Day(),R4, Null), "R4", ParamColor("R4",colorLightBlue),styleDots|styleThick|styleNoRescale);
Plot(IIf(Today == Day(),R3, Null), "R3", ParamColor("R3",colorLightBlue),styleDots|styleThick|styleNoRescale);
//Plot(IIf(Today == Day(),R2, Null), "R2", ParamColor("R2", colorBlack),styleDots|styleThick|styleNoRescale|styleNoLabel);
//Plot(IIf(Today == Day(),R1, Null), "R1", ParamColor("R1",colorBlack),styleDots|styleThick|styleNoRescale|styleNoLabel);
//Plot(IIf(Today == Day(),P, Null), "P", ParamColor("P",colorYellow),styleDots|styleThick|styleNoRescale);
//Plot(IIf(Today == Day(),S1, Null), "S1", ParamColor("S1", colorBlack),styleDots|styleThick|styleNoRescale|styleNoLabel);
//Plot(IIf(Today == Day(),S2, Null), "S2", ParamColor("S2",colorBlack),styleDots|styleThick|styleNoRescale|styleNoLabel);
Plot(IIf(Today == Day(),S3, Null), "S3", ParamColor("S3",colorBrightGreen),styleDots|styleThick|styleNoRescale);
Plot(IIf(Today == Day(),S4, Null), "S4", ParamColor("S4", colorBrightGreen),styleDots|styleThick|styleNoRescale );
Plot(IIf(Today == Day(),S5, Null), "S5", ParamColor("S5", colorBrightGreen),styleDashed|styleThick|styleNoRescale);
//Plot(IIf(Today == Day(), Prev_High, Null), "Prev_High", ParamColor(" Prev_High", HLColor),styleDashed|styleThick|styleNoRescale );
//Plot(IIf(Today == Day(), Prev_Low, Null), "Prev_Low", ParamColor(" Prev_Low", HLColor),styleDashed|styleThick|styleNoRescale );
}
_SECTION_BEGIN("EMA 34 BAND");
/////////////////////////////////////EMA 34 10 /////////////////////////////////////////////////////////////////
B10=EMA(C,18);
MULT=0.0003;
TB10 = B10+MULT*B10;
BB10 = B10-MULT*B10;
//PlotOHLC( 0, TB10 , BB10 , BB10 , "", colorCustom13, styleCloud | styleNoLabel);
B34=EMA(C,34);
MULT=0.0003;
TB3 = B34+0.0003*B34;
TB2 = B34+0.0002*B34;
TB1 = B34+0.0001*B34;
TB0 = B34;//EMA34
BB1 = B34-0.0001*B34;
BB2 = B34-0.0002*B34;
BB3 = B34-0.0003*B34;
Plot(TB3, "", colorDarkRed, styleDASHED | styleNoLabel);
Plot(TB2, "", colorDarkRed, styleDASHED | styleNoLabel);
Plot(TB1, "", colorDarkRed, styleDASHED | styleNoLabel);
Plot(B34, "", colorDarkRed, styleDASHED | styleNoLabel);
Plot(BB1, "", colorDarkRed, styleDASHED | styleNoLabel);
Plot(BB2, "", colorDarkRed, styleDASHED | styleNoLabel);
Plot(BB3, "", colorDarkRed, styleDASHED | styleNoLabel);
//PlotOHLC( 0, TB34 , BB34 , BB34 , "EMA34", colorDarkRed, styleCloud | styleNoLabel);
_SECTION_END();
_SECTION_BEGIN("MarketProfile");
//------------------------------------------------------------------------------
//
// Formula Name: Market Profile
//
// Use with 5/15min chart
// Originial - From AFL library
// Edited by - Milind
//Market Profile
Den = Param("Density", 1, 0.25, 100, 0.25); // Resolution in terms of $
IBBars = Param("Initial Balance Bars", 2, 0, 5, 1);
EnIB = Param("Show Initial Balance", 1, 0, 1, 1);
EnMP = Param("Show Market Profile", 1, 0, 2, 1);
PlotOHLC(O,H,L,C,"Price",IIf(C>O,colorGreen,colorRed),styleCandle);
BarsInDay = BarsSince(Day() != Ref(Day(), -1));
Bot = TimeFrameGetPrice("L", inDaily, 0);
Top = TimeFrameGetPrice("H", inDaily, 0);
Vol = TimeFrameGetPrice("V", inDaily, 0);
POC = H - H;
VAL = H - H;
VAH = H - H;
CurTop = HHV(H,BarsInDay+1);
Curbot = LLV(L,BarsInDay+1);
Range = Highest(Top-Bot);
TodayRange = Top - Bot;
AveRange = Sum(Top-Bot,30)/30;
LAveRange = AveRange[BarCount-1];
if (LAveRange < 1) {Den = 0.05;}
else if (LAveRange < 10) {Den = 0.25;}
else if (LAveRange < 20) {Den = 0.5;}
else if (LAveRange < 100) {Den = 1;}
else if (LAveRange < 500) {Den = 5;}
else {Den = 1;}
// Initialization
baseX = 0;
baseY = floor(Bot[0]/Den)*Den;
relTodayRange = 0;
firstVisBar = Status("firstvisiblebar");
lastVisBar = Status("lastvisiblebar");
D=.0001;
D1=.0001;
for (j=0; j <= 100; j++) {
x[j] = 0;
}
i0 = 0;
i1 = 0;
for (i=0; i<BarCount; i++) {
if (BarsInDay[i] == 0 AND i < firstVisBar) {
i0 = i;
}
if (BarsInDay[i] == 0 AND i >= lastVisBar) {
i1 = i;
}
}
i1 = BarCount-1;
for (i=i0; i<=i1; i++) {
if (BarsInDay[i] == 0) {
baseX = i;
baseY = floor(Bot[i]/Den)*Den;
maxY = floor(Top[i]/Den)*Den;
relTodayRange = (maxY-baseY)/Den;
for (j=0; j <= relTodayRange; j++) {
x[j] = 0;
}
}
if (EnMP == 2) {
for (j=0; j<= relTodayRange; j++) {
if (L[i] <= baseY+j*Den AND H[i] >= baseY+j*Den) {
PlotText(StrExtract("A,B,C,D,E,F,G,H,I,J,K,L,M,N",
BarsInDay[i]), baseX+x[j], baseY+j*Den, colorBlack);
x[j]++;
}
}
}
else if (EnMP == 1) {
for (j=0; j<= relTodayRange; j++) {
if (L[i] <= baseY+j*Den AND H[i] >= baseY+j*Den) {
line = LineArray(baseX, baseY+j*Den, baseX+x[j]+1, baseY+j*Den);
//Plot(line,"",ParamColor("Color", colorCustom13), styleLine+styleDots);
x[j]++;
}
}
}
// Draw Initial Balance after 11am bar is complete
if (BarsInDay[i] == IBBars+1 AND EnIB == 1) {
Line1 = LineArray(i-2, curtop[i-1],i+10, curtop[i-1],0,True);
Line1a=Line1+d1*Line1;
Line1b=Line1-d1*Line1;
PlotOHLC(Line1a,Line1a,Line1b,Line1b,"",colorBlue,styleCloud+styleNoLabel);
//Plot(Line1,"",colorRed,styleLine+styleDashed);
Line1 = LineArray(i-2, curbot[i-1],i+10, curbot[i-1],0,True);
//Plot(Line1,"",colorRed,styleLine+styleDashed);
Line1a=Line1+d1*Line1;
Line1b=Line1-d1*Line1;
PlotOHLC(Line1a,Line1a,Line1b,Line1b,"",colorBlue,styleCloud+styleNoLabel);
}
// Examine x[j]
if ((i < BarCount - 1 AND BarsInDay[i+1] == 0) OR i == BarCount-1) {
maxXj = 0;
for (j=0; j<= relTodayRange; j++) {
if (maxXj < x[j]) {maxXj = x[j]; maxj = j;}
}
for (k=i-BarsInDay[i];k<=i;k++) {
POC[k] = baseY+Maxj*Den;
}
Line1 = LineArray(baseX, baseY+maxj*Den, i, baseY+maxj*Den,0,True);
Line1a=Line1+d*Line1;
Line1b=Line1-d*Line1;
//Plot(Line1,"",colorWhite,styleDots+styleThick);
//Plot(Line1a,"",colorWhite,styleDots+styleThick);
//Plot(Line1b,"",colorWhite,styleDots+styleThick);
PlotOHLC(Line1a,Line1a,Line1b,Line1b,"",colorWhite,styleCloud+styleNoLabel);
}
}
Plot(POC,"POC",colorBlack,styleDots|styleNoLabel);
_SECTION_END();
_SECTION_BEGIN("combined wolfe AB=CD +DoubleTop");
/*Wolf Buy Pattern*/
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////// CONDITION CHANGE 1 ///////////////////////////////////////////////////////////////////////////////////////
P13=Peak(High,1,3);
T13=Trough(Low,1,3);
P12=Peak(High,1,2);
T12=Trough(Low,1,2);
P11=Peak(High,1,1);
T11=Trough(Low,1,1);
P13B=PeakBars(High,1,3);
T13B=TroughBars(Low,1,3);
P12B=PeakBars(High,1,2);
T12B=TroughBars(Low,1,2);
P11B=PeakBars(High,1,1);
T11B=TroughBars(Low,1,1);
aT11=T13B-T12B;
aT12=T12B-T11B;
aP11=P13B-P12B;
aP12=P12B-P11B;
WolfB1=T11B<1 AND T13B>P12B AND P12B>T12B AND T12B>P11B AND P11B>T11B AND P12>T12 AND P11>T11 AND P12>1.1*P11 AND T13>1.1*T12 AND T12>1.05*T11 AND (P12-T13)>1.05*(P11-T12) AND (T12<P12-1.05*(P12-T13) AND T12>P12-1.7*(P12-T13)) AND (P11>T12+0.38*(P12-T12) AND P11<T12+0.9*(P12-T12)) AND (T11<P11-1.05*(P11-T12) AND T11>P11-1.9*(P11-T12)) AND (AT11>0.7*AT12 AND AT11<1.25*AT12);
WolfB11=T11B<1 AND T13B>P12B AND P12B>T12B AND T12B>P11B AND P11B>T11B AND P12>T12 AND P11>T11 AND P12>P11 AND T13>T12 AND T12>T11 AND (P12-T13)>=(P11-T12) AND (T12<P12-1.05*(P12-T13) AND T12>P12-1.9*(P12-T13)) AND (P11>T12+0.38*(P12-T12) AND P11<T12+0.9*(P12-T12)) AND (T11<P11-1.05*(P11-T12) AND T11>P11-2.2*(P11-T12)) AND (AT11>0.7*AT12 AND AT11<1.25*AT12);
WolfS1=P11B<1 AND P13B>T12B AND T12B>P12B AND P12B>T11B AND T11B>P11B AND P13>T12 AND T11>T12 AND P12>P13 AND P12>T11 AND P11>P12 AND (P13-T12)>1.05*(P12-T11) AND (P12>T12+1.05*(P13-T12) AND P12<T12+1.7*(P13-T12)) AND (T11>T12+0.38*(P12-T12) AND T11<T12+0.9*(P12-T12)) AND (P11>T11+1.05*(P12-T11) AND P11<T11+1.9*(P12-T11)) AND (AP11>0.7*AP12 AND AP11<1.25*AP12) ;
WolfS11=P11B<1 AND P13B>T12B AND T12B>P12B AND P12B>T11B AND T11B>P11B AND P13>T12 AND T11>T12 AND P12>P13 AND P12>T11 AND P11>P12 AND (P13-T12)>=(P12-T11) AND (P12>T12+1.03*(P13-T12) AND P12<T12+1.8*(P13-T12)) AND (T11>T12+0.3*(P12-T12) AND T11<T12+0.9*(P12-T12)) AND (P11>T11+1.03*(P12-T11) AND P11<T11+2.2*(P12-T11)) AND (AP11>0.6*AP12 AND AP11<1.35*AP12) ;
PlotShapes(WolfS1*shapeDownTriangle,colorRed, 0, High, Offset =-40);
PlotShapes(WolfS1*shapeDigit1,colorRed, 0, High, Offset =55);
PlotShapes(WolfS11*shapeDownTriangle,colorDarkRed, 0, High, Offset =-10);
PlotShapes(WolfS11*shapeDigit2,colorDarkRed, 0, High, Offset =25);
PlotShapes(WolfB1*shapeUpTriangle,colorBrightGreen, 0, Low, Offset =0);
PlotShapes(WolfB1*shapeDigit1,colorBrightGreen, 0, Low, Offset =-15);
PlotShapes(WolfB11*shapeUpTriangle,colorGreen, 0, Low, Offset =-35);
PlotShapes(WolfB11*shapeDigit2,colorGreen, 0, Low, Offset =-50);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////// CONDITION CHANGE 2 ///////////////////////////////////////////////////////////////////////////////////////
P23=Peak(High,2,3);
T23=Trough(Low,2,3);
P22=Peak(High,2,2);
T22=Trough(Low,2,2);
P21=Peak(High,2,1);
T21=Trough(Low,2,1);
P23B=PeakBars(High,2,3);
T23B=TroughBars(Low,2,3);
P22B=PeakBars(High,2,2);
T22B=TroughBars(Low,2,2);
P21B=PeakBars(High,2,1);
T21B=TroughBars(Low,2,1);
aT21=T23B-T22B;
aT22=T22B-T21B;
aP21=P23B-P22B;
aP22=P22B-P21B;
WolfB2=T21B<1 AND T23B>P22B AND P22B>T22B AND T22B>P21B AND P21B>T21B AND P22>T22 AND P21>T21 AND P22>1.1*P21 AND T23>1.1*T22 AND T22>1.05*T21 AND (P22-T23)>1.05*(P21-T22) AND (T22<P22-1.05*(P22-T23) AND T22>P22-1.7*(P22-T23)) AND (P21>T22+0.38*(P22-T22) AND P21<T22+0.9*(P22-T22)) AND (T21<P21-1.05*(P21-T22) AND T21>P21-1.9*(P21-T22)) AND (AT21>0.7*AT22 AND AT21<1.25*AT22);
WolfB21=T21B<1 AND T23B>P22B AND P22B>T22B AND T22B>P21B AND P21B>T21B AND P22>T22 AND P21>T21 AND P22>P21 AND T23>T22 AND T22>T21 AND (P22-T23)>=(P21-T22) AND (T22<P22-1.05*(P22-T23) AND T22>P22-1.7*(P22-T23)) AND (P21>T22+0.38*(P22-T22) AND P21<T22+0.9*(P22-T22)) AND (T21<P21-1.05*(P21-T22) AND T21>P21-1.9*(P21-T22)) AND (AT21>0.7*AT22 AND AT21<1.25*AT22);
WolfS2=P21B<1 AND P23B>T22B AND T22B>P22B AND P22B>T21B AND T21B>P21B AND P23>T22 AND T21>T22 AND P22>P23 AND P22>T21 AND P21>P22 AND (P23-T22)>1.05*(P22-T21) AND (P22>T22+1.05*(P23-T22) AND P22<T22+1.7*(P23-T22)) AND (T21>T22+0.38*(P22-T22) AND T21<T22+0.9*(P22-T22)) AND (P21>T21+1.05*(P22-T21) AND P21<T21+1.9*(P22-T21)) AND (AP21>0.7*AP22 AND AP21<1.25*AP22) ;
WolfS21=P21B<1 AND P23B>T22B AND T22B>P22B AND P22B>T21B AND T21B>P21B AND P23>T22 AND T21>T22 AND P22>P23 AND P22>T21 AND P21>P22 AND (P23-T22)>=(P22-T21) AND (P22>T22+1.03*(P23-T22) AND P22<T22+1.8*(P23-T22)) AND (T21>T22+0.3*(P22-T22) AND T21<T22+0.9*(P22-T22)) AND (P21>T21+1.03*(P22-T21) AND P21<T21+2*(P22-T21)) AND (AP21>0.6*AP22 AND AP21<1.35*AP22) ;
PlotShapes(WolfS2*shapeDownTriangle,colorRed, 0, High, Offset =-40);
PlotShapes(WolfS2*shapeDigit1,colorRed, 0, High, Offset =55);
PlotShapes(WolfS21*shapeDownTriangle,colorDarkRed, 0, High, Offset =-10);
PlotShapes(WolfS21*shapeDigit2,colorDarkRed, 0, High, Offset =25);
PlotShapes(WolfB2*shapeUpTriangle,colorBrightGreen, 0, Low, Offset =0);
PlotShapes(WolfB2*shapeDigit1,colorBrightGreen, 0, Low, Offset =-15);
PlotShapes(WolfB21*shapeUpTriangle,colorGreen, 0, Low, Offset =-35);
PlotShapes(WolfB21*shapeDigit2,colorGreen, 0, Low, Offset =-50);
//////////////////////////////////////////////////// CONDITION CHANGE 5 //////////////////////////////////////////////////////////
P53=Peak(High,5,3);
T53=Trough(Low,5,3);
P52=Peak(High,5,2);
T52=Trough(Low,5,2);
P51=Peak(High,5,1);
T51=Trough(Low,5,1);
P53B=PeakBars(High,5,3);
T53B=TroughBars(Low,5,3);
P52B=PeakBars(High,5,2);
T52B=TroughBars(Low,5,2);
P51B=PeakBars(High,5,1);
T51B=TroughBars(Low,5,1);
aT51=T53B-T52B;
aT52=T52B-T51B;
aP51=P53B-P52B;
aP52=P52B-P51B;
WolfB5=T51B<1 AND T53B>P52B AND P52B>T52B AND T52B>P51B AND P51B>T51B AND P52>T52 AND P51>T51 AND P52>1.1*P51 AND T53>1.1*T52 AND T52>1.05*T51 AND (P52-T53)>1.05*(P51-T52) AND (T52<P52-1.05*(P52-T53) AND T52>P52-1.7*(P52-T53)) AND (P51>T52+0.38*(P52-T52) AND P51<T52+0.9*(P52-T52)) AND (T51<P51-1.05*(P51-T52) AND T51>P51-1.9*(P51-T52)) AND (AT51>0.7*AT52 AND AT51<1.25*AT52);
WolfB51=T51B<1 AND T53B>P52B AND P52B>T52B AND T52B>P51B AND P51B>T51B AND P52>T52 AND P51>T51 AND P52>P51 AND T53>T52 AND T52>T51 AND (P52-T53)>=(P51-T52) AND (T52<P52-1.05*(P52-T53) AND T52>P52-1.7*(P52-T53)) AND (P51>T52+0.38*(P52-T52) AND P51<T52+0.9*(P52-T52)) AND (T51<P51-1.05*(P51-T52) AND T51>P51-1.9*(P51-T52)) AND (AT51>0.7*AT52 AND AT51<1.25*AT52);
WolfS5=P51B<1 AND P53B>T52B AND T52B>P52B AND P52B>T51B AND T51B>P51B AND P53>T52 AND T51>T52 AND P52>P53 AND P52>T51 AND P51>P52 AND (P53-T52)>1.05*(P52-T51) AND (P52>T52+1.05*(P53-T52) AND P52<T52+1.7*(P53-T52)) AND (T51>T52+0.38*(P52-T52) AND T51<T52+0.9*(P52-T52)) AND (P51>T51+1.05*(P52-T51) AND P51<T51+1.9*(P52-T51)) AND (AP51>0.7*AP52 AND AP51<1.25*AP52) ;
WolfS51=P51B<1 AND P53B>T52B AND T52B>P52B AND P52B>T51B AND T51B>P51B AND P53>T52 AND T51>T52 AND P52>P53 AND P52>T51 AND P51>P52 AND (P53-T52)>=(P52-T51) AND (P52>T52+1.03*(P53-T52) AND P52<T52+1.8*(P53-T52)) AND (T51>T52+0.3*(P52-T52) AND T51<T52+0.9*(P52-T52)) AND (P51>T51+1.03*(P52-T51) AND P51<T51+2*(P52-T51)) AND (AP51>0.6*AP52 AND AP51<1.35*AP52) ;
PlotShapes(WolfS5*shapeDownTriangle,colorRed, 0, High, Offset =-40);
PlotShapes(WolfS5*shapeDigit1,colorRed, 0, High, Offset =55);
PlotShapes(WolfS51*shapeDownTriangle,colorDarkRed, 0, High, Offset =-10);
PlotShapes(WolfS51*shapeDigit2,colorDarkRed, 0, High, Offset =25);
PlotShapes(WolfB5*shapeUpTriangle,colorBrightGreen, 0, Low, Offset =0);
PlotShapes(WolfB5*shapeDigit1,colorBrightGreen, 0, Low, Offset =-15);
PlotShapes(WolfB51*shapeUpTriangle,colorGreen, 0, Low, Offset =-35);
PlotShapes(WolfB51*shapeDigit2,colorGreen, 0, Low, Offset =-50);
/////////////////////////////////////////////////////// CONDITION CHANGE 8 ///////////////////////////////////////////////////////
P83=Peak(High,8,3);
T83=Trough(Low,8,3);
P82=Peak(High,8,2);
T82=Trough(Low,8,2);
P81=Peak(High,8,1);
T81=Trough(Low,8,1);
P83B=PeakBars(High,8,3);
T83B=TroughBars(Low,8,3);
P82B=PeakBars(High,8,2);
T82B=TroughBars(Low,8,2);
P81B=PeakBars(High,8,1);
T81B=TroughBars(Low,8,1);
aT81=T83B-T82B;
aT82=T82B-T81B;
aP81=P83B-P82B;
aP82=P82B-P81B;
WolfB8=T81B<1 AND T83B>P82B AND P82B>T82B AND T82B>P81B AND P81B>T81B AND P82>T82 AND P81>T81 AND P82>1.1*P81 AND T83>1.1*T82 AND T82>1.05*T81 AND (P82-T83)>1.05*(P81-T82) AND (T82<P82-1.05*(P82-T83) AND T82>P82-1.7*(P82-T83)) AND (P81>T82+0.38*(P82-T82) AND P81<T82+0.9*(P82-T82)) AND (T81<P81-1.05*(P81-T82) AND T81>P81-1.9*(P81-T82)) AND (AT81>0.7*AT82 AND AT81<1.25*AT82);
WolfB81=T81B<1 AND T83B>P82B AND P82B>T82B AND T82B>P81B AND P81B>T81B AND P82>T82 AND P81>T81 AND P82>P81 AND T83>T82 AND T82>T81 AND (P82-T83)>=(P81-T82) AND (T82<P82-1.05*(P82-T83) AND T82>P82-1.7*(P82-T83)) AND (P81>T82+0.38*(P82-T82) AND P81<T82+0.9*(P82-T82)) AND (T81<P81-1.05*(P81-T82) AND T81>P81-1.9*(P81-T82)) AND (AT81>0.7*AT82 AND AT81<1.25*AT82);
WolfS8=P81B<1 AND P83B>T82B AND T82B>P82B AND P82B>T81B AND T81B>P81B AND P83>T82 AND T81>T82 AND P82>P83 AND P82>T81 AND P81>P82 AND (P83-T82)>1.05*(P82-T81) AND (P82>T82+1.05*(P83-T82) AND P82<T82+1.7*(P83-T82)) AND (T81>T82+0.38*(P82-T82) AND T81<T82+0.9*(P82-T82)) AND (P81>T81+1.05*(P82-T81) AND P81<T81+1.9*(P82-T81)) AND (AP81>0.7*AP82 AND AP81<1.25*AP82) ;
WolfS81=P81B<1 AND P83B>T82B AND T82B>P82B AND P82B>T81B AND T81B>P81B AND P83>T82 AND T81>T82 AND P82>P83 AND P82>T81 AND P81>P82 AND (P83-T82)>=(P82-T81) AND (P82>T82+1.03*(P83-T82) AND P82<T82+1.8*(P83-T82)) AND (T81>T82+0.3*(P82-T82) AND T81<T82+0.9*(P82-T82)) AND (P81>T81+1.03*(P82-T81) AND P81<T81+2*(P82-T81)) AND (AP81>0.6*AP82 AND AP81<1.35*AP82) ;
PlotShapes(WolfS8*shapeDownTriangle,colorRed, 0, High, Offset =-40);
PlotShapes(WolfS8*shapeDigit1,colorRed, 0, High, Offset =55);
PlotShapes(WolfS81*shapeDownTriangle,colorDarkRed, 0, High, Offset =-10);
PlotShapes(WolfS81*shapeDigit2,colorDarkRed, 0, High, Offset =25);
PlotShapes(WolfB8*shapeUpTriangle,colorBrightGreen, 0, Low, Offset =0);
PlotShapes(WolfB8*shapeDigit1,colorBrightGreen, 0, Low, Offset =-15);
PlotShapes(WolfB81*shapeUpTriangle,colorGreen, 0, Low, Offset =-35);
PlotShapes(WolfB81*shapeDigit2,colorGreen, 0, Low, Offset =-50);
/////////////////////////////////////////////////////// CONDITION CHANGE 12 ///////////////////////////////////////////////////////
pdX=12;
PX3=Peak(High,pdX,3);
TX3=Trough(Low,pdX,3);
PX2=Peak(High,pdX,2);
TX2=Trough(Low,pdX,2);
PX1=Peak(High,pdX,1);
TX1=Trough(Low,pdX,1);
PX3B=PeakBars(High,pdX,3);
TX3B=TroughBars(Low,pdX,3);
PX2B=PeakBars(High,pdX,2);
TX2B=TroughBars(Low,pdX,2);
PX1B=PeakBars(High,pdX,1);
TX1B=TroughBars(Low,pdX,1);
aTX1=TX3B-TX2B;
aTX2=TX2B-TX1B;
aPX1=PX3B-PX2B;
aPX2=PX2B-PX1B;
WolfB12=TX1B<1 AND TX3B>PX2B AND PX2B>TX2B AND TX2B>PX1B AND PX1B>TX1B AND PX2>TX2 AND PX1>TX1 AND PX2>1.1*PX1 AND TX3>1.1*TX2 AND TX2>1.05*TX1 AND (PX2-TX3)>1.05*(PX1-TX2) AND (TX2<PX2-1.05*(PX2-TX3) AND TX2>PX2-1.7*(PX2-TX3)) AND (PX1>TX2+0.38*(PX2-TX2) AND PX1<TX2+0.9*(PX2-TX2)) AND (TX1<PX1-1.05*(PX1-TX2) AND TX1>PX1-1.9*(PX1-TX2)) AND (ATX1>0.7*ATX2 AND ATX1<1.25*ATX2);
WolfB112=TX1B<1 AND TX3B>PX2B AND PX2B>TX2B AND TX2B>PX1B AND PX1B>TX1B AND PX2>TX2 AND PX1>TX1 AND PX2>PX1 AND TX3>TX2 AND TX2>TX1 AND (PX2-TX3)>=(PX1-TX2) AND (TX2<PX2-1.05*(PX2-TX3) AND TX2>PX2-1.7*(PX2-TX3)) AND (PX1>TX2+0.38*(PX2-TX2) AND PX1<TX2+0.9*(PX2-TX2)) AND (TX1<PX1-1.05*(PX1-TX2) AND TX1>PX1-1.9*(PX1-TX2)) AND (ATX1>0.7*ATX2 AND ATX1<1.25*ATX2);
WolfS12=PX1B<1 AND PX3B>TX2B AND TX2B>PX2B AND PX2B>TX1B AND TX1B>PX1B AND PX3>TX2 AND TX1>TX2 AND PX2>PX3 AND PX2>TX1 AND PX1>PX2 AND (PX3-TX2)>1.05*(PX2-TX1) AND (PX2>TX2+1.05*(PX3-TX2) AND PX2<TX2+1.7*(PX3-TX2)) AND (TX1>TX2+0.38*(PX2-TX2) AND TX1<TX2+0.9*(PX2-TX2)) AND (PX1>TX1+1.05*(PX2-TX1) AND PX1<TX1+1.9*(PX2-TX1)) AND (APX1>0.7*APX2 AND APX1<1.25*APX2) ;
WolfS112=PX1B<1 AND PX3B>TX2B AND TX2B>PX2B AND PX2B>TX1B AND TX1B>PX1B AND PX3>TX2 AND TX1>TX2 AND PX2>PX3 AND PX2>TX1 AND PX1>PX2 AND (PX3-TX2)>=(PX2-TX1) AND (PX2>TX2+1.03*(PX3-TX2) AND PX2<TX2+1.8*(PX3-TX2)) AND (TX1>TX2+0.3*(PX2-TX2) AND TX1<TX2+0.9*(PX2-TX2)) AND (PX1>TX1+1.03*(PX2-TX1) AND PX1<TX1+2*(PX2-TX1)) AND (APX1>0.6*APX2 AND APX1<1.35*APX2) ;
PlotShapes(WolfS12*shapeDownTriangle,colorRed, 0, High, Offset =-40);
PlotShapes(WolfS12*shapeDigit1,colorRed, 0, High, Offset =55);
PlotShapes(WolfS112*shapeDownTriangle,colorDarkRed, 0, High, Offset =-10);
PlotShapes(WolfS112*shapeDigit2,colorDarkRed, 0, High, Offset =25);
PlotShapes(WolfB12*shapeUpTriangle,colorBrightGreen, 0, Low, Offset =0);
PlotShapes(WolfB12*shapeDigit1,colorBrightGreen, 0, Low, Offset =-15);
PlotShapes(WolfB112*shapeUpTriangle,colorGreen, 0, Low, Offset =-35);
PlotShapes(WolfB112*shapeDigit2,colorGreen, 0, Low, Offset =-50);
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
WolfB=WolfB1 OR WolfB11 OR WolfB2 OR WolfB21 OR WolfB5 OR WolfB51 OR WolfB8 OR WolfB81 OR WolfB12 OR WolfB112 ;
WolfS= WolfS1 OR WolfS11 OR WolfS2 OR WolfS21 OR WolfS5 OR WolfS51 OR WolfS8 OR WolfS81 OR WolfS12 OR WolfS112;
_SECTION_END();
_SECTION_BEGIN("double tops");
/* Detecting double tops */
percdiff = 5; /* peak detection threshold */
fwdcheck = 5; /* forward validity check */
mindistance = 10;
validdiff = percdiff/400;
PK= Peak( H, percdiff, 1 ) == High;
x = Cum( 1 );
XPK1 = ValueWhen( PK, x, 1 );
XPK2 = ValueWhen( PK, x, 2 );
peakdiff = ValueWhen( PK, H, 1 )/ValueWhen( PK, H, 2 );
doubletop = PK AND abs( peakdiff - 1 ) < validdiff AND (XPK1 - XPK2)>mindistance AND High > HHV( Ref( H, fwdcheck ), fwdcheck - 1 );
SellDT = doubletop;
Buy = 0;
//Filter=SellDT;
WriteIf( Highest( doubletop ) == 1, "AmiBroker has detected some possible
double top patterns for " + name() + "\nLook for green arrows on the price
chart.", "There are no double top patterns for " + name() );
PlotShapes(SellDT*shapeHollowDownTriangle,colorPink, 0, High, Offset =-25);
PlotShapes(SellDT*shapeDigit0,colorPink, 0, High, Offset =40);
PlotShapes(SellDT*shapeDigit0,colorPink, 0, High, Offset =50);
//AddColumn(IIf(Sell,peakdiff,0) ,"doubletop",1.2,colorWhite,IIf(doubletop,colorRed,colorBlue));
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
AddColumn(IIf(SellDT,-1,0) ,"doubletop",1.2,colorBlack,IIf(doubletop,colorRed,colorBlack));
AddColumn( IIf(WolfB,1,IIf(WolfS,-1,0)) ,"W",1.0,colorBlack,IIf(WolfB,colorGreen,IIf(WolfS,colorRed,colorBlack)));
//AddColumn( IIf(WolfB1 OR WolfB11,1,IIf(WolfS1 OR WolfS11,-1,0)) ,"1",1.0,colorBlack,IIf(WolfB11 OR WolfB1,colorGreen,IIf(WolfS11 OR WolfS1,colorRed,colorBlack)));
//AddColumn( IIf(WolfB2 OR WolfB21,1,IIf(WolfS2 OR WolfS21,-1,0)) ,"2",1.0,colorBlack,IIf(WolfB21 OR WolfB2,colorGreen,IIf(WolfS21 OR WolfS2,colorRed,colorBlack)));
//AddColumn( IIf(WolfB5 OR WolfB51,1,IIf(WolfS5 OR WolfS51,-1,0)) ,"5",1.0,colorBlack,IIf(WolfB51 OR WolfB5,colorGreen,IIf(WolfS51 OR WolfS5,colorRed,colorBlack)));
//AddColumn( IIf(WolfB8 OR WolfB81,1,IIf(WolfS8 OR WolfS81,-1,0)) ,"8",1.0,colorBlack,IIf(WolfB81 OR WolfB8,colorGreen,IIf(WolfS81 OR WolfS8,colorRed,colorBlack)));
//AddColumn( IIf(WolfB12 OR WolfB112,1,IIf(WolfS12 OR WolfS112,-1,0)) ,"12",1.0,colorBlack,IIf(WolfB112 OR WolfB12,colorGreen,IIf(WolfS112 OR WolfS12,colorRed,colorBlack)));
//AddColumn( IIf(EMAcon,1,Null) ,"EMAcon",1.2,colorWhite,colorDarkGreen);
_SECTION_END();
_SECTION_BEGIN("Cloud study OTHER");
RE = Study("RE", GetChartID() );
SU = Study("SU", GetChartID() );
PlotOHLC( RE, RE, SU, SU, "", ColorRGB(100,50,150),styleCloud );
UP = Study("UP", GetChartID() );
DN = Study("DN", GetChartID() );
PlotOHLC( UP, UP, DN, DN, "", ColorRGB(50,50,150),styleCloud );
RI = Study("RI", GetChartID() );
ST = Study("ST", GetChartID() );
PlotOHLC( RI, RI, ST, ST, "", ColorRGB(50,100,150),styleCloud );
_SECTION_END();
_SECTION_BEGIN("CAMS Cloud new short");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorPink ), styleNoTitle | styleCandle|styleNoLabel );
_SECTION_END();
_SECTION_BEGIN("PIVOTS");
Show_Prev = ParamToggle( "Display Pivots", "No|Yes", 1);
// Get Previous Day's close, Low and High
DayC=Prev_Close = TimeFrameGetPrice( "C", inDaily, -1, expandFirst) ;
DayL=Prev_Low = TimeFrameGetPrice( "L", inDaily, -1, expandFirst) ;
DayH=Prev_High = TimeFrameGetPrice( "H", inDaily, -1, expandFirst) ;
Today = LastValue(Day( ) );
P = (Prev_High + Prev_Low + Prev_Close)/ 3;
R6 = (DayH / DayL) * DayC * 1.002;
R5 = (DayH / DayL) * DayC;
R4 = (((DayH / DayL) + 0.83) / 1.83) * DayC;
R3 = ( ( (DayH / DayL) + 2.66) / 3.66) * DayC;
R3 = ( ( (DayH / DayL) + 2.66) / 3.66) * DayC;
//R2 = ( ( (DayH / DayL) + 4.5) / 5.5) * DayC;
//R1 = ( ( (DayH / DayL) + 10) / 11) * DayC;
//S1 = (2- ( ( (DayH / DayL) + 10) / 11)) * DayC;
//S2 = (2-( (DayH / DayL) + 4.5) / 5.5) * DayC;
S3 = (2-(( DayH / DayL) + 2.66) / 3.66) * DayC;
S4 = (2-( (DayH / DayL) + 0.83) / 1.83) * DayC;
S5 = (2-( DayH / DayL)) * DayC;
S6 = (2-( DayH / DayL)) * DayC * 0.998;
if(Show_Prev)
{
///////////////////////////////////// CAMS ///////////////////////////////////////
XR3=(IIf(Today == Day(),R3, Null));
XR4=(IIf(Today == Day(),R4, Null));
XS3=(IIf(Today == Day(),S3, Null));
XS4=(IIf(Today == Day(),S4, Null));
//PlotOHLC(XS3,XS3,XS4,XS4,"",ColorRGB(10,40,30),styleCloud);
//PlotOHLC(XR4,XR4,XR3,XR3,"",ColorRGB(40,10,30),styleCloud);
}
_SECTION_END();
_SECTION_BEGIN("Ichimoku Shortterm");
turn = Param( "Turning Line Periods", 3, 3, 10, 1 );
prds = Param( "Standard Line Periods", 13, 5, 26, 1 );
delay = Param( "Delayed Line Periods", 12, 4, 25, 1 );
span = Param( "Spans Periods", 16, 10, 52, 1 );
TL = ( HHV( H, turn ) + LLV( L, turn ) ) / 2;//TENKAN
SL = ( HHV( H, prds ) + LLV( L, prds ) ) / 2;//SENKOU
DL1 = Ref( C, delay );//CHIKOU
DL=EMA(DL1 ,3);
Sp1 = ( SL + TL ) / 2;
Sp2 = ( HHV( H, span ) + LLV( L, span ) ) / 2;
_N( Title = StrFormat( "{{NAME}} - {{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, "", colorDefault, styleNoTitle | GetPriceStyle() );
Plot( TL, "", colorRed, styleThick | styleNoLabel );
Plot( SL, "", colorLightBlue, styleThick | styleNoLabel );
Plot( DL, "", colorCustom13, styleThick | styleDots|styleNoLabel );
*/
color = IIf( Sp1 > Sp2, ParamColor( "Span1 Color", ColorRGB( 0, 255, 0 ) ), ParamColor( "Span2 Color", ColorRGB( 255, 104, 32 ) ) );
Plot( Sp1, "", ColorRGB(100,100,60), styleThick | styleNoLabel, Null, Null, delay, -2 );
Plot( Sp2, "", ColorRGB(100,100,60), styleThick | styleNoLabel, Null, Null, delay, -2 );
PlotOHLC ( Sp1, Sp1, Sp2, Sp2, "Cloud", ColorRGB(60,60,60), styleCloud | styleNoLabel, Null, Null, delay, -2 );
_SECTION_END();
_SECTION_BEGIN("ICHIMOKU CHART solid cloud");
SL = ( HHV( H, 26 ) + LLV( L, 26) )/2;// standard, base, or kijun-sen line
TL = ( HHV( H, 9 ) + LLV( L, 9 ) )/2;// turning, conversion, or tenkan-senline
DL = Ref( C, 25 ); // delayed close price, or chikou span
Span1 = Ref( ( SL + TL )/2, -25 ); //Span1 and Span2 define the clouds
Span21 = Ref( (HHV( H, 52) + LLV(L, 52))/2, -25);
////////////////////////////////////////////////////////////////////////////////////////
//SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
BarFillColor=IIf(C>O,colorbrightGreen,IIf(C<=O,colorRed,colorLightGrey));
SetBarFillColor(BarFillColor);
//Plot(C,"",IIf(C>O,colorBrightGreen,IIf(C<=O,colorRed,colorLightGrey)),64,0,0,0,0);
COLORCANDLE=IIf(C>O,colorBrightGreen,IIf(C<O,colorRed,colorLightGrey));
Plot(C,"",COLORCANDLE,styleCandle);
///////////////////////////////////////////
/*SL = ( HHV( H, 26 ) + LLV( L, 26) )/2;// standard, base, or kijun-sen line
TL = ( HHV( H, 9 ) + LLV( L, 9 ) )/2;// turning, conversion, or tenkan-senline
//DL = Ref( C, 25 ); // delayed close price, or chikou span
DL = MA(DL,3); // delayed close price, or chikou span
*/
///////////////////////////////////////////////////////////////////////////////////////////
/*Plot(SL,"SL",colorLIGHTBlue,styleThick);// standard, base, or kijun-sen line
Plot(TL,"TL",colorRed,styleThick);// turning, conversion, or tenkan-senline
Plot(DL,"DL",ColorRGB(180,90,160),styleThick|styleDots);// delayed close price, or chikou span
*/
//PlotOHLC(Span1,Span1,Span2,Span2,"Cloud",ColorHSB(Hue,sat,bri),styleCloud);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/*//ColorKumo=IIf(StrongBuy,ColorRGB(0,100,10),IIf(MediumBuy,ColorRGB(0,50,10),IIf(WeakBuy,ColorRGB(0,20,10),IIf(StrongSell,ColorRGB(100,0,10),IIf(MediumSell,ColorRGB(50,0,10),IIf(WeakSell,ColorRGB(20,0,10),ColorHSB(Hue,sat,bri)))))));
ColorSpan=IIf(Span1>Span21,ColorRGB(60,130,120),ColorRGB(130,60,120));
//ColorSpan21=ColorRGB(100,40,120);
ColorKumo=IIf(Span1>Span21,ColorRGB(60,130,120),ColorRGB(130,60,120));
//ColorKumo=IIf(C>Span1,Colordarkgrey8,IIf(C<Span2,colordarkgrey,colordarkgrey));
//ColorKumo=17;
//PlotOHLC(Span1,Span1,Span2,Span2,"Cloud",ColorKumo,styleCloud);
StyleKumo=styleDashed|styleThick|styleNoLabel;
ColorKumo=IIf(Span1>Span21,ColorRGB(60,130,120),ColorRGB(130,60,120));
PlotOHLC(Span21,Span21,Span1,Span1,"",ColorKumo,stylecloud|styleNoLabel);
///////////////////////////////////////////////////////////////////////////////
*/
_SECTION_END();
_SECTION_BEGIN("pivots mw");
Title=EncodeColor(colorYellow)+ StrFormat("{{NAME}} -- {{INTERVAL}}" )+ "--Date = " + Date() + StrFormat(" Close = %g (%.1f%%)",C,SelectedValue( ROC( C, 1 ) ));
/*-----------------data------------------*/
SetChartBkColor(16 ) ;
k=IIf(ParamList("select type","daily|next day")=="daily",-1,0);
k1=-1;
TimeFrameSet(inDaily);
day_h= LastValue(Ref(H,K));
day_l= LastValue(Ref(L,K));
day_c= LastValue(Ref(C,K));
TimeFrameRestore();
/*--------------------------------------*/
// day
DH=Day_h;
DL=Day_L;
DC=Day_C;
// DAY PIVOT Calculation
pd = ( DH+ DL + DC )/3;
sd1 = (2*pd)-DH;
sd2 = pd -(DH - DL);
sd3 = Sd1 - (DH-DL);
rd1 = (2*pd)-DL;
rd2 = pd +(DH -DL);
rd3 = rd1 +(DH-DL);
//////////////////////////////////////////////FRPS/////////////////////////////////////////////
/*--------------------------------------*/
// PARAMETERS
slide = Param("slide all",33,-1000,1000,1);
slide1 = Param("slide_day",50,0,1000,1);
slide2 = Param("slide_week",70,0,1000,1);
slide3 = Param("slide_month",90,0,1000,1);
slide_Hight = Param("slide_Hight",0,-1000,1000,1);
SHALD = ParamList("daily Pivots", "all|selected only|hide" );
SHALW = ParamList("weekly Pivots", "selected only|all|hide" );
SHALM = ParamList("monthly Pivots", "selected only|all|hide" );
//day
PDP = ParamList("DP", "SHOW|HIDE" );
PDR1 = ParamList("DR1", "SHOW|HIDE" );
PDR2 = ParamList("DR2", "SHOW|HIDE" );
PDR3 = ParamList("DR3", "HIDE|SHOW" );
PDS1 = ParamList("DS1", "SHOW|HIDE" );
PDS2 = ParamList("DS2", "SHOW|HIDE" );
PDS3 = ParamList("DS3", "HIDE|SHOW" );
PDH = ParamList("DH", "HIDE|SHOW" );
PDL= ParamList("DL", "HIDE|SHOW" );
DayCOLOR = colorWhite;
dr=38;
//--------------------------------------
// LABELS
for( i = 0; i < BarCount; i++ )
{
//day
/*if(i+slide1== BarCount && (PDP=="SHOW" OR SHALD=="all") && SHALD!="hide")
PlotText( "daily Pivot "+pd ,i+slide,pd+slide_Hight ,DayCOLOR);
if(i+slide1== BarCount && (PDR1=="SHOW" OR SHALD=="all")&& SHALD!="hide")
PlotText( "daily R1 "+rd1 ,i+slide,rd1+slide_Hight ,DayCOLOR );
if(i+slide1== BarCount && (PDR2=="SHOW" OR SHALD=="all")&& SHALD!="hide")
PlotText( "daily R2 "+rd2 ,i+slide,rd2+slide_Hight ,DayCOLOR );
if(i+slide1== BarCount && (PDR3=="SHOW" OR SHALD=="all")&& SHALD!="hide")
PlotText( "daily R3 "+rd3 ,i+slide,rd3+slide_Hight ,DayCOLOR );
if(i+slide1== BarCount && (PDS1=="SHOW" OR SHALD=="all")&& SHALD!="hide")
PlotText( "daily S1 "+sd1 ,i+slide,sd1+slide_Hight ,DayCOLOR );
if(i+slide1== BarCount && (PDS2=="SHOW" OR SHALD=="all")&& SHALD!="hide")
PlotText( "daily S2 "+sd2 ,i+slide,sd2+slide_Hight ,DayCOLOR );
if(i+slide1== BarCount && (PDS3=="SHOW" OR SHALD=="all")&& SHALD!="hide")
PlotText( "daily S3 "+sd3 ,i+slide,sd3+slide_Hight ,DayCOLOR );
--------------------------------------*/
if(i+slide1== BarCount && (PDH=="SHOW" OR SHALD=="all")&& SHALD!="hide")
PlotText( "DH"+DH ,i+slide,DH+slide_Hight ,DayCOLOR );
if(i+slide1== BarCount && (PDL=="SHOW" OR SHALD=="all")&& SHALD!="hide")
PlotText( "DL"+DL ,i+slide,DL+slide_Hight ,DayCOLOR );
}
// PLOTS
// style = IIf(ParamList("Chart style",
//"styleCandle|styleBar")=="styleCandle",64,128);
//Plot (C,Date ()+" close",11,style);
/*MASK= ParamStyle("MASK",styleCandle, maskPrice);
barcolor = IIf(C > Ref(C,-1), ParamColor("Up Color",colorBrightGreen), IIf(C ==Ref(C,-1),colorOrange, ParamColor("Dn Color",colorOrange)));
Plot( C, "Close", barcolor,MASK);*/
//day
//if ((PDP=="SHOW" OR SHALD=="all") && SHALD!="hide") Plot (pd,"daily Pivot",DayCOLOR,1);
//if ((PDR1=="SHOW" OR SHALD=="all") && SHALD!="hide") Plot (rd1,"daily R1",DayCOLOR,32);
//if ((PDR2=="SHOW" OR SHALD=="all") && SHALD!="hide") Plot (rd2,"daily R2",DayCOLOR,32);
//if ((PDR3=="SHOW" OR SHALD=="all") && SHALD!="hide") Plot (rd3,"daily R3",DayCOLOR,32);
//if ((PDS1=="SHOW" OR SHALD=="all") && SHALD!="hide") Plot (sd1,"daily S1",dr,32);
//if ((PDS2=="SHOW" OR SHALD=="all") && SHALD!="hide") Plot (Sd2,"daily S2",dr,32);
//if ((PDS3=="SHOW" OR SHALD=="all") && SHALD!="hide") Plot (Sd3,"daily S3",dr,32);
///////////////////////////////////////////////////////////////////////////////////////////////
Show_Prev = ParamToggle( "Display Pivots", "No|Yes", 1);
Today = LastValue(Day( ) );
Colorpd=ParamColor("pd", colorYellow);
Colorsd=ParamColor("sd", colorGreen);
Colorrd=ParamColor("rd", colorRed);
if(Show_Prev)
{
Plot(IIf(Today == Day(),pd, Null), "pd", Colorpd,styleLine|styleDashed|styleNoRescale|styleNoLabel);
Plot(IIf(Today == Day(),sd1, Null),"sd1", Colorsd,styleLine|styleDashed|styleNoRescale|styleNoLabel);
Plot(IIf(Today == Day(),sd2, Null),"sd2", Colorsd,styleLine|styleDashed|styleNoRescale|styleNoLabel);
Plot(IIf(Today == Day(),sd3, Null),"sd3", Colorsd,styleLine|styleDashed|styleNoRescale|styleNoLabel);
Plot(IIf(Today == Day(),rd1, Null),"rd1", Colorrd,styleLine|styleDashed|styleNoRescale|styleNoLabel);
Plot(IIf(Today == Day(),rd2, Null),"rd2", Colorrd,styleLine|styleDashed|styleNoRescale|styleNoLabel);
Plot(IIf(Today == Day(),rd3, Null),"rd3", Colorrd,styleLine|styleDashed|styleNoRescale|styleNoLabel);
Plot(IIf(Today == Day(),day_h, Null),"DH", colorLightBlue,styleDashed|stylethick||styleNoRescale|styleNoLabel);
Plot(IIf(Today == Day(),day_l, Null),"DL", colorLightBlue,styleDashed|stylethick|styleNoRescale|styleNoLabel);
}
/*--------------------------------------*/
// TEXT
"high = "+H;
"low = "+L;
"close = "+C;
Buy = Cross(C,pd);
Sell = Cross(pd,C);
Filter=Buy OR Sell;
AddColumn(C," CMP ",1.2,colorBlack,colorLightGrey,48);
AddColumn(IIf(Buy,pd,IIf(Sell,pd,Null)),"ENTERY",1.2,colorDefault,IIf(Buy,colorGreen,IIf(Sell,colorOrange,Null)));
_SECTION_END();
