自调KD指标 (源码)

ZK:= KD.K#WEEK (9,3,3); ZD:= KD.D#WEEK (9,3,3);
YK:= KD.K#MONTH (9,3,3); YD:= KD.D#MONTH (9,3,3);
日K:IF(T=0,K,-8),PRECIS2,LAYER0,ColorRED;
日D:IF(T=0,D,-8),PRECIS2,LAYER0,ColorA8A818;
KSL:K-REF(K,1),PRECIS2,Color986898,LINETHICK0;
DSL:D-REF(D,1),PRECIS2,Color6888B8,LINETHICK0;
日K角度:ATAN(K-REF(K,1))*180/3.1416,PRECIS0,Color888888,LINETHICK0;
周K:IF(T=1,ZK,-8),PRECIS2,LAYER0,Color189898;
周D:IF(T=1,ZD,-8),PRECIS2,LAYER0,Color188818;
月K:IF(T=2,YK,-8),PRECIS2,LAYER0,Color983898;
月D:IF(T=2,YD,-8),PRECIS2,LAYER0,Color688868;
CRSV:=(C-LLV(L,36))/(HHV(H,36)-LLV(L,36))*100;
K36:EMA(CRSV,5),Color985898,LINETHICK0;
D36:SMA(K36,5,1),Color988800,LINETHICK0;
{www.9m8.cn 九毛八公式指标网 股票软件下载网_最新股票指标公式}
80,POINTDOT,PRECIS0,LAYER1,Color585858;
20,POINTDOT,PRECIS0,LAYER1,Color887858;
STICKLINE(C 0,70,70,10,0),ColorBLACK;
STICKLINE(C 0,50,50,3,0),Color000000;
STICKLINE(C 0,30,30,10,0),ColorBLACK;
PARTLINE(K36,K36 D36,RGB(68,28,68),K36 =D36,RGB(8,58,88)),LAYER1,ColorBLACK;
PARTLINE(D36,K36 D36,RGB(68,28,68),K36 =D36,RGB(8,58,88)),LAYER1,ColorBLACK;
FILLRGN(K36,D36,K36 D36,RGB(58,20,58),K36 =D36,RGB(8,50,78)),LAYER1,ColorBLACK;
{背景}
FILLRGN(70,100,K D,RGB(50,0,0),K D,RGB(8,38,38)),ColorBLACK; {日K 日D红色、日K 日D青色}
FILLRGN(30,70,ZK ZD,RGB(42,42,0),ZK ZD,RGB(8,38,8)),ColorBLACK; {周K 周D黄色、周K 周D绿色}
FILLRGN(0,30,YK YD,RGB(33,18,33),YK YD,RGB(28,38,28)),ColorBLACK; {月K 月D紫色、月K 月D蓝色}