Afl required

gambler

Well-Known Member
#1
Hi,

Please post code for following:-

In 5 minute chart i want to plot ribbon for hourly trend. If in hourly chart EMA10>EMA15 then blue color ribbon and if EMA10<EMA15 then red ribbon.

Please post it ASAP

Thanks!
 

sr114

Well-Known Member
#3
Hi,

Please post code for following:-

In 5 minute chart i want to plot ribbon for hourly trend. If in hourly chart EMA10>EMA15 then blue color ribbon and if EMA10<EMA15 then red ribbon.

Please post it ASAP

Thanks!
]

1. 60 min - up trend - sky blue in color


code
HTML:
  _SECTION_BEGIN( "Background_Setting" );
  SetChartBkGradientFill( ParamColor( "BgTop", colorBlack ),
                        ParamColor( "BgBottom", colorDarkGrey ), ParamColor( "TitleBack", colorGrey40 ) );
  SetChartBkColor( ParamColor( "Outer Panel", colorPaleBlue ) );
  SetChartOptions( 0, chartShowArrows | chartShowDates );
  _SECTION_END();

 _SECTION_BEGIN("Price");
 grid_day = Day() != Ref( Day(), -1 );
 Plot( grid_day, "", colorGrey50, styleHistogram | styleDots | styleNoLabel | styleOwnScale );

 downbar = C <= O;
 upbar =   C > O;

 SetBarFillColor( IIf( upbar, ParamColor( "Candle UP Color", colorGreen ), 
                 IIf( downbar, ParamColor( "Candle Down Color", colorRed ), colorLightGrey ) ) );

 Plot( C, "Price", IIf( upbar, ParamColor( "Wick UP Color", colorDarkGreen ), 
                  IIf( downbar, ParamColor( "Wick Down Color", colorDarkRed ), colorLightGrey ) ), 64 | styleNoTitle, 0, 0, 0, 0 );
 
 GraphXSpace=20;
 _SECTION_END();

 _SECTION_BEGIN("Trend ribbon - subroto 29032013 ");
 tf1=Param("Time Frame1 (min)",60,60,120,1);

 tfrm1=in1Minute*tf1;

 e10=EMA(C,10);
 e15=EMA(C,15);

 TimeFrameSet(tfrm1); 
 uptrend1= e10>e15;
 dntrend1=e10<e15;
 TimeFrameRestore();

 Plot( 2, "tf1", IIf( uptrend1, colorSkyblue, 	IIf( dntrend1, colorRed, colorLightYellow)), styleOwnScale|styleArea|styleNoLabel, -1, 100 );
 _SECTION_END();

Title =EncodeColor(colorYellow)+"Gambler's Ribbon PLOT  [ subroto - 19/04/2013 ]"+"\n"+
 EncodeColor(colorWhite)+  Name () + "\n" +Date()+"  "+Interval(2)
 +EncodeColor(colorWhite)+ "\nOp : "+ EncodeColor(colorWhite)+ O + " | "
 +EncodeColor(colorWhite)+ "Hi : "+ EncodeColor(colorWhite)+ H + " | "
 +EncodeColor(colorWhite)+ "Lo : "+ EncodeColor(colorWhite)+ L + " | "
 +EncodeColor(colorWhite)+ "Cls : "+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorGold))+ C 
 +EncodeColor(colorWhite)+ "\nVolume : " + EncodeColor(colorWhite)+ WriteVal(V,1.0)+ "\n\n"
 +EncodeColor(colorWhite)+ "\n10 EMA : "+ EncodeColor(colorWhite)+ e10 
 +EncodeColor(colorWhite)+ "\n15 EMA : "+ EncodeColor(colorWhite)+ e15 ;
 

gambler

Well-Known Member
#4
Thankyou very much!

what following line means in afl?

tf1=Param("Time Frame1 (min)",60,60,120,1);

Thanks!


]

1. 60 min - up trend - sky blue in color


