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

【OHLCPeriodsAgo】

龙听

Rank: 9Rank: 9Rank: 9

UID
2 
积分
2738937 
威望
1319465 布 
龙e币
1419472 刀 
注册时间
2009-12-3 
最后登录
2024-5-23 

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

【OHLCPeriodsAgo】

  1. inputs:
  2.         PeriodType( numericsimple ),                                                
  3.                                  
  4.         PeriodsAgo( numericsimple ),
  5.         oPeriodOpen( numericref ),
  6.         oPeriodHigh( numericref ),
  7.         oPeriodLow( numericref ),
  8.         oPeriodClose( numericref ) ;

  10. variables:
  11.         var0( 0 ), sess_last_bar(false) ;

  13. arrays:
  14.         arr0[ 4, 50 ]( -1 ) ;

  16. sess_last_bar = sessionlastbar;
  17. condition1 = PeriodsAgo > 50 or BarType > IFF(PeriodType<>0, PeriodType + 1, PeriodType + 2) or BarType > 4 ;
  18. if condition1 then
  19.         begin
  20.         oPeriodOpen = -1 ;
  21.         oPeriodHigh = -1 ;
  22.         oPeriodLow = -1 ;
  23.         oPeriodClose = -1 ;
  24.         OHLCPeriodsAgo = -1 ;
  25.         end
  26. else
  27.         begin
  28.                                                                 
  29.         if PeriodType = 0 then
  30.                 Condition1 = sess_last_bar[1]
  31.         else if PeriodType = 1 then
  32.                 Condition1 = Date <> Date[1]
  33.         else if PeriodType = 2 then
  34.                 Condition1 = DayOfWeek( Date ) < DayOfWeek( Date[1] )
  35.         else if PeriodType = 3 then
  36.                 Condition1 = Month( Date ) <> Month( Date[1] )
  37.         else if PeriodType = 4 then
  38.                 Condition1 = Year( Date ) <> Year( Date[1] ) ;

  40.         condition1 = CurrentBar = 1 or Condition1 ;
  41.         if condition1 then                                         
  42.                 begin
  43.                 var0 = var0 - 1 ;                                                      
  44.                 if var0 = -1
  45.                         then var0 = 50 ;                                    
  46.                                                                                        
  47.                 arr0[ 1, var0 ] = O ;
  48.                 arr0[ 2, var0 ] = H ;
  49.                 arr0[ 3, var0 ] = L ;
  50.                 arr0[ 4, var0 ] = C ;
  51.                 end
  52.         else
  53.                                                                                     
  54.                                                        
  55.                 begin
  56.                 condition1 = H > arr0[ 2, var0 ] ;
  57.                 if condition1 then arr0[ 2, var0 ] = H ;
  58.                 condition1 = L < arr0[ 3, var0 ] ;
  59.                 if condition1 then arr0[ 3, var0 ] = L ;
  60.                 arr0[ 4, var0 ] = C ;
  61.                 end ;

  63.                                                                                         
  64.                          
  65.         oPeriodOpen = arr0[ 1, Mod( var0 + PeriodsAgo, 51 ) ] ;
  66.         oPeriodHigh = arr0[ 2, Mod( var0 + PeriodsAgo, 51 ) ] ;
  67.         oPeriodLow = arr0[ 3, Mod( var0 + PeriodsAgo, 51 ) ] ;
  68.         oPeriodClose = arr0[ 4, Mod( var0 + PeriodsAgo, 51 ) ] ;

  70.         OHLCPeriodsAgo = 1 ;
  71.         end ;

  73.                                                                                  
  74.                                                             
  75. if false then
  76.         Value1 = OHLCPeriodsAgo[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

返回列表