通达信缠论分笔主图指标 源码分享

通达信缠论分笔主图指标 源码分享

DFIX:=5;
KFIX:=2;
SHORT:=12;
LONG:=26;
MID:=9;
DIFF:=(EMA((CLOSE * 100),SHORT) - EMA((CLOSE * 100),LONG));
DEA:=EMA(DIFF,MID);
MACD2:=((DIFF - DEA) * 2);
DEAUP:=BARSLAST(LONGCROSS(MACD2,0,DFIX));
DIFUP:=BARSLAST(LONGCROSS(MACD2,0,DFIX));
LASTH:=MIN(DIFUP,DEAUP);
DEADN:=BARSLAST(LONGCROSS(0,MACD2,DFIX));
DIFDN:=BARSLAST(LONGCROSS(0,MACD2,DFIX));
LASTL:=MIN(DEADN,DIFDN);
ISGG:=BACKSET(LONGCROSS(0,MACD2,1),(DIFUP + KFIX));
ISDD:=BACKSET(LONGCROSS(MACD2,0,1),(DIFDN + KFIX));
GG:=((H = HHV(H,(DIFUP + KFIX))) AND ISGG);
DD:=((L = LLV(L,(DIFDN + KFIX))) AND ISDD);
GGP:=BARSLAST(GG);
DDP:=BARSLAST(DD);
距离:IF(GG,DDP,IF(DD,GGP,DRAWNULL)),NODRAW;
笔力度:IF(GG,(HHV(H,(GGP + 1)) - LLV(L,(DDP + 1))),IF(DD,(HHV(H,(GGP + 1)) - LLV(L,(DDP + 1))),DRAWNULL)),NODRAW;
上升力度:=IF(GG,((HHV(H,(GGP + 1)) - LLV(L,(DDP + 1))) / DDP),DRAWNULL);
下降力度:=IF(DD,((HHV(H,(GGP + 1)) - LLV(L,(DDP + 1))) / GGP),DRAWNULL);
轮回点:=(GG OR DD);
NZ1:=BARSLAST(轮回点);
NZ2:=((REF(NZ1,(NZ1 + 1)) + NZ1) + 1);
NZ3:=(REF(NZ2,NZ2) + NZ2);
NZ4:=(REF(NZ2,NZ3) + NZ3);
平均力度:=IF(GG,((HHV(H,(GGP + 1)) - LLV(L,(DDP + 1))) / DDP),((HHV(H,(GGP + 1)) - LLV(L,(DDP + 1))) / GGP));
纠偏率:IF(轮回点,(笔力度 / REF(笔力度,NZ2)),DRAWNULL),NODRAW;
盘背率:IF(轮回点,(笔力度 / REF(笔力度,NZ3)),DRAWNULL),NODRAW;
CDAY:=CLOSE;
MA5:MA(CDAY,5);
MA10:MA(CDAY,10),NODRAW;
MA21:MA(CDAY,21),NODRAW;
MA60:MA(CDAY,60),NODRAW;
MA250:MA(CDAY,250),NODRAW;
ISLINE:=BACKSET((GG OR DD),MAX(GGP,DDP));
LBG:=IF((GGP > DDP),L,H);
LED:=IF((GGP > DDP),(REF(L,DDP) + (REF(下降力度,DDP) * DDP)),(REF(H,GGP) - (REF(上升力度,GGP) * GGP)));
LED2:=IF((GGP > DDP),(REF(L,DDP) + ((REF(下降力度,DDP) * 2) * DDP)),(REF(H,GGP) - ((REF(上升力度,GGP) * 2) * GGP)));
LED3:=IF((GGP > DDP),(REF(L,DDP) + ((REF(下降力度,DDP) / 2) * DDP)),(REF(H,GGP) - ((REF(上升力度,GGP) / 2) * GGP)));
上升:DRAWLINE(DD,L,GG,H,0),COLORMAGENTA;
下降:DRAWLINE(GG,H,DD,L,0),COLORGREEN;
STICKLINE((((C - REF(C,1)) / REF(C,1)) > 0.05),(MAX(O,C) - (ABS((O - C)) / 3)),(MAX(O,C) - ((ABS((O - C)) * 2) / 3)),2.5,0),COLORYELLOW;
STICKLINE((((C - REF(C,1)) / REF(C,1)) > 0.095),(MAX(O,C) - (ABS((O - C)) / 3)),(MAX(O,C) - ((ABS((O - C)) * 2) / 3)),2.5,0),COLORMAGENTA;
STICKLINE((((C - REF(C,1)) / REF(C,1)) < -0.05),(MAX(O,C) - (ABS((O - C)) / 3)),(MAX(O,C) - ((ABS((O - C)) * 2) / 3)),2.5,0),COLORFF0000;
STICKLINE((((C - REF(C,1)) / REF(C,1)) < -0.095),(MAX(O,C) - (ABS((O - C)) / 3)),(MAX(O,C) - ((ABS((O - C)) * 2) / 3)),2.5,0),COLORGREEN;
STICKLINE(((C < REF(C,1)) AND (CLOSE > OPEN)),CLOSE,OPEN,0.5,0),COLORGREEN;
DRAWICON((((PERIOD > 2) AND (C < REF(C,1))) AND (CLOSE > OPEN)),L,23);
STICKLINE(((C > REF(C,1)) AND (CLOSE < OPEN)),CLOSE,OPEN,0.5,0),COLOR0033FF;
DRAWICON((((PERIOD > 2) AND (C > REF(C,1))) AND (CLOSE < OPEN)),H,23);
均价:DYNAINFO(11),POINTDOT,COLORWHITE;
UP1:=SUMBARS(LONGCROSS("MACD.MACD",0,DFIX),1);
UP2:=SUMBARS(LONGCROSS("MACD.MACD",0,DFIX),2);
DP1:=SUMBARS(LONGCROSS(0,"MACD.MACD",DFIX),1);
DP2:=SUMBARS(LONGCROSS(0,"MACD.MACD",DFIX),2);
高:=IF(("MACD.MACD" > 0),HHV(H,UP2),HHV(H,UP1));
低:=IF(("MACD.MACD" > 0),LLV(L,DP1),LLV(L,DP2));
H1:=(高 - ((高 - 低) * 0.191));
H2:=(高 - ((高 - 低) * 0.382));
H3:=(高 - ((高 - 低) * 0.5));
H4:=(高 - ((高 - 低) * 0.618));
H5:=(高 - ((高 - 低) * 0.809));
STICKLINE((CURRBARSCOUNT = 7),高,高,100,-1),COLORGREEN;
STICKLINE((CURRBARSCOUNT = 7),H1,H1,100,-1),COLORCYAN;
STICKLINE((CURRBARSCOUNT = 7),H2,H2,100,-1),COLORCCCCCC;
STICKLINE((CURRBARSCOUNT = 7),H3,H3,100,0),COLORYELLOW;
STICKLINE((CURRBARSCOUNT = 7),H4,H4,100,-1),COLOR8080FF;
STICKLINE((CURRBARSCOUNT = 7),H5,H5,100,-1),COLORMAGENTA;
STICKLINE((CURRBARSCOUNT = 7),低,低,100,-1),COLORRED;
主力控盘:(WINNER((C / 1.16)) * 100),NODRAW;
强庄控盘:(WINNER((C / 1.3)) * 100),NODRAW;
对手盘:((PERIOD = 5) * (COUNT((((C > REF(C,1)) AND (OPEN < CLOSE)) AND (VOL > REF(VOL,1))),10) - COUNT(((C < REF(C,1)) AND (VOL > REF(VOL,1))),10))),NODRAW;
获利比例:(WINNER(C) * 100),NODRAW;