code
HTML:
  _SECTION_BEGIN( "Background_Setting" );
  SetChartBkGradientFill( ParamColor( "BgTop", colorBlack ),
                        ParamColor( "BgBottom", colorDarkGrey ), ParamColor( "TitleBack", colorGrey40 ) );
  SetChartBkColor( ParamColor( "Outer Panel", colorPaleBlue ) );
  SetChartOptions( 0, chartShowArrows | chartShowDates );
  _SECTION_END();

 _SECTION_BEGIN("Price");
 grid_day = Day() != Ref( Day(), -1 );
 Plot( grid_day, "", colorGrey50, styleHistogram | styleDots | styleNoLabel | styleOwnScale );

 downbar = C <= O;
 upbar =   C > O;

 SetBarFillColor( IIf( upbar, ParamColor( "Candle UP Color", colorGreen ), 
                 IIf( downbar, ParamColor( "Candle Down Color", colorRed ), colorLightGrey ) ) );

 Plot( C, "Price", IIf( upbar, ParamColor( "Wick UP Color", colorDarkGreen ), 
                  IIf( downbar, ParamColor( "Wick Down Color", colorDarkRed ), colorLightGrey ) ), 64 | styleNoTitle, 0, 0, 0, 0 );
 
 GraphXSpace=20;
 _SECTION_END();

 _SECTION_BEGIN("Trend ribbon - subroto 29032013 ");
 tf1=Param("Time Frame1 (min)",60,60,120,1);

 tfrm1=in1Minute*tf1;

 e10=EMA(C,10);
 e15=EMA(C,15);

 TimeFrameSet(tfrm1); 
 uptrend1= e10>e15;
 dntrend1=e10<e15;
 TimeFrameRestore();

 Plot( 2, "tf1", IIf( uptrend1, colorSkyblue, 	IIf( dntrend1, colorRed, colorLightYellow)), styleOwnScale|styleArea|styleNoLabel, -1, 100 );
 _SECTION_END();

Title =EncodeColor(colorYellow)+"Gambler's Ribbon PLOT  [ subroto - 19/04/2013 ]"+"\n"+
 EncodeColor(colorWhite)+  Name () + "\n" +Date()+"  "+Interval(2)
 +EncodeColor(colorWhite)+ "\nOp : "+ EncodeColor(colorWhite)+ O + " | "
 +EncodeColor(colorWhite)+ "Hi : "+ EncodeColor(colorWhite)+ H + " | "
 +EncodeColor(colorWhite)+ "Lo : "+ EncodeColor(colorWhite)+ L + " | "
 +EncodeColor(colorWhite)+ "Cls : "+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorGold))+ C 
 +EncodeColor(colorWhite)+ "\nVolume : " + EncodeColor(colorWhite)+ WriteVal(V,1.0)+ "\n\n"
 +EncodeColor(colorWhite)+ "\n10 EMA : "+ EncodeColor(colorWhite)+ e10 
 +EncodeColor(colorWhite)+ "\n15 EMA : "+ EncodeColor(colorWhite)+ e15 ;
 

gambler

Well-Known Member
#5
Dear Sr,

If i am plotting bollinger band in chart, which is having afl code written by you then it looks like below image, please do the needful!

 

sr114

Well-Known Member
#6
Dear Sr,

If i am plotting bollinger band in chart, which is having afl code written by you then it looks like below image, please do the needful!

actually u just inserted the Bollinger Band in the price chart - it will not work. u have to do it in a different way.

added Bollinger band with the price chart - the Bollinger Band can be controlled via the parameters.

