龙听期货论坛 » 编程语言More>>|| » MC内置指标【Pre-built Indicators】 » 【线性回归直线(Linear Reg Line)】

龙听 发表于 2022-11-3 14:00

【线性回归直线(Linear Reg Line)】

[code]

inputs:
        Length( 30 ),
        EndDate_YYMMDD( 0 ),                                                
                                                          
        EndTime_HHMM( 0 ),                                                   
        Color( Yellow ),
        ExtRight( true ) ;

variables:
        var0( iff( EndDate_YYMMDD < 500000, EndDate_YYMMDD + 1000000,
         EndDate_YYMMDD ) ),
        var1( 0 ),
        var2( 0 ),
        var3( 0 ),
        var4( 0 ) ;

if var4 = 0 then

                                                                           

        begin
        condition1 = var0 = 1000000 and LastBarOnChart ;
        if condition1 then
                begin
                var1 = LinearRegValue( C, Length, 0 ) ;
                var2 = LinearRegValue( C, Length, Length - 1 ) ;
                var3 = TL_New( Date[ Length - 1 ], Time[ Length - 1 ], var2, Date, Time,
                 var1 ) ;
                var4 = 1 ;
                end
        else
        begin
        condition1 = Date = var0 and ( Time = EndTime_HHMM or EndTime_HHMM = 0 ) ;
        if condition1 then
                begin
                var1 = LinearRegValue( C, Length, 0 ) ;
                var2 = LinearRegValue( C, Length, Length - 1 ) ;
                var3 = TL_New( Date[ Length - 1 ], Time[ Length - 1 ], var2, Date, Time,
                 var1 ) ;
                var4 = 2 ;
                end ;
        end;
        condition1 = var4 = 1 or var4 = 2 ;
        if condition1  then
                begin
                TL_SetColor( var3, Color ) ;
                TL_SetExtLeft( var3, false ) ;
                if ExtRight then
                        TL_SetExtRight( var3, true )
                else
                        TL_SetExtRight( var3, false ) ;
                end ;
        end
else if var4 = 1 then

                                                                                    
                                                                           

        begin
        var1 = LinearRegValue( C, Length, 0 ) ;
        var2 = LinearRegValue( C, Length, Length - 1 ) ;
        TL_SetBegin( var3, Date[ Length - 1 ], Time[ Length - 1 ], var2 ) ;
        TL_SetEnd( var3, Date, Time, var1 ) ;
        end ;
[/code]

查看完整版本: 【线性回归直线(Linear Reg Line)】