Simple Coding Help - No Promise.

Profittaker · Aug 22, 2015

Code:

SetChartOptions(0,chartShowArrows|chartShowDates);
e1=EMA(C,3);
e2=EMA(C,15);
Plot(e1,"",colorWhite,styleThick);
Plot(e2,"",colorYellow,styleThick );

Buy=Cross(e1,e2);
Sell=Cross(e2,e1);

Buysetup=Flip(Buy,Sell);
Shortsetup=Flip(Sell,Buy);
SHtrend=IIf(BarsSince(Buysetup)<BarsSince(Shortsetup ),1,0);
Buy = ExRem(Buy, Sell);
Sell = ExRem(Sell, Buy);
Buyt=ValueWhen(Buy,H,1);
Sellt=ValueWhen(Sell,L,1);
Buyt=IIf(SHtrend==1,Buyt,0);
Sellt=IIf(SHtrend==0,Sellt,0);
Buytt=Cross(H,Buyt)AND SHtrend==1;
selltt=Cross(Sellt,L)AND SHtrend==0;
Buytt = ExRem(Buytt, Selltt);
Selltt = ExRem(Selltt, Buytt);

PlotShapes(IIf(Buytt, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buytt, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);                      
PlotShapes(IIf(Buytt, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45); 
PlotShapes(IIf(Selltt, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Selltt, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);                      
PlotShapes(IIf(Selltt, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);



Col=IIf(SHtrend==1,colorGreen,4);
SetBarFillColor(Col);
Plot(C,"Close",Col,64);
 
ribboncol= IIf( BarsSince(Buysetup)<BarsSince(Shortsetup),colorGreen, colorRed ); //315 Trend
Plot(3, "SH315", ribboncol, styleArea | styleOwnScale | styleNoLabel, 0, 100 );


Title = EncodeColor(colorWhite)+ "SH 315" + " - " +  Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
 "  - " + Date() +"\n" +EncodeColor(colorWhite) +"Open-"+O+"  "+"High-"+H+"  "+"Low-"+L+"  "+EncodeColor(colorYellow)+"Close-"+C+"  " +EncodeColor(colorWhite)+ "Vol= "+ WriteVal(V)+EncodeColor(colorLime) +"   EMA1  : "+e1+"  "+EncodeColor(colorOrange) +"   EMA2  : "+e2+"  ";

Dear AFL Experts,
Here I have attached Nifty 5 Min 315 Strategy Chart and AFL Code. Anyone Can modifify this AFL to Karthik's 315 Pullback Strategy.

*Should Change Code to BUY/SELL Signal for This Strategy. [find pullback candle and will check closed >or< 3EMA].

Karthick Thread : http://www.traderji.com/technical-analysis/99122-karthiks-315-pullback-strategy-intraday-eod.html

RULES:-

PHP:

Buy: When 3 EMA crossover 15 EMA from below and wait for price to pullback to 15EMA and closes above 3EMA
Enter : High on candle/bar closing above 3EMA
Exit: When Candle/Bar/Price not touching 3 EMA
SL : Low of pullback candle/Bar

Sell: When 3 EMA crossover 15 EMA from above and wait for price to pullback to 15EMA and closes below 3EMA
Enter : Low on candle/bar closing below 3EMA
Exit: When Candle/Bar/Price not touching 3 EMA
SL : High of pullback candle/Bar

Thanks in Advance,
Regards
ProfitTaker.

NJ23 · Aug 22, 2015

mastermind007 said:

No, not that. What I'm looking for is this:
Say I'm trading JPASSOCIATE, BANKINDIA, AXISBANK.
For January 1, 2015 following are the trades:
9.30 AM - JPASSOCIATE - BUY - Profit - 5%
9.45 AM - BANKINDIA - SELL - Loss - 5%
12.30 PM - JPASSOCIATE - SELL - Loss - 2%
2.40 PM - BANKINDIA - BUY - Profit 1%.

These are the trades done in a single day. What I want to do is sum the profits per symbol and write them to the file as following:
January 1, 2015 - JPASSOCIATE - 3% (Net of 5% profit and 2% loss)
January 1, 2015 - BANKINDIA - (-4%) (Net of 5% loss and 1% profit)
January 1, 2015 - AXISBANK - 0% (Since there are no trades)

I want this to be written to the file in a matrix format like this:

JPASSOCIATE BANKINDIA AXISBANK
January 1, 2015 3% -4% 0%

How do I do that?

ranjitsingh1974 · Aug 23, 2015

dear mastermind and amitji

I am in need of an explorer which will show 52 week breakout(Up/Down) during last 10 days and % of retracement on current day in the following format.
symbol, date, 52 week up breakout ,52 week down breakout,% of retracement today,closing price,volume.
moreover it will scan stocks with closing price above rs 50 and having volume 500000.
this is the 52 week breakout exploration
_SECTION_BEGIN("52 week H and L");

HI = Close > Ref(HHV(High,260),-1)AND V>500000 AND C>50;
LW = Close < Ref(LLV(Low,260),-1)AND V>500000 AND C>50;

Filter = HI OR LW;

AddColumn( High > Ref(HHV(High,260),-1), "52 Week High", 1 );
AddColumn( Low < Ref(LLV(Low,260),-1), "52 Week Low", 1 );
AddColumn( C, "Close", 1.2 );
AddColumn(V, "Volume",1.0 );

_SECTION_END();

Now I want it to modify according to the above noted requirement

Suppose Stock A had 52 week breakout on 20/08/2015 with closing price 100. today its closing price is rs.90. so there is a retrecement of 10% from its recent 52 week breakout. but if the stock makes new breakout that from rs 100 to 110 today , % of retracement will show "new breakout " and same will in the case of 52 week breakdown stocks.

thanks in advance.
ranjitsingh1974.

cepetrading · Aug 25, 2015

Can somebody help with this AFL :

I want only red candles after sell arrow and only buy candles after buy arrow ... Don't need white candle condition. If there is a buy then until a sell signal comes all the candles should be in blue color and vice versa.

Thanks a lot

*********************************

Code:

_SECTION_BEGIN("Price");

SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("bkcolor",ColorRGB(0,0, 0)));
//SetTradeDelays(1,1,1,1);
SetPositionSize(100,spsShares);
_SECTION_END();

NDays=Param("Number of Days",10,1,50,1);
DayC=TimeFrameGetPrice("C",inDaily,-1);
NDaysDHLAvg=0;
for(i=1;i<=NDays;i++)
{
DayH=TimeFrameGetPrice("H",inDaily,-i);
DayL=TimeFrameGetPrice("L",inDaily,-i);
NDaysDHLAvg=NDaysDHLAvg+(DayH-DayL);
}
NDaysDHLAvg=NDaysDHLAvg/NDays;

ADM= NDaysDHLAvg; // Average Day Moment

Buy= C>((DayC)+((.200)*(ADM)));
Sell= C<((DayC)-((.200)*(ADM)));

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

Short=Sell;
Cover=Buy;

BuyPrice=ValueWhen(Buy,C);
SellPrice=ValueWhen(Sell,C);
ShortPrice=ValueWhen(Short,C);
CoverPrice=ValueWhen(Cover,C);

BuyTarget1= (0.45*ADM)+BuyPrice;
BuyTarget2= (0.95*ADM)+BuyPrice;
BuyTarget3= (1.95*ADM)+BuyPrice;
SellTarget1= SellPrice-(0.45*ADM);
SellTarget2= SellPrice-(0.95*ADM);
SellTarget3= SellPrice-(1.95*ADM);

//------------------------------------------------------------------------------------------------

PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);
PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);

Long=Flip(Buy,Sell);
Shrt=Flip(Sell,Buy);

BuyPrice=ValueWhen(Buy,C);
SellPrice=ValueWhen(Sell,C);

Bdc=(
WriteIf (Buy AND Ref(shrt,-1), " BUY@ "+C+" ","")+
WriteIf(Buy , "LastTrade Profit="+(SellPrice-C)+"","")
);

Sdc=(
WriteIf (Sell AND Ref(Long,-1), " SEll@ "+C+" ","")+
WriteIf(Sell , "LastTrade Profit="+(C-BuyPrice)+"","")
);

Ndc=(
WriteIf(Long AND NOT Buy, "Long@"+WriteVal((BuyPrice))+" /Profit="+WriteVal((C-BuyPrice))+"","")+
WriteIf(Shrt AND NOT Sell, "Short@"+WriteVal((SellPrice))+" /Profit="+WriteVal((SellPrice-C))+"","")
);

BTdc=(
WriteIf(Long AND NOT Buy, "Target1(1/2ADM)"+WriteVal((BuyTarget1))+
"::\nTarget2(One ADM)"+WriteVal((BuyTarget2))+
"::\nTarget3(Two ADM)"+WriteVal((BuyTarget3))+"","")
);

STdc=(
WriteIf(Shrt AND NOT Sell, "Target1(1/2ADM)"+WriteVal((SellTarget1))+
"::\nTarget2(One ADM)"+WriteVal((SellTarget2))+
"::\nTarget3(Two ADM)"+WriteVal((SellTarget3))+"","")
);

_SECTION_END();

trendup = IIf(C>((DayC)+((.233)*(ADM))), colorBlue, colorWhite);
trendcolor = IIf(C<((DayC)-((.233)*(ADM))), colorRed, trendup);
Plot( C, "Close", trendcolor, styleCandle | styleThick );

numbars = LastValue(Cum(Status("barvisible")));
hts = -33.5;

// Volatility Levels //
DC = DayC; DCI = LastValue (DC,1); // Yesterday Close
BY = ((DayC)+((.382)*(ADM))); BYI = LastValue (BY,1); // Buy Entry Line
BT1 = ((DayC)+((.618)*(ADM))); BT1I = LastValue (BT1,1); // Buy Target Line 1
BT2 = ((DayC)+((.786)*(ADM))); BT2I = LastValue (BT2,1); // Buy Target Line 2
BT3 = ((DayC)+(ADM)); BT3I = LastValue (BT3,1); // Buy Target Line 3
SH = ((DayC)-((.382)*(ADM))); SHI = LastValue (SH,1); // Sell Entry Line
ST1 = ((DayC)-((.618)*(ADM))); ST1I = LastValue (ST1,1); // Sell Target Line 1
ST2 = ((DayC)-((.786)*(ADM))); ST2I = LastValue (ST2,1); // Sell Target Line 2
ST3 = ((DayC)-(ADM)); ST3I = LastValue (ST3,1); // Sell Target Line 3

vvl = ParamToggle("Intraday Target Levels","Hide|Show",0);
if(vvl==1) {
Plot(DC, "DC",colorWhite,styleDots|styleLine|styleNoRescale |styleNoTitle);
Plot(BY, "BY",colorLime,styleDots|styleLine|styleNoRescale| styleNoTitle);
Plot(BT1, "BT1",colorGreen,styleDots|styleLine|styleNoRescale|styleNoTitle);
Plot(BT2, "BT2",colorGreen,styleDots|styleLine|styleNoRescale|styleNoTitle);
Plot(BT3, "BT3",colorGreen,styleDots|styleLine|styleNoRescale|styleNoTitle);
Plot(SH, "SH",colorRed,styleDots|styleLine|styleNoRescale|styleNoTitle);
Plot(ST1, "ST1",colorBrown,styleDots|styleLine|styleNoRescale|styleNoTitle);
Plot(ST2, "ST2",colorBrown,styleDots|styleLine|styleNoRescale|styleNoTitle);
Plot(ST3, "ST3",colorBrown,styleDots|styleLine|styleNoRescale|styleNoTitle);

PlotText(" DC ", LastValue(BarIndex())-(numbars/Hts), DCI, colorDarkGrey);
PlotText(" Buy " , LastValue(BarIndex())-(numbars/Hts), BYI, colorLime);
PlotText(" Target1 " , LastValue(BarIndex())-(numbars/Hts), BT1I, colorGreen);
PlotText(" Target2 " , LastValue(BarIndex())-(numbars/Hts), BT2I, colorGreen);
PlotText(" Target3 " , LastValue(BarIndex())-(numbars/Hts), BT3I, colorGreen);
PlotText(" Sell " , LastValue(BarIndex())-(numbars/Hts), SHI, colorRed);
PlotText(" Target1 " , LastValue(BarIndex())-(numbars/Hts), ST1I, colorBrown);
PlotText(" Target2 " , LastValue(BarIndex())-(numbars/Hts), ST2I, colorBrown);
PlotText(" Target3 " , LastValue(BarIndex())-(numbars/Hts), ST3I, colorBrown);
}

mmwwl = ParamToggle(" MOnthly, Weekly Levels","Hide|Show",1);
/*if(mmwwl==1) {
Plot(DayH, "PDH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(WeekH, "CWH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(LWeekH, "LWH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(L1WeekH, "2WH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(L2WeekH, "3WH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(L3WeekH, "4WH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(MonthH, "CMH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(LMonthH, "LMH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(L1MonthH, "2MH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(L2MonthH, "3MH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(L3MonthH, "4MH",colorBlue,styleLine|styleNoRescale|styleNoTitle);
Plot(L4MonthH, "5MH",colorBlue,styleLine|styleNoRescale|styleNoTitle);

Plot(DayL, "PDL",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(WeekL, "CWL",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(LWeekL, "LWL",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(L1WeekL, "2WL",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(L2WeekL, "3WL",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(L3WeekL, "4WL",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(MonthL, "CML",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(LMonthL, "LML",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(L1MonthL, "2ML",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(L2MonthL, "3ML",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(L3MonthL, "4ML",colorViolet,styleLine|styleNoRescale|styleNoTitle);
Plot(L4MonthL, "5ML",colorViolet,styleLine|styleNoRescale|styleNoTitle);

PlotText(" PDH ", LastValue(BarIndex())-(numbars/Hts), DayHI, colorBlue);
PlotText(" CWH " , LastValue(BarIndex())-(numbars/Hts), WeekHI, colorBlue);
PlotText(" LWH " , LastValue(BarIndex())-(numbars/Hts), LWeekHI, colorBlue);
PlotText(" 2WH " , LastValue(BarIndex())-(numbars/Hts), L1WeekHI, colorBlue);
PlotText(" 3WH " , LastValue(BarIndex())-(numbars/Hts), L2WeekHI, colorBlue);
PlotText(" 4WH " , LastValue(BarIndex())-(numbars/Hts), L3WeekHI, colorBlue);
PlotText(" CMH " , LastValue(BarIndex())-(numbars/Hts), MonthHI, colorBlue);
PlotText(" LMH " , LastValue(BarIndex())-(numbars/Hts), LMonthHI, colorBlue);
PlotText(" 2MH " , LastValue(BarIndex())-(numbars/Hts), L1MonthHI, colorBlue);
PlotText(" 3MH ", LastValue(BarIndex())-(numbars/Hts), L2MonthHI, colorBlue);
PlotText(" 4MH " , LastValue(BarIndex())-(numbars/Hts), L3MonthHI, colorBlue);
PlotText(" 5MH " , LastValue(BarIndex())-(numbars/Hts), L4MonthHI, colorBlue);

PlotText(" PDL " , LastValue(BarIndex())-(numbars/Hts), DayLI, colorViolet);
PlotText(" CWL " , LastValue(BarIndex())-(numbars/Hts), WeekLI, colorViolet);
PlotText(" LWL " , LastValue(BarIndex())-(numbars/Hts), LWeekLI, colorViolet);
PlotText(" 2WL " , LastValue(BarIndex())-(numbars/Hts), L1WeekLI, colorViolet);
PlotText(" 3WL " , LastValue(BarIndex())-(numbars/Hts), L2WeekLI, colorViolet);
PlotText(" 4WL " , LastValue(BarIndex())-(numbars/Hts), L3WeekLI, colorViolet);
PlotText(" CML " , LastValue(BarIndex())-(numbars/Hts), MonthLI, colorViolet);
PlotText(" LML " , LastValue(BarIndex())-(numbars/Hts), LMonthLI, colorViolet);
PlotText(" 2ML " , LastValue(BarIndex())-(numbars/Hts), L1MonthLI, colorViolet);
PlotText(" 3ML ", LastValue(BarIndex())-(numbars/Hts), L2MonthLI, colorViolet);
PlotText(" 4ML " , LastValue(BarIndex())-(numbars/Hts), L3MonthLI, colorViolet);
PlotText(" 5ML " , LastValue(BarIndex())-(numbars/Hts), L4MonthLI, colorViolet);
*/
//}

_SECTION_BEGIN("Background text");
C11=ParamColor("up panel",colorBlack );
C12=ParamColor("dn panel",colorBlack );
C13=Param("fonts",20,10,30,1 );
C14=Param("left-right",2.1,1.0,5.0,0.1 );
C15=Param("up-down",8,1,30,1 );
Miny = Status("axisminy");
Maxy = Status("axismaxy");
lvb = Status("lastvisiblebar");
fvb = Status("firstvisiblebar");
pxwidth = Status("pxwidth");
pxheight = Status("pxheight");
GfxSetBkMode( 0 );
GfxSelectFont("Tahoma", 12, 500, False, False, 0);
GfxSetTextColor(colorCustom12);
GfxSetTextAlign( 6 );
GfxTextOut( "ADM (Average Day Moment) "+WriteVal(ADM,1.2), Status("pxwidth")/C14, Status("pxheight")/C15*1.5);
GfxSelectFont("Tahoma", 15, 600, False, False, 0);
GfxSetTextColor(colorWhite);
GfxSetTextAlign( 6 );
GfxTextOut( "LTP "+WriteVal(C,1.2), Status("pxwidth")/C14, Status("pxheight")/C15);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorBrightGreen);
GfxTextOut(""+Bdc+"", Status("pxwidth")/C14, Status("pxheight")/C15*2.0);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorRed);
GfxTextOut(""+Sdc+"", Status("pxwidth")/C14, Status("pxheight")/C15*2.0);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorYellow);
GfxTextOut(""+Ndc+"", Status("pxwidth")/C14, Status("pxheight")/C15*2.0);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorGreen);
GfxTextOut(""+BTdc+"", Status("pxwidth")/C14, Status("pxheight")/C15*2.5);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorGreen);
GfxTextOut(""+STdc+"", Status("pxwidth")/C14, Status("pxheight")/C15*2.5);

