通达信主图月周日裸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);
 

改成 周日时共图源码
 
PED:=PERIOD>4 ;
 MC:=IF(PED,C#MONTH,C#WEEK);
 MO:=IF(PED,O#MONTH,O#WEEK);
 MH:=IF(PED,H#MONTH,H#WEEK);
 ML:=IF(PED,L#MONTH,L#WEEK);
 ZC:=IF(PED,C#WEEK,C#DAY);
 ZO:=IF(PED,O#WEEK,O#DAY);
 ZH:=IF(PED,H#WEEK,H#DAY);
 ZL:=IF(PED,L#WEEK,L#DAY);