Code:
  _SECTION_BEGIN( "Background_Setting" );
  SetChartBkGradientFill( ParamColor( "BgTop", colorBlack ),
                        ParamColor( "BgBottom", colorDarkGrey ), ParamColor( "TitleBack", colorGrey40 ) );
  SetChartBkColor( ParamColor( "Outer Panel", colorPaleBlue ) );
  SetChartOptions( 0, chartShowArrows | chartShowDates );
  _SECTION_END();

 _SECTION_BEGIN("Price");
 grid_day = Day() != Ref( Day(), -1 );
 Plot( grid_day, "", colorGrey50, styleHistogram | styleDots | styleNoLabel | styleOwnScale );
 GraphXSpace=20;
 _SECTION_END();

 _SECTION_BEGIN("Trend ribbon - subroto 29032013 ");
 tf1=Param("Time Frame1 (min)",60,60,120,1);

 tfrm1=in1Minute*tf1;

 e10=EMA(C,10);
 e15=EMA(C,15);

 TimeFrameSet(tfrm1); 
 uptrend1= e10>e15;
 dntrend1=e10<e15;
 TimeFrameRestore();
 Plot( 2, "tf1", IIf( uptrend1, colorSkyblue, 	IIf( dntrend1, colorRed, colorLightYellow)), styleOwnScale|styleArea|styleNoLabel, -1, 100 );

 downbar = C <= O;
 upbar =   C > O;

 SetBarFillColor( IIf( upbar, ParamColor( "Candle UP Color", colorGreen ), 
                 IIf( downbar, ParamColor( "Candle Down Color", colorRed ), colorLightGrey ) ) );
 Plot( C, "Close", IIf( upbar, ParamColor( "Wick UP Color", colorDarkGreen ), 
                  IIf( downbar, ParamColor( "Wick Down Color", colorDarkRed ), colorLightGrey ) ), 64 | styleNoTitle, 0, 0, 0, 0 );
 _SECTION_END();

Title =EncodeColor(colorYellow)+"Gambler's Ribbon PLOT  [ subroto - 19/04/2013 ]"+"\n"+
 EncodeColor(colorWhite)+  Name () + "\n" +Date()+"  "+Interval(2)
 +EncodeColor(colorWhite)+ "\nOp : "+ EncodeColor(colorWhite)+ O + " | "
 +EncodeColor(colorWhite)+ "Hi : "+ EncodeColor(colorWhite)+ H + " | "
 +EncodeColor(colorWhite)+ "Lo : "+ EncodeColor(colorWhite)+ L + " | "
 +EncodeColor(colorWhite)+ "Cls : "+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorGold))+ C 
 +EncodeColor(colorWhite)+ "\nVolume : " + EncodeColor(colorWhite)+ WriteVal(V,1.0)+ "\n\n"
 +EncodeColor(colorWhite)+ "\n10 EMA : "+ EncodeColor(colorWhite)+ e10 
 +EncodeColor(colorWhite)+ "\n15 EMA : "+ EncodeColor(colorWhite)+ e15 ;


