通达信黄金底吸筹指标公式源码

VARG1:=REF(CLOSE,1);
VARG2:=SMA(MAX(CLOSE-VARG1,0),6,1)/SMA(ABS(CLOSE-VARG1),6,1)*100;
VARG3:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
VARG5:=SMA(MAX(CLOSE-VARG1,0),7,1)/SMA(ABS(CLOSE-VARG1),7,1)*100;
VARG6:=SMA(MAX(CLOSE-VARG1,0),13,1)/SMA(ABS(CLOSE-VARG1),13,1)*100;
VARG7:=BARSCOUNT(CLOSE);
VARG9:=WINNER(C)*100;
主:EMA((CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2)*5,LINETHICK1,COLOR0000FF;
散:EMA((CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*480,7)*5,LINETHICK1,COLORGREEN;
卖出条件:=CROSS(85,VARG2);
DRAWTEXT(卖出条件,65,'←卖出'),COLORGREEN;
STICKLINE(卖出条件,0,50,2,0),COLORGREEN;
银底条件:=CROSS(VARG2,25);
DRAWTEXT(银底条件,-50,'←银底'),COLOR808000;
STICKLINE(银底条件,0,-50,2,0),COLOR808000;
金底条件:=FILTER(COUNT(银底条件 OR (CROSS(主,散) AND 主 < -10),3) >=2,3);
DRAWTEXT(金底条件,70,'←金底'),COLORYELLOW;
STICKLINE(金底条件,0,70,2,1),COLORBLUE;
铁底条件:=CROSS(主,散) AND 主 < -10;
DRAWTEXT(铁底条件,40,'←铁底'),COLOR008080;
STICKLINE(铁底条件,0,70,2,0),COLOR008080;
吸筹条件:(VARG5 < 20 AND VARG6 < 25 AND VARG7 > 50 AND VARG3 < 70);
DRAWTEXT(吸筹条件,40,'←吸筹'),COLORWHITE;
STICKLINE(吸筹条件,0,40,2,0),COLORWHITE;