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

【三角收敛/突破(Pennant Brkout)】

龙听

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:36 | 只看该作者

【三角收敛/突破(Pennant Brkout)】

  1. inputs:
  2.         Length( 7 ),
  3.         MaxConsolIndex( 1.5 ),
  4.         BarsPast( 5 ),
  5.         DrawLines( true ),
  6.         DrawExtensions( true ),
  7.         Color1( Red ),
  8.         Color2( Magenta ) ;                                                            
  9.                                      

  11. variables:
  12.         var0( Length - 1 ),
  13.         var1( 0 ),
  14.         var2( 0 ),
  15.         var3( 0 ),
  16.         var4( 0 ),
  17.         var5( Color2 ),
  18.         var6( 0 ),
  19.         var7( 0 ) ;

  21. Value1 = Pennant( Length, MaxConsolIndex, BarsPast, var1, var2,
  22. var3, var4 ) ;

  24. if Value1 = 1 then
  25.         begin
  26.                                      
  27.         if var5 = Color2 then
  28.                 var5 = Color1
  29.         else
  30.                 var5 = Color2 ;
  31.         if DrawLines then
  32.                 begin
  33.                 var6 = TL_New( Date[var0], Time[var0], var1, Date,
  34.                  Time, var2 ) ;
  35.                 TL_SetExtLeft( var6, false ) ;
  36.                 TL_SetExtRight( var6, false ) ;
  37.                 TL_SetColor( var6, var5 ) ;
  38.                 var7 = TL_New( Date[var0], Time[var0], var3, Date,
  39.                  Time, var4 ) ;
  40.                 TL_SetExtLeft( var7, false ) ;
  41.                 TL_SetExtRight( var7, false ) ;
  42.                 TL_SetColor( var7, var5 ) ;
  43.                 end ;
  44.         end
  45. else
  46. begin
  47. condition1 = Value1 = 2 or Value1 = 3 ;
  48. if condition1 then
  49.         begin
  50.         if DrawLines then
  51.                 begin
  52.                 TL_SetSize( var6, 2 ) ;
  53.                 TL_SetSize( var7, 2 ) ;
  54.                 end ;
  55.         if Value1 = 2 then
  56.                 Plot1( High, "PenBrkoutUp" )
  57.         else if Value1 = 3 then
  58.                 Plot2( Low, "PenBrkoutDn" ) ;
  59.         end ;
  60. end;
  61. if DrawExtensions then
  62.         begin
  63.         if var2 > 0 then
  64.                 Plot3( var2, "HiExt", var5 ) ;
  65.         if var4 > 0 then
  66.                 Plot4( var4, "LoExt", var5 ) ;
  67.         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

返回列表