通达信主图月周日裸k同图,源码，黄金分割

主图月周日裸k同图,源码，黄金分割
开始整理公式，如喜欢，可能陆续发布
不用说明吧，发布公式，力求简单明了。可以自己组合进你的主图
大家喜欢，可以组成周日时裸k。。。。。。。。
或者季月周，这个有难度
 

STICKLINE(1=1,H,L,9,0)COLOR000000;

MC:=C#MONTH;MO:=O#MONTH;MH:=H#MONTH;ML:=L#MONTH;
ZC:=C#WEEK;ZO:=O#WEEK;ZH:=H#WEEK;ZL:=L#WEEK;
STICKLINE(MC>=MO,MO,MC,3,-1),COLOR73599D;
STICKLINE(MC<MO,MO,MC,3,-1),COLOR8A8E31;
STICKLINE(ZC>=ZO,ZO,ZC,4,0)COLOR00009C;
STICKLINE(ZC<ZO,ZO,ZC,4,0),COLOR9F3333;
KJY:=H#MONTH-L#MONTH;HY5:=H#MONTH-KJY*0.500;
HY1:=IF(CONST(C)>=H#MONTH-KJY*0.500,H#MONTH-KJY*0.382,H#MONTH-KJY*0.618),CIRCLEDOT;
HY2:=IF(CONST(C)>=H#MONTH-KJY*0.500,H#MONTH-KJY*0.191,H#MONTH-KJY*0.809),CIRCLEDOT;
HY3:=IF(CONST(C)>=H#MONTH-KJY*0.500,H#MONTH-KJY*0.25,H#MONTH-KJY*0.75),CIRCLEDOT;
STICKLINE(C , HY1,HY1,3,-1),COLORRED;
STICKLINE(C , HY2,HY2,3,-1),COLORFFFF00;
STICKLINE(C, HY5,HY5,3,1),COLORFF00FF;
STICKLINE(C , HY3,HY3,3,-1),COLORRED;
{STICKLINE(C AND 光<=55, HY5,HY5,3,1),COLORFF00FF;
STICKLINE(1,ZH,ZO,1/10,0),COLOR00599D;
STICKLINE(1,ZC,ZL,1/10,0),COLOR008E31;};
DRAWKLINE(H,O,L,C);