通达信上山寻宝主图 上山寻宝副图公式主副图源码

上山寻宝主图  上山寻宝副图配合使用。

{上山寻宝主图}

高1:=REF(HHV(H,120),3);

低1:=REF(LLV(L,120),3);

H1:=高1-(高1-低1)*0.191;

H2:=高1-(高1-低1)*0.382;

H3:=高1-(高1-低1)*0.5;

H4:=高1-(高1-低1)*0.618;

H5:=高1-(高1-低1)*0.809;

突破:=REF(EMA(C,14),1);

A1X:=(EMA(C,10)-突破)/突破*100;

基准:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1));

STICKLINE(A1X>=0,基准,突破,5,0),COLOR000099;

STICKLINE(A1X<0,基准,突破,5,0),COLOR00CC66;

AA:=CROSS(A1X,0),LINETHICK0;

STICKLINE(A1X>=0,C,O,2.7,0),COLOR0011FF;

STICKLINE(A1X>=0,C,O,1.8,0),COLOR0044FF;

STICKLINE(A1X>=0,C,O,0.9,0),COLOR0077FF;

STICKLINE(A1X>=0,C,O,0.1,0),COLOR0099FF;

STICKLINE(A1X>=0,H,L,0,0),COLOR0099FF;

STICKLINE(AA,C,O,2.7,0),COLOR330033;

STICKLINE(AA,C,O,1.8,0),COLOR770077;

STICKLINE(AA,C,O,0.9,0),COLORBB00BB;

STICKLINE(AA,C,O,0.1,0),COLORFF00FF;

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

DRAWICON(AA,C*0.92,9);

DRAWTEXT(AA,C*0.98,'上山'),COLORRED;

BB:=CROSS(0,A1X),LINETHICK0;

STICKLINE(A1X<0,C,O,2.7,0),COLORAAAAAA;

STICKLINE(A1X<0,C,O,1.8,0),COLORCCCCCC;

STICKLINE(A1X<0,C,O,0.9,0),COLORDDDDDD;

STICKLINE(A1X<0,C,O,0.1,0),COLORFFFFFF;

STICKLINE(A1X<0,H,L,0,0),COLORFFFFFF;

STICKLINE(BB,C,O,2.7,0),COLOR333300;

STICKLINE(BB,C,O,1.8,0),COLOR555500;

STICKLINE(BB,C,O,0.9,0),COLOR777700;

STICKLINE(BB,C,O,0.1,0),COLOR999900;

STICKLINE(BB,H,L,0,0),COLOR999900;

DRAWICON(BB,C*1.05,15);

DRAWTEXT(BB,C*1.01,'下山'),COLOR00FF00;

{上山寻宝副图}

TYP:=(HIGH+LOW+CLOSE)/3;

CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),LINETHICK2,COLOR456456;

谷底:CCI<-150 ,LINETHICK0;

STICKLINE(谷底,CCI,-10,2.7,0),COLOR0011FF;

STICKLINE(谷底,CCI,-10,1.8,0),COLOR0044FF;

STICKLINE(谷底,CCI,-10,0.9,0),COLOR0077FF;

STICKLINE(谷底,CCI,-10,0.1,0),COLOR0099FF;

DRAWTEXT(谷底,CCI,'谷底'),COLOR0000FF;

山腰:CROSS(MA(V,5),MA(V,20))*5,LINETHICK0,COLORFF00FF;

STICKLINE(山腰,0,60,2.7,0),COLOR330033;

STICKLINE(山腰,0,60,1.8,0),COLOR770077;

STICKLINE(山腰,0,60,0.9,0),COLORBB00BB;

STICKLINE(山腰,0,60,0.1,0),COLORFF00FF;

山峰:CROSS(200,CCI) AND REF(CCI,2)<REF(CCI,1) AND CCI<REF(CCI,1) ;

STICKLINE(山峰,0,120,2.7,0),COLOR003300;

STICKLINE(山峰,0,120,1.8,0),COLOR007700;

STICKLINE(山峰,0,120,0.9,0),COLOR00BB00;

STICKLINE(山峰,0,120,0.1,0),COLOR00FF00;

DRAWTEXT(山峰,CCI,'山峰'),COLORFFFFFF;