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

---

作者: 龙听    时间: 2022-11-2 10:56     标题: 【Median】

1. inputs: PriceValue( numericseries ), Len( numericsimple ) ;
   
2. variables: var0( 0 ), var1( 0 ) ;
   
3. arrays:        arr0[1000]( 0 ) ;
   
4. 
   
5.                                                                
   
6. for Value1 = 1 to Len
   
7.         begin
   
8.         arr0[Value1] = PriceValue[ Value1 - 1 ] ;
   
9.         end ;
   
10.                                       
    
11. Value1 = SortArray( arr0, Len, 1 ) ;
    
12. 
    
13. var0 = Len * .5 ;
    
14. var1 = IntPortion( var0 + 1 ) ;
    
15. if FracPortion( var0 ) = 0 then
    
16.         Median = ( arr0[var0] + arr0[ var0 + 1 ] ) * .5
    
17. else
    
18.         Median = arr0[ var1 ] ;

复制代码

---

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

Powered by Discuz! 7.2