|
以下是通达信抓异动股，往往能抓到启涨点源码副图（无源码的请下载附件导入）
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000),COLOR00AAAA,LINETHICK;
V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);
V5:=SMA(V2*240/FROMOPEN*0.9,5,1);
DIFF:(EMA(V2,12)-EMA(V2,26))*100/EMA(V2,26),COLORRED;
DEA:EMA(DIFF,9),COLORRED;
DIF:IF(DIFF<REF(DIFF,1),DIFF,DRAWNULL),COLORGREEN;
ADEA:IF(DEA<REF(DEA,1),DEA,DRAWNULL),COLORGREEN;
V10:=SMA(V5,5,1);
V20:=SMA(V10,5,1);
DRAWKLINE(V2*1.01*10,REF(V2,1)*10,REF(V2,1)*0.99*10,V2*10);
当日DDX:DDX,NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND C>=REF(C,1),REF(V2,1),MAX(V2,V2*120/FROMOPEN*0.8),0,0),COLORLIMAGENTA;
STICKLINE(CURRBARSCOUNT=1 AND C<REF(C,1),REF(V2,1),MIN(V2,V2*120/FROMOPEN*0.8),0,0),COLORLIGREEN;
DRAWTEXT(DIFF<-200,DIFF,'异动'),COLORMAGENTA;
DRAWTEXT(CROSS(V2,REF(V2,1)*1.2) AND LONGCROSS(CLOSE,REF(C,1)*1.025,4) AND DDX/REF(MA(DDX,5),1)>2,REF(V2,1),'★'),COLORMAGENTA;
DRAWICON(CROSS(DIFF,DEA),DEA,1);
X:=(3*C+L+O+H)/6;
多空线:=(20*X+19*REF(X,1)+18*REF(X,2)+17*REF(X,3)+16*REF(X,4)+15*REF(X,5)+14*REF(X,6)
+13*REF(X,7)+12*REF(X,8)+11*REF(X,9)+10*REF(X,10)+9*REF(X,11)+8*REF(X,12)
+7*REF(X,13)+6*REF(X,14)+5*REF(X,15)+4*REF(X,16)+3*REF(X,17)+2*REF(X,18)+
REF(X,20))/210,COLORFF00FF,LINETHICK2;
注意:ABS(DIFF)-ABS(REF(DIFF,1))>28 AND REF(多空线,1)<多空线 AND DIFF<0;
DRAWTEXT(注意,DIFF,'注意'),COLORMAGENTA;
{强攻:REF(DIFF,1)<REF(DIFF,2) AND REF(DIFF,1)<DIFF AND REF(V2*1.01,1)-REF(V2,2)*0.99<0 AND V2*1.01-REF(V2,1)*0.99>0 AND REF(DIFF,1)>REF(DEA,1);
DRAWICON(强攻,DEA,25);}
今日量:V2*1.01-REF(V2,1)*0.99,NODRAW;{K线柱大小}
昨日量:REF(V2*1.01,1)-REF(REF(V2,1)*0.99,1),NODRAW;
倍量:今日量/ABS(昨日量),NODRAW;
819411181.png
|
