通达信操盘乾坤主图 源码

底1:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORMAGENTA;
 DRAWTEXT(CROSS(买线,卖线)AND V/REF(V,1)>=2.0,L*0.98,"起爆"),COLORYELLOW;
顶:IF(CROSS(80,RSI)*30,H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK5,COLORYELLOW;
 VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3;
顶1:IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,DRAWNULL),POINTDOT,LINETHICK9,COLORGREEN;
 A0:=(L+H+C*2)/4;
 A1B:EMA(A0,14),COLORGREEN,LINETHICK1;
 A2B:=EMA(A0,25),COLORLIBLUE,LINETHICK2;
 A1X:=(A1B-REF(A1B,1))/REF(A1B,1)*100,NODRAW;
 A2X:=(A2B-REF(A2B,1))/REF(A2B,1)*100,NODRAW;
看多:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL),COLORYELLOW,LINETHICK2;
逃顶:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL),COLORGREEN,LINETHICK2;
持股:IF(A1X>=0,A1B,DRAWNULL)COLORRED,LINETHICK1;
空仓:IF(A1X<0 AND A2X<0,A1B,DRAWNULL)COLORGREEN,LINETHICK2;
 STICKLINE(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF;
 STICKLINE(CROSS(A1X,0),C,O,2,0 ),COLOR0000CC;
 STICKLINE(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF;
 STICKLINE(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33;
 {金底背离}
DIFF:=EMA(CLOSE,7) - EMA(CLOSE,13);
 DEA:= EMA(DIFF,3);
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
 B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
 RSV:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;
 K:=SMA(RSV,3,1);
 D:=SMA(K,3,1);
 A2:=BARSLAST(REF(CROSS(K,D),1));
 B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);{KDJ底背离}
LC := REF(CLOSE,1);
 RSI1:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
 RSI2:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
 A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
 B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);
 TYB:=(HIGH + LOW + 2*CLOSE)/4;
 CCI4:=(TYB-MA(TYB,28))/(0.015*AVEDEV(TYB,28));
 B4:=BARSLAST(NOT(MA(C,5)<MA(C,10)<=5) AND CCI4>REF(CCI4,1) AND CROSS(CCI4,-100));
底背离:=((B1 AND B2) OR (B2 AND B3) OR (B1 AND B3) OR ( B4 AND CCI4<-90) ) AND D<20 ;
 DRAWICON(底背离,(LOW * 0.98),1);
 DRAWTEXT(底背离,(LOW * 0.97),"金底背离"),COLORYELLOW;

 {绝顶 }
日:=150;昨前:=3;
高1:=REF(HHV(H,日),昨前);
顶3:REFDATE(高1,DATE),COLORBLACK;
绝顶:=REFDATE(顶3,DATE),NODRAW;
跑:=绝顶=H AND ((C-L)<(O-C) OR (O-L)<(C-O)),NODRAW;
 STICKLINE(跑,C,O,2,0),COLOR777777;
 STICKLINE(跑,C,O,2,0),COLORAAAAAA;
 STICKLINE(跑,C,O,1,0),COLORCCCCCC;
 STICKLINE(跑,C,O,0.1,0),COLORFFFFFF;
 STICKLINE(跑,L,H,0,0),COLORFFFFFF;
 DRAWTEXT(跑,C*1.06,"绝顶")COLORFFFFFF;

 {介绍}
Z1:=STRCAT(HYBLOCK," ");
 Z2:=STRCAT(Z1,DYBLOCK);
 Z3:=STRCAT(Z2," ");
 DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORWHITE;
 IF(BARSLAST(TJ),REF(HIGH,BARSLAST(TJ)),DRAWNULL),COLORWHITE;{安上线}
IF(BARSLAST(TJ),REF(LOW,BARSLAST(TJ)),DRAWNULL),COLORWHITE;{安下线};
DRAWNUMBER(ISLASTBAR ,C,C),COLORWHITE;

上一页  [1] [2]