龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-1 13:10

【CovarArray】

[code]inputs:
        IndepArray[MaxSize1]( numericarray ),                           
        DepArray[MaxSize2]( numericarray ),                           
        Size( numericsimple) ;                                             

variables:
        var0( 0 ),
        var1( 0 ),
        var2( 0 ) ;

condition1 = Size > 0 and Size <= MaxSize1 and Size <= MaxSize2 ;
if condition1 then
                                                                              
                    
        begin
        var0 = AverageArray( IndepArray, Size ) ;
        var1 = AverageArray( DepArray, Size ) ;
        var2 = 0 ;
        for Value1 = 1 to Size
                begin
                var2 = var2 + ( IndepArray[Value1] - var0 ) * ( DepArray[Value1] -
                 var1 ) ;
                end ;
        CovarArray = var2 / Size ;
        end
else
        RaiseRunTimeError( "Check Size input to CovarArray func-see CovarArray code" ) ;
[/code]

页: [1]