基本位移通达信公式 副图 源码附图

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;

 

 

原理解析：
CYC∞赋值:CYC.CYC∞,COLORFF9900
输出CYS∞:(收盘价-CYC∞)/CYC∞*100,画红色,CIRCLEDOT
输出成本谷:REF(CYC∞,上次CYS∞<=0距今天数-1),LINETHICK0,画红色
负成本谷赋值:REF(CYC∞,上次CYS∞>0距今天数-1)
基础位移1赋值:100*(收盘价-成本谷)/成本谷
负基础位移1赋值:100*(收盘价-负成本谷)/负成本谷
如果CYS∞>=0返回基础位移1否则返回负基础位移1
牛天数赋值:上次CYS∞上穿0距今天数+1
熊天数赋值:(-1)*上次0上穿CYS∞距今天数-1
如果CYS∞>0返回牛天数否则返回熊天数
STICKLINE(CYS∞上穿0,10,0,2,0),画红色
STICKLINE(0上穿CYS∞,10,0,2,0), 画蓝色
输出【获利】:收盘价计算的获利盘比例*100,画黄色,NODRAW
输出【活筹】:(C*1.075计算的获利盘比例-WINNER(C*0.925))*100,COLORFFFFFF,NODRAW
输出【获利纵横】:【获利】-【活筹】,NODRAW
如果【获利纵横】<=50返回【获利纵横】否则返回DRAWNULL
如果【获利纵横】>50返回【获利纵横】否则返回DRAWNULL
输出【换手率】:成交量/当前流通股本*100,画白色,NODRAW
输出【涨跌】:收盘价-1日前的C,画白色,NODRAW
输出【涨跌幅】:(C-1日前的C)/1日前的C*100,画白色,NODRAW
当满足条件C>0时,在横轴0纵轴0位置书写文字
当满足条件C>0时,在横轴0纵轴0.08位置书写文字