looks interesting afl

#1


looks interesting afl,got this image in email.

Any one have this ?
 
#2
Santosh ji Please add TSL in this Heikin Ashi AFL...

//------------------------------------------------------------------------------
//
// Formula Name: INTRADAY HEIKIN ASHI new
// Author/Uploader: ali
// Keywords: INTRADAY HEIKIN ASHI new
// Level: advanced
// Flags: system




_SECTION_BEGIN("Bollinger Bands");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 100, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorCycle );
Style = ParamStyle("Style");
A=BBandTop( P, Periods, Width );
B=BBandBot( P, Periods, Width );
bmid=(a+b)/2;
//Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), colorWhite, style);
//Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), colorWhite, style);


_SECTION_END();

_SECTION_BEGIN("Plot BUY SELL");
Q = Param( "% Change", 2, 0.1, 10, 0.1 );
Z = Zig( C , q ) ;
HH = ( ( Z < Ref( Z, -1 ) AND Ref( Z, -1 ) > Ref( Z, -2 ) ) AND (Peak( z, q, 1 ) > Peak( Z, q, 2 ) ) );
LH = ( ( Z < Ref( Z, -1 ) AND Ref( Z, -1 ) > Ref( Z, -2 ) ) AND (Peak( Z, q, 1 ) < Peak( Z, q, 2 ) ) );
HL = ( ( Z > Ref( Z, -1 ) AND Ref( Z, -1 ) < Ref( Z, -2 ) ) AND (Trough( Z, q, 1 ) > Trough( Z, q, 2 ) ) );
LL = ( ( Z > Ref( Z, -1 ) AND Ref( Z, -1 ) < Ref( Z, -2 ) ) AND (Trough( Z, q, 1 ) < Trough( Z, q, 2 ) ) );
GraphXSpace = 5;
dist = 0.25 * ATR( 50 );

for ( i = 0; i < BarCount; i++ )
{
if ( HH )
PlotText( "S", i, H[ i ] + dist, colorYellow );

if ( LH )
PlotText( "S", i, H[ i ] + dist, colorRed );

if ( HL )
PlotText( "B", i, L[ i ] - dist, colorDarkYellow );

if ( LL )
PlotText( "B", i, L[ i ] - dist, colorCustom9 );

}
_SECTION_END();

//Magfied Market Price
FS=Param("Font Size",30,11,100,1);
GfxSelectFont("Times New Roman", FS, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorBrightGreen) );
Hor=Param("Horizontal Position",590,1,1200,1);
Ver=Param("Vertical Position",12,1,830,1);
GfxTextOut(""+C, Hor , Ver );
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSelectFont("Times New Roman", 11, 700, True );
GfxSetBkMode( colorBlack );
GfxSetTextColor(ParamColor("Color",colorYellow) );
GfxTextOut(""+DD+" ("+xx+"%)", Hor , Ver+45 );



_SECTION_END();

//---- heikin ashi
HaClose = (a+b+bmid)/3;
HaOpen = AMA( Ref( HaClose, -1 ), 0.3 );
HaHigh = Max( a, Max( HaClose, HaOpen ) );
HaLow = Min( b, Min( HaClose, HaOpen ) );

xDiff = (HaHigh - Halow) * IIf(StrFind(Name(),"JPY"),100,10000);
barcolor = IIf(HaClose >= HaOpen,colorBrightGreen,colorRed);
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "", barcolor, styleThick|styleCandle );
 
#3
afltodll,

What about upper window afl ?
 
#4
santosh ji can u post here gann amibroker afl for buy sell signal and tgt with lines for commodity because i have gann afl for nifty its not working in commodity also pls solve my problem
 
#5
santosh ji thats your holigrai afl

SetChartBkColor( ParamColor("Chart Color", colorBlack));



_SECTION_BEGIN("BACKGROUD LTRS");
SetChartOptions(0,chartShowArrows|chartShowDates);
GfxSetOverlayMode(1);

GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( ParamColor("Text Color", ColorHSB( 42, 42, 42 ) ));
GfxSetBkMode(0); // transparent



GfxSelectFont("Tahoma", Status("pxheight")/12);
GfxTextOut( "PRASAD ANALYTICS ©", Status("pxwidth")/2, Status("pxheight")/14);

GfxSelectFont("Tahoma", Status("pxheight")/9 );
GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/4.1 );


GfxSelectFont("Arial Narrow", Status("pxheight")/28 );
GfxTextOut( "[email protected]", Status("pxwidth")/2, Status("pxheight")/1.5);

GfxSelectFont("arial narrow", Status("pxheight")/27 );
GfxTextOut( "Dedicated to MY FATHER : BALKRISHNA RAO", Status("pxwidth")/2, Status("pxheight")/1.15);
_SECTION_END();



k = (GetPerformanceCounter()/100)%256;
printf("GetPerformance Counter %g",k);

GfxSelectFont("Arial Narrow", 10,700 );
GfxSetBkMode(1);
GfxSetTextColor(colorYellow);
//GfxTextOut("Dedicated to the loving memory of MY FATHER on his 75th Birth Anniversay - LATE BALKRISHNA RAMCHANDRA RAO 13.10.1935",100+k ,26);

RequestTimedRefresh(1);
_SECTION_END();






VOLDAYS2 = Param("II DAYS",10,1,50,1);


PER_II = Sum((2*Close-High-Low)/(High-Low)*Volume,VOLDAYS2)/Sum(Volume,VOLDAYS2);


mycolorII =IIf (PER_II<0,ColorRGB(255,232,200) , IIf( PER_II>0,ColorRGB(255,156,0),ColorRGB(125,84,11)));


Plot(EMA(PER_II,8),"AD%",colorRed ,styleLine);
Plot(EMA(PER_II,5),"AD%",colorLime ,styleLine);




Plot(PER_II,"II%",mycolorII ,styleHistogram);







/****************************************************
CHART TITLES
****************************************************/


GfxSetTextAlign( TA_left = 0);
GfxSelectFont("Tahoma", 11, 700 );
GfxSetTextColor(ColorRGB(209,191,255));
GfxTextOut("PRASAD ANALYTICS - % Inraday Intensity",07, 0);





GfxSetTextAlign( TA_LEFT = 0 );
GfxSelectFont("Tahoma", 11, 700 );
GfxSetTextColor(ColorRGB(255,180,61));
GfxTextOut(Name()+ " " + Date(),07,28);

GfxSetTextColor(ColorRGB(109,101,255));
GfxTextOut("II[ "+VOLDAYS2+" ]"+" = "+NumToStr(PER_II,1.2),07, 14);




/**************** AD***************************/


Title = " ";
 
#8
sir,
Just got interested in the holy grail the system is good would like to know how to set up the entire system could you please help.

Regards
rohan colaco
 

Similar threads