将五域操盘中出现红色做选股

编写要求：

解答：

?网友求助：

F_DDI:=(AMOUNT / VOL);
YF_JJ:=((OPEN + CLOSE) / 2);
YF_DDING:=EMA(CLOSE,6);
YF_MMD:=MA(YF_DDING,1);
YF_XXD:=EMA(CLOSE,18);
YF_YYZ:=REF(YF_MMD,1);
YF_XXD1:=REF(YF_XXD,1);
YF_YYZ1:=BARSCOUNT(CLOSE);
YF_TDCG:=IF((YF_YYZ1 = 1),0,(((YF_MMD - YF_YYZ) / YF_YYZ) * 100));
YF_ZFD:=IF((YF_YYZ1 = 1),0,(((YF_XXD - YF_XXD1) / YF_XXD1) * 100));
YF_JSD2:=REF(CLOSE,1);
CLOSE1:=IF((YF_YYZ1 = 1),0,(((CLOSE - YF_JSD2) / YF_JSD2) * 100));
YF_JZDF:=IF((YF_YYZ1 = 1),((CLOSE + OPEN) / 2),YF_YYZ);
JJ1:=REF(YF_MMD,2);
JJ2:=(((YF_MMD + YF_YYZ) + JJ1) / 3);
JJ02:=(((ABS((YF_MMD - JJ2)) + ABS((YF_YYZ - JJ2))) + ABS((JJ1 - JJ2))) / 3);
SS:=REF(YF_TDCG,1);
YF_ZFD1:=REF(YF_TDCG,2);
YF_ZFD2:=IF((YF_YYZ1 < 3),0,((JJ02 / YF_MMD) * 100));
YF_DHPXS:=IF((YF_YYZ1 < 3),0,IF((((YF_TDCG < 0) AND (SS < 0)) AND (YF_ZFD1 < 0)),(0 - 1),1));
SSX:=REF(YF_TDCG,1);
YF_YZFZ:=IF((((YF_YYZ1 > 11) AND (SSX < 0)) AND (YF_TDCG > 0)),1,0);
YF_JSD21:=BARSLAST((YF_YZFZ = 1));
YF_JSD:=REF(YF_JSD21,1);
A:=IF((((YF_YYZ1 > 11) AND (SSX < 0)) AND (YF_TDCG > 0)),(YF_JSD + 1),YF_JSD);
YF_PJJ:=IF((((YF_YYZ1 > 11) AND (SSX > 0)) AND (YF_TDCG < 0)),1,0);
YF_JSD11:=YF_JZDF;
DMRJ:=YF_JZDF;
DMCJ:=IF(((YF_YYZ1 > 11) AND (YF_JSD11 < OPEN)),OPEN,YF_JZDF);
YF_DMRJ:=IF(((YF_YYZ1 > 11) AND (DMRJ > OPEN)),OPEN,YF_JZDF);
YF_DCG1:=REF(YF_JZDF,1);
YF_BDF5:=IF(((((YF_TDCG > 0.5) AND ((YF_ZFD2 > 0.215) OR (LOW > YF_JZDF))) AND (CLOSE >= OPEN)) AND ((CLOSE >= 200) OR ((CLOSE < 200) AND (CLOSE1 < 11)))),1,0);
YF_DMRX:=IF((((YF_TDCG < (0 - 0.3)) AND ((YF_ZFD2 > 0.2) OR (HIGH < YF_JZDF))) AND ((OPEN >= CLOSE) OR (CLOSE1 < (0 - 1)))),1,0);
YF_DKS1:=BARSSINCE(YF_BDF5);
YF_TDMR:=BARSSINCE(YF_DMRX);
YF_DMR:=(YF_DMRX );
YF_DCGJ1:=((COUNT(YF_BDF5,BARSLAST(YF_DMR)) = 1) AND YF_BDF5);
YF_DMRBUY:=((COUNT(YF_DMR,BARSLAST(YF_BDF5)) = 1) AND YF_DMR);
YF_DMCSELL:=BARSLAST(YF_DMRBUY);
YF_DCG10:=BARSLAST(YF_DCGJ1);
YF_DCG11:=((SUM(YF_DMRBUY,YF_DCG10) = 0) * YF_DCG10);
YF_DCGREAL:=REF(DMCJ,YF_DCG11);
YF_DMRJ11:=REF(YF_DCGREAL,1);
YF_DMRJ1:=IF((YF_DCGJ1 = 1),(((CLOSE - DMCJ) / DMCJ) * 100),(((YF_DMRJ - YF_DMRJ11) / YF_DMRJ11) * 100));
YF_DCG:=IF((((YF_DCG11 = 0) AND (YF_DCGJ1 = 0)) AND (YF_DMRBUY = 0)),0,YF_DMRJ1);
五域股龄:BARSCOUNT(CLOSE),LINETHICK0,NODRAW;
短买入:YF_DCGJ1,LINETHICK0,NODRAW;
短卖出:YF_DMRBUY,LINETHICK0,NODRAW;
短持股:YF_DCG11,LINETHICK0,NODRAW;
短买价:IF((短买入 = 1),YF_DCGREAL,IF(((短持股 != 0) OR (短卖出 = 1)),YF_DMRJ11,LLV(L,60))),LINETHICK3,COLORYELLOW;
短卖价:IF((短卖出 = 1),YF_DMRJ,0),LINETHICK0,NODRAW;

