Trading System to be regularized - futures io
futures io futures trading



Trading System to be regularized


Discussion in EasyLanguage Programming

Updated
    1. trending_up 1,033 views
    2. thumb_up 3 thanks given
    3. group 1 followers
    1. forum 4 posts
    2. attach_file 0 attachments




Welcome to futures io: the largest futures trading community on the planet, with well over 125,000 members
  • Genuine reviews from real traders, not fake reviews from stealth vendors
  • Quality education from leading professional traders
  • We are a friendly, helpful, and positive community
  • We do not tolerate rude behavior, trolling, or vendors advertising in posts
  • We are here to help, just let us know what you need
You'll need to register in order to view the content of the threads and start contributing to our community.  It's free and simple.

-- Big Mike, Site Administrator

(If you already have an account, login at the top of the page)

 
Search this Thread
 

Trading System to be regularized

(login for full post details)
  #1 (permalink)
Turin + Italy
 
 
Posts: 81 since Feb 2020
Thanks: 11 given, 58 received

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.

Reply With Quote

Can you help answer these questions
from other members on futures io?
Moores Research vs spread software SeasonAlgo
Trading Reviews and Vendors
Polygonio developers and reviews
Trading Reviews and Vendors
Trying to transform single contracts into a continuous contract from historical data
NinjaTrader
Locate candles 15 cent
ThinkOrSwim
Help get more ThinkOrSwim content on futures io!
ThinkOrSwim
 
Best Threads (Most Thanked)
in the last 7 days on futures io
The Small Exchange (www.smallexchange.com)
106 thanks
Big Mike in Ecuador
83 thanks
How did you learn to trade?
58 thanks
Whos afraid of the big bad Glitch
51 thanks
Spoo-nalysis ES e-mini futures S&P 500
40 thanks
 
(login for full post details)
  #3 (permalink)
Legendary Market Wizard
Cleveland Ohio/United States
 
Experience: Advanced
Platform: Tradestation
Broker: Tradestation, DeCarley, others
Trading: futures
 
Posts: 2,917 since Jul 2012
Thanks: 1,535 given, 5,718 received



Shaban View Post
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;

Follow me on Twitter Reply With Quote
The following 3 users say Thank You to kevinkdog for this post:
 
(login for full post details)
  #4 (permalink)
Turin + Italy
 
 
Posts: 81 since Feb 2020
Thanks: 11 given, 58 received

All right. Thank you very much.

Reply With Quote
 
(login for full post details)
  #5 (permalink)
Turin + Italy
 
 
Posts: 81 since Feb 2020
Thanks: 11 given, 58 received

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

Reply With Quote


futures io Trading Community Platforms and Indicators EasyLanguage Programming > Trading System to be regularized


Last Updated on February 11, 2020


Upcoming Webinars and Events
 

NinjaTrader Indicator Challenge!

Ongoing
 

Journal Challenge!

February
 

Battlestations!

March
     



Copyright © 2021 by futures io, s.a., Av Ricardo J. Alfaro, Century Tower, Panama, +507 833-9432, info@futures.io
All information is for educational use only and is not investment advice.
There is a substantial risk of loss in trading commodity futures, stocks, options and foreign exchange products. Past performance is not indicative of future results.
no new posts