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

　　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;