Board logo

标题: 【Mov Avg Exp Ribbon】 [打印本页]

作者: 龙听    时间: 2022-11-3 11:44     标题: 【Mov Avg Exp Ribbon】

  1. inputs:
  2.         Price( Close ),
  3.         BaseLength( 10 ),
  4.         ArithOrGeom_1or2( 1 ),
  5.         IncrementOrMultiplier( 10 ),                                                     
  6.                                                     
  7.         FastColor( Yellow ),
  8.         SlowColor( Red ) ;

  9. variables:
  10.         var0( 0 ) ;

  11. arrays:
  12.         arr0[8]( 0 ),
  13.         arr1[8]( 0 ),
  14.         arr2[8]( 0 ),
  15.         arr3[8]( 0 ) ;

  16.                                                                                     
  17.                
  18. if CurrentBar = 1 then
  19.         begin
  20.         arr0[1] = BaseLength ;
  21.         arr1[1] = 2 / ( arr0[1] + 1 ) ;
  22.         arr2[1] = Price ;
  23.         arr3[1] = GradientColor( 1, 1, 8, FastColor, SlowColor ) ;
  24.         for var0 = 1 to 7
  25.                 begin
  26.                 if ArithOrGeom_1or2 = 1 then
  27.                         arr0[ var0 + 1 ] = arr0[var0] + IncrementOrMultiplier
  28.                 else
  29.                         arr0[ var0 + 1 ] = arr0[var0] * IncrementOrMultiplier ;
  30.                 arr1[ var0 + 1 ] = 2 / ( arr0[ var0 + 1 ] + 1 ) ;
  31.                 arr2[ var0 + 1 ] = Price ;
  32.                 arr3[ var0 + 1 ] = GradientColor( var0 + 1, 1, 8, FastColor,
  33.                  SlowColor ) ;
  34.                 end ;
  35.         end
  36. else
  37.                                                           
  38.         for var0 = 1 to 8
  39.                 begin
  40.                 arr2[var0] = arr2[var0][1] + arr1[var0] * ( Price -
  41.                  arr2[var0][1] ) ;
  42.                 end ;

  43.                        
  44. Plot1( arr2[1], "XMA1", arr3[1] ) ;
  45. Plot2( arr2[2], "XMA2", arr3[2] ) ;
  46. Plot3( arr2[3], "XMA3", arr3[3] ) ;
  47. Plot4( arr2[4], "XMA4", arr3[4] ) ;
  48. Plot5( arr2[5], "XMA5", arr3[5] ) ;
  49. Plot6( arr2[6], "XMA6", arr3[6] ) ;
  50. Plot7( arr2[7], "XMA7", arr3[7] ) ;
  51. Plot8( arr2[8], "XMA8", arr3[8] ) ;
复制代码





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