|
以下是通达信一箭穿心（源码 副图+选股贴图）（无源码的请下载附件导入）
一箭穿心副图
B1:=EXPMA(C-REF(C,1),10);
B2:=EXPMA(B1,10);
B3:=EXPMA(ABS(C-REF(C,1)),10);
B4:=EXPMA(B3,10);
B5:=REF(B2/B4,1)<=B2/B4;
B6:=(L+O+C+H)/4;
B7:=REF(B6,1);
B8:=ABS(LOW-B7);
B9:=MAX(LOW-B7,0);
B10:=SMA(B8,20,1)/SMA(B9,20,1);
B11:=EXPMA(B10,20);
B12:=LLV(LOW,30);
B13:=EXPMA(IF(LOW<=B12,B11,0),3);
B14:=B13<REF(B13,1);
II:CROSS(B14,0.9) AND CROSS(B5,0.9),COLORRED,NODRAW;
STICKLINE(II,0,0.95,0,0),COLORRED;
DRAWICON(II,1,38);
DRAWICON(II,0.6,3);
一箭穿心选股
B01:=IF(NAMELIKE('S'),0,1);
B02:=DYNAINFO(8)>0;
B03:=IF(NAMELIKE('*'),0,1);
B04:=B01 AND B02 AND B03;
B1:=EXPMA(C-REF(C,1),10);
B2:=EXPMA(B1,10);
B3:=EXPMA(ABS(C-REF(C,1)),10);
B4:=EXPMA(B3,10);
B5:=REF(B2/B4,1)<=B2/B4;
B6:=(L+O+C+H)/4;
B7:=REF(B6,1);
B8:=ABS(LOW-B7);
B9:=MAX(LOW-B7,0);
B10:=SMA(B8,20,1)/SMA(B9,20,1);
B11:=EXPMA(B10,20);
B12:=LLV(LOW,30);
B13:=EXPMA(IF(LOW<=B12,B11,0),3);
B14:=B13<REF(B13,1);
622300883.jpg
II:CROSS(B14,0.9) AND CROSS(B5,0.9) AND B04; | 
