: | : | :期货量化学习 | :期货量化 |
返回列表 发帖

【PivotReversalGen】

Rank: 9Rank: 9Rank: 9

UID
2 
积分
2893117 
威望
1396590 布 
龙e币
1496527 刀 
在线时间
13326 小时 
注册时间
2009-12-3 
最后登录
2024-12-26 

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

【PivotReversalGen】

  1. inputs:
  2.         MinRStren( numericsimple ),
  3.         MaxRStren( numericsimple ),
  4.         LRFactor( numericsimple ),
  5.         HiLo( numericsimple ),                                                        
  6.                                  
  7.         DrawLines( truefalsesimple ),
  8.         LinesColor( numericsimple ),
  9.         oPivotPriceValue( numericref ),
  10.         oPivotRStren( numericref ),
  11.         oPivotLStren( numericref ) ;

  13. variables:
  14.         var0( 0 ),
  15.         var1( 0 ),
  16.         var2( 0 ),
  17.         var3( 0 ),
  18.         var4( 0 ),
  19.         var5( 0 ),
  20.         var6( 0 ),
  21.         var7( 0 ),
  22.         var8( 0 ),
  23.         var9( 0 ),
  24.         var10( 0 ) ;

  26. arrays:
  27.         arr0[ 1001, 4 ]( 0 ) ;
  28.                            
  29.                             
  30.                       
  31.                         

  33. if HiLo = 1 then
  34.         var0 = High
  35. else if HiLo = -1 then
  36.         var0 = Low ;

  38. var1 = CurrentBar ;
  39. var2 = 0 ;
  40. PivotReversalGen = 0 ;

  42. if var1 = 1 then
  43.         begin
  44.         arr0[ 1001, 1 ] = HiLo * 10000000 ;
  45.         arr0[ 1000, 1 ] = var0 ;
  46.         arr0[ 1000, 2 ] = 1 ;
  47.         arr0[ 1000, 3 ] = Date ;
  48.         arr0[ 1000, 4 ] = Time ;
  49.         var3 = 1000 ;
  50.         var4 = 1001 ;
  51.         end
  52. else for var5 = var3 to var4
  53.         begin
  54.         var6 = var5 + 1 ;
  55.         var7 = var5 - 1 ;
  56.         condition1 = Hilo * var0 > HiLo * arr0[ var5, 1 ] ;
  57.         if condition1 then
  58.                                                     
  59.                 begin
  60.                 var8 = var1 - arr0[ var5, 2 ] - 1 ;
  61.                 var9 = arr0[ var5, 2 ] - arr0[ var6, 2 ] - 1 ;
  62.                 condition1 = var8 >= MinRStren and var8 <= MaxRStren and IffLogic( LRFactor > 0,
  63.                  var9 > var8 * LRFactor, var9 >= MinRStren ) ;
  64.                 if condition1 then
  65.                         begin
  66.                         var2 = var2 + 1 ;
  67.                         if var2 = 1 then
  68.                                 begin
  69.                                 oPivotPriceValue = arr0[ var5, 1 ] ;
  70.                                 oPivotRStren = var8 ;
  71.                                 oPivotLStren = var9 ;
  72.                                 PivotReversalGen = 1 ;
  73.                                 end ;
  74.                         if DrawLines then
  75.                                 begin
  76.                                 var10 = TL_New( arr0[ var5, 3 ], arr0[ var5, 4 ], arr0[ var5,
  77.                                  1 ], Date, Time, arr0[ var5, 1 ] ) ;
  78.                                 TL_SetColor( var10, LinesColor ) ;
  79.                                 TL_SetExtLeft( var10, false ) ;
  80.                                 TL_SetExtRight( var10, false ) ;
  81.                                 end ;
  82.                         end ;
  83.                 end
  84.         else
  85.                 begin
  86.                 arr0[ var7, 1 ] = var0 ;
  87.                 arr0[ var7, 2 ] = var1 ;
  88.                 arr0[ var7, 3 ] = Date ;
  89.                 arr0[ var7, 4 ] = Time ;
  90.                 var3 = var7 ;
  91.                 var5 = var4 ;                                 
  92.                 end ;
  93.         end ;

  95.                                                                                     
  96.                               
  97. if false then
  98.         Value1 = PivotReversalGen[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

返回列表