N1:=13;
N2:=34;
{情绪分量计算 和副图完全同源}
UPSTK:=IF(C>O,AMOUNT,0);
DNSTK:=IF(C<O,AMOUNT,0);
BREADTH:=SUM(UPSTK,N1)-SUM(DNSTK,N1);
CDELTA:=C-REF(C,1);
volDELTA:=V-REF(V,1);
PSY_DELTA:=CDELTA*VOLDELTA;
RS:=SMA(C,5,1)/SMA(REF(C,1),5,1);
SENT_DELTA:= BREADTH/1000000 + psy_DELTA/10000 + (RS-1)*100;
SENT_MA:=MA(SENT_DELTA,N1); {情绪中枢 黄线}
SENT_BASE:=MA(SENT_DELTA,N2);
{情绪极值}
SENT_HIGH:=HHV(SENT_DELTA,N2)*0.85;
SENT_LOW:=LLV(SENT_DELTA,N2)*0.85;
{背离条件，和副图一模一样}
PRICE_H:=HHV(C,N1);
SENT_H:=HHV(SENT_DELTA,N1);
BULL_DIV:= PRICE_H=REF(PRICE_H,1) AND SENT_H < REF(SENT_H,1) AND SENT_DELTA>0;{顶背离 贪婪衰竭}
BEAR_DIV:= LLV(C,N1)=REF(LLV(C,N1),1) AND HHV(SENT_DELTA,N1) > REF(HHV(SENT_DELTA,N1),1) AND SENT_DELTA<0;{底背离 恐慌衰竭}
{k线绘制}
STICKLINE(C>=O,C,O,2,1),COLORRED;
STICKLINE(C>=O,L,O,0,0),COLORRED;
STICKLINE(C>=O,C,H,0,0),COLORRED;
STICKLINE(C<O,C,O,2,1),COLORCYAN;
STICKLINE(C<O,L,C,0,0),COLORCYAN;
STICKLINE(C<O,C,H,0,0),COLORCYAN;
{归一映射，情绪差值映射到价格坐标}
SENT_NORM:= (SENT_DELTA - LLV(SENT_DELTA,N2))/(HHV(SENT_DELTA,N2)-LLV(SENT_DELTA,N2));
SENT_PRICE:= LLV(L,N2)+SENT_NORM*(HHV(H,N2)-LLV(L,N2));
情绪映射线:SENT_PRICE,COLORWHITE,DOTLINE;
{====新增：归一后的情绪中枢黄线====}
MA_NORM:=(SENT_MA - LLV(SENT_DELTA,N2))/(HHV(SENT_DELTA,N2)-LLV(SENT_DELTA,N2));
MA_PRICE:= LLV(L,N2)+MA_NORM*(HHV(H,N2)-LLV(L,N2));
情绪中枢:MA_PRICE,COLORYELLOW;
{情绪状态标记}
DRAWICON(BULL_DIV,H*1.015,2);{顶背离，向下箭头，价格上方}
DRAWICON(BEAR_DIV,L*0.985,1);{底背离，向上箭头，价格下方}
DRAWTEXT(BULL_DIV,H*1.03,'情绪顶衰'),COLORRED;
DRAWTEXT(BEAR_DIV,L*0.97,'情绪底衰'),COLORCYAN;
{情绪强弱切换标注（上穿/下穿情绪中枢）}
crOSS_UP:=CROSS(SENT_DELTA,SENT_MA);
CROSS_DN:=CROSS(SENT_MA,SENT_DELTA);
DRAWTEXT(CROSS_UP,L*0.97,'情绪转强'),COLORYELLOW;
DRAWTEXT(CROSS_DN,H*1.03,'情绪转弱'),COLORYELLOW;
