获利纵横牛熊天数 通达信基本位移副图指标公式 源码

获利纵横牛熊天数 通达信基本位移副图指标公式 源码

指标源码：

{基本位移}
CYC∞:=CYC.CYC∞,COLORFF9900;
CYS∞:(CLOSE-CYC∞)/CYC∞*100,COLORRED,CIRCLEDOT;
成本谷:REF(CYC∞,BARSLAST(CYS∞<=0)-1),LINETHICK0,COLORRED;
负成本谷:=REF(CYC∞,BARSLAST(CYS∞>0)-1);
基础位移1:=100*(CLOSE-成本谷)/成本谷;
负基础位移1:=100*(CLOSE-负成本谷)/负成本谷;
基础位移:IF(CYS∞>=0,基础位移1,负基础位移1),COLORYELLOW;
牛天数:=BARSLAST(CROSS(CYS∞,0))+1;
熊天数:=(-1)*BARSLAST(CROSS(0,CYS∞))-1;
牛熊天数:IF(CYS∞>0,牛天数,熊天数),NODRAW,COLORMAGENTA;
STICKLINE(CROSS(CYS∞,0),10,0,2,0),COLORRED;
STICKLINE(CROSS(0,CYS∞),10,0,2,0),COLORBLUE;
【获利】:WINNER(CLOSE)*100,COLORYELLOW,NODRAW;
【活筹】:(WINNER(C*1.075)-WINNER(C*0.925))*100,COLORFFFFFF,NODRAW;
【获利纵横】:【获利】-【活筹】,NODRAW;
IF(【获利纵横】<=50,【获利纵横】,DRAWNULL),COLORGREEN,NODRAW;
IF(【获利纵横】>50,【获利纵横】,DRAWNULL),COLORRED,NODRAW;
【换手率】:VOL/CAPITAL*100,COLORWHITE,NODRAW;
【涨跌】:CLOSE-REF(C,1),COLORWHITE,NODRAW;
【涨跌幅】:(C-REF(C,1))/REF(C,1)*100,COLORWHITE,NODRAW;
DRAWTEXT_FIX(C>0,0,0,0,'【成本谷单位】：元'),COLORWHITE;
DRAWTEXT_FIX(C>0,0,0.08,0,'【基础位移单位】：百分数“%”'),COLORWHITE;


指标图示：