通达信涨跌停K线变色,注册制后的涨跌停板加入炸板和开板变色

以下是通达信涨跌停K线变色,注册制后的涨跌停板加入炸板和开板变色

注册制后的涨跌停板，加入炸板和开板变色

对涨跌停K线变色做了修改，加入PERIOD函数，限定周期为日线，不影响周线月线等其它周期观感。

另加入开板变色，不过准确性有待实际验证。

注册制后的涨跌停板，加入炸板和开板变色

对涨跌停K线变色做了修改，加入PERIOD函数，限定周期为日线，不影响周线月线等其它周期观感。
另加入开板变色，不过准确性有待实际验证。
源码如下，肯定有不足，还请多指点。

{涨跌停K线变色}
RQ:=IF(DATE>=1200824,1,0);
KCB:=IF(INBLOCK('科创板'),1,0);
CYB:=IF(INBLOCK('创业板') AND RQ,1,0);
{20%涨停黄色，跌停蓝色}
STICKLINE(C/REF(C,1)>1.195 AND C=H AND (KCB OR CYB) AND PERIOD=5,O,C,3,0),COLORYELLOW;
STICKLINE(C/REF(C,1)<0.805 AND C=L AND (KCB OR CYB) AND PERIOD=5,O,C,3,0),COLORBLUE;
{10%涨停红色，跌停绿色}
STICKLINE(C/REF(C,1)>1.095 AND C=H AND NOT(KCB OR CYB) AND PERIOD=5,O,C,3,0),COLORRED;
STICKLINE(C/REF(C,1)<0.905 AND C=L AND NOT(KCB OR CYB) AND PERIOD=5,O,C,3,0),COLORGREEN;
{涨停炸板洋红色，跌停撬板淡蓝色}
STICKLINE(H/REF(C,1)>1.195 AND C<H AND (KCB OR CYB) AND PERIOD=5,O,C,3,0),COLORMAGENTA;{炸板}
STICKLINE(L/REF(C,1)<0.805 AND C>L AND (KCB OR CYB) AND PERIOD=5,O,C,3,0),COLORLIBLUE;{撬板}
STICKLINE(H/REF(C,1)>1.095 AND C<H AND NOT(KCB OR CYB) AND PERIOD=5,O,C,3,0),COLORMAGENTA;{炸板}
STICKLINE(L/REF(C,1)<0.905 AND C>L AND NOT(KCB OR CYB) AND PERIOD=5,O,C,3,0),COLORLIBLUE;{撬板}