通达信自动画黄金分割线主图源码

以下是通达信自动画黄金分割线主图源码

{自动画黄金分割线}

{《股价结构压力与支撑-附录指标》作者：华强}

{背景}

DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);

{K线色}

STICKLINE(CLOSE>OPEN,HIGH,LOW,0,0 ),COLOR0000C0;

STICKLINE(CLOSE>OPEN,OPEN,CLOSE,2.2,0 ),COLOR0000C0;

STICKLINE(CLOSE<OPEN,HIGH,LOW,0,0 ),COLOR00C000;

STICKLINE(CLOSE<OPEN,OPEN,CLOSE,2.2,0 ),COLOR00C000;

STICKLINE(CLOSE=OPEN,HIGH,LOW,0,0 ),COLORWHITE;

STICKLINE(CLOSE=OPEN,OPEN,CLOSE,2.2,0 ),COLORWHITE;

{自动画黄金分割线-源码}

N:=74;

M:=3;

PC:=(C+REF(C,1)+0)/3;

高:=REF(HHV(H,N),M);

低:=REF(LLV(L,N),M);

H19:=高-(高-低)*0.191;

H38:=高-(高-低)*0.382;

H中:=高-(高-低)*0.5;

H61:=高-(高-低)*0.618;

H80:=高-(高-低)*0.809;

顶点:REFDATE(高,DATE),COLORWHITE;

%19.8:REFDATE(H19,DATE),COLORYELLOW;

%38.2:REFDATE(H38,DATE),COLORMAGENTA;

%50:REFDATE(H中,DATE),COLORRED;

%61.8:REFDATE(H61,DATE),COLORMAGENTA;

%80.9:REFDATE(H80,DATE),COLORYELLOW;

低点:REFDATE(低,DATE),COLORWHITE;

DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORWHITE;

DRAWTEXT(ISLASTBAR,%19.8,'%19.8'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,%38.2,'%38.2'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR,%50,'50%'),COLORRED;

DRAWTEXT(ISLASTBAR,%61.8,'%61.8'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR,%80.9,'%80.9'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,低点,'低点'),COLORWHITE;