Board logo

标题: 【Rate of Chg】 [打印本页]
作者: 龙听    时间: 2022-11-3 13:11     标题: 【Rate of Chg】

  1. inputs:
  2.         Price( Close ),
  3.         ROCLength( 14 ),
  4.         AlertLength( 14 ),
  5.         ColorNormLength( 14 ),                                                      
  6.                                                                                      
  7.         UpColor( Cyan ),                                                            
  8.                                      
  9.         DnColor( Magenta ),                                                            
  10.                                      
  11.         GridForegroundColor( Black ) ;      
  12. variables:
  13.         var0( 0 ),
  14.         var1( 0 ),
  15.         var2( 0 ) ;

  17. if CurrentBar = 1 then
  18.         var0 = GetAppInfo( aiApplicationType ) ;

  20. var1 = RateofChange( Price, ROCLength ) ;
  21.        
  22. Plot1( var1, "ROC" ) ;
  23. Plot2( 0, "ZeroLine" ) ;

  25. condition1 = UpColor >= 0 and DnColor >= 0 ;
  26. if condition1 then
  27.         begin
  28.         var2 = NormGradientColor( var1, true, ColorNormLength, UpColor, DnColor ) ;
  29.         if var0 = 1 then                                
  30.                 SetPlotColor( 1, var2 )
  31.         else if var0 > 1 then                                 
  32.                 begin
  33.                 SetPlotColor( 1, GridForegroundColor ) ;
  34.                 SetPlotBGColor( 1, var2 ) ;
  35.                 end ;
  36.         end ;

  38. condition1 = HighestBar( var1, AlertLength ) = 0 ;                  
  39. if condition1 then
  40.         Alert( "Indicator at high" )
  41. else
  42. begin
  43. condition1 = LowestBar( var1, AlertLength ) = 0 ;
  44. if condition1 then
  45.         Alert( "Indicator at low" ) ;
  46. end;
复制代码




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