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

【Head & Shoulders】

Rank: 9Rank: 9Rank: 9

UID
2 
积分
2874604 
威望
1387331 布 
龙e币
1487273 刀 
在线时间
13155 小时 
注册时间
2009-12-3 
最后登录
2024-11-24 

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

【Head & Shoulders】

  1. inputs:
  2.         NeckSwStrength( 2 ),
  3.         HnSSwStrength( 2 ),
  4.         VertProportionLimit( .33 ),                                             
  5.         HiLo( 1 ),                                             
  6.         ConfirmVolume( true ),
  7.         DrawNeckline( true ),                                                        
  8.                                   
  9.         BarsPast( 10 ),                                                                  
  10.                                                                 
  11.         Color1( Yellow ),
  12.         Color2( Cyan ) ;                                                                  
  13.                                                                                         
  14.                                                     

  16. variables:
  17.         var0( 0 ),
  18.         var1( 0 ),
  19.         var2( 0 ),
  20.         var3( NeckSwStrength + 1 ),
  21.         var4( HnSSwStrength + 1 ),
  22.         var5( 0 ),
  23.         var6( 0 ),
  24.         var7( HnSSwStrength * 2 ),
  25.         var8( false ),
  26.         var9( false ),
  27.         var10( false ),
  28.         var11( 0 ),
  29.         var12( 0 ),
  30.         var13( 0 ),
  31.         var14( false ),
  32.         var15( Color2 ),
  33.         var16( -1 ),
  34.         var17( -1 ),
  35.         var18( 0 ),
  36.         var19( "" ),
  37.         var20( 0 ),
  38.         var21( 0 ),
  39.         var22( -1 ) ;

  41. arrays:
  42.         arr0[ 1, 3 ]( 0 ),
  43.         arr1[ 2, 4 ]( 0 ) ;

  45. var0 = CurrentBar ;

  47. if HiLo = 1 then
  48.         begin
  49.         var1 = SwingLowBar( 1, Low, NeckSwStrength, var3 ) ;
  50.         var2 = SwingHighBar( 1, High, HnSSwStrength, var4 ) ;
  51.         var5 = Low ;
  52.         var6 = High ;
  53.         end
  54. else if HiLo = -1 then
  55.         begin
  56.         var1 = SwingHighBar( 1, High, NeckSwStrength, var3 ) ;
  57.         var2 = SwingLowBar( 1, Low, HnSSwStrength, var4 ) ;
  58.         var5 = High ;
  59.         var6 = Low ;
  60.         end ;

  62. if var1 = NeckSwStrength then
  63.                                    
  64.         begin

  66.                                      
  67.         arr0[ 1, 0 ] = arr0[ 0, 0 ] ;
  68.         arr0[ 1, 1 ] = arr0[ 0, 1 ] ;
  69.         arr0[ 1, 2 ] = arr0[ 0, 2 ] ;
  70.         arr0[ 1, 3 ] = arr0[ 0, 3 ] ;

  72.                                                                                   
  73.         arr0[ 0, 0 ] = var0[NeckSwStrength] ;
  74.         arr0[ 0, 1 ] = Date[NeckSwStrength] ;
  75.         arr0[ 0, 2 ] = Time[NeckSwStrength] ;
  76.         arr0[ 0, 3 ] = var5[NeckSwStrength] ;
  77.         end ;

  79. if var2 = HnSSwStrength then
  80.                                  
  81.         begin

  83.                                      
  84.         for Value1 = 1 downto 0
  85.                 begin
  86.                 arr1[ Value1 + 1, 0 ] = arr1[ Value1, 0 ] ;
  87.                 arr1[ Value1 + 1, 1 ] = arr1[ Value1, 1 ] ;
  88.                 arr1[ Value1 + 1, 2 ] = arr1[ Value1, 2 ] ;
  89.                 arr1[ Value1 + 1, 3 ] = arr1[ Value1, 3 ] ;
  90.                 arr1[ Value1 + 1, 4 ] = arr1[ Value1, 4 ] ;
  91.                 end ;

  93.                                                                                  
  94.         arr1[ 0, 0 ] = var0[HnSSwStrength] ;
  95.         arr1[ 0, 1 ] = Date[HnSSwStrength] ;
  96.         arr1[ 0, 2 ] = Time[HnSSwStrength] ;
  97.         arr1[ 0, 3 ] = var6[HnSSwStrength] ;
  98.         if BarType >= 2 and BarType < 5 then                              
  99.                 arr1[ 0, 4 ] = Average( Volume, var7 )
  100.         else                                                                              
  101.                                                                                         
  102.                 arr1[ 0, 4 ] = Average( Ticks, var7 ) ;

  104.                                        
  105.         var8 = arr1[ 0, 0 ] > arr0[ 0, 0 ]
  106.          and arr0[ 0, 0 ] > arr1[ 1, 0 ]
  107.          and arr1[ 1, 0 ] > arr0[ 1, 0 ]
  108.          and arr0[ 1, 0 ] > arr1[ 2, 0 ] ;
  109.         if HiLo = 1 then
  110.                 begin
  111.                 var9 = arr1[ 1, 3 ] > arr1[ 2, 3 ]
  112.                  and arr1[ 1, 3 ] > arr1[ 0, 3 ] ;
  113.                 var10 = arr0[0, 3] < arr1[2, 3]
  114.                  and arr0[ 1, 3 ] < arr1[ 0, 3 ] ;
  115.                 var11 = MinList( arr0[ 0, 3 ],  arr0[ 1, 3 ] ) ;
  116.                 var12 = arr1[ 1, 3 ] - var11 ;
  117.                 end
  118.         else if HiLo = -1 then
  119.                 begin
  120.                 var9 = arr1[ 1, 3 ] < arr1[ 2, 3 ]
  121.                  and arr1[ 1, 3 ] < arr1[ 0, 3 ] ;
  122.                 var10 = arr0[0, 3] > arr1[2, 3]
  123.                  and arr0[ 1, 3 ] > arr1[ 0, 3 ] ;
  124.                 var11 = MaxList( arr0[ 0, 3 ],  arr0[ 1, 3 ] ) ;
  125.                 var12 = var11 - arr1[ 1, 3 ] ;
  126.                 end ;
  127.         var13 = AbsValue( arr0[ 0, 3 ] - arr0[ 1, 3 ] ) ;
  128.         if var12 <> 0 then
  129.                 var14 = var13 / var12 < VertProportionLimit
  130.         else
  131.                 var14 = false ;

  133.         condition1 = var8 and var9 and var10 and var14 ;                 
  134.         if condition1 then
  135.                 begin

  137.                                              
  138.                 if var15 = Color2 then
  139.                         var15 = Color1
  140.                 else
  141.                         var15 = Color2 ;

  143.                                                                                     
  144.                 var16 = Text_New( arr1[ 0, 1 ], arr1[ 0, 2 ], arr1[ 0, 3 ],
  145.                  "Shoulder" ) ;
  146.                 Text_SetColor( var16, var15 ) ;
  147.                 Text_SetStyle( var16, 2, 0 ) ;
  148.                 var16 = Text_New( arr1[ 1, 1 ], arr1[ 1, 2 ], arr1[ 1, 3 ],
  149.                  "Head" ) ;
  150.                 Text_SetColor( var16, var15 ) ;
  151.                 Text_SetStyle( var16, 2, 0 ) ;
  152.                 var16 = Text_New( arr1[ 2, 1 ], arr1[ 2, 2 ], arr1[ 2, 3 ],
  153.                  "Shoulder" ) ;
  154.                 Text_SetColor( var16, var15 ) ;
  155.                 Text_SetStyle( var16, 2, 0 ) ;

  157.                 if ConfirmVolume then
  158.                                                                                                   
  159.                                                
  160.                         begin
  161.                         if BarType >= 2 and BarType < 5 then                              
  162.                                 var18 = Average( Volume, HnSSwStrength )
  163.                         else                                                                     
  164.                                                                                               
  165.                                             
  166.                                 var18 = Average( Ticks, HnSSwStrength ) ;
  167.                         if var18 > arr1[ 0, 4 ] and var18 >  arr1[ 2, 4 ] then
  168.                                                                                                  
  169.                                                                                          
  170.                                 var19 = "Volume confirm"
  171.                         else
  172.                                 var19 = "Vol non-confirm" ;
  173.                         var16 = Text_New( arr0[ 1, 1 ], arr0[ 1, 2 ], var11,
  174.                          var19 ) ;
  175.                         Text_SetColor( var16, var15 ) ;
  176.                         Text_SetStyle( var16, 0, 1 ) ;
  177.                         end ;

  179.                 if DrawNeckline then
  180.                                                                                                   
  181.                                                                     
  182.                         begin
  183.                         var17 = TL_New( arr0[ 1, 1 ], arr0[ 1, 2 ], arr0[ 1, 3 ],
  184.                          arr0[ 0, 1 ], arr0[ 0, 2 ], arr0[ 0, 3 ] ) ;
  185.                         TL_SetExtLeft( var17, false ) ;
  186.                         TL_SetExtRight( var17, false ) ;
  187.                         TL_SetColor( var17, var15 ) ;
  188.                         var20 = var0 ;
  189.                         end ;
  190.                 end ;
  191.         end ;

  193.                                                                                       
  194.                                                                                    
  195. condition1 = var17 >= 0 and var22 <> var17 and var0 - var20 <= BarsPast ;                                          
  196. if condition1 then
  197.         begin
  198.         var21 = TL_GetValue( var17, Date, Time ) ;
  199.         condition1 = ( HiLo = 1 and Close < var21 ) or ( HiLo = -1 and Close > var21 ) ;
  200.         if condition1 then
  201.                 begin
  202.                 Plot1( var5, "H&S", var15 ) ;
  203.                 Alert ;
  204.                 var22 = var17 ;
  205.                 end
  206.         else
  207.                 NoPlot( 1 ) ;                     
  208.         end ;
复制代码

收藏 分享
论坛官方微信、群（期货热点、量化探讨、开户与绑定实盘）
 
期货论坛 - 版权/免责声明   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

返回列表