scalping for Amibroker (AFL)

Ritz2275

11 months ago

Amibroker (AFL)

_SECTION_BEGIN(“BACK COLR”);
SetChartBkGradientFill( ParamColor(“BgTop”, colorBlack),
ParamColor(“BgBottom”, colorBlack),ParamColor(“titleblock”,colorBlack));
SetBarsRequired(600,0);
GraphXSpace = 20;
SetChartOptions( 0, chartShowArrows );

//==== TITLE ====

_SECTION_BEGIN(“Magnified Market Price”);
FS=Param(“Font Size”,30,11,100,1);
GfxSelectFont(“Times New Roman”, FS, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor(“Color”,colorYellow) );
Hor=Param(“Horizontal Position”,1300,1,1500,1);
Ver=Param(“Vertical Position”,75,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( colorWhite );
GfxSetTextColor(ParamColor(“Color”,colorBlack) );
GfxTextOut(""+DD+" (“xx”%)", Hor , Ver+45 );
_SECTION_END();

x=Param(“xposn”,1,0,1000,1);
y=Param(“yposn”,1,0,1000,1);

GfxGradientRect( 1, 1, 1800, 40, colorBlue, colorBlack);
GfxSetBkMode(0);
GfxSelectFont( “Georgia”, 18, 800, False );
GfxSetTextColor( colorYellow );
GfxTextOut( " Dreams of Trading SCALP ", x+580, y+6 );
GfxSelectFont( “Tahoma”, 16, 800, False );
GfxSetTextColor( colorYellow );
GfxTextOut( Name(), x+120, y+7 );
GfxSelectFont( “Century Gothic”, 15, 100, False );
GfxSetTextColor( colorYellow );
GfxTextOut( Date(), x+1300, y+7 );
GfxSelectFont( “Comic Sans MS”, 15, 500, False );
GfxSetTextColor( colorYellow );

GfxGradientRect( 1, 40, 1800, 55, colorBlue, colorBlack );
GfxSetBkMode(0);
GfxSelectFont( “Areal”, 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( “High:”WriteVal(H,1.2), x500, y+40 );
GfxSelectFont( “Areal”, 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( “Low:”WriteVal(L,1.2), x600, y+40 );
GfxSelectFont( “Areal”, 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( “Open:”WriteVal(O,1.2), x700, y+40 );
GfxSelectFont( “Areal”, 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( “Close:”WriteVal(C,1.2), x800, y+40 );
GfxSelectFont( “Areal”, 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( “Volume:”WriteVal(V,1.2), x900, y+40 );
GfxSelectFont( “COMIC SANS MS”, 12, 100, False );
GfxSetTextColor( colorYellow );
GfxTextOut( " Dreams of Trading – 8093410755 ", x+1250, y+35 );
GfxSelectFont( “Comic Sans MS”, 15, 500, False );
GfxSetTextColor( colorYellow );
GfxTextOut( Interval(2), x+300, y+6);

//
SetChartBkGradientFill( ParamColor(“BgTop”, colorBlack),ParamColor(“BgBottom”, colorBlack),ParamColor(“Titleblock”,colorLightGrey ));
SetChartOptions(0,chartShowArrows);
GraphXSpace=5;
p=Param(“Period”,8,2,30,1);
Om=MA;
hm=MA;
lm=MA;
Cm=MA;
HACLOSE=(Om+Hm+Lm+Cm)/4;
HaOpen = AMA, 0.5 );
HaHigh = Max( Hm, Max( HaClose, HaOpen ) );
HaLow = Min( Lm, Min( HaClose, HaOpen ) );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "" + Name(), colorWhite, styleCandle | styleNoLabel );
_SECTION_END();

_SECTION_BEGIN(“PDC”);
cdo=TimeFrameGetPrice(“O”,inDaily);
pdc=TimeFrameGetPrice(“C”,inDaily,-1);
vwapval=PDC;
Plot(vwapval,“vwapval”,colorGrey50,styleThick);

SECTION_BEGIN("SUP & RES “);
PDH_Color = ParamColor(”PDH Color", colorRed);
PDH_Style = ParamStyle(“PDH Style”, styleThick);
PDL_Color = ParamColor(“PDL Color”, colorGreen);
PDLStyle = ParamStyle(“PDL Style”, styleThick);

PDH = TimeFrameGetPrice( “H”, inDaily, -1 );
PDH = IIf(PDH!=Ref(PDH,-1),Null,PDH);
PDH_index = ValueWhen(PDH!=Ref(PDH,-1),BarIndex());
PDL = TimeFrameGetPrice( “L”, inDaily, -1 );
PDL = IIf(PDL!=Ref(PDL,-1),Null,PDL);
PDL_index = ValueWhen(PDL!=Ref(PDL,-1),BarIndex());

Plot(PDH,“PDH”,PDH_Color,PDH_Style);
Plot(PDL,“PDL”,PDL_Color,PDL_Style);
//PlotText(“Previous Day High”,LastValue(PDH_index)1,LastValue(TimeFrameGetPrice( “H”, inDaily, -1 ),True)*1.0010,PDH_Color);
//PlotText(“Previous Day Low”,LastValue(PDL_index)1,LastValue(TimeFrameGetPrice( “L”, inDaily, -1 ),True)*1.0005,PDL_Color);
_SECTION_END();

a=MA ;
b=MA ;

Buy = Cross( a,b );
Sell = Cross( b,a );
Short = Sell;
Cover = Buy;
PlotShapes( shapeUpTriangle*Buy, colorWhite, 0, L, -200 );
PlotShapes( shapeDownTriangle*Sell, colorRed, 0, H, -200 );
_SECTION_END();

_SECTION_BEGIN(“Price Line”);

PriceLevel = ParamField(“PriceField”, field = 3 );
Daysback = Param(“Bars Back”,100,10,500,1);
FirstBar = BarCount – DaysBack;
YY = IIf(BarIndex() >= Firstbar,EndValue(PriceLevel),Null);
side = Param(“side”,1,0,1000,1);
dist = 0;
for( i = 0; i < BarCount; i++ )
{
if(i+side== BarCount) PlotText( "\n " + PriceLevel[ i ], i, YY[ i ]-dist[i], colorBrightGreen );
}
_SECTION_END();

Buy = ExRem( Buy, Sell );
Sell = ExRem( Sell, Buy );
// Plot the ribbon
ribboncol= IIf( BarsSince(Buy)<BarsSince(Sell), colorGreen, colorRed );
Plot( 3, "", ribboncol, styleArea | styleOwnScale | styleNoLabel, 0, 100 );

dist = 0.8*ATR(10);
dist1 = 2*ATR(10);
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] )
{
PlotText( “\nSCALP Buy @” + C[ i ] + "\nTGT= " + (C[i]1.0045) + "\nSL= " + (C[i]0.9970), i, L[ i ]-dist[i], colorPaleTurquoise, colorDarkGreen );
}
if( Sell[i] )
{
PlotText( “SCALP Sell @” + C[ i ] + "\nT= " + (C[i]0.995) + "\nSL= " + (C[i]1.0025), i, H[ i ]+dist1[i], colorPaleTurquoise, colorDarkRed );
}
}

1 comments

Leave Comment

Please login here to leave a comment.