标题: 【Extremes】 [打印本页]

---

作者: 龙听    时间: 2022-11-1 13:38     标题: 【Extremes】

1. inputs:
   
2.         PriceValue( numericseries ),
   
3.         Len( numericsimple ),
   
4.         HiLo( numericsimple ),                                                   
   
5.         oExtremeVal( numericref ),
   
6.         oExtremeBar( numericref ) ;
   
7. 
   
8. variables:
   
9.         var0( 0 ),
   
10.         var1( 0 ) ;
    
11. 
    
12. var0 = PriceValue ;
    
13. var1 = 0 ;
    
14. 
    
15. for Value1 = 1 to Len - 1
    
16.         begin
    
17.         condition1 = ( HiLo = 1 and PriceValue[Value1] > var0 )
    
18.                 or ( HiLo = -1 and PriceValue[Value1] < var0 ) ;
    
19.         if condition1
    
20.         then
    
21.                 begin
    
22.                 var0 = PriceValue[Value1] ;
    
23.                 var1 = Value1 ;
    
24.                 end ;
    
25.         end ;
    
26. 
    
27. oExtremeVal = var0 ;
    
28. oExtremeBar = var1 + ExecOffset ;
    
29. 
    
30. Extremes = 1 ;

复制代码

---

欢迎光临 龙听期货论坛 (http://www.qhlt.cn/)

Powered by Discuz! 7.2