STICKLINE((短买入 = 1),短买价,YF_DMRJ,2,0),COLOR9900FF;
STICKLINE((短买入 = 1),C,O,2,0),COLOR9900FF;
STICKLINE((短持股 > 0),短买价,YF_DMRJ,0,0),COLORFFBBFF;
{STICKLINE((短持股 > 0),短买价,YF_DMRJ,4,0),COLORFF00FF;
STICKLINE((短持股 > 0),短买价,YF_DMRJ,3,0),COLORFF22FF;
STICKLINE((短持股 > 0),短买价,YF_DMRJ,2,0),COLORFF44FF;
STICKLINE((短持股 > 0),短买价,YF_DMRJ,1,0),COLORFF66FF;
STICKLINE((短持股 > 0),短买价,YF_DMRJ,4,0),COLORFF88FF;}

STICKLINE((短持股 > 0),短买价,YF_DMRJ,2,0),COLORFFAAFF;
STICKLINE((短持股 > 0),短买价,YF_DMRJ,1,0),COLORFFBBFF;
STICKLINE((短卖出 = 1),短买价,YF_DMRJ,0,0),COLOR00FF00;
{STICKLINE((短卖出 = 1),短买价,YF_DMRJ,4,0),COLOR008800;
STICKLINE((短卖出 = 1),短买价,YF_DMRJ,3,0),COLOR009900;
STICKLINE((短卖出 = 1),短买价,YF_DMRJ,2,0),COLOR00AA00;
STICKLINE((短卖出 = 1),短买价,YF_DMRJ,1,0),COLOR00BB00;
STICKLINE((短卖出 = 1),短买价,YF_DMRJ,4,0),COLOR00CC00;}

STICKLINE((短卖出 = 1),短买价,YF_DMRJ,2,0),COLOR00EE00;
STICKLINE((短卖出 = 1),短买价,YF_DMRJ,1,0),COLOR00FF00;
?

解答如下：

YF_DDING:=EMA(CLOSE,6);
YF_MMD:=MA(YF_DDING,1);
YF_XXD:=EMA(CLOSE,18);
YF_YYZ:=REF(YF_MMD,1);
YF_XXD1:=REF(YF_XXD,1);
YF_YYZ1:=BARSCOUNT(CLOSE);
YF_TDCG:=IF((YF_YYZ1 = 1),0,(((YF_MMD - YF_YYZ) / YF_YYZ) * 100));
YF_JSD2:=REF(CLOSE,1);
CLOSE1:=IF((YF_YYZ1 = 1),0,(((CLOSE - YF_JSD2) / YF_JSD2) * 100));
YF_JZDF:=IF((YF_YYZ1 = 1),((CLOSE + OPEN) / 2),YF_YYZ);
JJ1:=REF(YF_MMD,2);
JJ2:=(((YF_MMD + YF_YYZ) + JJ1) / 3);
JJ02:=(((ABS((YF_MMD - JJ2)) + ABS((YF_YYZ - JJ2))) + ABS((JJ1 - JJ2))) / 3);
YF_ZFD2:=IF((YF_YYZ1 < 3),0,((JJ02 / YF_MMD) * 100));
YF_BDF5:=IF(((((YF_TDCG > 0.5) AND ((YF_ZFD2 > 0.215) OR (LOW > YF_JZDF))) AND (CLOSE >= OPEN)) AND ((CLOSE >= 200) OR ((CLOSE < 200) AND (CLOSE1 < 11)))),1,0);
YF_DMRX:=IF((((YF_TDCG < (0 - 0.3)) AND ((YF_ZFD2 > 0.2) OR (HIGH < YF_JZDF))) AND ((OPEN >= CLOSE) OR (CLOSE1 < (0 - 1)))),1,0);
YF_DMR:=(YF_DMRX );
xg:((COUNT(YF_BDF5,BARSLAST(YF_DMR)) = 1) AND YF_BDF5);