Hello,
good day everyone. I found this Trading System in my archive, and I would like to test it, but Tradestation 2000i reports errors.
The formula of the T.S. it's the following:

-------------------------------------------------

Input: Per(30), Length(1), Per2(8), Per3(21);
Vars: Acceleraz1(false), Acceleraz2(false), ave(0);

Ave = XAverage(MACD(C, 10, 25), 10);

If adx(Per) <> 0 and adx(Per)[Length] <> 0 Then begin
value1 = (absvalue(ADX(Per) - ADX(Per)[Length])/ADX(Per)[Length])*100;

if Average(C, per2)[Length] <> 0 and Average(C, Per2) <> 0 then
value2 = (absvalue(Average(C, Per2)-Average(C, per2)[Length])/ Average(C, per2)[Length])*100;

if Average(C, per3)[Length] <> 0 and Average(C, Per3) <> 0 then
value3 = (absvalue(Average(C, Per3)-Average(C, per3)[Length])/ Average(C, per3)[Length])*100;

if value1 > value1[1]*3 Then Begin
if value2 > value3 and MACD(C, 10, 25) < Ave then Buy next bar {Highest(H, 5) Limit}O;
if value2 < value3 and MACD(C, 10, 25) > Ave Then Sell next bar {Lowest(L, 5) Limit}O;
end;

end
else value1 = 0;

if Marketposition = 1 and MACD(C, 10, 25) > Ave Then ExitLong ("LX") next bar at market;
if Marketposition = -1 and MACD(C, 10, 25) < Ave Then Exitshort ("SX") next bar at market;

-----------------------------------------------------

If anyone can correct the formula, I thank you in advance.

Shaban 

Hello, good day everyone. I found this Trading System in my archive, and I would like to test it, but Tradestation 2000i reports errors. The formula of the T.S. it's the following: ------------------------------------------------- Input: Per(30), Length(1), Per2(8), Per3(21); Vars: Acceleraz1(false), Acceleraz2(false), ave(0); Ave = XAverage(MACD(C, 10, 25), 10); If adx(Per) <> 0 and adx(Per)[Length] <> 0 Then begin value1 = (absvalue(ADX(Per) - ADX(Per)[Length])/ADX(Per)[Length])*100; if Average(C, per2)[Length] <> 0 and Average(C, Per2) <> 0 then value2 = (absvalue(Average(C, Per2)-Average(C, per2)[Length])/ Average(C, per2)[Length])*100; if Average(C, per3)[Length] <> 0 and Average(C, Per3) <> 0 then value3 = (absvalue(Average(C, Per3)-Average(C, per3)[Length])/ Average(C, per3)[Length])*100; if value1 > value1[1]*3 Then Begin if value2 > value3 and MACD(C, 10, 25) < Ave then Buy next bar {Highest(H, 5) Limit}O; if value2 < value3 and MACD(C, 10, 25) > Ave Then Sell next bar {Lowest(L, 5) Limit}O; end; end else value1 = 0; if Marketposition = 1 and MACD(C, 10, 25) > Ave Then ExitLong ("LX") next bar at market; if Marketposition = -1 and MACD(C, 10, 25) < Ave Then Exitshort ("SX") next bar at market; ----------------------------------------------------- If anyone can correct the formula, I thank you in advance.

This modification verifies...



Input: Per(30), Length(1), Per2(8), Per3(21);
Vars: Acceleraz1(false), Acceleraz2(false), ave(0);

Ave = XAverage(MACD(C, 10, 25), 10);

If adx(Per) <> 0 and adx(Per)[Length] <> 0 Then begin
value1 = (absvalue(ADX(Per) - ADX(Per)[Length])/ADX(Per)[Length])*100;

if Average(C, per2)[Length] <> 0 and Average(C, Per2) <> 0 then
value2 = (absvalue(Average(C, Per2)-Average(C, per2)[Length])/ Average(C, per2)[Length])*100;

if Average(C, per3)[Length] <> 0 and Average(C, Per3) <> 0 then
value3 = (absvalue(Average(C, Per3)-Average(C, per3)[Length])/ Average(C, per3)[Length])*100;

if value1 > value1[1]*3 Then Begin
if value2 > value3 and MACD(C, 10, 25) < Ave then Buy next bar {Highest(H, 5) Limit}O;
if value2 < value3 and MACD(C, 10, 25) > Ave Then Sell next bar {Lowest(L, 5) Limit}O;
end;

end
else value1 = 0;

if Marketposition = 1 and MACD(C, 10, 25) > Ave Then sell ("LX") next bar at market;
if Marketposition = -1 and MACD(C, 10, 25) < Ave Then buytocover ("SX") next bar at market;

All right. Thank you very much.

Good morning,

to enter: Short with this formula for Tradestation 8 or higher, you need to modify this string as follows:

if value2 < value3 and MACD(C, 10, 25) > Ave Then Sellshort next bar {Lowest(L, 5) Limit}O;
end;

----------------------------------------------------

differences between Tradestation 2000i and Tradestation 8 or higher:

Tradestation 2000i: Sell
Tradestation 8: Sellshort

Tradestation 2000i: ExitLong("LX")
Tradestation 8: Sell

Tradestation 2000i: ExitShort("SX")
Tradestation 8: Buytocover

-----------------------------------------------------

Good continuation