I cant find a perfect Camarilla AFl. so i make it my self
Quote:
|
How to use advanced camarilla calculator Look at the opening price for the stock/futures/commodities/currency. There are various scenarios that can occur Scenario 1 Open price is between H3 and L3 For Long Wait for the price to go below L3 and then when it moves back above L3, buy. Stoploss will be when price moves below L4. Target1 - H1, Target2 - H2, Target3 - H3 For Short Sell Wait for the price to go above H3 and then when the price moves back below H3, sell. Stoploss will be when price moves above H4. Target1 - L1, Target2 - L2, Target3- L3 Scenario 2 Open price is between H3 and H4 For Long When price moves above H4, buy. Stoploss when price goes below H3. Target 1 - H5, Target 2 - H6 For Short Sell When the price goes below H3, sell. Stopless when prices moves above H4. Target1 - L1, Target2 - L2, Target3- L3 Scenario 3 Open price is between L3 and L4 For Long When price moves above L3, buy. Stoploss when price moves below L4. Target1 - H1, Target2 - H2, Target3 - H3 For Short Sell When the price goes below L4, sell. Stoploss when price moves above L3. Target 1 - L5, Target 2 - L6 Scenario 4 Open price is outside the H4 and L4 Wait for the prices to come in range and trade accordingly. |
Code:
_SECTION_BEGIN("Chart");
SetChartOptions(0, chartShowArrows | chartShowDates);
SetChartBkGradientFill(ParamColor("Upper Chart", ColorRGB(11, 50, 57)), ParamColor("Lower Chart", ColorRGB(69, 163, 186)));
SetChartBkColor(ParamColor("Outer Panel", ColorRGB(19, 88, 100 )));
GraphXSpace = Param("GraphXSpace", 0, 0, 100, 1);
dec = (Param("Decimals",2,0,7,1)/10)+1;
SetChartBkColor(ParamColor("Outer Panel", colorBlack));
SetChartBkGradientFill(ParamColor("Upper Chart", colorDarkGrey), ParamColor("Lower Chart", colorDarkGrey));
Title = EncodeColor(55)+ Title = Name() + " " + EncodeColor(32) + Date() +
" " + EncodeColor(5) + " " +
EncodeColor(55)+ " Open = "+ EncodeColor(52)+ WriteVal(O,dec) +
EncodeColor(55)+ " High = "+ EncodeColor(5) + WriteVal(H,dec) +
EncodeColor(55)+ " Low = "+ EncodeColor(32)+ WriteVal(L,dec) +
EncodeColor(55)+ " Close = "+ EncodeColor(7)+ WriteVal(C,dec)+
EncodeColor(55)+ " Volume = "+ EncodeColor(11)+ WriteVal(V,1);
///////////////////////
_SECTION_END();
/////////////
function HAI_F6(p,n,s,m)
{
return (PDI(p)>MDI(n)AND Signal(s)<MACD(m));
}
function HAI_F7(p,n,s,m)
{
return (MDI(n)>PDI(p)AND Signal(s)>MACD(m));
}
EntrySignal = HAI_F6(20,10,29,13);
ExitSignal =HAI_F7(20,10,29,13);
Color = IIf( EntrySignal, colorBlue, IIf( ExitSignal, colorRed, colorLightGrey ));
colorHighliter = IIf(C >= O, ColorRGB(0, 128, 0), ColorRGB(128, 0, 0));
//Demand Point
//colorDemandPoint = ParamColor("Demand Line", ColorRGB(0, 128, 255));
DemandPoint = (Ref(L, -1) < Ref(L, -2)) & (L < Ref(L, -1)) & (L < Ref(L, 1)) & (Ref(L, 1) < Ref(L, 2));
//Supply Point
//colorSupplyPoint = ParamColor("Supply Line", ColorRGB(255, 128, 0));
SupplyPoint = (Ref(H, -1) > Ref(H, -2)) & (H > Ref(H, -1)) & (H > Ref(H, 1)) & (Ref(H, 1) > Ref(H, 2));
CountTrendBars = 0;
CurrentBar = BarCount - 1;
dx0 = dx1 = dy0 = dy1 = 0;
sx0 = sx1 = sy0 = sy1 = 0;
for (i = 0; i < BarCount; i++) {
CurrentBar = (BarCount - 1) - i;
if (DemandPoint[CurrentBar]) {
if (dx1 == 0 & dy1 == 0) {
dx1 = CurrentBar;
dy1 = L[CurrentBar];
} else {
dx0 = CurrentBar;
dy0 = L[CurrentBar];
}
if (dx0 != 0 & dx1 != 0 & dy0 != 0 & dy1 != 0) {
if (dy0 < dy1) {
a = (-dy0 + dy1) / (-dx0 + dx1);
b = dy0 - dx0 * a;
for (j = dx1; j < BarCount; j++) {
if (j != dx1) {
y2 = a * j + b;
if (C[j] < y2) {
dy1 = y2;
dx1 = j;
colorHighliter[j] = ColorRGB(128, 0, 128);
CountTrendBars[j] = dx1 - dx0 - 1;
break;
}
}
}
if (dy1 != y2) {
dy1 = y2;
dx1 = BarCount - 1;
}
//Plot(LineArray(dx0, dy0, dx1, dy1, 0), "", colorDemandPoint, styleLine, Null, Null, 0, 0, 2);
}
dx1 = dx0;
dy1 = dy0;
dx0 = dy0 = 0;
}
}
if (SupplyPoint[CurrentBar]) {
if (sx1 == 0 & sy1 == 0) {
sx1 = CurrentBar;
sy1 = H[CurrentBar];
} else {
sx0 = CurrentBar;
sy0 = H[CurrentBar];
}
if (sx0 != 0 & sx1 != 0 & sy0 != 0 & sy1 != 0) {
if (sy0 > sy1) {
a = (-sy0 + sy1) / (-sx0 + sx1);
b = sy0 - sx0 * a;
for (j = sx1; j < BarCount; j++) {
if (j != sx1) {
y2 = a * j + b;
if (C[j] > y2) {
sy1 = y2;
sx1 = j;
colorHighliter[j] = ColorRGB(128, 128, 0);
CountTrendBars[j] = sx1 - sx0 - 1;
break;
}
}
}
if (sy1 != y2) {
sy1 = y2;
sx1 = BarCount - 1;
}
//Plot(LineArray(sx0, sy0, sx1, sy1, 0), "", colorSupplyPoint, styleLine, Null, Null, 0, 0, 2);
}
sx1 = sx0;
sy1 = sy0;
sx0 = sy0 = 0;
}
}
}
//Price
SetBarFillColor(colorHighliter);
Plot(C, "Close", IIf(colorHighliter == ColorRGB(128, 0, 128), ColorRGB(255, 0, 255), IIf(colorHighliter == ColorRGB(128, 128, 0), ColorRGB(255, 255, 0), IIf(C > O, ColorRGB(0, 255, 0), IIf(C < O, ColorRGB(255, 0, 0), ColorRGB(255, 255, 255))))), styleCandle, Null, Null, 0, 0, 1);
//---- pivot points
DayH = TimeFrameGetPrice("H", inDaily, -1); // yesterdays high
DayL = TimeFrameGetPrice("L", inDaily, -1); // low
DayC = TimeFrameGetPrice("C", inDaily, -1); // close
DayO = TimeFrameGetPrice("O", inDaily); // current day open
//............camarilla pivots
H6 = ( (DayH-DayL) * (1.0922) ) + DayC;
H5 = ( (DayH-DayL) * (.8244) ) + DayC;
H4 = ( (DayH-DayL) * (.55) ) + DayC;
H3 = ( (DayH-DayL) * (.275) ) + DayC;
H2 = ( (DayH-DayL) * (.183) ) + DayC;
H1 = ( (DayH-DayL) * (.0916) ) + DayC;
p = (DayH + DayL + DayC ) /3 ;
L1 = DayC - ( (DayH-DayL) * (.0916) );
L2 = DayC - ( (DayH-DayL) * (.183) ) ;
L3 = DayC - ( (DayH-DayL) * (.275) ) ;
L4 = DayC - ( (DayH-DayL) * (.55) ) ;
L5 = DayC - ( (DayH-DayL) * (.8244) ) ;
L6 = DayC - ( (DayH-DayL) * (1.0922) ) ;
Plot(H6, "H6",colorRED,styleLine|styleNoRescale);
Plot(H5, "H5",colorRED,styleLine|styleNoRescale);
Plot(H4, "H4",colorRED,styleLine|styleNoRescale);
Plot(H3, "H3",colorRED,styleLine|styleNoRescale);
Plot(H2, "H2",colorRED,styleLine|styleNoRescale);
Plot(H1, "H1",colorRED,styleLine|styleNoRescale);
Plot(P, "P",colorWhite,styleLine|styleNoRescale);
Plot(L6, "L6",colorGreen,styleLine|styleNoRescale);
Plot(L5, "L5",colorGreen,styleLine|styleNoRescale);
Plot(L4, "L4",colorGreen,styleLine|styleNoRescale);
Plot(L3, "L3",colorGreen,styleLine|styleNoRescale);
Plot(L2, "L2",colorGreen,styleLine|styleNoRescale);
Plot(L1, "L1",colorGreen,styleLine|styleNoRescale);
H1I = LastValue (H1,1);
H2I = LastValue (H2,1);
H3I = LastValue (H3,1);
H4I = LastValue (H4,1);
H5I = LastValue (H5,1);
H6I = LastValue (H6,1);
PI = LastValue (P,1);
L1I = LastValue (L1,1);
L2I = LastValue (L2,1);
L3I = LastValue (L3,1);
L4I = LastValue (L4,1);
L5I = LastValue (L5,1);
L6I = LastValue (L6,1);
BSL = ((L4-L3)/2)+L3;
SSL = ((H4-H3)/2)+H3;
Plot(BSL, "BSL",colorBLUE,styleLine|styleNoRescale);
Plot(SSL, "SSL",colorBLUE,styleLine|styleNoRescale);
numbars = LastValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "", 5, 1);
hts = 100;
PlotText(" L6 = " + WriteVal(L6,fraction), LastValue(BarIndex())-(numbars/Hts),L6I , colorWHITE);
PlotText(" L5 = " + WriteVal(L5,fraction), LastValue(BarIndex())-(numbars/Hts),L5I , colorWHITE);
PlotText(" L4 = " + WriteVal(L4,fraction), LastValue(BarIndex())-(numbars/Hts),L4I , colorWHITE);
PlotText(" L3 = " + WriteVal(L3,fraction), LastValue(BarIndex())-(numbars/Hts),L3I , colorWHITE);
PlotText(" L2 = " + WriteVal(L2,fraction), LastValue(BarIndex())-(numbars/Hts),L2I , colorWHITE);
PlotText(" L1 = " + WriteVal(L1,fraction), LastValue(BarIndex())-(numbars/Hts),L1I , colorWHITE);
PlotText(" PIVOT = " + WriteVal(P,fraction), LastValue(BarIndex())-(numbars/Hts),PI,20 , colorORANGE);
PlotText(" H1 = " + WriteVal(H1,fraction), LastValue(BarIndex())-(numbars/Hts),H1I , colorWHITE);
PlotText(" H2 = " + WriteVal(H2,fraction), LastValue(BarIndex())-(numbars/Hts),H2I , colorWHITE);
PlotText(" H3 = " + WriteVal(H3,fraction), LastValue(BarIndex())-(numbars/Hts),H3I , colorWHITE);
PlotText(" H4 = " + WriteVal(H4,fraction), LastValue(BarIndex())-(numbars/Hts),H4I , colorWHITE);
PlotText(" H5 = " + WriteVal(H5,fraction), LastValue(BarIndex())-(numbars/Hts),H5I , colorWHITE);
PlotText(" H6 = " + WriteVal(H6,fraction), LastValue(BarIndex())-(numbars/Hts),H6I , colorWHITE);
///////////////////////
FS=Param("MM Price Font Size",20,11,100,1);
Hor=Param("MM Price Horizontal Position",840,1,1200,1);
Ver=Param("MM price Vertical Position",10,1,830,1);
GfxSelectFont("tahoma", FS, 700, True );
GfxSetBkMode( 1 );
GfxSetTextColor( colorLime);
GfxTextOut(""+C, Hor+29 , Ver);
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSelectFont("tahoma", 11, 700, True );
GfxSetBkMode( 1 );
GfxSetTextColor(7);
GfxTextOut(""+DD+" ("+xx+"%)", Hor+29 , Ver+29 );
//////////////////////////////////////////////////////////
Advance camarilla AFL
Aucun commentaire:
Enregistrer un commentaire