相關標簽:同花順主圖指標公式 、 同花順大盤副圖公式 、 同花順副圖指標哪款好 、 同花順指標公式大全 、 同花順指標公式源碼 、 同花順分時指標公式 、 同花順買賣指標公式 、 同花順技術指標公式 、 同花順cdp指標公式 、 同花順指標公式下載 、 同花順ddx指標公式 、 同花順頂底指標 、 同花順macd指標公式 、 同花順obv指標公式 、 同花順選股指標公式 、

同花順巫山頂副圖指標源碼

原理解析：
OBV賦值:如果收盤價>1日前的收盤價,返回成交量(手),否則返回如果收盤價<1日前的收盤價,返回-成交量(手),否則返回0的歷史累和/100000 A1賦值:OBV-1日前的OBV A賦值:OBV的5日簡單移動平均 B賦值:1日前的A B5賦值:A1/B*10 C1賦值:(B5-1日前的B5)/1日前的B5 RSV2賦值:(收盤價-36日內最低價的最低值)/(36日內最高價的最高值-36日內最低價的最低值)*100 K賦值:RSV2的5日[1日權重]移動平均 D賦值:K的3日[1日權重]移動平均 PP賦值:上次最高價=20日內最高價的最高值距今天數 P2賦值:如果最高價=20日內最高價的最高值ORPP<3,返回1,否則返回0 P1賦值:上次C1上穿0.5距今天數 VAR13賦值:(最低價+最高價+收盤價)/3 CB賦值: VAR13的5日簡單移動平均 A5賦值: 20日內CB的最高值 A2賦值: 60日內CB的最高值 B1賦值: 20日內CB的最低值 B2賦值: 60日內最低價的最低值*1.02 A3賦值: 60日內最高價的最高值*0.98 輸出短頂:1日前的C1>0.5 AND C1<1日前的C1 AND 最高價>1日前的最高價 AND K>30 AND K>D, 畫紅色 TY賦值:如果C1<-8ORH/3日內最低價的最低值>1.5,返回1,否則返回0 輸出單陽背離:C1<0 AND C1=13日內C1的最低值 AND 收陽線AND TY=1,COLORF000F0 TU1賦值:如果(A5>1日前的A5ANDREF(A5,1)>2日前的A5)OR(1日前的A5<2日前的A5ANDREF(A5,2)<3日前的A5),返回1,否則返回0 TU賦值:如果(C1<0ANDREF(C1,1)>0ANDREF(C1,2)<0ANDCOUNT(收陽線,3)=3ANDL>1日前的最低價ANDREF(最低價,1)>2日前的最低價)OR(C1<0ANDC1<1日前的C1ANDREF(收盤價,1)>1日前的開盤價ANDREF(收盤價,2)>2日前的開盤價ANDREF(收盤價,3)>R,返回F(開盤價,3)ANDREF(最低價,1)>2日前的最低價ANDREF(最低價,2)>3日前的最低價),否則返回1 輸出三陽背離: TU=1 AND K>D AND TU1=1,畫黃色 輸出逃頂:K>80 AND K>D AND -0.5上穿C1 AND P1<5 AND P2=1,COLOR00FF00 輸出頂:K>80 AND D上穿K AND -0.5上穿C1 AND P1<5 AND P2=1,畫綠色 VAR11賦值:1日前的收盤價 VAR12賦值:收盤價-VAR11和0的較大值的6日[1日權重]移動平均/收盤價-VAR11的絕對值的6日[1日權重]移動平均*100 輸出賣出:如果80上穿VAR12,返回1.5,否則返回0,COLORFF0F00 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色

源碼：

OBV:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0)/100000;
a1:=OBV-REF(OBV,1);
a:=MA(OBV,5);
b:=REF(a,1);
b5:=a1/b*10;
c1:=(b5-REF(b5,1))/REF(b5,1);
RSV2:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36))*100;
K:=SMA(RSV2,5,1);
D:=SMA(K,3,1);
pp:=BARSLAST(H=HHV(H,20));
p2:=IF(H=HHV(H,20) OR pp<3,1,0);
p1:=BARSLAST(CROSS(c1,0.5));
Var13:=(LOW+HIGH+CLOSE)/3;
CB:= MA(Var13,5);
A5:= HHV(CB,20);
A2:= HHV(CB,60);
B1:= LLV(CB,20);
B2:= LLV(LOW,60)*1.02;
A3:= HHV(HIGH,60)*0.98;
短頂:REF(c1,1)>0.5 AND c1<REF(c1,1) AND H>REF(H,1) AND k>30 AND k>d, colorred;
ty:=IF(c1<-8 OR H/LLV(L,3)>1.5,1,0);
單陽背離:c1<0 AND c1=LLV(c1,13) AND C>O AND ty=1,colorf000f0;
tu1:=IF((a5>REF(a5,1) AND REF(a5,1)>REF(a5,2) )OR (REF(a5,1)<REF(a5,2) AND REF(a5,2)<REF(a5,3)),1,0);
tu:=IF((c1<0 AND REF(c1,1)>0 AND REF (c1,2)<0 AND COUNT(C>O,3)=3 AND L>REF(L,1) AND REF(L,1)>REF(L,2) ) OR (c1<0 AND c1<REF(c1,1)
AND REF(C,1)>REF(O,1) AND REF(C,2)>REF(O,2) AND REF(C,3)>REF(O,3) AND REF(L,1)>REF(L,2) AND REF(L,2)>REF(L,3)),1,0);
三陽背離: tu=1 AND k>d AND tu1=1,coloryellow;
逃頂:k>80 AND k>d AND CROSS(-0.5,c1) AND p1<5 AND p2=1,color00ff00;
頂:k>80 AND CROSS(d,k) AND CROSS(-0.5,c1) AND p1<5 AND p2=1,colorgreen;
Var11:=REF(CLOSE,1);
Var12:=SMA(MAX(CLOSE-Var11,0),6,1)/SMA(ABS(CLOSE-Var11),6,1)*100;
賣出:IF( CROSS(80,Var12),1.5,0),colorff0f00;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】