通达信副图显示周k线.源码

副图显示周k线,可以在观察日线时,同时知晓股票前面周高低.涨跌了多少周？心中多杆称.不办湖涂事！
A图周k线看周五,前面是每日变化进程。股海网提供：www.guhai.com.cn}
B图周k线省略入进程,清楚一点,意义一样,各取所需吧！向大家问好！

副图显示周线A

A:=WEEKDAY-REF(WEEKDAY,1);
B:=DATETODAY(DATE)-REF(DATETODAY(DATE),1);
周天数:=1+BARSLAST(BARSCOUNT(C)=0 OR A!=B),NODRAW;
本周已交易天数:周天数,NODRAW;
{上面援用日线显示周线的作者,向你问候.向理想致敬}
开盘:=周天数=1;
周距:=周天数<5,周天数>1;
RR:=BACKSET(周天数<REF(周天数,1),2),NODRAW;
周未:=( RR=1 AND 周天数!=1) OR WEEKDAY=5 ,NODRAW;
周开盘:IF(开盘*O,开盘*O,REF(开盘*O,周天数=2)*周距),NODRAW;
周最高:HHV(H,周天数),COLORYELLOW,NODRAW;
周最低:LLV(L,周天数),COLOR00FF00,NODRAW;
收盘价:C,NODRAW;
DRAWKLINE(周最高,周开盘,周最低,收盘价);
STICKLINE(周未 AND 周开盘>C,周开盘,C,2,0),COLORGREEN;
STICKLINE(周未 AND 周开盘<C,周开盘,C,2,0),COLORYELLOW;
STICKLINE(周未 AND 周开盘>C,周最高,周最低,0,0),COLORGREEN;
STICKLINE(周未 AND 周开盘<C,周最高,周最低,0,0),COLORYELLOW;

=======================

副图显示周线B

A:=WEEKDAY-REF(WEEKDAY,1);
B:=DATETODAY(DATE)-REF(DATETODAY(DATE),1);
周天数:=1+BARSLAST(BARSCOUNT(C)=0 OR A!=B),NODRAW;
本周已交易天数:周天数,NODRAW;
{上面援用日线显示周线的作者,向你问候.向理想致敬}
开盘:=周天数=1;
周距:=周天数<5,周天数>1;
RR:=BACKSET(周天数<REF(周天数,1),2),NODRAW;
周未:=( RR=1 AND 周天数!=1) OR WEEKDAY=5 ,NODRAW;
周开盘:IF(开盘*O,开盘*O,REF(开盘*O,周天数=2)*周距),NODRAW;
周最高:HHV(H,周天数),COLORYELLOW,NODRAW;
周最低:LLV(L,周天数),COLOR00FF00,NODRAW;
收盘价:C,NODRAW;
STICKLINE(周未 AND 周开盘>C,周开盘,C,2,0),COLOREAEAAE;
STICKLINE(周未 AND 周开盘<C,周开盘,C,2,0),COLORRED;
STICKLINE(周未 AND 周开盘>C,周最高,周最低,0,0),COLOREAEAAE;
STICKLINE(周未 AND 周开盘<C,周最高,周最低,0,0),COLORRED;
=======================