pricechange=(C-Ref(C,-1))*100/Ref(C,-1);
changeponit=C-Ref(C,-1);
Vlp=Param("Volume lookback period",15,10,300,10);
Vrg=MA(V,Vlp);
St = StDev(Vrg,Vlp);
Vp3 = Vrg + 3*st;
Vp2 = Vrg + 2*st;;
Vp1 = Vrg + 1*st;;
Vn1 = Vrg -1*st;
Vn2 = Vrg -2*st;

x=Param("xposn",1,0,1000,1);
y=Param("yposn",1,0,1000,1);
/*
GfxGradientRect( 1, 1, 1400, 40, colorGrey50, colorDarkGrey);
GfxSetBkMode(0);
GfxSelectFont( "Georgia", 18, 800, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "ULTIMATE VOLATILITY EXPERT ", x+600, y+10 );
GfxSelectFont( "Tahoma", 16, 800, False );
GfxSetTextColor( colorGold );
GfxTextOut( Name(), x+100, y+10 );
GfxSelectFont( "Century Gothic", 15, 100, False );
GfxSetTextColor( colorWhite );
GfxTextOut( Date(), x+1000, y+10 );
GfxSelectFont( "Comic Sans MS", 15, 500, False );
GfxSetTextColor( colorYellow );
GfxTextOut( Interval(2), x+275, y+10 );
//------------------------------------------------------------ H, L, O, C----------------------
GfxGradientRect( 1, 40, 1400, 55, colorGrey50, colorDarkGrey );
GfxSetBkMode(0);
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "High:"+WriteVal(H,1.2), x+100, y+40 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Low:"+WriteVal(L,1.2), x+200, y+40 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Open:"+WriteVal(O,1.2), x+300, y+40 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Close:"+WriteVal(C,1.2), x+400, y+40 );
GfxSelectFont( "Script MT Bold", 12, 100, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Created By Murali Krishna ", x+1000, y+39 );
//-----------------------------------------------------------Valume-------------------------------
GfxSelectFont( "Tahoma", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Volume="+WriteVal(V,1.2), x+500, y+40 );
GfxSelectFont( "Tahoma", 9, 200, False );
GfxSetTextColor( colorLime );
GfxTextOut( WriteIf(V>Vp2,"Very High",""), x+600, y+40 );
GfxSelectFont( "Tahoma", 9, 200, False );
GfxSetTextColor( colorLime );
GfxTextOut( WriteIf(V>Vp1," High",""), x+600, y+40 );
GfxSelectFont( "Tahoma", 9, 200, False );
GfxSetTextColor( colorLime );
GfxTextOut( WriteIf(V>Vrg,"Above Average",""), x+600, y+40 );
GfxSelectFont( "Tahoma", 9, 200, False );
GfxSetTextColor( colorRed );
GfxTextOut( WriteIf(V<Vrg AND V>Vn1,"Less than Average",""), x+600, y+40 );
GfxSelectFont( "Tahoma", 9, 200, False );
GfxSetTextColor( colorRed );
GfxTextOut( WriteIf(V<Vn1,"Low",""), x+600, y+40 );
//----------------------------------------------------------------Leveles----------------------------

GfxGradientRect( 1, 185, 90, 200, colorGrey50,colorDarkGrey );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorOrange );
GfxTextOut( "Levels ", x+45, y+185 );

GfxGradientRect( 1, 200, 90, 215, colorDarkGrey,colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
//GfxTextOut( WriteIf (L4MonthH>C, " 5MH "+WriteVal(L4MonthH,1.2)+" ",""), x+50, y+200 );

GfxGradientRect( 1, 215, 90, 230, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L3MonthH>C, " 4MH "+WriteVal(L3MonthH,1.2)+" ",""), x+50, y+215 );

GfxGradientRect( 1, 230, 90, 245, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L2MonthH>C, " 3MH "+WriteVal(L2MonthH,1.2)+" ",""), x+50, y+230 );

GfxGradientRect( 1, 245, 90, 260, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L1MonthH>C, " 2MH "+WriteVal(L1MonthH,1.2)+" ",""), x+50, y+245 );

GfxGradientRect( 1, 260, 90, 275, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (LMonthH>C, " LMH "+WriteVal(LMonthH,1.2)+" ",""), x+50, y+260 );

GfxGradientRect( 1, 275, 90, 290, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (MonthH>C, " CMH "+WriteVal(MonthH,1.2)+" ",""), x+50, y+275 );

GfxGradientRect( 1, 290, 90, 305, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L3WeekH>C, " 4WH "+WriteVal(L3WeekH,1.2)+" ",""),x+50, y+290 );

GfxGradientRect( 1, 305, 90, 320, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L2WeekH>C, " 3WH "+WriteVal(L2WeekH,1.2)+" ",""), x+50, y+305 );

GfxGradientRect( 1, 320, 90, 335, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L1WeekH>C, " 2WH "+WriteVal(L1WeekH,1.2)+" ",""), x+50, y+320 );

GfxGradientRect( 1, 335, 90, 350, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (LWeekH>C, " 1WH "+WriteVal(LWeekH,1.2)+" ","") , x+50, y+335 );

GfxGradientRect( 1, 350, 90, 365, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (WeekH>C, " CWH "+WriteVal(WeekH,1.2)+" ",""), x+50, y+350 );

GfxGradientRect( 1, 365, 90, 380, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (DayH>C, " PDH "+WriteVal(DayH,1.2)+" ",""), x+50, y+365 );

GfxGradientRect( 1, 380, 90, 395, colorLightBlue , colorBlue );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorCustom12);
GfxTextOut( WriteIf (C, " LTP "+WriteVal(C,1.2)+" ",""), x+50, y+380 );

GfxGradientRect( 1, 395, 90, 410, colorDarkGrey,colorDarkGreen);
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (DayL<C, " PDL "+WriteVal(DayL,1.2)+" ",""), x+50, y+395 );

GfxGradientRect( 1, 410, 90, 425, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (WeekL<C, " CWL "+WriteVal(WeekL,1.2)+" ",""), x+50, y+410 );

GfxGradientRect( 1, 425, 90, 440, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (LWeekL<C, " 1WL "+WriteVal(LWeekL,1.2)+" ",""), x+50, y+425 );

GfxGradientRect( 1, 440, 90, 455, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 9, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L1WeekL<C, " 2WL "+WriteVal(L1WeekL,1.2)+" ",""), x+50, y+440);

GfxGradientRect( 1, 455, 90, 470, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L2WeekL<C, " 3WL "+WriteVal(L2WeekL,1.2)+" ",""), x+50, y+455);

GfxGradientRect( 1, 470, 90, 485, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L3WeekL<C, " 4WL "+WriteVal(L3WeekL,1.2)+" ",""), x+50, y+470);

GfxGradientRect( 1, 485, 90, 500, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (MonthL<C, " CML "+WriteVal(MonthL,1.2)+" ",""), x+50, y+485);

GfxGradientRect( 1, 500, 90, 515, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (LMonthL<C, " 1ML "+WriteVal(LMonthL,1.2)+" ",""), x+50, y+500);

GfxGradientRect( 1, 515, 90, 530, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L1MonthL<C, " 2ML "+WriteVal(L1MonthL,1.2)+" ",""), x+50, y+515);

GfxGradientRect( 1, 530, 90, 545, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L2MonthL<C, " 3ML "+WriteVal(L2MonthL,1.2)+" ",""), x+50, y+530);

GfxGradientRect( 1, 545, 90, 560, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L3MonthL<C, " 4ML "+WriteVal(L3MonthL,1.2)+" ",""), x+50, y+545);

GfxGradientRect( 1, 560, 90, 575, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L4MonthL<C, " 5ML "+WriteVal(L4MonthL,1.2)+" ",""), x+50, y+560);

ranjitsingh1974 · Aug 25, 2015

:sos::sos::sos::sos::sos:

ranjitsingh1974 said:

dear mastermind and amitji

I am in need of an explorer which will show 52 week breakout(Up/Down) during last 10 days and % of retracement on current day in the following format.
symbol, date, 52 week up breakout ,52 week down breakout,% of retracement today,closing price,volume.
moreover it will scan stocks with closing price above rs 50 and having volume 500000.
this is the 52 week breakout exploration
_SECTION_BEGIN("52 week H and L");

HI = Close > Ref(HHV(High,260),-1)AND V>500000 AND C>50;
LW = Close < Ref(LLV(Low,260),-1)AND V>500000 AND C>50;

Filter = HI OR LW;

AddColumn( High > Ref(HHV(High,260),-1), "52 Week High", 1 );
AddColumn( Low < Ref(LLV(Low,260),-1), "52 Week Low", 1 );
AddColumn( C, "Close", 1.2 );
AddColumn(V, "Volume",1.0 );

_SECTION_END();

Now I want it to modify according to the above noted requirement

Suppose Stock A had 52 week breakout on 20/08/2015 with closing price 100. today its closing price is rs.90. so there is a retrecement of 10% from its recent 52 week breakout. but if the stock makes new breakout that from rs 100 to 110 today , % of retracement will show "new breakout " and same will in the case of 52 week breakdown stocks.

thanks in advance.
ranjitsingh1974.

seniors please help me

mastermind007 · Aug 26, 2015

NJ23 said:

I think what you want is termed as data cube in RDBMS lingo. See this https://en.wikipedia.org/wiki/Data_cube

And, by no stretch of imagination, that can be considered as a simple request.

In addition to the AFL to extrract data, You will have to write script in and COM enabled scripting languages and create a data cube.

LOVEENAJYOTHI · Aug 26, 2015

Hi Dearies
im like trying to create a custom function like this

Code:

function LkBk( array,n )
{
  // initialize 
  result[ 0 ] = array1[ 0 ];
  result[ 1 ] = array1[ 1 ] ;
  LB =Ref(array,(n-n))>Ref(array,(n-(n-1)) && Ref(array,(n-(n-1)))>Ref(array,(n-(n-2)) && Ref(array,(n-(n-2)))>Ref(array,(n-(n-3)) [B][COLOR="Red"]&& So On............ [/COLOR][/B]&& Ref(array,(n-(n-(n-1))))>Ref(array,(n-(n-n));
  // To Get Ref(array,0)>Ref(array,-1) && Ref(array,-1)>Ref(array,-2) && Ref(array,-2)>Ref(array,-3) [B][COLOR="red"]&& So On........... [/COLOR][/B]&& Ref(array,(n-1))>Ref(array,n);
  for( i = 0; i < BarCount; i++ )
  {
   result[ i ] = LB[ i ];
             
  }
  return result;
}

And im like stuck wit && So On............. part
any direction wd b grtly aprctd
tnx guys cheers
lovvy

NJ23 · Aug 26, 2015

mastermind007 said:

I got it done in R. AB should really give out different period returns of the strategy rather than just a trade list.

madhavareddy1203 · Aug 26, 2015

I need simple programm help.. this is small programm..

Hi .. plz any one convert this amibroker logic to MT4. Thanks in advance...

PHP:

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", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
n= Param("No. of Bars",3,2,8,1);
TrendUp = H > Ref(HHV(H,n),-3);
TrendDn = L < Ref(LLV(L,n),-3);
TrendUp = ExRem(TrendUp,TrendDn);
TrendDn = ExRem(TrendDn,TrendUp);
PlotShapes(TrendUp*shapeUpArrow,colorGreen);
PlotShapes(TrendDn*shapeDownArrow,colorBlue);

mastermind007 · Aug 26, 2015

NJ23 said:

Yes, I've heard R can handle cube type arrays but my encounter with R is limited to downloading EOD data from NSE servers and little rectification of that data which is needed to be able to upload into my database.

Whether AB should or should not is not a question that can debated on this thread.

Assuming you have a licensed copy of AB, raise this issue in its own forum. They may either agree to include it or perhaps guide you on how it can be done.

Thread starter	Similar threads	Forum	Replies	Date
S	Convert Simple Thinkscript Support/Resistance Lines into AFL	AmiBroker	4	Jan 15, 2022
S	Simple coding help in metastock	MetaStock	0	May 26, 2019
P	Coding help.........adding exploration for the simple combo	AmiBroker	2	Jul 16, 2018
P	Help with simple coding...........SUPERTREND AND STOCHASTICS	AmiBroker	3	Sep 27, 2017
I	MA ribbon simple help to the coding gurus out here	AmiBroker	0	Jan 15, 2014

Simple Coding Help - No Promise.

Profittaker

Well-Known Member

NJ23

Well-Known Member

ranjitsingh1974

Member

cepetrading

Active Member

ranjitsingh1974

Member

mastermind007

Well-Known Member

LOVEENAJYOTHI

Well-Known Member

NJ23

Well-Known Member

madhavareddy1203

Well-Known Member

mastermind007

Well-Known Member

Similar threads