以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp) -- 高级功能研发区 (http://222.73.7.161/bbs/list.asp?boardid=5) ---- [原创]写5分钟数据变15分钟 K线求解呀! (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=67816) |
-- 作者:fzming -- 发布时间:2014/7/25 0:30:51 -- [原创]写5分钟数据变15分钟 K线求解呀! [原创]写5分钟数据变15分钟 K线求解呀! 1.我数据库明明5分钟数据数据如下: DateTime Open High Low Clos VOL 2014-07-24 11:25:00
53.07
53.15
52.95
52.95
9108.225 2014-07-24 11:30:00
53
53.07
52.95
52.96
5573.645 2014-07-24 11:35:00
52.96
53.19
52.95
53.04
7678.738 2014-07-24 11:40:00
53.06
53.08
53.04
53.08
2075.045 2014-07-24 11:45:00
53.04
53.09
53.02
53.09
3013.989 2014-07-24 11:50:00
53.09
53.11
53.07
53.09
8998.349 2014-07-24 11:55:00
53.09
53.14
53
53.04
8351.447 2014-07-24 12:00:00
53.05
53.05
52.92
52.99
5756.834 用如下程序导入数据库
for i=0 to DataCol.length-1
Set His= marketdata.GetHistoryData(StockLabel,Market,2) \'CycType保存周期 0:日线 1:1分钟 2:5分钟
His.InsertAt(His.Count)
His.Date(His.Count-1) =xmlInData(DataCol(i).getAttribute("DateTime"))
His.Open(His.Count-1) =DataCol(i).getAttribute("Open")
His.High(His.Count-1) =DataCol(i).getAttribute("High")
His.Low(His.Count-1) =DataCol(i).getAttribute("Low")
His.Close(His.Count-1) =DataCol(i).getAttribute("Close")
His.Volume(His.Count-1) =DataCol(i).getAttribute("Vol")
call His.SaveData(StockLabel,Market,2)
Technic.ReCalcAllGrid
next 我是从远程读到xml后生成K线 进到K线的数据变成了如下: 好多K线这里全部少了!真是查不出问题来!都是按手册写的!
|
-- 作者:fzming -- 发布时间:2014/7/25 13:56:12 -- 是不是必须购买了才能自已做5分钟K线呀! 我把里面数据调整成5分钟一个。 然后再程序进一条数据,前面5分钟K线又会合并! 还是那里有设置没有设好呀!真是搞晕了!
|