通达信中长线黑马选股指标(源码)

N:=0;
M:=60;
TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
VVOL:=IF(CURRBARSCOUNT=1,V*TOTAL/CTIME,V);
VAR1:=VVOL/CAPITAL*100; {换手率}
VAR2:=HHV(VAR1,0); {上市以来的最大换手率}
VAR3:=VAR1/VAR2*100; {当前换手率与最大换手率的比值}
VAR4:=(H-L)/L*100; {当日涨幅}
VAR5:=BARSLAST(VAR3>N); {换手率达80以上至今日的交易天数}
VAR6:=REF(HIGH,VAR5);{80以上换手率的最高价}
VAR7:=COUNT(CLOSE<VAR6,VAR5);
平均成本:=IF(VAR5=0,CLOSE,SUM(CLOSE*VVOL,VAR5)/SUM(VVOL,VAR5));
进出:=(CLOSE-平均成本)/平均成本*IF((CLOSE-平均成本)/平均成本<1,1000,10);
主力入场:=DRAWICON(进出=0,LOW,1);
买入:=STICKLINE(CROSS(CLOSE,VAR6) AND VAR3<M AND VAR7>VAR5*9/10,0,70,1,1);
{中线趋势}
MDAY:=BARSLAST(VAR3>60 AND VAR3<=70);
HIGHM:=REF(HIGH,MDAY);
COUNTM:=COUNT(CLOSE<HIGHM,MDAY);
MEDIUMCOST:=IF(MDAY=0,CLOSE,SUM(CLOSE*VVOL,MDAY)/SUM(VVOL,MDAY));
拉升资金:=(CLOSE-MEDIUMCOST)/MEDIUMCOST*IF((CLOSE-MEDIUMCOST)/MEDIUMCOST<1,1000,10);
{LS:=MA(拉升资金,5);}
中线买入:=STICKLINE(CROSS(CLOSE,HIGHM) AND VAR3<50 AND COUNTM>MDAY*9/10,0,50,1,1);
{短线}
SDAY:=BARSLAST(VAR3>40 AND VAR3<=50);
HIGHS:=REF(HIGH,SDAY);
COUNTS:=COUNT(CLOSE<HIGHS,SDAY);
SHORTCOST:=SUM(CLOSE,SDAY)/SDAY;
散户进出:=MA((CLOSE-SHORTCOST)/SHORTCOST*IF((CLOSE-SHORTCOST)/SHORTCOST<1,1000,10),10);
短线买入:=STICKLINE(CROSS(CLOSE,HIGHS) AND VAR3<30 AND COUNTS>SDAY*9/10,0,50,1,1);
一剑封喉:=(CROSS(CLOSE,VAR6) AND VAR3<M AND VAR7>VAR5*9/10 AND 拉升资金>散户进出)
OR (CROSS(CLOSE,HIGHM) AND VAR3<50 AND COUNTM>MDAY*9/10 AND 拉升资金>散户进出) ;
IF(一剑封喉,50,0);