与时俱进(源码 副图 通达信）

DIFF:=(EMA(CLOSE,12)-EMA(CLOSE,26))*400;
DEA:=EMA(DIFF,9),COLORFFFF00;
DRAWBAND(DIFF,RGB(150,0,150),DEA,RGB(0,150,0));
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
AR:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
卖点雷达:=CROSS(85,RSI1)*30,COLOR00FF00,LINETHICK1;
DRAWTEXT(CROSS(85,RSI1),150,'顶'),COLOR00FF00;
STICKLINE(卖点雷达,100,120,2,0),COLOR00FF00;
VARB:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
VARC:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
VARD:=BARSCOUNT(CLOSE);
买点雷达:(VARB< 20 AND VARC< 25 AND VARD> 50 AND AR<70)*30,LINETHICK1,COLOR0078FF;
BT1:=CROSS(RSI1,25);
DRAWTEXT(BT1,-150,'底'),COLOR0000FF;
STICKLINE(BT1,-120,-100,2,0),COLOR0000FF;
主力:EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2)*5,LINETHICK1,COLOR0000FF;
控盘:=EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2)*3;
STICKLINE(控盘<0,控盘,0,2,0),COLORFFAA00;
STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,2,0),COLORRED;
STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,2,0),COLOR008800;
散户:EMA( (CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*480,7)*5,LINETHICK1,COLORLIGREEN;
BT2:=CROSS(主力,散户) AND 主力<-10;
DRAWICON(CROSS(主力,散户) AND 主力<-10,主力,'BUY');
BT:=FILTER(COUNT(BT1 OR BT2,3)>=2,3);
STICKLINE(BT,0,50,2,1),COLOR0000FF;
DRAWTEXT(BT,-100,'天知底'),COLORGRAY;
STICKLINE(BT2,0,20,2,0),COLORFF00FF;
DRAWTEXT(BT2,-100,'天知升'),COLORGRAY;
买:IF((CROSS(主力,散户) AND 主力<-10),1,0),LINETHICK1,COLORC87800;
卖:IF(CROSS(85,RSI1),1,0),LINETHICK2,COLOR00C800;