通达信主图动态黄金分割+成交量+压力支撑位+附千股千评公式

E:=(HIGH+LOW+OPEN+2*CLOSE)/5;
AAA:=2*E-LOW,NODRAW;
AB:=2*E-HIGH,NODRAW;
ACC:=E+(HIGH-LOW),NODRAW;
ADD:=E-(HIGH-LOW),NODRAW;
今阻力:REF(AAA,1),COLORWHITE,NODRAW;
今支撑:REF(AB,1),COLORYELLOW,NODRAW;
明阻力:AAA,COLORCYAN,NODRAW;
明支撑:AB,COLORMAGENTA,NODRAW;
明突破:ACC,COLORGREEN,NODRAW;
明反转:ADD,COLORLICYAN,NODRAW;

{动态黄金分割}
{N 1 1000 120}

指导线:MA(CLOSE,5);

VAR1:=LLV(LOW,N);

VAR2:=HHV(HIGH,N);

VAR3:=VAR2-VAR1;

H191: VAR3*0.191+VAR1,DOTLINE;

H382: VAR3*0.382+VAR1,DOTLINE;

H050: VAR3*0.5+VAR1,DOTLINE;

H618: VAR3*0.618+VAR1,DOTLINE;

H809: VAR3*0.809+VAR1,DOTLINE;

低点: VAR1,DOTLINE;

高点: VAR2,DOTLINE;

AA1:=AMOUNT/V;

BB1:=L<AA1*0.9;

CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;

DD1:=L<MA(C,5)*0.921;

EE1:=V<MA(V,5)*1.5;

FF1:=BB1 AND CC1 AND DD1 AND EE1;

DRAWTEXT(FF1,(LOW* 0.96),'短进'),COLOR00FFFF;

{成交量}
MAXV:=CONST(HHV(VOL,21));
MAXS:=CONST(HHV(HIGH,21));
BS:=MAXV/MAXS;
VOLUME:=VOL/BS*0.10;
ORIGIN:=CONST(LLV(LOW,0))-CONST(0.5*HHV(VOLUME,0)),;
STICKLINE(CLOSE>=OPEN,ORIGIN,ORIGIN+VOLUME,0.2,0),COLORRED;
STICKLINE(CLOSE<OPEN,ORIGIN,ORIGIN+VOLUME,0.2,0),COLORGREEN;
{压力+支撑}
压力:MA(REF(HHV(C,30),1),2),COLORRED;
支撑:MA(REF(LLV(C,30),1),2),COLORRED;
{千股千评}
DRAWTEXT_FIX(1,0,0.01,0,STRCAT('千股千评: ',EXTERNSTR(0,1))),COLOR0000FF;