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

一箭穿心副图
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;