: | : | :期货程序化 | :期货程序化研究 | :期货量化学习 | :期货量化 |
返回列表 发帖

【RS_DailyDataArray】

龙听

Rank: 9Rank: 9Rank: 9

UID
2 
积分
2737084 
威望
1318538 布 
龙e币
1418546 刀 
注册时间
2009-12-3 
最后登录
2024-5-20 

Medal No.1
1# 跳转到 » 倒序看帖
打印
tT
发表于 2022-11-2 12:47 | 只看该作者

【RS_DailyDataArray】

  1. inputs:
  2.         NumDays( numericsimple ),
  3.         oDataArray[ Twelve, MaxNumDays ]( numericarrayref ),                          
  4.                
  5.         oIndex( numericref ),
  6.         oSubArray[ Three ]( numericarrayref ) ;                                         
  7.                                              

  9. variables:
  10.         var0( BarType ),
  11.         var1( 0 ),
  12.         var2( 0 ),               
  13.         var3( 0 ),            
  14.         var4( 0 ),
  15.         var5( 0 ) ;

  17. //if var0 <> 1 then
  18. //        RaiseRuntimeError( "Invalid interval. This indicator requires intraday data." ) ;
  19. if NumDays < 1 or NumDays > MaxNumDays then
  20.         RaiseRuntimeError( "NumDays out of range." ) ;

  22. var1 = CurrentBar ;

  24. if CurrentBar = 1 then
  25.         begin
  26.         var2 = ( NumDays + 5 ) * RS_BarsPerDay ;                                    
  27.                                                                                         
  28.         for var3 = var2 downto 0
  29.                 begin
  30.                 condition1 = Date[var3] <> Date[var3+1] ;
  31.                 if condition1 then
  32.                         begin
  33.                         var4 = var4 + 1 ;
  34.                
  35.                                                                                                   
  36.                         oDataArray[ 4, oIndex ] = Close[var3+1] ;
  37.                         oDataArray[ 6, oIndex ] = ( oDataArray[ 2, oIndex ] + oDataArray[ 3,
  38.                          oIndex ] ) * .5 ;
  39.                         oDataArray[ 7, oIndex ] = MaxList( oDataArray[ 2, oIndex ],
  40.                          var5 ) ;
  41.                         oDataArray[ 8, oIndex ] = MinList( oDataArray[ 3, oIndex ],
  42.                          var5 ) ;
  43.                         oDataArray[ 9, oIndex ] = oDataArray[ 7, oIndex ] - oDataArray[ 8,
  44.                          oIndex ] ;
  45.                         var5 = Close[var3+1] ;
  46.                
  47.                         oIndex = oIndex - 1 ;
  48.                         if oIndex = -1
  49.                                 then oIndex = MaxNumDays ;
  50.                
  51.                                             
  52.                         oDataArray[ 1, oIndex ] = Open[var3] ;
  53.                         oDataArray[ 2, oIndex ] = High[var3] ;
  54.                         oDataArray[ 3, oIndex ] = Low[var3] ;
  55.                                                                                    
  56.                         oDataArray[ 5, oIndex ] = Ticks[var3] ;
  57.                                                                                       
  58.                                                                                       
  59.                                                                                      
  60.                                                                                       
  61.                         oDataArray[ 10, oIndex ] = 1-var3            ;               
  62.                         oDataArray[ 11, oIndex ] = 1-var3            ;               
  63.                         oDataArray[ 12, oIndex ] = var4 ;
  64.                         end
  65.                 else if var4 > 0 then
  66.                         begin
  67.                         condition1 = High[var3] > oDataArray[ 2, oIndex ] ;
  68.                         if condition1 then
  69.                                 begin
  70.                                 oDataArray[ 2, oIndex ] = High[var3] ;
  71.                                 oDataArray[ 10, oIndex ] = 1-var3            ;
  72.                                 end ;
  73.                         condition1 = Low[var3] < oDataArray[ 3, oIndex ] ;
  74.                         if condition1 then
  75.                                 begin
  76.                                 oDataArray[ 3, oIndex ] = Low[var3] ;
  77.                                 oDataArray[ 11, oIndex ] = 1-var3            ;
  78.                                 end ;
  79.                         oDataArray[ 5, oIndex ] = oDataArray[ 5, oIndex ] + Ticks[var3] ;
  80.                         end ;

  82.                 if var3 = 1 then
  83.                         begin
  84.                         oSubArray[1] = oDataArray[ 2, oIndex ] ;                        
  85.                         oSubArray[2] = oDataArray[ 3, oIndex ] ;                        
  86.                         oSubArray[3] = oDataArray[ 12, oIndex ] ;                           
  87.                         end ;
  88.                 end ;
  89.         end
  90. else                     
  91.         begin
  92.         if Date <> Date[1] then
  93.                 begin
  94.                 var4 = var4 + 1 ;
  95.        
  96.                                                                                           
  97.                 oDataArray[ 4, oIndex ] = Close[1] ;
  98.                 oDataArray[ 6, oIndex ] = ( oDataArray[ 2, oIndex ] + oDataArray[ 3,
  99.                  oIndex ] ) * .5 ;
  100.                 oDataArray[ 7, oIndex ] = MaxList( oDataArray[ 2, oIndex ], var5 ) ;
  101.                 oDataArray[ 8, oIndex ] = MinList( oDataArray[ 3, oIndex ], var5 ) ;
  102.                 oDataArray[ 9, oIndex ] = oDataArray[ 7, oIndex ] - oDataArray[ 8, oIndex ] ;
  103.                 var5 = Close[1] ;
  104.        
  105.                 oIndex = oIndex - 1 ;
  106.                 if oIndex = -1
  107.                         then oIndex = MaxNumDays ;
  108.        
  109.                                     
  110.                 oDataArray[ 1, oIndex ] = Open ;
  111.                 oDataArray[ 2, oIndex ] = High ;
  112.                 oDataArray[ 3, oIndex ] = Low ;
  113.                                                                            
  114.                 oDataArray[ 5, oIndex ] = Ticks ;
  115.                                                                               
  116.                                                                               
  117.                                                                              
  118.                                                                               
  119.                 oDataArray[ 10, oIndex ] = var1 ;               
  120.                 oDataArray[ 11, oIndex ] = var1 ;               
  121.                 oDataArray[ 12, oIndex ] = var4 ;
  122.                 end
  123.         else if var4 > 0 then
  124.                 begin
  125.                 condition1 = High > oDataArray[ 2, oIndex ] ;
  126.                 if condition1 then
  127.                         begin
  128.                         oDataArray[ 2, oIndex ] = High ;
  129.                         oDataArray[ 10, oIndex ] = var1 ;
  130.                         end ;
  131.                 condition1 = Low < oDataArray[ 3, oIndex ] ;
  132.                 if condition1 then
  133.                         begin
  134.                         oDataArray[ 3, oIndex ] = Low ;
  135.                         oDataArray[ 11, oIndex ] = var1 ;
  136.                         end ;
  137.                 oDataArray[ 5, oIndex ] = oDataArray[ 5, oIndex ] + Ticks ;
  138.                 end ;
  139.         end ;

  141. RS_DailyDataArray = 1 ;