Periods = Param("Periods", 15, 2, 300, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorCycle );
Style = ParamStyle("Style");
Plot( BBandTop( C, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style ); 
Plot( BBandBot( C, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style );
screen shots - BBand included


rgds
subroto
 

nms

Active Member
#7
Hi All.
I dont want to create a new thread for my purpose, as because creating new thread will only increase volume of forum. Actually I want AFL to scan in the following rules.
1. To plot and scan of support and resistance as per desired EMA with automatic color change of line.
2. To plot and scan double/triple top and bottom
Thanks in advance.
Regards
NM Satpathy
 

gambler

Well-Known Member
#8
Dear Subroto,

Thanks for your kind help! I have one doubt in trend ribbon afl. I have cross verified trend ribbon with hourly chart and mentioned my doubt in below chart.



In above chart of 5 minutes trend ribbon has changed its color two times on 18/04/2013 in dlf chart, whereas as per hourly chart for whole day EMA10 was greater than EMA15. Hope you understand my point. If possible please clear my doubt.

Thanks alot!
 

sr114

Well-Known Member
#9
Dear Subroto,

Thanks for your kind help! I have one doubt in trend ribbon afl. I have cross verified trend ribbon with hourly chart and mentioned my doubt in below chart.



In above chart of 5 minutes trend ribbon has changed its color two times on 18/04/2013 in dlf chart, whereas as per hourly chart for whole day EMA10 was greater than EMA15. Hope you understand my point. If possible please clear my doubt.

Thanks alot!
Code:
  _SECTION_BEGIN( "Background_Setting" );
  SetChartBkGradientFill( ParamColor( "BgTop", colorBlack ),
                        ParamColor( "BgBottom", colorDarkGrey ), ParamColor( "TitleBack", colorGrey40 ) );
  SetChartBkColor( ParamColor( "Outer Panel", colorPaleBlue ) );
  SetChartOptions( 0, chartShowArrows | chartShowDates );
  _SECTION_END();

 _SECTION_BEGIN("Price");
 grid_day = Day() != Ref( Day(), -1 );
 Plot( grid_day, "", colorGrey40, styleHistogram | styleDots | styleNoLabel | styleOwnScale );
 GraphXSpace=20;
 _SECTION_END();

 _SECTION_BEGIN("Trend ribbon - subroto 29032013 ");
 Periods = Param("Periods", 15, 2, 300, 1 );
 Width = Param("Width", 2, 0, 10, 0.05 );
 Color = ParamColor("Color", colorCycle );
 Style = ParamStyle("Style");

 tfrm=inHourly;

 e10=EMA(C,10);
 e15=EMA(C,15);

 TimeFrameSet(tfrm); 
 uptrend1= e10 > e15;
 dntrend1= e10 < e15;
 TimeFrameRestore();

 uptrend1=TimeFrameExpand(uptrend1,tfrm,expandFirst); 
 dntrend1=TimeFrameExpand(dntrend1,tfrm,expandFirst); 

 downbar = C < Ref(L,-1);
 upbar =   C > Ref(H,-1);

 Plot( BBandTop( C, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style ); 
 Plot( BBandBot( C, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style ); 

 SetBarFillColor( IIf( upbar, ParamColor( "Candle UP Color", colorGreen ), 
                 IIf( downbar, ParamColor( "Candle Down Color", colorRed ), colorLightGrey ) ) );
 Plot( C, "Close", IIf( upbar, ParamColor( "Wick UP Color", colorDarkGreen ), 
                  IIf( downbar, ParamColor( "Wick Down Color", colorDarkRed ), colorLightGrey ) ), 64 | styleNoTitle, 0, 0, 0, 0 );

 Plot( 2, "tf1", IIf( uptrend1, colorSkyblue, 	IIf( dntrend1, colorRed, Null)), styleOwnScale|styleArea|styleNoLabel, -1, 100 );

 _SECTION_END();

Title =EncodeColor(colorYellow)+"Hourly Ribbon PLOT in Lower TF  [ @subroto  ]"+"\n"+
 EncodeColor(colorWhite)+  Name () + "\n" +Date()+"  "+Interval(2)
 +EncodeColor(colorWhite)+ "\nOp : "+ EncodeColor(colorWhite)+ O + " | "
 +EncodeColor(colorWhite)+ "Hi : "+ EncodeColor(colorWhite)+ H + " | "
 +EncodeColor(colorWhite)+ "Lo : "+ EncodeColor(colorWhite)+ L + " | "
 +EncodeColor(colorWhite)+ "Cls : "+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorGold))+ C 
 +EncodeColor(colorWhite)+ "\nVolume : " + EncodeColor(colorWhite)+ WriteVal(V,1.0)+ "\n\n"
 +EncodeColor(colorWhite)+ "\n\n UPTrend : "+ EncodeColor(colorWhite)+ NumToStr(uptrend1,1.0) 
 +EncodeColor(colorWhite)+ "\n DNTrend : "+ EncodeColor(colorWhite)+ NumToStr(dntrend1,1.0);
checked - representing properly - some cosmetic changes made

use it

rgds
subroto
 

Similar threads