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

---

作者: 龙听    时间: 2022-11-2 12:47     标题: 【RS_Extremes】

1. inputs:
   
2.         NumDays( numericsimple ),
   
3.         DataArray[ Twelve, MaxNumDays ]( numericarray ),
   
4.         Index( numericsimple ),
   
5.         oPrevHighest( numericref ),
   
6.         oPrevHighestDay( numericref ),
   
7.         oPrevLowest( numericref ),
   
8.         oPrevLowestDay( numericref ) ;
   
9. 
   
10. variables:
    
11.         var0( 0 ) ;
    
12. 
    
13. oPrevHighest = 0 ;
    
14. oPrevLowest = 1000000 ;
    
15. var0 = MaxNumDays + 1 ;
    
16. for Value1 = 1 to NumDays  
    
17.         begin
    
18.         Value2 = Mod( Index + Value1, var0 ) ;
    
19.         condition1 = DataArray[ 2, Value2 ] > oPrevHighest ;
    
20.         if condition1 then
    
21.                 begin
    
22.                 oPrevHighest = DataArray[ 2, Value2 ] ;
    
23.                 oPrevHighestDay = Value1 ;
    
24.                 end ;
    
25.         condition1 = DataArray[ 3, Value2 ] < oPrevLowest ;
    
26.         if condition1 then
    
27.                 begin
    
28.                 oPrevLowest = DataArray[ 3, Value2 ] ;
    
29.                 oPrevLowestDay = Value1 ;
    
30.                 end ;
    
31.         end ;
    
32. 
    
33. RS_Extremes = 1 ;

复制代码

---

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

Powered by Discuz! 7.2