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

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) - ((