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

---

作者: 龙听    时间: 2022-11-2 11:17     标题: 【NthExtremes】

1. inputs:
   
2.         PriceValue( numericseries ),
   
3.         Len( numericsimple ),
   
4.         N ( numericsimple ),                    
   
5.         HiLo( numericsimple ),                                                         
   
6.         oExtremeVal( numericref ),
   
7.         oExtremeBar( numericref ) ;
   
8. 
   
9. arrays:
   
10.         arr0[ 2, 100 ]( 0 ) ;                              
    
11. 
    
12. condition1 = N > Len or Len > 100 ;
    
13. if condition1 then
    
14.         begin
    
15.         oExtremeVal = 0 ;
    
16.         oExtremeBar = -1 ;
    
17.         NthExtremes = -1 ;
    
18.         end
    
19. else
    
20.         begin
    
21.                                                                                        
    
22.                                                                    
    
23.         for Value1 = 1 to Len
    
24.                 begin
    
25.                 arr0[ 1, Value1 ] = PriceValue[ Value1 - 1 ] ;
    
26.                 arr0[ 2, Value1 ] = Value1 - 1 ;
    
27.                 end ;
    
28.                                                                                           
    
29.                                                                       
    
30.         Value1 = Sort2DArray( arr0, 2, Len, HiLo ) ;
    
31. 
    
32.         oExtremeVal = arr0[ 1, N ] ;
    
33.         oExtremeBar = arr0[ 2, N ] + ExecOffset ;
    
34.         NthExtremes = 1 ;
    
35.         end ;

复制代码

---

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

Powered by Discuz! 7.2