相对能量支撑公式源码[通达信公式]

原理解析：

输出乖离率:(收盘价-收盘价的12日简单移动平均)/收盘价的12日简单移动平均*100
OBV赋值:BIAS
P赋值:5
A1赋值:P日前的OBV=2*P+1日内OBV的最高值
B1赋值:A1的P日过滤
C1赋值:若B1则将最近P+1周期置为1
D1赋值:C1的P日过滤
A2赋值:P日前的OBV=2*P+1日内OBV的最低值
B2赋值:A2的P日过滤
C2赋值:若B2则将最近P+1周期置为1
D2赋值:C2的P日过滤
输出上:上次D1距今天数日前的OBV,COLORFF00FF,NODRAW
输出下:上次D2距今天数日前的OBV,COLOR00FF00,NODRAW
输出向上:OBV上穿上*1.01,NODRAW
相对能量赋值:(OBV-下)/(上-下)*100,画黄色
R11赋值:若是否最后一个周期则将最近上次D1距今天数+1周期置为1
S11赋值:R11>1日前的R11
输出压力:当满足条件D1时,在OBV位置画直线起点，当满足条件S11时,在OBV位置画直线终点,1表示是否延长.,画黄色
T11赋值:若是否最后一个周期则将最近上次D2距今天数+1周期置为1
U11赋值:T11>1日前的T11
输出支撑:当满足条件D2时,在OBV位置画直线起点，当满足条件U11时,在OBV位置画直线终点,1表示是否延长.,画绿色
输出下轨:当满足条件收盘价>0时,在下和下位置之间画柱状线,宽度为1,0不为0则画空心柱.,画绿色
输出上轨:当满足条件收盘价>0时,在上和上位置之间画柱状线,宽度为1,0不为0则画空心柱.,画洋红色
当满足条件OBV上穿上*1.01时,在上位置书写文字,画黄色
当满足条件下*0.99上穿OBV时,在下位置书写文字,画黄色
当满足条件D1时,在OBV位置画1号图标
当满足条件D2时,在OBV位置画2号图标
当满足条件收阳线时,在横轴0.01纵轴0.9位置书写文字,画红色
当满足条件收阳线时,在横轴1纵轴1位置书写文字,画红色
 

源码:

BIAS:(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
OBV:=BIAS;
P:=5;
A1:=REF(OBV,P)=HHV(OBV,2*P+1);
B1:=FILTER(A1,P);
C1:=BACKSET(B1,P+1);
D1:=FILTER(C1,P);{高点}
A2:=REF(OBV,P)=LLV(OBV,2*P+1);
B2:=FILTER(A2,P);
C2:=BACKSET(B2,P+1);
D2:=FILTER(C2,P);{低点}
上:REF(OBV,BARSLAST(D1)),COLORFF00FF,NODRAW;
下:REF(OBV,BARSLAST(D2)),COLOR00FF00,NODRAW;
向上:CROSS(OBV,上*1.01),NODRAW;
相对能量:=(OBV-下)/(上-下)*100,COLORYELLOW;
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
S11:=R11>REF(R11,1);
压力:DRAWLINE(D1,OBV,S11,OBV,1),COLORYELLOW;
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
U11:=T11>REF(T11,1);
支撑:DRAWLINE(D2,OBV,U11,OBV,1),COLORGREEN;
下轨:STICKLINE(C>0,下,下,1,0),COLORGREEN;
上轨:STICKLINE(C>0,上,上,1,0),COLORMAGENTA;
DRAWTEXT(CROSS(OBV,上*1.01),上,'上'),COLORYELLOW;
DRAWTEXT(CROSS(下*0.99,OBV),下,'下'),COLORYELLOW;
DRAWICON(D1,OBV,1);
DRAWICON(D2,OBV,2);DRAWTEXT_FIX(C>O,0.01,0.9,0,' WWW.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;