Dear mq4 masters

DEAR MQ4 MASTERS

Convert afl file to mq4 file


AFL TO MQ4


_SECTION_BEGIN("AFL1");
//Crossover

PlusDM= IIf(High>Ref(High,-1) AND Low>=Ref(Low,-1), High-Ref(High,-1),
IIf(High>Ref(High,-1) AND Low<Ref(Low,-1)
AND High-Ref(High,-1)>Ref(Low,-1)-Low,
High-Ref(High,-1),0));
//SetChartBkColor( ParamColor( "Outer panel",colorBlue) );

Vm=log(EMA(V,3));

Buy= (C-L)*Vm+ (H-O)*Vm +
IIf(C>O,(C-O)*Vm,0) + PlusDM*Vm +
IIf(Ref(C,-1)<O,(O-Ref(C,-1))*Vm,0);

MinDM = IIf(Low<Ref(Low,-1) AND High<=Ref(High,-1), Ref(Low,-1)-Low,
IIf(High>Ref(High,-1) AND Low<Ref(Low,-1)
AND High-Ref(High,-1)<Ref(Low,-1)-Low, Ref(Low,-1)-Low, 0));

Sell= (H-C)*Vm + (O-L)*Vm +
IIf(C<O,(O-C)*Vm,0) + MinDM*Vm +
IIf(Ref(C,-1)>O,(Ref(C,-1)-O)*Vm,0);

Wm=Wilders(Wilders(Buy,21)-Wilders(Sell,21),3);

//Buy=Cross(Graph1,0);
//Sell=Cross(0,Graph2);


Graph1=Wm;
Graph2=MA(Wm,8);

Graph0=0;
Graph0Style=Graph1Style=Graph2Style=5;
Graph2Color=25;

Buy=Cross(Graph1,0);
Sell=Cross(0,Graph1);


Buy = ExRem( Buy, Sell );
Sell = ExRem( Sell, Buy );
//PlotShapes( Buy * shapeUpArrow + Sell * shapeDownArrow, IIf( Buy, colorRed, colorCustom12) );
//dist = 0.9*ATR(0);
//for( i = 0; i < BarCount; i++ )
{
//if( Buy[i] ) PlotText( "Buy " + L[ i ], i, L[ i ]-dist[i], colorWhite);
//if( Sell[i] ) PlotText( "Sell " + H[ i ], i, H[ i ]+dist[i], colorWhite);
}



//Buy=Cross(Graph1,Graph2);
//Sell=Cross(Graph2,Graph1);
PlotShapes(shapeUpArrow*Buy,colorGreen,0,Graph2);
PlotShapes(shapeDownArrow*Sell,colorRed,0,Graph1);


AlertIf( Buy , "SOUND C:\\Windows\\Media\\Ding.wav", "Audio alert", 2 );
AlertIf(Sell , "SOUND C:\\Windows\\Media\\Ding.wav", "Audio alert", 2 );



Filter= (Buy==1) ;
NumColumns = 6;
Column0 =Ref(C+0.065,-1);
Column0Format = 1.2;
Column0Name = "Trigger Price";WriteVal(C+0.065);
Column1 = C;
Column1Name = "Close ";WriteVal(C);
Column1Format = 1.2;
Column2 = MA(V,17);
Column2Name = "17 Ma Vol ";WriteVal(MA(V,17) );
Column2Format = 1.0;
Column3 = MA(C,17)/MA(C,50);
Column3Name = "% 17/50 ";WriteVal( MA(C,17)/MA(C,50) );
Column3Format = 1.2;
Column3Format = 1.2;
Column4= MA(C,17);
Column4Name="17 C ma"; WriteVal( MA(C,17) );
Column4Format = 1.2;
Column4= MA(C,50);
Column4Name="50 C ma"; WriteVal( MA(C,50) );
Column4Format = 1.2;
Column5=Wm;
Column5Name="Vol Osc"; WriteVal(Wm);
Column5Format=1.2;
_SECTION_END();


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

_SECTION_BEGIN("AFL2");
r = Param( "TSI period 'Length':", 25, 1, 100, 1 );
s = Param( "TSI period 'Smoothing':", 13, 1, 100, 1 );
sig = Param( "Signal period:", 7, 1, 100, 1 );

Mtm = C - Ref ( C, -1 );
AbsMtm = abs ( Mtm );
Num_T = EMA ( EMA ( Mtm, r ), s );
Den_T = EMA ( EMA ( AbsMtm, r ), s );

TSI = 100 * Nz ( Num_T / Den_T );
Plot( TSI, "TSI("+r+","+s+")", ParamColor( "Color", colorRed ), ParamStyle("Style") );
Plot(EMA(TSI,sig), "", colorLightBlue);
PlotGrid(0, colorLightYellow);
//PlotGrid(25, colorLightGrey);
//PlotGrid(-25, colorLightGrey);
_SECTION_END();