|
{ST股票判断、今日停牌股票}
{ISST:=STRFIND(STKNAME,UPPERSTR('ST'),1)<>0;
JB:=(ISST=0) AND DYNAINFO(8)>0;}
{早盘15分钟,成交量}
B:=DYNAINFO(8);
BV:=REF(V,1);
ZF2:=B/BV*100;
{9点45 的涨幅}
A:=DYNAINFO(7);
AC1:=REF(C,1);
ZF1:=(A-AC1)/AC1*100;
{当前价格高于开盘价}
D:=A-O;
{股票昨天是涨的}
{K:=REF(C,1)-REF(O,1);}
{5日均线比10日均线高}
KK:=MA(C,5)>MA(C,10) AND MA(C,5)>REF(MA(C,5),1);
{5分钟、15分钟MACD都出现红柱}
DEA5:="MACD.DEA#MIN5";
DIFF5:="MACD.DIF#MIN5";
D5:=DIFF5-DEA5;
DEA15:="MACD.DEA#MIN15";
DIFF15:="MACD.DIF#MIN15";
D15:=DIFF15-DEA15;
{J:=(D5>0 AND D15>0) OR (D5>0 AND D30>0) OR (D15>0 AND D30>0);}
J:= (D5>0 AND D15>0);
{委买大于委卖}
E:=DYNAINFO(23)-DYNAINFO(22);
{昨天成交量比前天多}
F:=REF(V,1)-REF(V,2);
VAR1MZ:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2)));
VARDMZ:=((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2)));
VAREMZ:=((REF(VARDMZ,1) AND (CLOSE >= REF(CLOSE,1))) AND
(CLOSE <= REF(CLOSE,2)));
VARFMZ:=((REF(VAREMZ,1) AND (CLOSE <= REF(CLOSE,1))) AND
(CLOSE >= REF(CLOSE,2)));
VAR10MZ:=((REF(VARFMZ,1) AND (CLOSE >= REF(CLOSE,1))) AND
(CLOSE <= REF(CLOSE,2)));
VAR11MZ:=((REF(VAR10MZ,1) AND (CLOSE <= REF(CLOSE,1))) AND
(CLOSE >= REF(CLOSE,2)));
VAR12MZ:=((REF(VAR11MZ,1) AND (CLOSE >= REF(CLOSE,1))) AND
(CLOSE <= REF(CLOSE,2)));
VAR13MZ:=((REF(VAR12MZ,1) AND (CLOSE <= REF(CLOSE,1))) AND
(CLOSE >= REF(CLOSE,2)));
VAR14MZ:=((REF(VAR13MZ,1) AND (CLOSE >= REF(CLOSE,1))) AND
(CLOSE <= REF(CLOSE,2)));
VAR15MZ:=((REF(VAR14MZ,1) AND (CLOSE <= REF(CLOSE,1))) AND
(CLOSE >= REF(CLOSE,2)));
VAR16MZ:=((REF(VAR15MZ,1) AND (CLOSE >= REF(CLOSE,1))) AND
(CLOSE <= REF(CLOSE,2)));
VAR17MZ:=((REF(VAR16MZ,1) AND (CLOSE <= REF(CLOSE,1))) AND
(CLOSE >= REF(CLOSE,2)));
VAR18MZ:=((REF(VAR17MZ,1) AND (CLOSE >= REF(CLOSE,1))) AND
(CLOSE <= REF(CLOSE,2)));
VAR19MZ:=(REF((((((((((((VARDMZ OR VAREMZ) OR VARFMZ) OR
VAR10MZ) OR VAR11MZ) OR VAR12MZ) OR VAR13MZ) OR VAR14MZ) OR
VAR15MZ) OR VAR16MZ) OR VAR17MZ) OR VAR18MZ),1) AND VAR1MZ);
ZGD:=HHV(H,60);
ZGD2:=CONST(ZGD);
ZDD:=LLV(L,60);
ZDD2:=CONST(ZDD);
GJ:=(C+H+L+O)/4;
明日阻力:=L+(GJ-L)+(C-L);
今日阻力:=REF(明日阻力 , 1);
X:=(3*C+L+O+H)/6;
多空线:=(20*X+19*REF(X,1)+18*REF(X,2)+17*REF(X,3)+16*REF(X,4)+15*REF(X,5)+14*REF(X,6)
+13*REF(X,7)+12*REF(X,8)+11*REF(X,9)+10*REF(X,10)+9*REF(X,11)+8*REF(X,12)
+7*REF(X,13)+6*REF(X,14)+5*REF(X,15)+4*REF(X,16)+3*REF(X,17)+2*REF(X,18)+
REF(X,20))/210;
选股:CROSS(C,多空线) AND VAR19MZ AND NOT(C<今日阻力) AND ZF1<6 AND ZF2>15 AND {JB>0 AND} J>0 AND D>0 AND E>0 AND F>0 AND KK>0; |
|