复制代码

收藏 分享
论坛官方微信、群（期货热点、量化探讨、开户与绑定实盘）
 
期货论坛 - 版权/免责声明   1.本站发布源码(包括函数、指标、策略等)均属开放源码，用意在于让使用者学习程序化语法撰写，使用者可以任意修改语法內容并调整参数。仅限用于个人学习使用，请勿转载、滥用，严禁私自连接实盘账户交易。
  2.本站发布资讯(包括文章、视频、历史记录、教材、评论、资讯、交易方案等)均系转载自网络主流媒体，内容仅为作者当日个人观点，本网转载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述。本网不对该类信息或数据做任何保证。不对您构成任何投资建议，不能依靠信息而取代自身独立判断，不对因使用本篇文章所诉信息或观点等导致的损失承担任何责任。
  3.本站发布资源(包括书籍、杂志、文档、软件等)均从互联网搜索而来，仅供个人免费交流学习，不可用作商业用途，本站不对显示的内容承担任何责任。请在下载后24小时内删除。如果喜欢，请购买正版，谢谢合作！
  4.龙听期货论坛原创文章属本网版权作品，转载须注明来源“龙听期货论坛”，违者本网将保留追究其相关法律责任的权力。本论坛除发布原创文章外，亦致力于优秀财经文章的交流分享，部分文章推送时若未能及时与原作者取得联系并涉及版权问题时，请及时联系删除。联系方式：http://www.qhlt.cn/thread-262-1-1.html
如何访问权限为100/255贴子：/thread-37840-1-1.html；注册后仍无法回复：/thread-23-1-1.html；微信/QQ群：/thread-262-1-1.html；网盘链接失效解决办法：/thread-93307-1-1.html

返回列表