相對(duì)能量支撐公式源碼[通達(dá)信公式]

原理解析：

輸出乖離率:(收盤(pán)價(jià)-收盤(pán)價(jià)的12日簡(jiǎn)單移動(dòng)平均)/收盤(pán)價(jià)的12日簡(jiǎn)單移動(dòng)平均*100
OBV賦值:BIAS
P賦值:5
A1賦值:P日前的OBV=2*P+1日內(nèi)OBV的最高值
B1賦值:A1的P日過(guò)濾
C1賦值:若B1則將最近P+1周期置為1
D1賦值:C1的P日過(guò)濾
A2賦值:P日前的OBV=2*P+1日內(nèi)OBV的最低值
B2賦值:A2的P日過(guò)濾
C2賦值:若B2則將最近P+1周期置為1
D2賦值:C2的P日過(guò)濾
輸出上:上次D1距今天數(shù)日前的OBV,COLORFF00FF,NODRAW
輸出下:上次D2距今天數(shù)日前的OBV,COLOR00FF00,NODRAW
輸出向上:OBV上穿上*1.01,NODRAW
相對(duì)能量賦值:(OBV-下)/(上-下)*100,畫(huà)黃色
R11賦值:若是否最后一個(gè)周期則將最近上次D1距今天數(shù)+1周期置為1
S11賦值:R11>1日前的R11
輸出壓力:當(dāng)滿(mǎn)足條件D1時(shí),在OBV位置畫(huà)直線(xiàn)起點(diǎn)，當(dāng)滿(mǎn)足條件S11時(shí),在OBV位置畫(huà)直線(xiàn)終點(diǎn),1表示是否延長(zhǎng).,畫(huà)黃色
T11賦值:若是否最后一個(gè)周期則將最近上次D2距今天數(shù)+1周期置為1
U11賦值:T11>1日前的T11
輸出支撐:當(dāng)滿(mǎn)足條件D2時(shí),在OBV位置畫(huà)直線(xiàn)起點(diǎn)，當(dāng)滿(mǎn)足條件U11時(shí),在OBV位置畫(huà)直線(xiàn)終點(diǎn),1表示是否延長(zhǎng).,畫(huà)綠色
輸出下軌:當(dāng)滿(mǎn)足條件收盤(pán)價(jià)>0時(shí),在下和下位置之間畫(huà)柱狀線(xiàn),寬度為1,0不為0則畫(huà)空心柱.,畫(huà)綠色
輸出上軌:當(dāng)滿(mǎn)足條件收盤(pán)價(jià)>0時(shí),在上和上位置之間畫(huà)柱狀線(xiàn),寬度為1,0不為0則畫(huà)空心柱.,畫(huà)洋紅色
當(dāng)滿(mǎn)足條件OBV上穿上*1.01時(shí),在上位置書(shū)寫(xiě)文字,畫(huà)黃色
當(dāng)滿(mǎn)足條件下*0.99上穿OBV時(shí),在下位置書(shū)寫(xiě)文字,畫(huà)黃色
當(dāng)滿(mǎn)足條件D1時(shí),在OBV位置畫(huà)1號(hào)圖標(biāo)
當(dāng)滿(mǎn)足條件D2時(shí),在OBV位置畫(huà)2號(hào)圖標(biāo)
當(dāng)滿(mǎn)足條件收陽(yáng)線(xiàn)時(shí),在橫軸0.01縱軸0.9位置書(shū)寫(xiě)文字,畫(huà)紅色
當(dāng)滿(mǎn)足條件收陽(yáng)線(xiàn)時(shí),在橫軸1縱軸1位置書(shū)寫(xiě)文字,畫(huà)紅色
 

源碼:

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);{高點(diǎn)}
A2:=REF(OBV,P)=LLV(OBV,2*P+1);
B2:=FILTER(A2,P);
C2:=BACKSET(B2,P+1);
D2:=FILTER(C2,P);{低點(diǎn)}
上:REF(OBV,BARSLAST(D1)),COLORFF00FF,NODRAW;
下:REF(OBV,BARSLAST(D2)),COLOR00FF00,NODRAW;
向上:CROSS(OBV,上*1.01),NODRAW;
相對(duì)能量:=(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;