通达信日周月K线主图源码 贴图

{月涨跌}
月O:O#MONTH,NODRAW;
月H:=H#MONTH,NODRAW;
月L:=L#MONTH,NODRAW;
月C:C#MONTH,NODRAW;
STICKLINE(月C>=月O,月C,月O,5,-1),COLORLIRED;{月涨}
STICKLINE(月C<月O,月C,月O,5,-1),COLORGREEN;{月跌}
{周涨跌}
周O:O#WEEK,NODRAW;
周H:=H#WEEK,NODRAW;
周L:=L#WEEK,NODRAW;
周C:C#WEEK,NODRAW;
STICKLINE(周C>=周O,周O,周C,5,0)COLORCC3299;{周涨}
STICKLINE(周C<周O,周O,周C,5,0)COLORBLUE;{周跌}
DRAWKLINE(H,O,L,C);
{涨K线}
STICKLINE(C>O,C,O,2.6,0),COLOR000088;
STICKLINE(C>O,C,O,1.9,0),COLOR0000AA;
STICKLINE(C>O,C,O,1.2,0),COLOR0000CC;
STICKLINE(C>O,C,O,0.4,0),COLOR0000EE;
{跌K线}
STICKLINE(O>=C,C,O,2.6,0),COLOR009900;
STICKLINE(O>=C,C,O,1.9,0),COLOR00BB00;
STICKLINE(O>=C,C,O,1.2,0),COLOR00DD00;
STICKLINE(O>=C,C,O,0.4,0),COLOR00FF00;