箱体共振主图源码

​{箱体共振组合主图}

N:=34;

HHV(CLOSE,N),LINETHICK2,COLORYELLOW;

LLV(CLOSE,N),LINETHICK2,COLORYELLOW;

LLV(CLOSE,8),LINETHICK1,COLORCYAN;

LL2:=REF(L,BARSLAST(L=LLV(L,N)));

HH2:=REF(H,BARSLAST(H=HHV(H,N)));

H3:=(HH2+LL2)/2;

天:REFDATE(HH2,DATE),COLORYELLOW,LINETHICK4,POINTDOT;

地:REFDATE(LL2,DATE),COLOR00FF00,LINETHICK4,POINTDOT;

中:REFDATE(H3,DATE),COLORWHITE,LINETHICK4,POINTDOT;

RSV1:=(CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100;

K1:=SMA(RSV1,5,1);

D1:=SMA(K1,5,1);

J:=3*K1-2*D1;

X:=REF(J,1)<10 AND H>REF(H,1) AND C>REF(C,1) AND C>REF(O,1) AND L>REF(L,1);

X8:=REF(K1,1)>80 AND H>REF(H,1) AND C>REF(C,1) AND C>REF(O,1) AND L>REF(L,1);

STICKLINE(X8,C ,O,2,0),COLOR1880FF;

STICKLINE(X8,L ,H,0,0),COLOR1880FF;

STICKLINE(X8,L ,L,20,0),COLOR1880FF;

STICKLINE(X,L ,L,20,0),COLOR008888;

STICKLINE(X,L ,H,0,0),COLORFF00FF;

STICKLINE(X,C ,O,2,0),COLORFF00FF;

V2:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);

STICKLINE(V2>=1,O,C,0.8,0),COLORYELLOW;

T12:=V2>=1;

T0:=BARSLAST(T12);

L11:=REF(L,T0);

H55:=REF(H,T0);

STICKLINE(REF(T12,1) OR REF(T12,2) OR REF(T12,3),H55,H55,18,-1),COLORWHITE;

STICKLINE(REF(T12,1) OR REF(T12,2) OR REF(T12,3),L11,L11,18,-1),COLORWHITE;

VAR9:=CLOSE-REF(CLOSE,5);

VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5);

VARC:=EMA(EMA(VAR9,10),10)/EMA(EMA(ABS(VAR9),20),20);

卖出:=IF(VARA>0 AND CROSS(VARC,VARA),90,100);

DRAWICON(卖出<0,H+0.05,2); 买线:=EMA(CLOSE,2);

卖线:=EMA(SLOPE(CLOSE,11)*10+CLOSE,22);

B1:IF(CROSS(买线,卖线),L-0.05,DRAWNULL),CROSSDOT,LINETHICK3,COLORMAGENTA;

B2:IF(CROSS(卖线,买线),H+0.05,DRAWNULL),CROSSDOT,LINETHICK3,COLORGRAY;

S1:IF(CROSS(20,RSI)*10,H+0.05,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;

VC:=((CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100+(CLOSE-MA(CLOSE,20))/MA(CLOSE,20)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3;

S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.05,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORGREEN;

A0:=(L+H+C*2)/4;

A1:EMA(A0,5)COLORBLUE,LINETHICK2;

A2:=EMA(A0,10)COLORLIBLUE,LINETHICK2;

A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;

A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW;

看多:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL),COLORMAGENTA{,LINETHICK2};

逃顶:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL),COLORCYAN,{LINETHICK2};

买入持股:IF(A1X>=0,A1,DRAWNULL)COLORRED,LINETHICK2;

卖出空仓:IF(A1X<0 AND A2X<0,A1,DRAWNULL)COLORGREEN,LINETHICK2;

持仓:IF(CLOSE>=SAR(4,2,20),SAR(4,2,20),

DRAWNULL),CIRCLEDOT,COLORRED,{COLOR9955FF};

_空仓:IF(CLOSE<=SAR(4,2,20),SAR(4,2,20),

DRAWNULL),CIRCLEDOT,COLORGREEN,{COLORDDFF00};