ORIGINAL TRADING SYSTEM IN EASYLANGUAGE

[LegacyColorValue = true]; 

arrays: f[8](0); // Using indexes 1 to 8
vars: tmp(0), result(0);
vars: cflag(false);

f[1]=0;
f[2]=0;
f[3]=0;
f[4]=0;
f[5]=0;
f[6]=0;
f[7]=0;
f[8]=0;
tmp = f[1];
f[1] = f[2];
f[2] = f[3];
f[3] = f[4];
f[4] = f[5];
f[5] = f[6];
f[6] = f[7];
f[7] = f[8];
f[8] = tmp;
f[1] = CELSqrt (f[1]);
f[1] = CELAdd (f[1], v1[29]);
f[1] = CELAdd (f[1], v1[33]);
f[2] = CELSubtract (f[2], f[1]);
f[1] = CELAdd (f[1], v1[23]);
f[1] = CELAdd (f[1], v1[6]);
f[1] = CELMultiply (f[1], v1[11]);
f[1] = CELSubtract (f[1], v1[29]);
f[1] = CELAdd (f[1], v1[25]);
f[1] = CELSqrt (f[1]);
f[2] = CELAdd (f[2], f[1]);
f[1] = CELSubtract (f[1], f[1]);
tmp = f[1];
f[1] = f[2];
f[2] = f[3];
f[3] = f[4];
f[4] = f[5];
f[5] = f[6];
f[6] = f[7];
f[7] = f[8];
f[8] = tmp;
f[1] = CELAbs (f[1]);
f[1] = CELAdd (f[1], v1[23]);
f[1] = CELAdd (f[1], v1[6]);
f[1] = CELMultiply (f[1], v1[11]);
f[1] = CELSubtract (f[1], v1[29]);
if (CELNot (CELIsFinite (f[1]))) then begin
f[1] = 0;
end;

result = f[1];


SIMPLIFIELD TRADING SYSTEM IN EASYLANGUAGE

[LegacyColorValue = true]; 

vars:  RngLen2(10), len1a(4), len3(3), Rng(0),  Rng3(0), avg(0), 
sdv(0),    LR(0), rng1(0), rng2(0), atr11(0), atr22(0),result(0), 
fflag(false), fflag1(false);
arrays:  f[8](0), v1[100](0);

Rng                 = Highest(h, len1a) - Lowest(l, len1a);
Rng3                = Highest(h, rnglen2) - Lowest(l, rnglen2);
LR                  = LinearRegValue(C, rnglen2, 0);
avg                 = LR;
if rng3<>0 then sdv = stddev((c-avg), RngLen2)/rng3;
atr11               = average(range, 8);
atr22               = average(truerange, 20);
v1[6]  = 0;v1[11] = 0;v1[23] = 0;v1[25] = 0;v1[29] = 0;v1[33] = 0;

if (l > l[1] and l[1] > l[2] and h > h[1] and h[1] > h[2]) then v1[6] =1;
if (atr11 < atr22)                                         then v1[11]=1;
if (c < lowest (c, len1a) + rng*sdv*3)                     then v1[23]=1;
if h>h[1]                                                  then v1[25]=1;
if h>h[3]                                                  then v1[29]=1;
if c>=c[1] 												   then v1[33]=1;

/////////////////////EVOLVED CODE GOES BELOW////////////////////////////////////////////////////////
f[1]=0;f[2]=0;f[3]=0;f[4]=0;f[5]=0;f[6]=0;f[7]=0;f[8]=0;
f[1]=f[1]+v1[29]+v1[33];
f[2]=f[2]-f[1];
f[1]=f[1]+v1[23]+v1[6];
f[1]=f[1]*v1[11];
f[1]=f[1]-v1[29];
f[1]=f[1]+v1[25];
if (f[1] >= 99999999999999999)       then f[1] = 99999999999999999
else if (f[1] <= -99999999999999999) then f[1] = -99999999999999999
else if (f[1] >= 0)                  then f[1] = squareroot(f[1])
else f[1] = -99999999999999999;
f[2]=f[2]+f[1];
f[1]=f[1]-f[1];
f[1] = f[2];
f[1]=absvalue(f[1]);
f[1]=f[1]+v1[23];
f[1]=f[1]+v1[6];
if (f[1] >= 99999999999999999) or (v1[11] >= 99999999999999999) then 
	f[1] = 99999999999999999
else if (f[1] <= -99999999999999999) or (v1[11] <= -99999999999999999) then 
	f[1] = -99999999999999999
else f[1] = f[1] * v1[11];
f[1]=f[1]-v1[29];
if (f[1] >= 99999999999999999 or f[1]<=-99999999999999999) then fflag = false
else fflag = true;
if fflag then fflag1=false else fflag1=true;
if fflag=false then f[1]=0;
result = f[1];
//////////////////////EVOLVED CODE GOES ABOVE///////////////////////////////////////////////

if  currentbar>=22 then begin
if result>0 and result[1]<=0 and marketposition<=0 then        buy  this bar on close;
if result<0 and result[1]>=0 and marketposition>=0 then sell short  this bar on close;
end;