欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → marketdata.GetHistoryData("if11","zj",0) 获取的是当前K以前的所有数据吗?

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有4589人关注过本帖平板打印复制链接

主题:marketdata.GetHistoryData("if11","zj",0) 获取的是当前K以前的所有数据吗?

帅哥哟,离线,有人找我吗?
sword8586
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:388 积分:0 威望:0 精华:0 注册:2014/11/22 18:13:16
  发帖心情 Post By:2021/1/27 8:12:12 [只看该作者]

'**********************加载历史数据,并形成等价K线******************************                                  
           for i = 0 to  PKOpen.Count-1              
               Thigh=PKHigh.GetAt(i) 
               Tlow=PKLow.GetAt(i)               
               TVolume=PKVolume.GetAt(i) 
               TDate=PKDate.GetAt(i)                  
                  newkopen=PKOpen.GetAt(i)
                  newkHigh=Thigh
                  newkLow=Tlow
                  mxVolume=TVolume  
               newkVolume=TVolume-mxVolume
               newkClose=PKClose.GetAt(i)    
               newkDate=TDate
               newkOpenInt=PKOpenInt.GetAt(i) 
                                                          
                  PKOpen.AddBack(newkOpen)
                  PKClose.AddBack(newkClose)
                  PKHigh.AddBack(newkHigh)
                  PKLow.AddBack(newkLow)
                  PKVolume.AddBack(newkVolume)
                  PKDate.AddBack(newkDate)
                  PKOpenInt.AddBack(newkOpenInt)
  
           next            


          '将变化的合约标识数据——该数据实际成为老数据,写入全局变量
          Set History10=marketdata.GetHistoryData(xinheyue,xinshichang,0)'取老合约1分钟数据
 
             for i = 0 to  PKOpen.Count-1
               Set History11=marketdata.GetHistoryData(xinheyue,xinshichang,0)'取老合约1分钟数据             
               call History11.InsertAt(i)           
               History11.Open(i)=PKOpen.GetAt(i)
               History11.Close(i)=PKClose.GetAt(i)
               History11.High(i)=PKHigh.GetAt(i)
               History11.Low(i)=PKLow.GetAt(i)
               History11.Volume(i)=PKVolume.GetAt(i)
               History11.Date(i)=PKDate.GetAt(i)
               History11.OpenInt(i)=PKOpenInt.GetAt(i)

             Next                                                           
             Set PKOpen=nothing
             Set PKClose=nothing  
             Set PKHigh=nothing
             Set PKLow=nothing
             Set PKVolume=nothing
             Set PKDate=nothing
             Set PKOpenInt=nothing           
 
End Sub

 回到顶部
总数 35 1 2 3 4 下一页