通达信〖金银顶底〗指标公式源码

VAR1:=REF(CLOSE,1);
VAR2:=SMA(MAX(CLOSE-VAR1,0),6,1)/SMA(Abs(CLOSE-VAR1),6,1)*100;
VAR3:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
VAR5:=SMA(MAX(CLOSE-VAR1,0),7,1)/SMA(ABS(CLOSE-VAR1),7,1)*100;
VAR6:=SMA(MAX(CLOSE-VAR1,0),13,1)/SMA(ABS(CLOSE-VAR1),13,1)*100;
VAR7:=BARSCOUNT(CLOSE);
VAR9:=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,VAR2);
DRAWTEXT(卖出条件,65,'←卖出'),COLORGREEN;
STICKLINE(卖出条件,0,50,2,0),COLORGREEN;
{ 银底信号 }
银底条件:=CROSS(VAR2,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;
{ 主力吸筹 }
吸筹条件:(VAR5<20 AND VAR6<25 AND VAR7>50 AND VAR3<70);
DRAWTEXT(吸筹条件,40,'←吸筹'),COLORWHITE;
STICKLINE(吸筹条件,0,40,2,0),COLORWHITE;