Board logo

标题: 【线性回归直线(Linear Reg Line)】 [打印本页]
作者: 龙听    时间: 2022-11-3 14:00     标题: 【线性回归直线(Linear Reg Line)】

  1. inputs:
  2.         Length( 30 ),
  3.         EndDate_YYMMDD( 0 ),                                                
  4.                                                           
  5.         EndTime_HHMM( 0 ),                                                   
  6.         Color( Yellow ),
  7.         ExtRight( true ) ;

  9. variables:
  10.         var0( iff( EndDate_YYMMDD < 500000, EndDate_YYMMDD + 1000000,
  11.          EndDate_YYMMDD ) ),
  12.         var1( 0 ),
  13.         var2( 0 ),
  14.         var3( 0 ),
  15.         var4( 0 ) ;

  17. if var4 = 0 then

  19.                                                                            

  21.         begin
  22.         condition1 = var0 = 1000000 and LastBarOnChart ;
  23.         if condition1 then
  24.                 begin
  25.                 var1 = LinearRegValue( C, Length, 0 ) ;
  26.                 var2 = LinearRegValue( C, Length, Length - 1 ) ;
  27.                 var3 = TL_New( Date[ Length - 1 ], Time[ Length - 1 ], var2, Date, Time,
  28.                  var1 ) ;
  29.                 var4 = 1 ;
  30.                 end
  31.         else
  32.         begin
  33.         condition1 = Date = var0 and ( Time = EndTime_HHMM or EndTime_HHMM = 0 ) ;
  34.         if condition1 then
  35.                 begin
  36.                 var1 = LinearRegValue( C, Length, 0 ) ;
  37.                 var2 = LinearRegValue( C, Length, Length - 1 ) ;
  38.                 var3 = TL_New( Date[ Length - 1 ], Time[ Length - 1 ], var2, Date, Time,
  39.                  var1 ) ;
  40.                 var4 = 2 ;
  41.                 end ;
  42.         end;
  43.         condition1 = var4 = 1 or var4 = 2 ;
  44.         if condition1  then
  45.                 begin
  46.                 TL_SetColor( var3, Color ) ;
  47.                 TL_SetExtLeft( var3, false ) ;
  48.                 if ExtRight then
  49.                         TL_SetExtRight( var3, true )
  50.                 else
  51.                         TL_SetExtRight( var3, false ) ;
  52.                 end ;
  53.         end
  54. else if var4 = 1 then

  56.                                                                                     
  57.                                                                            

  59.         begin
  60.         var1 = LinearRegValue( C, Length, 0 ) ;
  61.         var2 = LinearRegValue( C, Length, Length - 1 ) ;
  62.         TL_SetBegin( var3, Date[ Length - 1 ], Time[ Length - 1 ], var2 ) ;
  63.         TL_SetEnd( var3, Date, Time, var1 ) ;
  64.         end ;
复制代码




欢迎光临 龙听期货论坛 (http://www.qhlt.cn/) Powered by Discuz! 7.2