通达信零上第一次金未加密选股指标公式源码

通达信零上第一次金未加密选股指标公式源码

源码正文：

JQRS:=INBLOCK('近期弱势')>0{XG51};
YGSZ:=INBLOCK('预高送转')>0{XG51};
RZRQ:=INBLOCK('融资融券')>0{XG51};
SYJZ:=INBLOCK('商誉减值')>0 AND FINANCE(54)>0{XG51};
GSY:=INBLOCK('高商誉')>0{XG51};
JQJJ:=INBLOCK('近期解禁'){XG51};
NJC:=INBLOCK('拟减持'){XG51};
GGJC:=INBLOCK('高管减持'){XG51};
FXTS:=INBLOCK('风险提示'){XG51};
YJYJ:=INBLOCK('业绩预降'){XG51};
GSG:=INBLOCK('亏损股'){XG51};
HSZJ:=INBLOCK('户数增加'){XG51};
GZYG:=INBLOCK('高质押股'){XG51};
GQFS:=INBLOCK('股权分散'){XG51};
LXGS:=INBLOCK('连续亏损'){XG51};
KFKS:=INBLOCK('扣非亏损')>0{XG51};
去一字板:=NOT(C/REF(C,1)>1.095 AND H=O AND L=H){XG51};
去除ST股:=IF(NAMELIKE('S'),0,1) AND IF(NAMELIKE('*'),0,1){XG51};
去除停牌:=DYNAINFO(8)>0{XG51};
去除星股:=IF(NAMELIKE('*'),0,1){XG51};
去无用股:=去除st股 AND 去除停牌 AND 去除星股 AND NOT(GSY) AND NOT(JQRS) AND NOT(LXGS) AND NOT(KFKS) AND NOT(YGSZ) AND NOT(NJC) AND NOT(JQJJ) AND NOT(SYJZ)
AND NOT(YJYJ) AND NOT(GGJC) AND NOT(FXTS) AND NOT(GSG) AND NOT(HSZJ) AND NOT(GQFS) AND NOT (CODELIKE('688') ) AND FINANCE(33)>0 AND FINANCE(54)>0 AND CAPITAL<30000000 ;{XG51};
dif:=ema(CLOSE,12) - Ema(CLOSE,26);
DEA:=EMA(DIF,9){XG51};
macd:=2*(DIF-DEA){XG51};
EXIST(crOSS(DIF,0),26) AND CROSS(DIF,DEA) AND BETWEEN(DIF,0,1) AND 去无用股,COLORLIMAGENTA,LINETHICK3{X~G.5?1~C~N~{};

通达信趋势线金叉未加密选股指标公式源码

源码正文：

difD:=macd.DIF#DAY{XG51};
DIFW:=maCD.DIF#WEEK{XG51};
DIFM:=MacD.DIF#MONTH{XG51};
DIFA:ema((DIFD+7*DIFW+31*DIFM)/39,5){XG51};
趋势线:EMA(DIFA,10)COLORCYAN LINETHICK2;

{X?G^5~1?C?N?{}