通达信主力雷达源码和图改进优化

主力雷达源码

rn

LC:=REF(CLOSE,1);
rn RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
rn AR:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
rn卖点雷达:=CROSS(85,RSI1)*30,COLOR00FF00,LINETHICK2;
rn VARB:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
rn VARC:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
rn VARD:=BARSCOUNT(CLOSE);
rn买点雷达:(VARB< 20 AND VARC< 25 AND VARD> 50 AND AR<70)*30,LINETHICK2,COLOR0078FF;
rn BT1:=CROSS(RSI1,25);
rn STICKLINE(BT1,-100,-80,3,0),COLOR0000FF;
rn主力:EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2)*5,LINETHICK1,COLOR0000FF;
rn散户:EMA( (CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*480,7)*5,COLORC87800;
rn DRAWTEXT(CROSS(85,RSI1),主力,’顶’),COLOR00FF00;
rn STICKLINE(卖点雷达,0,主力,1,0),COLOR00FF00;
rn BT2:=CROSS(主力,散户) AND 主力<-10;
rn DRAWICON(CROSS(RSI1,25),主力,1);
rn DRAWICON(CROSS(主力,散户) AND 主力<-10,主力,1);
rn BT:=FILTER(COUNT(BT1 OR BT2,3)>=2,3);
rn STICKLINE(BT,0,50,4,1),COLOR0000FF;
rn DRAWTEXT(BT,50,’金底’),COLORYELLOW;
rn DRAWTEXT(BT1 AND BT2,-80,’底’),COLORYELLOW;
rn 

rn