Vars

  Series<Numeric> RefIndex(1);      // 基准K线位置序列

  Series<Bool> IsRefUp(false);      // 基准K线是否为阳线

  Numeric Offset;

  Numeric RefC;

  Numeric RefH;

  Numeric RefL;

  Numeric RefO;

  Bool Contained;

Begin

  // 初始化首根K线

  If (BarCount == 1)  

  {

      RefIndex = 1;

      IsRefUp = (Close > Open);

  };

  // 从第二根K线开始处理

  If (CurrentBar > 1)

  {

      // 仅在需要比较时处理

      If (CurrentBar > RefIndex)

      {

          Offset = CurrentBar - RefIndex;

          RefC = Close[Offset];   // 基准K线收盘价

          RefH = High[Offset];     // 基准K线最高价

          RefL = Low[Offset];      // 基准K线最低价

          RefO = Open[Offset];    // 基准K线开盘价

          // 判断包含关系

          If (IsRefUp )

              Contained = (High <= RefC) And (Low >= RefL);  // 阳线包含条件

          Else

              Contained = (High <= RefH) And (Low >= RefC);  // 阴线包含条件

          // 更新基准K线

          If (Not Contained)

          {

              RefIndex = CurrentBar;     // 更新基准位置为当前Bar

              IsRefUp = (Close > Open); // 记录新基准的阴阳属性

          };

      };

  };

 // 在有效K线位置显示图标

   If (CurrentBar == RefIndex)

   {

       If (IsRefUp)

           PlotIcon("Bull", High, 1, Yellow);  // 阳线显示黄色箭头

       Else

           PlotIcon("Bear", Low, 2, Cyan);    // 阴线显示青色箭头

    }

End