【Stochastic】

1. inputs:
   
2.         PriceValueH( numericseries ),  
   
3.         PriceValueL( numericseries ),
   
4.         PriceValueC( numericseries ),
   
5.         StochLen( numericsimple ),
   
6.         Len1( numericsimple ),                                                         
   
7.                                  
   
8.         Len2( numericsimple ),                                                         
   
9.                          
   
10.         SmoothingType( numericsimple ),                                                   
    
11.                                      
    
12.         oFastK( numericref ),
    
13.         oFastD( numericref ),
    
14.         oSlowK( numericref ),
    
15.         oSlowD( numericref ) ;
    
16. 
    
17. variables:
    
18.         var0( 0 ),               
    
19.         var1( 0 ),                 
    
20.         var2( 0 ),               
    
21.         var3( 0 ),                  
    
22.         var4( 0 ),               
    
23.         var5( 0 ),                  
    
24.         var6( 0 ),
    
25.         var7( 0 ) ;
    
26. 
    
27. Stochastic = 1 ;
    
28. 
    
29. var0 = Lowest( PriceValueL, StochLen ) ;
    
30. var1 = Highest( PriceValueH, StochLen ) ;
    
31. var2 = PriceValueC - var0 ;
    
32. var3 = var1 - var0 ;
    
33. 
    
34. if var3 > 0 then
    
35.         oFastK = var2 / var3 * 100
    
36. else
    
37.         begin
    
38.         oFastK = 0 ;
    
39.         Stochastic = -1 ;
    
40.         end ;
    
41. 
    
42. if SmoothingType = 1 then            
    
43.         begin
    
44.         var6 = Len1 - CurrentBar ;
    
45.         condition1 = var6 > 0 and CurrentBar > 0;
    
46.         if condition1 then
    
47.                 begin
    
48.                                                                                           
    
49.                 var4 = ( Cum( var2 ) + var6 * var2[ CurrentBar - 1 ] ) / Len1 ;
    
50.                 var5 = ( Cum( var3 ) + var6 * var3[ CurrentBar - 1 ] ) / Len1 ;
    
51.                 end
    
52.         else
    
53.                 begin
    
54.                 var4 = Average( var2, Len1 ) ;
    
55.                 var5 = Average( var3, Len1 ) ;
    
56.                 end ;
    
57.         if var5 > 0 then
    
58.                 oFastD = var4 / var5 * 100
    
59.         else
    
60.                 begin
    
61.                 oFastD = 0 ;
    
62.                 Stochastic = -1 ;
    
63.                 end ;
    
64.         var7 = Len2 - CurrentBar ;
    
65.         condition1 = var7 > 0 and CurrentBar > 0 ;
    
66.         if condition1 then
    
67.                                                                                           
    
68.                 oSlowD = ( Cum( oFastD ) + var7 * oFastD[ CurrentBar - 1 ] ) / Len2
    
69.         else
    
70.                 oSlowD = Average( oFastD, Len2 ) ;
    
71.         end
    
72. else if SmoothingType = 2 then           
    
73.         begin
    
74.         oFastD = XAverage( oFastK, Len1 ) ;
    
75.         oSlowD = XAverageOrig( oFastD, Len2 ) ;
    
76.         end ;
    
77. 
    
78. oSlowK = oFastD ;

复制代码