通达信止跌形态选股指标 源码 贴图
PC:=NOT(NAMELIKE('*')OR NAMELIKE('ST')OR CODELIKE('4')OR CODELIKE('8')OR CODELIKE('68'));
TJ:=IF(NAMELIKE('ST') OR NAMELIKE('*ST') OR NAMELIKE('SST')
OR NAMELIKE('S*ST') OR NAMELIKE('S ST') ,0.049,
IF((CODELIKE('1') OR CODELIKE('4')OR CODELIKE('688') OR (CODELIKE('30'))),0.195,IF(CODELIKE('8'),0.295,0.095)));
ZTB:=C>=ZTPRICE(REF(C,1),TJ);
DTB:=C<=DTPRICE(REF(C,1),TJ);
DIF:=EMA(CLOSE,26)-EMA(CLOSE,58);
DEA:=EMA(DIF,3);
TJJ2:=(V/REF(MA(V,5),1)>2 OR V/REF(V,1)>2 OR (V/REF(V,1)>1 AND REF(V/REF(V,1)>2,1)))
AND MA(C,5)>MA(C,10)AND MA(C,10)>MA(C,20)AND DIF>DEA AND C>O;
TJJ1:=IF(CODELIKE('1'),C>REF(C,1)*1.06,ZTB AND C>O*1.075);
TJJ3:=((V>REF(V,1)*3 AND C>O)
OR(REF(V,1)>REF(V,2)*3 AND REF(C>O,1)AND V>REF(V,2)*3 AND C>O)
OR(REF(V,2)>REF(V,3)*3 AND REF(C>O,2)AND REF(V,1)>REF(V,3)*3 AND REF(C>O,1)AND V>REF(V,3)*3 AND C>O));
TJJ:=TJJ1 {OR TJJ2 }OR TJJ3;
L1:=REF(TJJ,1);
L2:=REF(V<REF(V,1),0)AND REF(C<O OR (C=O AND C<=REF(O,1)),0);
L3:=(C<O OR (C=O AND C<=REF(O,1)));
L4:=REF(MA(C,5)>MA(C,10)AND MA(C,10)>MA(C,20),0);
L44:=REF(DIF>DEA,0);
LXG0:=L1 AND L2 AND L3 AND (L4 AND L44);
LXG:=REF(LXG0,1)AND C>REF(C,1)AND C>O;
K1:=REF(TJJ,2);{公式之家 BBS.GSZB.TOP}
K2:=REF(V<REF(V,1),1)AND REF(C<O OR (C=O AND C<=REF(O,1)),1);
K3:=(C<O OR (C=O AND C<=REF(O,1)));
K4:=REF(MA(C,5)>MA(C,10)AND MA(C,10)>MA(C,20),1)AND REF(MA(C,5)>MA(C,10)AND MA(C,10)>MA(C,20),0);
K44:=REF(DIF>DEA,1)AND REF(DIF>DEA,0);
KXG0:=K1 AND K2 AND K3 AND (K4 AND K44);
KXG:=REF(KXG0,1)AND C>REF(C,1)AND C>O;
J1:=REF(TJJ,3);
J2:=REF(V<REF(V,1),2)AND REF(C<O OR (C=O AND C<=REF(O,1)),2)AND REF(C<O OR (C=O AND C<=REF(O,1)),1);
J3:=(C<O OR (C=O AND C<=REF(O,1)));
J4:=REF(MA(C,5)>MA(C,10),2)AND REF(MA(C,5)>MA(C,10),1)AND REF(MA(C,5)>MA(C,10),0);
J44:=REF(DIF>DEA,2)AND REF(DIF>DEA,1)AND REF(DIF>DEA,0);
JXG0:=J1 AND J2 AND J3 AND (J4 OR J44);
JXG:=REF(JXG0,1)AND C>REF(C,1)AND C>O;
T1:=REF(TJJ,4);
T2:=REF(V<REF(V,1),3)AND REF(C<O OR (C=O AND C<=REF(O,1)),3)AND REF(C<O OR (C=O AND C<=REF(O,1)),2)AND REF(C<O OR (C=O AND C<=REF(O,1)),1);
T3:=(C<O OR (C=O AND C<=REF(O,1)));
T4:=REF(MA(C,5)>MA(C,10),3)AND REF(MA(C,5)>MA(C,10),2)AND REF(MA(C,5)>MA(C,10),1)AND REF(MA(C,5)>MA(C,10),0);
T44:=REF(DIF>DEA,3)AND REF(DIF>DEA,2)AND REF(DIF>DEA,1)AND REF(DIF>DEA,0);
TXG0:=T1 AND T2 AND T3 AND (T4 OR T44);
TXG:=REF(TXG0,1)AND C>REF(C,1)AND C>O;
S1:=REF(TJJ,5);
S2:=REF(V<REF(V,1),4)AND REF(C<O OR (C=O AND C<=REF(C,1)),4)AND REF(C<O OR (C=O AND C<=REF(O,1)),3)AND REF(C<O OR (C=O AND C<=REF(O,1)),2)AND REF(C<O OR (C=O AND C<=REF(O,1)),1);
S3:=(C<O OR (C=O AND C<=REF(O,1)));
S4:=REF(MA(C,5)>MA(C,10),4)AND REF(MA(C,5)>MA(C,10),3)AND REF(MA(C,5)>MA(C,10),2)AND REF(MA(C,5)>MA(C,10),1)AND REF(MA(C,5)>MA(C,10),0);
S44:=REF(DIF>DEA,4)AND REF(DIF>DEA,3)AND REF(DIF>DEA,2)AND REF(DIF>DEA,1)AND REF(DIF>DEA,0);
SXG0:=S1 AND S2 AND S3 AND (S4 OR S44);
SXG:=REF(SXG0,1)AND C>REF(C,1)AND C>O;
U1:=REF(TJJ,6);
U2:=REF(V<REF(V,1),5)AND REF(C<O OR (C=O AND C<=REF(C,1)),5)AND REF(C<O OR (C=O AND C<=REF(O,1)),4)AND REF(C<O OR (C=O AND C<=REF(O,1)),3)AND REF(C<O OR (C=O AND C<=REF(O,1)),2)AND REF(C<O OR (C=O AND C<=REF(O,1)),1);
U3:=(C<O OR (C=O AND C<=REF(O,1)));
U4:=REF(MA(C,5)>MA(C,10),5)AND REF(MA(C,5)>MA(C,10),4)AND REF(MA(C,5)>MA(C,10),3)AND REF(MA(C,5)>MA(C,10),2)AND REF(MA(C,5)>MA(C,10),1)AND REF(MA(C,5)>MA(C,10),0);
U44:=REF(DIF>DEA,5)AND REF(DIF>DEA,4)AND REF(DIF>DEA,3)AND REF(DIF>DEA,2)AND REF(DIF>DEA,1)AND REF(DIF>DEA,0);
UXG0:=U1 AND U2 AND U3 AND (U4 OR U44);
UXG:=REF(UXG0,1)AND C>REF(C,1)AND C>O;
XG0:=({LXG0 OR KXG0 OR} JXG0 OR TXG0 OR SXG0 OR UXG0),COLORYELLOW;
XG:({LXG OR KXG OR }JXG OR TXG OR SXG OR UXG),COLORRED; |
|
