|
以下是通达信洗盘结束公式副图源码（无源码的请下载附件导入）
100,DOTLINE;
VAR1:=REF((L+O+C+H)/4,1);
VAR2:=SMA(ABS(L-VAR1),13,1)/SMA(MAX(L-VAR1,0),10,1);
VAR3:=EMA(VAR2,34);
VAR4:=LLV(L,5);
VAR5:=EMA(IF(L<=VAR4,VAR3,0),24),NODRAW;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,3,0),COLORRED;
STICKLINE(VAR5<REF(VAR5,1),0,0,0,0),COLORGREEN;
XP:=REF(VAR5>REF(VAR5,1),1);
XPLS:=COUNT(VAR5>REF(VAR5,1),10)>=8 AND (XP AND VAR5<REF(VAR5,1));
DRAWTEXT(XPLS,VAR5<REF(VAR5,1),'洗完'),COLORYELLOW;
VAR12:=REF(L,1);
VAR13:=SMA(ABS(L-VAR12),3,1)/SMA(MAX(L-VAR12,0),3,1)*100;
VAR14:=EMA(VAR13*10,3);
VAR15:=LLV(L,13);
VAR6:=HHV(VAR14,13);
VAR7:=EMA(IF(L<=VAR15,(VAR14+VAR6*2)/2,0),3)/618;
VAR8:=IF(VAR7>500,200,VAR7);
STICKLINE(VAR8>1 AND "KDJ.J">REF("KDJ.J",1) AND REF("KDJ.J",1)<REF("KDJ.J",2),0,VAR5*1.2,2,1),COLORYELLOW;
STICKLINE(VAR8>0.1 AND VAR8<1 AND "KDJ.J">REF("KDJ.J",1) AND REF("KDJ.J",1)<REF("KDJ.J",2),0,VAR5*1.2,2,0),COLORFF00FF;
DRAWTEXT(VAR8>1 AND "KDJ.J">REF("KDJ.J",1) AND REF("KDJ.J",1)<REF("KDJ.J",2),VAR5,'建仓'),COLORLIBLUE;
DRAWTEXT(VAR8>0.1 AND VAR8<1 AND "KDJ.J">REF("KDJ.J",1) AND REF("KDJ.J",1)<REF("KDJ.J",2),VAR5,'加仓'),COLORRED;
提款:COUNT(VAR5>REF(VAR5,1),10)>=8 AND VAR5>REF(VAR5,4) AND C>REF(C,1),COLORFFFF00;
DRAWTEXT(提款 AND VAR5>70,VAR5,'吃'),COLORYELLOW;
TK:=VAR8>1 AND "KDJ.J">REF("KDJ.J",1) AND REF("KDJ.J",1)<REF("KDJ.J",2);
DRAWICON((TK AND VAR5>100) OR XPLS,VAR5,23);
股东占流通比:100*FINVALUE(244)/FINVALUE(239),NODRAW;
历史衰退系数:100/(100-股东占流通比),NODRAW;
1559522881.png
| 
