K线变色

/* 精简版：主板涨停K线变色+阴阳K线判断 */

// 1. 一步识别主板（沪市60/深市00开头）
MARK ET := IF( STRL EFT(CODE,2)=‘60‘ OR STRLEFT(CODE,2)=‘00‘,‘主板‘,‘其他‘);

// 2. 识别ST股
IS_ST := IF(STRLEFT(ZQMC,2)=‘ST‘ OR STRLEFT(ZQMC,3)=‘*ST‘ OR STRLEFT(ZQMC,5)=‘XD*ST‘, TRUE ,FALSE);

// 3. 计算涨停幅度（主板非ST 10%，ST 5%）
RATE  := IF(MARKET=‘主板‘,IF(IS_ST=FALSE,1.1,1.05),9999);

// 4. 计算涨停价（精确到分）
MAX_P RICE  := REF(C,1) * RATE;
MAX_PRICE := ROUND(MAX_PRICE * 100) / 100;  // 用ROUND简化取整逻辑

// 5. 涨停K线标黄
STICK LINE (H>=MAX_PRICE,C,O,0,0),COLORY ELLO W;
STICKLINE(H>=MAX_PRICE,H,L,1,0),COLOR YELL OW;

// 6. 精准阴阳K线判断
IF(CLOSE> OPEN )
  RE TURN  "阳";
ELSE  IF(CLOSE<OPEN)
  RETURN "阴";
ELSE IF(OPEN>=CLOSE[1])
  RETURN "阳";
ELSE
  RETURN "阴";