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

【TrendLines Automatic】

龙听

Rank: 9Rank: 9Rank: 9

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

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

【TrendLines Automatic】

  1. inputs:
  2.         SwHiStrength( 4 ),
  3.         SwLoStrength( 4 ),
  4.         BarsPast( 10 ),
  5.         History( "Yes" ),
  6.         DnTLColor( Red ),
  7.         UpTLColor( Cyan ),
  8.         AlertType( "IntraBar" ) ;

  10. variables:
  11.         var0( -1 ),
  12.         var1( 0 ),
  13.         var2( false ),
  14.         var3( DnTLColor ),

  16.         var4( -1 ),
  17.         var5( 0 ),
  18.         var6( false ),
  19.         var7( UpTLColor ),

  21.         var8( 0 ),
  22.         var9( 0 ),
  23.         var10( false ),
  24.         var11( UpperStr( AlertType ) ) ;

  26. arrays:
  27.         arr0[10]( 0 ),
  28.         arr1[10]( 0 ),
  29.         arr2[10]( -1000000 ),
  30.         arr3[10]( 0 ),
  31.         arr4[10]( 0 ),
  32.         arr5[10]( 1000000 ) ;

  34. if CurrentBar = 1 then
  35.         var10 = UpperStr( History ) = "YES" or UpperStr( History ) = "Y" ;
  36.                                                                 

  38. var9 = CurrentBar;

  40. condition1 = SwingHighBar( 1, High, SwHiStrength, SwHiStrength + 1 ) = SwHiStrength ;
  41. if condition1 then
  42.                               
  43.         begin

  45.                             
  46.         for Value1 = 9 downto 0
  47.                 begin
  48.                 arr0[ Value1 + 1 ] = arr0[Value1] ;
  49.                 arr1[ Value1 + 1 ] = arr1[Value1] ;
  50.                 arr2[ Value1 + 1 ] = arr2[Value1] ;
  51.                 end ;

  53.                                                                    
  54.         arr0[0] = Date[SwHiStrength] ;
  55.         arr1[0] = Time[SwHiStrength] ;
  56.         arr2[0] = High[SwHiStrength] ;

  58.                                                                                     
  59.         for Value2 = 1 to 10
  60.                 begin
  61.                 if arr2[Value2] > arr2[0] then
  62.                         begin
  63.                         var8 = Value2 ;
  64.                         Value2 = 11 ;                                                         
  65.                                                            
  66.                         end ;
  67.                 end ;

  69.         if Value2 = 12 then                                               
  70.                 begin
  71.                 if var0 >= 0 then                                 
  72.                         begin
  73.                         condition1 = var10 and var2 = false ;
  74.                         if condition1 then
  75.                                                                                              
  76.                                                              
  77.                                 begin
  78.                                 TL_SetEnd( var0, Date, Time, TL_GetValue( var0, Date, Time ) ) ;
  79.                                 TL_SetExtRight( var0, false ) ;
  80.                                 end
  81.                         else if var10 = false then
  82.                                                                                
  83.                                 TL_Delete( var0 ) ;
  84.                         end ;
  85.                                                                                          
  86.                 var0 = TL_New( arr0[var8], arr1[var8], arr2[var8],
  87.                  arr0[0], arr1[0], arr2[0] ) ;
  88.                 if var2 = true then
  89.                         var2 = false ;
  90.                 var1 = var9 - SwHiStrength ;
  91.                 TL_SetExtLeft( var0, false ) ;
  92.                 TL_SetExtRight( var0, true ) ;
  93.                 if var3 <> 99 then
  94.                         TL_SetColor( var0, var3 ) ;
  95.                 if var11 = "ONCLOSE" then
  96.                         TL_SetAlert( var0, 2 )
  97.                 else if var11 = "INTRABAR" then
  98.                         TL_SetAlert( var0, 1 )
  99.                 else
  100.                         TL_SetAlert( var0, 0 ) ;
  101.                 end ;
  102.         end ;

  104. condition1 = SwingLowBar( 1, Low, SwLoStrength, SwLoStrength + 1 ) = SwLoStrength ;
  105. if condition1 then                              
  106.         begin                            
  107.         for Value1 = 9 downto 0
  108.                 begin
  109.                 arr3[Value1+1] = arr3[Value1] ;
  110.                 arr4[Value1+1] = arr4[Value1] ;
  111.                 arr5[Value1+1] = arr5[Value1] ;
  112.                 end ;

  114.                                                                    
  115.         arr3[0] = Date[SwLoStrength] ;
  116.         arr4[0] = Time[SwLoStrength] ;
  117.         arr5[0] = Low[SwLoStrength] ;

  119.                                                                                   
  120.         for Value2 = 1 to 10
  121.                 begin
  122.                 if arr5[Value2] < arr5[0] then
  123.                         begin
  124.                         var8 = Value2 ;
  125.                         Value2 = 11 ;                                                         
  126.                                                            
  127.                         end ;
  128.                 end ;

  130.         if Value2 = 12 then                                               
  131.                 begin
  132.                 if var4 >= 0 then                                
  133.                         begin
  134.                         condition1 = var10 and var6 = false ;
  135.                         if condition1 then                                                              
  136.                                 begin
  137.                                 TL_SetEnd( var4, Date, Time, TL_GetValue( var4, Date, Time ) ) ;
  138.                                 TL_SetExtRight( var4, false ) ;
  139.                                 end
  140.                         else if var10 = false then
  141.                                                                                
  142.                                 TL_Delete( var4 ) ;
  143.                         end ;
  144.                                                                                          
  145.                 var4 = TL_New( arr3[var8], arr4[var8], arr5[var8],
  146.                  arr3[0], arr4[0], arr5[0] ) ;
  147.                 if var6 = true then
  148.                         var6 = false ;
  149.                 var5 = var9 - SwLoStrength ;
  150.                 TL_SetExtLeft( var4, false ) ;
  151.                 TL_SetExtRight( var4, true ) ;
  152.                 if var7 <> 99 then
  153.                         TL_SetColor( var4, var7 ) ;
  154.                 if var11 = "ONCLOSE" then
  155.                         TL_SetAlert( var4, 2 )
  156.                 else if var11 = "INTRABAR" then
  157.                         TL_SetAlert( var4, 1 )
  158.                 else
  159.                         TL_SetAlert( var4, 0 ) ;
  160.                 end ;
  161.         end ;

  163.                                                                                     
  164.                                                                                     
  165.                   
  166. condition1 = var0 >= 0
  167.         and var2 = false
  168.         and var9 > var1 + SwHiStrength + BarsPast
  169.         and ( Close > TL_GetValue( var0, Date, Time ) )[BarsPast];

  171. if condition1
  172. then
  173.         begin
  174.         TL_SetEnd( var0, Date, Time, TL_GetValue( var0, Date, Time ) ) ;
  175.         TL_SetExtRight( var0, false ) ;
  176.         var2 = true ;
  177.         end ;

  179. condition1 = var4 >= 0
  180.         and var6 = false
  181.         and var9 > var5 + SwLoStrength + BarsPast
  182.         and ( Close < TL_GetValue( var4, Date, Time ) )[BarsPast];

  184. if condition1
  185. then
  186.         begin
  187.         TL_SetEnd( var4, Date, Time, TL_GetValue( var4, Date, Time ) ) ;
  188.         TL_SetExtRight( var4, false ) ;
  189.         var6 = true ;
  190.         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

返回列表