[浏览完整版]
标题：Testreport中PEL引用出错！
1楼
15601951291 发表于：2017/11/14 11:31:56在Testreport中尝试使用Pel指标引用，但是测试结果中间漏掉了数据，换品种，换代码（样板代码）都是一样的结果，请问是为什么？
此主题相关图片如下：snap1.jpg
一、引用指标代码（al1）
m2:ma(close,20);
mr:cross(close,m2);
mc:cross(m2,close);
buy(mr and holding=0,100%,market);
sell(mc and holding>0,0,thisclose);
二、Testreport代码
sub ReportTest()
'//////设置测试参数
Testreport.StartAndInit
Testreport.InitCash=100*10000
Testreport.ReportType=0
MarketData.HistoryDataMode=0
Testreport.OpenLossPrice=1
Testreport.CloseLossPrice=1
Testreport.ODDLOTSMode=1
Testreport.CLOSEPOSMODE=1
'//////数据准备
set F1=MarketData.STKINDI("300059","SZ","al1",0,5)
Set His0=Marketdata.GetHistoryData("300059","SZ",5)
call Testreport.AddTestStock(His0,"300059","SZ",0)
Dim Data0
Set Data0=CreateObject("Stock.Array")
Dim Vl
vl=0
'/////K线循环
for i=0 to His0.Count-1
if i<=His0.Count-2 then
vl=int(Testreport.Cash(0)/(100*His0.open(i+1)))
else
vl=int(Testreport.Cash(0)/(100*His0.close(i)))
end if
if F1.GetBufData("MR",i) then
if Testreport.Holding=0 then
Testreport.Buy vl*100,His0.Open(i+1)
end if
end if
if F1.GetBufData("MC",i) then
if Testreport.Holding>0 then
Testreport.sell 0,His0.close(i)
end if
end if
if i=His0.Count-1 then
if Testreport.Holding>0 then
Testreport.sell 0,His0.close(i)
end if
end if
Application.MsgOut Testreport.ASSET
Testreport.StepIt i
next
set His0=nothing
Testreport.ShowReport
MarketData.DestroyHistoryData
end sub
Sub APPLICATION_VBAStart()
Application.ClearMsg
ReportTest
End Sub
三、测试明细
此主题相关图片如下：snap1.jpg2楼
15601951291 发表于：2017/11/14 11:40:02补充：不引用Pel指标就没有出错！
3楼
yukizzc 发表于：2017/11/14 12:50:09工具-选项-维护
内存保留数量，这里设置大一些比如10000然后再试下看呢
4楼
无为剑 发表于：2017/11/14 13:17:21这种情况一般是你引用的品种的周期缺失历史数据导致的。
你可以做一些调试工作，将引用的指标线单独打印出来，看一下引用结果
5楼
15601951291 发表于：2017/11/14 13:40:58试了，后面的日期有了，但测试结果明显不对！
Application.MsgOut F1.GetBufDateData(i) & "|" &Testreport.ASSET & "|" & F1.GetBufData("MR",i) & "-" & F1.GetBufData("MC",i)我加了这么一行代码，显示指标的历史数据到2014年5月16日就没有了。。
不过应该也不是历史数据缺失，因为直接用Pel测试是好的，奇怪了，什么设置有问题呢？
此主题相关图片如下：snap2.jpg
6楼
无为剑 发表于：2017/11/14 13:45:22单独打印一下 Set His0=Marketdata.GetHistoryData("300059","SZ",5) 这个对象的数据看看是否有缺失
将 al1 指标加载到 300059 的k线图上看一下是否正常显示
将 al1 改到系统自带的MA均线指标调试一下看看是否有正常输出
7楼
15601951291 发表于：2017/11/14 13:49:18我发现问题了：主要是因为有历史数据1000根的限制引起的！
引用指标可以用1000根，但是是从2010年开始的，而maketdata的1000根是从后面算起的，两者不匹配。
8楼
15601951291 发表于：2017/11/14 13:50:33有没有办法可以让他们匹配起来？目前是标准版，暂时不想升级，后面可能考虑，1000根至少要可以匹配起来才可以使用。
9楼
15601951291 发表于：2017/11/14 13:54:37测试了，His0这个数据是正常的
指标单独显示在图表上也都是正常的
[此贴子已经被作者于2017/11/14 13:55:29编辑过]
10楼
无为剑 发表于：2017/11/14 14:46:01将 al1 改到系统自带的MA均线指标调试一下看看是否有正常输出