通达信五域操盘副图 源码

{五域操盘}
 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;{股海网提供：www.guhai.com.cn}
 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;