通达信改版周期指标公式

妹子不错57 发表于 2023-11-1 20:10:32

<div class="stock-fc-code-box">

13; 50; 60; {1日cci} P:=(HIGH + LOW + CLOSE)/3; CCI日:=(P-MA(P,14))*100/(1.5*AVEDEV(P,14)),COLORWHITE,LINETHICK1; CCI3日均:=MA(CCI日,3),COLOREF03CC,LINETHICK1; DRAWICON(CCI3日均>=REF(CCI3日均,1),50,38); DRAWICON(CCI3日均<REF(CCI3日均,1),50,39); DRAWTEXT(CURRBARSCOUNT=1,49,' CCI3日均 '),COLORFF00FF; {1日wr} WR:100-100*(HHV(HIGH,5*8)-CLOSE)/(HHV(HIGH,5*8)-LLV(LOW,5*8)),COLORFFFFFF,NODRAW; WR2日:=EMA(WR,5),COLORF933C2; WR4日:=EMA(WR,9),COLORLIRED; DRAWICON(WR2日>=REF(WR2日,1),45,38); DRAWICON(WR2日<REF(WR2日,1),45,39); DRAWTEXT(CURRBARSCOUNT=1,44,' 1日WR '),COLORFF00FF; {1日改良LWR} RSV1:=100- (HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100; LWR1:=SMA(RSV1,4,1); LWR2:=SMA(LWR1,4,1); DRAWICON(LWR1>=REF(LWR1,1),40,38); DRAWICON(LWR1<REF(LWR1,1),40,39); DRAWTEXT(CURRBARSCOUNT=1,39,' 1日LWR改良 '),COLORFF00FF; {kdj1日} RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; DRAWICON(D>=REF(D*0.95,1),35,38); DRAWICON(D<REF(D*0.95,1),35,39); DRAWTEXT(CURRBARSCOUNT=1,34,' 1日kdJ '),COLORFF00FF; {1日macd} DIF:=EMA(CLOSE,9)-EMA(CLOSE,21); DEA:=EMA(DIF,9); DRAWICON(DIF>=REF(DIF,1),30,38); DRAWICON(DIF<REF(DIF,1),30,39); DRAWTEXT(CURRBARSCOUNT=1,29,' 1日MACD '),COLORFF00FF; {120分MACD} DIF120:=EMA(CLOSE,9/2)-EMA(CLOSE,21/2); DEA120:=EMA(DIF120,9/2); DRAWICON(DIF120>=DEA120,25,34); DRAWICON(DIF120<DEA120,25,35); DRAWTEXT(CURRBARSCOUNT=1,24,' 120MACD '),COLORFF00FF; {1日控盘} B1:=(HHV(H,20)-C)/(HHV(H,20)-LLV(LOW,20))*100-100; B2:=SMA(B1,25,1)+100; B3:=(C-LLV(L,20))/(HHV(H,20)- LLV(L,20))*100; B4:=SMA(B3,3,1); B5:=SMA(B4,3,1)+100; B6:=B5-B2; 控盘程度:=(IF(B6>40,B6-40,0))*2.5,COLORYELLOW; 控盘度:=100,COLOR0037CD; DRAWICON(控盘程度<REF(控盘程度,1)*1.011,20,43); DRAWICON(控盘程度<1 AND 控盘程度>=REF(控盘程度,1)*1.011,20,43); DRAWICON(控盘程度>=1 AND 控盘程度>=REF(控盘程度,1)*1.011,20,42); DRAWTEXT(CURRBARSCOUNT=1,19,' 1日控盘 '),COLORYELLOW; {1日obv} VA:=IF(CLOSE>REF(MAX(O,C),1),vol, IF(CLOSE<REF(MIN(O,C),1),-VOL, ((C-L)-(H-C))/(H-L)*V)); OBV:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0); MAOBV1:=MA(OBV,2),COLOR8AD8FD; MAOBV2:=MA(OBV,3),COLOREF03CC,LINETHICK2; MAOBV3:=MA(MAOBV2,4),COLORB57826; DRAWICON(MAOBV2>=REF(MAOBV2,1),15,38); DRAWICON(MAOBV2<REF(MAOBV2,1),15,39); DRAWTEXT(CURRBARSCOUNT=1,14,' 1日OBV '),COLOR3E9EFF; {1日Srsi} VALUE1:=C-O; VALUE2:=H-L; VALUE3:=IF(VALUE2=0,0,VALUE1/VALUE2); SRSIN:=SUM(VALUE3,7); SRSI:=SRSIN/7,COLORLIBLUE; SRSIM:=MA(SRSI,3),COLORF933C2; SRSIK:=MA(SRSI,6),COLORLIRED; DRAWICON(SRSIM>=REF(SRSIM*1.005,1),10,38); DRAWICON(SRSIM<REF(SRSIM*1.005,1),10,39); DRAWTEXT(CURRBARSCOUNT=1,9,' 1日SRSI '),COLOR3E9EFF; 日RSI1:="RSI.RSI1#DAY"(7); 日RSI2:="RSI.RSI2#DAY"(7); DRAWICON(日RSI1>=日RSI2,5,38); DRAWICON(日RSI1<日RSI2,5,39); DRAWTEXT(CURRBARSCOUNT=1,4,' 日R金叉 '),COLOR3E9EFF; VOLUME:=VOL,VOLSTICK; MAVOL1:=MA(VOLUME,3); MAVOL2:=MA(VOLUME,7); DRAWICON(MAVOL1>=MAVOL2,0,38); DRAWICON(MAVOL1<MAVOL2,0,39); DRAWTEXT(CURRBARSCOUNT=1,-1,' 成交量 '),COLOR3E9EFF; {KDJ2日} RSV2:=(CLOSE-LLV(LOW,9*2))/(HHV(HIGH,9*2)-LLV(LOW,9*2))*100; K2:=SMA(RSV2,3*2,1); D2:=SMA(K2,3*2,1); J2:=3*K2-2*D2; DRAWICON(J2>=REF(J2*1,1),-5,1); DRAWICON(J2<REF(J2*1,1),-5,2); DRAWTEXT(CURRBARSCOUNT=1,-6,' 2日KDJ '),COLOR3E9EFF; {2日MACD} DIF2:=EMA(CLOSE,9*2)-EMA(CLOSE,21*2); DEA2:=EMA(DIF2,9*2); DRAWICON(DIF2>=REF(DIF2,1),-10,1); DRAWICON(DIF2<REF(DIF2,1),-10,2); DRAWTEXT(CURRBARSCOUNT=1,-11,' 2日MACD '),COLOR3E9EFF; {共振力度} DRAWICON(CCI3日均>=REF(CCI3日均,1) AND WR2日>=REF(WR2日,1) AND LWR1>=REF(LWR1,1) AND D>=REF(D*0.95,1) AND DIF>=REF(DIF,1) AND DIF120>=DEA120 ,59,25); DRAWICON(控盘程度>=1 AND 控盘程度>=REF(控盘程度,1)*1.011 AND MAOBV2>=REF(MAOBV2,1) AND 日RSI1>=日RSI2 AND MAVOL1>=MAVOL2 AND SRSIM>=REF(SRSIM*1.005,1) AND J2>=REF(J2*1,1) AND DIF2>=REF(DIF2,1),55,26);
</div>

页: [1]

创想财富's Archiver

通达信改版周期指标公式