通达信一箭穿心（源码 副图+选股贴图）

一箭穿心副图
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);
 II:CROSS(B14,0.9) AND CROSS(B5,0.9) AND B04;