_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 ;
_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 ;
_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 );
_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);
Thread starter | Similar threads | Forum | Replies | Date |
---|---|---|---|---|
B | Super Trend AFL required | AmiBroker | 0 | |
P | Required AFL Codes for displaying "Today's Bar Numbers" on Each of Candles on Charts.. | AmiBroker | 11 | |
Z | Required AFL for Options Writing | AmiBroker | 2 | |
W | AFL required First 15 Candle High Low Marke afl | AmiBroker | 2 | |
R | AFL required..when current price crossing previous caldle.. | AmiBroker | 7 |