通达信量价异动未加密选股指标公式源码

通达信量价异动未加密选股指标公式源码

源码正文：

AA:=1;
BB:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
CC:=IF(((((AMOUNT / CLOSE) / (HHV(AMOUNT,9) / HHV(CLOSE,9))) * 100) > 100),100,(((AMOUNT / CLOSE) / (HHV(AMOUNT,9) / HHV(CLOSE,9))) * 100));
DD:=(BB / CC);
价异动排序:IF(AA,(DD / REF(DD,1)),0),stICK,COLOR0000FF;
EE:=(CC / BB);
量异动排序:IF(AA,(EE / REF(EE,1)),0),STICK,COLORFFFF00;
AAA:=((xma(CLOSE,5) - REF(Xma(CLOSE,5),1)) / REF(XMA(CLOSE,5),1));
BBB:=((XMA(INDEXC,5) - REF(XMA(INDEXC,5),1)) / REF(XMA(INDEXC,5),1));
CCC:=REF(HHV(CLOSE,120),1);
DDD:=REF(LLV(CLOSE,120),1);
WW:=((100 * (CLOSE - DDD)) / (CCC - DDD));
今日资金流:(AMOUNT/100000000);
五日资金流:(ema(今日资金流,5)/REF(EMA(今日资金流,5),5));
庄股:=((((((五日资金流 >= 2) AND (AAA > BBB)) AND (WW < 35)) AND AA) AND (BARSCOUNT(CLOSE) > 30)) OR (((((五日资金流 >= 2) AND (AAA > BBB)) AND (WW < 100)) AND AA) AND (BARSCOUNT(CLOSE) < 50)));
庄家显形:IF(庄股,888,0),LINETHICK1,COLORFF00FF;
A01:=DYNAINFO(7);
A02:=MA(AMOUNT / vol / 100.000,VOL / CAPITAL);
A03:=BARSCOUNT(CLOSE);
A04:=SMA(CLOSE / HHV(HIGH, 120.000), 3.000, 1.000) * 100.000;
A05:=IF((A03 > 20.000),A04,0);
A06:=IF(((LOW > A01)),0,IF(((HIGH < A01)), 1.000,((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009)));
A07:=dma(A06,VOL / CAPITAL) * 100.000;
A08:=IF((A02 > A01),( 100.000 - A07),A07);
A09:IF(((((A07 > 0) AND (A07 > REF(A07, 1.000)))) AND (A05 <= 88.000)),A07,0),COLORBLUE,LINETHICK1;
STICKLINE(A09 > 0,0,A09,0,0),COLORLIMAGENTA{X_G?5*1_C_N_{};

通达信自用实战MACD未加密选股指标公式源码

源码正文：

difF:=(ema(CLOSE,12) - Ema(CLOSE,26)){XG51};
DEA:=EMA(DIFF,9){XG51};
macd2:=(2 * (DIFF - DEA)){XG51};
DU0:=crOSS(DIFF,0){XG51};
UD0:=CROSS(0,DIFF){XG51};
TDU0:=BArslAst(DU0){XG51};
TUD0:=BARSLAST(UD0){XG51};
DU3:=REF(DU0,1){XG51};
UD3:=REF(UD0,1){XG51};
TDU3:=BARSLAST(DU3){XG51};
TUD3:=BARSLAST(UD3){XG51};
UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3)){XG51};
JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0)){XG51};
JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0)){XG51};
JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1)){XG51};
JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1)){XG51};
JDU2:=(JDU1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1))){XG51};
JUD2:=(JUD1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1))){XG51};
JDU3:=(JDU1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1))){XG51};
JUD3:=(JUD1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1))){XG51};
bsLINE:=IF((BARSLAST(JDU2) < BARSLAST(JUD2)),IF(REF(CROSS(0,MacD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1))))){XG51};
STICKLINE((MACD2>=0),0,MACD2,1,1),COLOR0000FF{XG51};
STICKLINE(((MACD2>=0) AND (MACD2 < REF(MACD2,1))),0,MACD2,1,0),COLORWHITE{XG51};
STICKLINE((MACD2<0),0,MACD2,1,0),COLORFFFF00{XG51};
STICKLINE(((MACD2<0) AND (MACD2 > REF(MACD2,1))),0,MACD2,1,1),COLORGREEN{XG51};
DIF:DIFF,LINETHICK2,COLOR00FFFF{XG51};
DEF:DEA,COLOR00FF00{XG51};
MACD:MACD2,LINETHICK0,COLORFFFF00{XG51};
DEFUT:=BARSLAST(CROSS(MACD2,0)){XG51};
DEFDT:=BARSLAST(CROSS(0,MACD2)){XG51};
DEFUL:=IF((MACD2 >= 0),HHV(MACD2,(DEFUT + 1)),REF(HHV(MACD2,(DEFUT + 1)),(DEFDT + 1))){XG51};
DEFDL:=IF((MACD2 < 0),LLV(MACD2,(DEFDT + 1)),REF(LLV(MACD2,(DEFDT + 1)),(DEFUT + 1))){XG51};
DEFU2L:=REF(DEFUL,(DEFUT + 1)){XG51};
DEFD2L:=REF(DEFDL,(DEFDT + 1)){XG51};
DRAWICON(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),MACD2,2){XG51};
DRAWICON(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),MACD2,1){XG51};
DRAWICON(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),MACD2,1){XG51};
DRAWICON(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),MACD2,2);
DRAWTEXT(CROSS(DIF,DEA),DIF-0.1,'建仓'),COLORWHITE{XG51};
DRAWTEXT(CROSS(DEA,DIF),DIF+0.1,'空仓'),COLORCYAN{XG51};
建仓:IF(DIF<0,DIF,0),COLORBLUE,LINETHICK2{XG51};
加仓:IF(DIF<0,0,DIF),COLORWHITE,LINETHICK2{XG51};
白线破仓:IF(DIF<DEA,DIF,DEA),COLORRED,LINETHICK2{XG51};
趋势强弱:IF(DIF>DEA,DEA,DEA),COLORFF937F,LINETHICK2{X^G_5_1^C^N^{};