Hello
I have been working on
code to produce output from the backtester which meets a third party tool
format, Tradesim’s Universal text Trade Database. Unable to produce this
format so far, is the only reason why I have not ditched Metastock all
together (I understand there is an exe available to do this but it does
not look at an initialstop variable and requires a few too many button
clicks for lazy me), so I am anxious to get this
working.
Also I think this may
be a another good example of using the PBI (hint hint
Thomas)
I have posted the code
below. The issues I have, are listed below and any input on how to resolve
or work around these would be very much appreciated. Thomas any input
appreciated =)
- Trade
List
1.1
If I run
the individual backtest, I only get the last symbols results. Can
the script be altered so all symbols are listed with their results ?
1.2
Portfolio
backtest. If we are unable to get the individual backtester working,
what configuration would be required to get all possible trades using the
portfolio backtester ?
- Date
I have
changed my regional settings so the date is now in the format of
yyyy/mm/dd, however there appears to be no option in my regional settings
to have the date in the format of yyyymmdd , which is the format
requirement.
- Initial stop
value.
I was
going to leave this for a separate post, but I feel like we are on a
roll. Is there also anyway to get the value of atr(period) at the
first bar (or bar before) the entry signal ? This value is used for
position sizing within Tradesim.
Many, many
thanks.
Now the
code,
/*
Tradesim - Universal text Trade Database Version
1.0
Original
sample code from PBI Collected Documentation, 'How to create a Trade List
By ShortFox'
Requirements:
To generate YYYYMMDD output, declare it in your regional settings
*/
Buy =
0;
Sell = 0;
Short = 1;
Cover = 0;
SetCustomBacktestProc("");
if (
Status(
"action" ) ==
actionPortfolio
)
{
fh = fopen(
"C:\\TestFile.trt",
"w"
);
bo = GetBacktesterObject();
bo.BackTest(); //
High-Level backtest
dt = DateTime();
Initial_Stop = "0";
// if
Initial Stop data is not available then 0 placeholder should be
used.
for ( trade
= bo.GetFirstTrade(); trade; trade = bo.GetNextTrade()
)
{ //
iterate through closed trades
if (
trade.IsLong )
{
Long_Short = "L";
}
else
{
Long_Short = "S";
}
String = trade.Symbol + "
" +
Long_Short + "
" +
NumToStr(trade.EntryDateTime,formatDateTime) + "
" +
NumToStr(
trade.ExitDateTime, formatDateTime
)
+ "
" +
Initial_Stop + "
" +
trade.EntryPrice + "
" +
trade.ExitPrice;
if ( fh
)
fputs( string
+ "\n", fh
);
}
fclose( fh );
}
// Your
trading system here...
Buy =
C > EMA(C,20);
Sell =
C < EMA(C,20);