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

【ParabolicSAR】

龙听

Rank: 9Rank: 9Rank: 9

UID
2 
积分
2737084 
威望
1318538 布 
龙e币
1418546 刀 
注册时间
2009-12-3 
最后登录
2024-5-20 

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

【ParabolicSAR】

  1. inputs:
  2.         AfStep( numericsimple ),                                                   
  3.         AfLimit( numericsimple ),                                                   
  4.         oParCl( numericref ),                                                            
  5.         oParOp( numericref ),                              
  6.         oPosition( numericref ),                                          
  7.         oTransition( numericref ) ;                                                      

  9. variables:
  10.         var0( 0 ),
  11.         var1( 0 ),
  12.         var2( 0 ) ;

  14. if CurrentBar = 1 then
  15.         begin
  16.         oParOp = High ;
  17.         oPosition = -1 ;
  18.         var0 = High ;
  19.         var1 = Low ;
  20.         end ;

  22. oTransition = 0 ;
  23. if High > var0 then var0 = High ;
  24.                                                                         
  25. if Low  < var1 then var1 = Low ;
  26.                                                                       

  28. if oPosition = 1 then
  29.                                                                      
  30.         begin
  31.         if Low <= oParOp then
  32.                                                                                  
  33.                 begin
  34.                 oPosition = -1 ;
  35.                 oTransition = -1 ;
  36.                                                                                           
  37.                 oParCl = var0 ;
  38.                                                                      
  39.                 var0 = High ;
  40.                                                                                
  41.                 var1  = Low ;
  42.                                                                               
  43.                 var2 = AfStep ;
  44.                                                        
  45.                 oParOp = oParCl + var2 * ( var1 - oParCl ) ;
  46.                                                                                
  47.                 if oParOp < High    then oParOp = High ;
  48.                                                                                     
  49.                 if oParOp < High[1] then oParOp = High[1] ;
  50.                                                              
  51.                 end
  52.         else
  53.                                                                             
  54.                 begin
  55.                 oParCl = oParOp ;
  56.                                           
  57.                 condition1 = var0 > var0[1] and var2 < AfLimit ;
  58.                 if condition1 then
  59.                                                                                      
  60.                         var2 = MinList( var2 + AfStep, AfLimit ) ;
  61.                                                          
  62.                 oParOp = oParCl + var2 * ( var0 - oParCl ) ;
  63.                                                                       
  64.                 if oParOp > Low    then oParOp = Low ;
  65.                                                                                   
  66.                 if oParOp > Low[1] then oParOp = Low[1] ;
  67.                                                              
  68.                 end ;
  69.         end
  70. else
  71.                                                                       
  72.         begin
  73.         if High >= oParOp then
  74.                                                                                  
  75.                 begin
  76.                 oPosition = 1 ;
  77.                 oTransition = 1 ;
  78.                                                                                           
  79.                 oParCl = var1 ;
  80.                                                                      
  81.                 var0 = High ;
  82.                                                                                
  83.                 var1  = Low ;
  84.                                                                               
  85.                 var2 = AfStep ;
  86.                                                        
  87.                 oParOp = oParCl + var2 * ( var0 - oParCl ) ;
  88.                                                                                
  89.                 if oParOp > Low    then oParOp = Low ;
  90.                                                                                   
  91.                 if oParOp > Low[1] then oParOp = Low[1] ;
  92.                                                              
  93.                 end
  94.         else
  95.                                                                                
  96.                 begin
  97.                 oParCl = oParOp ;

  99.                 condition1 = var1 < var1[1] and var2 < AfLimit ;                                                                                                   
  100.                 if condition1 then
  101.                                                                                      
  102.                         var2 = MinList( var2 + AfStep, AfLimit ) ;
  103.                                                          
  104.                 oParOp = oParCl + var2 * ( var1 - oParCl ) ;
  105.                                                                       
  106.                 if oParOp < High    then oParOp = High ;
  107.                                                                                     
  108.                 if oParOp < High[1] then oParOp = High[1] ;
  109.                                                              
  110.                 end ;
  111.         end ;

  113. ParabolicSAR = 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

返回列表