{通达信角度线与黄金分割源码附图}
N:=20;
M:=60;
HH:=HHV(H,N);
LL:=LLV(L,N);
H1:=HHV(H,M);
L1:=LLV(L,M);
{黄金分割}
A1:=(H1-L1)*0.191+L1;
A2:=(H1-L1)*0.382+L1;
A3:=(H1-L1)*0.5+L1;
A4:=(H1-L1)*0.618+L1;
A5:=(H1-L1)*0.809+L1;
{角度线}
B1:=LL+(HH-LL)*0.191;
B2:=LL+(HH-LL)*0.382;
B3:=LL+(HH-LL)*0.5;
B4:=LL+(HH-LL)*0.618;
B5:=LL+(HH-LL)*0.809;
DRAWKLINE(H,O,L,C);
DRAWTEXT_FIX(1,0.01,0.01,0,'黄金分割'),COLORYELLOW;
DRAWTEXT_FIX(1,0.01,0.05,0,'角度线'),COLORCYAN;
DRAWLINE(H=HH,H,L=LL,L,0),COLORRED,LINETHICK2;
DRAWLINE(L=LL,L,H=HH,H,0),COLORGREEN,LINETHICK2;
STICKLINE(C>0,A1,A1,5,0),COLORLIRED;
STICKLINE(C>0,A2,A2,5,0),COLORLIGRAY;
STICKLINE(C>0,A3,A3,5,0),COLORLIGREEN;
STICKLINE(C>0,A4,A4,5,0),COLORLIBLUE;
STICKLINE(C>0,A5,A5,5,0),COLORLIMAGENTA;
STICKLINE(C>0,B1,B1,3,0),COLORRED,DOTLINE;
STICKLINE(C>0,B2,B2,3,0),COLORGREEN,DOTLINE;
STICKLINE(C>0,B3,B3,3,0),COLORBLUE,DOTLINE;
STICKLINE(C>0,B4,B4,3,0),COLORYELLOW,DOTLINE;
STICKLINE(C>0,B5,B5,3,0),COLORMAGENTA,DOTLINE;
