黄金分割 KT

{黄金分割 KT(1,99,4);}

GD:=HHV(H,30);

GG:=HHV(H,30);

DD:=LLV(L,30);

Z618:=0.618*GG+DD*0.382;

Z382:=0.382*GG+DD*0.618;

STICKLINE(CURRBARSCOUNT=KT,DD,GG,0,-1);

STICKLINE(CURRBARSCOUNT=KT,DD,DD,10,0);

STICKLINE(CURRBARSCOUNT=KT,GG,GG,10,0);

STICKLINE(CURRBARSCOUNT=KT,Z618,Z618,10,-1);

STICKLINE(CURRBARSCOUNT=KT,Z382,Z382,10,-1);

DRAWNUMBER(CURRBARSCOUNT=KT+2,GG,GG),COLORWHITE;

DRAWNUMBER(CURRBARSCOUNT=KT+2,DD,DD)DRAWABOVE,COLORWHITE;

DRAWNUMBER(CURRBARSCOUNT=KT+2,Z618,0.618)DRAWABOVE,COLORWHITE;

DRAWNUMBER(CURRBARSCOUNT=KT+2,Z618,Z618),COLORWHITE;

DRAWNUMBER(CURRBARSCOUNT=KT+2,Z382,0.382)DRAWABOVE,COLORWHITE;

DRAWNUMBER(CURRBARSCOUNT=KT+2,Z382,Z382),COLORWHITE;