相對能量支撐公式源碼[通達信公式]

原理解析：

輸出乖離率:(收盤價-收盤價的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.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;