通达信周期箱体主图源码贴图

此指标用到了：PEAK\TROUGH\TROUGHBARS\PEAKBARS四个未来函数。可谓未来“集群”！沙盘推演根本无法有效定位，但的确很准。敢用的朋友你可以玩玩！
 

ST:=(CLOSE/OPEN+1)*100;
ZF:=(C/REF(C,1)+1)*100;
SX1:=ST>3 AND ST=HHV(ST,5);
SX2:=ZF>3 AND ZF=HHV(ZF,5);
SX3:=ZF>=9 AND CLOSE=HIGH;
S:=IF(SX1 OR SX2 OR SX3,1,0),COLOR0000FF;
DYSJ:=WEEKDAY;
监测:=IF(DYSJ<=13 AND COUNT(C>REF(L,DYSJ),DYSJ)>=DYSJ+1,DYSJ,0),COLOR00FFFF;
关注:=IF(DYSJ>=5 AND COUNT(H>REF(H,DYSJ),5)>=5,REF(H,DYSJ),REF(H,DYSJ)),COLOR00FFFF;
监测②:=IF(关注=REF(L,DYSJ),REF(L,DYSJ),REF(L,DYSJ)),COLORFFFFFF;
STICKLINE(监测,监测②,监测②,3,0),COLOR00FFFF;
BF1:=LOW<关注*1.01 AND COUNT(LOW<关注*1.01,监测)=1;
BF2:=LOW<关注 AND COUNT(LOW<关注,监测)=1;
BF:=IF(BF1 OR BF2,1,0),COLOR00FF00;
支撑:STICKLINE(监测,关注,关注,6,0),COLORFF00FF;
【箱顶】:PEAK(HIGH,10,1)*0.98,COLOR9F9F5F,LINETHICK1;
【箱底】:TROUGH(LOW,10,1)*1.02,COLORFF33FF,LINETHICK1;
A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
A4:=SMA(A3,3,1);
A5:=SMA(A4,3,1);
A6:=3*A4-2*A5;
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
STICKLINE(买,OPEN,CLOSE,2,0),COLORYELLOW;
VAR2X:=TROUGHBARS(3,15,1)<10;
VAR3X:=PEAKBARS(3,15,1)<10;
VAR4X:=IF(VAR2X=1,50,0);
VAR5X:=IF(VAR3X=1,50,0);
底部:=IF(VAR4X=50,10,0);
多头能量:=0,COLORWHITE,LINETHICK2;
买入:=IF(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,50,0),COLOR0000CC,LINETHICK2;
{买入延迟线:底部,LINETHICK1 ,COLOR00CCFF;}
STICKLINE(买入=50,H*1.1,L*0.97,0.3,0),COLORWHITE;
DRAWTEXT(买入=50,L*0.945,'关'),COLORWHITE;
DRAWTEXT(买入=50,L*0.922,'注'),COLORWHITE;
操:=MA(C,5);
分界:HHV(操,13),LINETHICK1,COLORFFB9CC;
BIAS1:=MA((CLOSE-MA(CLOSE,13))/MA(CLOSE,13),3)*100,COLORWHITE;
BIAS3:=MA((CLOSE-MA(CLOSE,27))/MA(CLOSE,27),3)*100,COLORFF00FF,LINETHICK2;
操作区:=IF(BIAS3<0,BIAS3,0),COLORRED,LINETHICK3;
观望区:=IF(BIAS3>0,BIAS3,0),COLORGREEN,LINETHICK3;
VAR2K:=TROUGHBARS(3,15,1)<10;
VAR3K:=PEAKBARS(3,15,1)<10;
VAR4K:=IF(VAR2K=1,50,0);
VAR5K:=IF(VAR3K=1,50,0);
TJ1K:=观望区;
TJ2K:=操作区>REF(操作区,1);
顶:=IF(TJ1K AND VAR5K=50,15,0),STICK,LINETHICK1,COLORGREEN;
底:=IF(TJ2K AND VAR4K=50,10,0),STICK,LINETHICK1,COLORRED;
DRAWICON(TJ1K AND VAR5K=50,HHV(H,10)+0.1,2);
DRAWICON(TJ2K AND VAR4K=50,LLV(L,10)-0.06,1);
STICKLINE(TJ1K AND VAR5K=50,HHV(H,10),HHV(H,10)-0.06,2,1),COLORGREEN;
STICKLINE(TJ2K AND VAR4K=50,LLV(L,10),LLV(L,10)+0.06,2,1),COLORRED;
VAR1:=EMA(C,3);
VAR2:=EMA(C,5);
VAR3:=EMA(C,10);
VAR4:=EMA(C,20);
VAR5:=EMA(C,30);
VAR6:=(VAR2+VAR3+VAR4+VAR5)/4;
VAR7:=(VAR6-REF(VAR6,15))/REF(VAR6,15)*100;
VAR8:=(VAR6-REF(VAR6,15))/REF(VAR6, 15)*100;
VAR9:=EMA(VAR7,8);
STICKLINE(VAR7<1*REF(VAR7,1),H,L,0,0),COLORBLUE;
STICKLINE(VAR7<1*REF(VAR7,1),O,C,3,1),COLORBLUE;
STICKLINE(VAR7>1*REF(VAR7,1),H,L,0,0),COLORRED;
STICKLINE(VAR7>1*REF(VAR7,1),O,C,3,1),COLORRED;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),H,L,0,0),COLORGREEN;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),O,C,3,0),COLORGREEN;
买进价:=((C-REF(MA(C,6),1))/6+MA(C,6))*1.004;
买进条件:=CROSS(C,买进价) AND 买进价>REF(买进价,1);
STICKLINE(买进条件,H,L,0,0),COLORWHITE,LINETHICK2;
STICKLINE(买进条件,O,C,3,0),COLORWHITE,LINETHICK2;
加码价:=((C-REF(MA(C,18),1))/18+MA(C,18))*1.004;
加码条件:=CROSS(C,加码价) AND 加码价>REF(加码价,1);
STICKLINE(加码条件,H,L,0,0),COLORYELLOW,LINETHICK1;
STICKLINE(加码条件,O,C,3,0),COLORYELLOW,LINETHICK1;