通达信中枢通道自动画线主图指标源码

LTP:=FINANCE(7)/1000000;
{LTP赋值:流通股本(股)/1000000;}

SSTS:=BARSCOUNT(V)+1;
{SSTS赋值:成交量(手)的有效数据周期数+1;}

CF:(C-REF(C,1))/(REF(C,1))*100,COLORYELLOW,NODRAW;
{输出CF:(收盘价-1日前的收盘价)/(1日前的收盘价)*100,画黄色,不画该线;}

OF:(O-REF(C,1))/(REF(C,1))*100,COLORYELLOW,NODRAW;
{输出OF:(开盘价-1日前的收盘价)/(1日前的收盘价)*100,画黄色,不画该线;}

LF:(L-REF(C,1))/(REF(C,1))*100,COLORYELLOW,NODRAW;
{输出LF:(最低价-1日前的收盘价)/(1日前的收盘价)*100,画黄色,不画该线;}

HS:IF((SETCODE==0||SETCODE==1),100*VOL,VOL)/(FINANCE(7)/100),NODRAW;
{输出HS:如果(市场类型(0或者市场类型或者1),返回100*成交量(手),否则返回成交量(手)/(流通股本(股)/100),不画该线;}

HS0:AMOUNT/100000000,NODRAW;
{输出HS0:成交额(元)/100000000,不画该线;}

ST:(MAX(O,C)/MIN(O,C)-1)*100,COLORWHITE,NODRAW;
{输出ST:(开盘价和收盘价的较大值/开盘价和收盘价的较小值-1)*100,画白色,不画该线;}

ZF:((H-REF(C,1))/REF(C,1)+(REF(C,1)-L)/REF(C,1))*100,COLORMAGENTA,NODRAW;
{输出ZF:((最高价-1日前的收盘价)/1日前的收盘价+(1日前的收盘价-最低价)/1日前的收盘价)*100,画洋红色,不画该线;}

CF1:=IF(INBLOCK(‘科创板’)OR INBLOCK(‘创业板’),CF>19.75,9.75);
{CF1赋值:如果属于某板块或INBLOCK(‘创业板’),返回CF>19.75,否则返回9.75;}

SYX:(H/MAX(O,C)-1)*100,COLORYELLOW,NODRAW;
{输出SYX:(最高价/开盘价和收盘价的较大值-1)*100,画黄色,不画该线;}

DTTS:BARSLAST(CF< -20 OR(CF< -15 AND CF<=LLV(CF,21))OR(CF<=LLV(CF,40)AND CF< -11)OR
{输出DTTS:上次CF<-20或(CF<-15和CF<=21日内CF的最低值)或(CF<=40日内CF的最低值和CF<-11)或ST>20和C<开盘价距今天数不画该线;}

ST>20 AND C< O )NODRAW;
{输出DTHL:如果1日前的DTTS日前的收盘价<收盘价的最后一日取值设为常数*2和REF(DTTS日前的收盘价,1)>收盘价的最后一日取值设为常数*0.5,返回1日前的DTTS+1日内最低价的最高值,否则返回无效数画淡红色,线宽为2,不画该线;}

DTHL:IF(REF(REF(C,DTTS),1)< CONST(C)*2 AND REF(REF(C,DTTS),1)>CONST(C)*0.5,
{输出DTHOC:如果1日前的DTTS日前的收盘价<收盘价的最后一日取值设为常数*2和REF(DTTS日前的收盘价,1)>收盘价的最后一日取值设为常数*0.5,返回1日前的DTTS+1日内开盘价和收盘价的较大值的最高值,否则返回无效数画淡红色,线宽为2,不画该线;}

REF(HHV(L,DTTS+1),1),DRAWNULL)COLORLIRED,LINETHICK2,NODRAW;
{输出DTO:如果0日前的DTTS日前的收盘价<收盘价的最后一日取值设为常数*2和REF(DTTS日前的收盘价,0)>收盘价的最后一日取值设为常数*0.5,返回0日前的DTTS日前的1日前的最低价和开盘价的较大值,否则返回无效数画绿色,线宽为3;}

DTHOC:IF(REF(REF(C,DTTS),1)< CONST(C)*2 AND REF(REF(C,DTTS),1)>CONST(C)*0.5,
{输出DTL:如果0日前的DTTS日前的收盘价<收盘价的最后一日取值设为常数*2和REF(DTTS日前的收盘价,0)>收盘价的最后一日取值设为常数*0.5,返回0日前的DTTS日前的最低价,否则返回无效数画绿色,线宽为3;}

REF(HHV(MAX(O,C),DTTS+1),1),DRAWNULL)COLORLIRED,LINETHICK2,NODRAW;
{输出ZTTS:上次CF>20或(CF=21日内CF的最高值和CF>15)或(CF=40日内CF的最高值和CF>11)或ST>20和C>开盘价距今天数不画该线;}

DTO:IF(REF(REF(C,DTTS),0)< CONST(C)*2 AND REF(REF(C,DTTS),0)>CONST(C)*0.5,
{输出ZTC:如果到最后交易的周期<=ZTTS+0的最后一日取值设为常数和REF(ZTTS日前的收盘价,1)<收盘价的最后一日取值设为常数*2和REF(ZTTS日前的收盘价,1)>收盘价的最后一日取值设为常数*0.5,返回1日前的ZTTS日前的收盘价,否则返回无效数画淡红色,线宽为2;}

REF(REF(MAX(REF(L,1),O),DTTS),0),DRAWNULL)COLORGREEN,LINETHICK3;
{输出ZTL:如果到最后交易的周期<=ZTTS+0的最后一日取值设为常数和REF(ZTTS日前的收盘价,1)<收盘价的最后一日取值设为常数*2和REF(ZTTS日前的收盘价,1)>收盘价的最后一日取值设为常数*0.5,返回1日前的ZTTS日前的1日前的最高价和最低价的较小值,否则返回无效数画淡红色,线宽为2;}

DTL:IF(REF(REF(C,DTTS),0)< CONST(C)*2 AND REF(REF(C,DTTS),0)>CONST(C)*0.5,
{输出ZTHC:如果到最后交易的周期<=ZTTS+0的最后一日取值设为常数和REF(ZTTS日前的收盘价,1)<收盘价的最后一日取值设为常数*2和REF(ZTTS日前的收盘价,1)>收盘价的最后一日取值设为常数*0.5,返回1日前的ZTTS+1日内收盘价的最高值,否则返回无效数画淡红色,线宽为2,不画该线;}

REF(REF(L,DTTS),0),DRAWNULL)COLORGREEN,LINETHICK3;
{输出ZTHOC:如果到最后交易的周期<=ZTTS+0的最后一日取值设为常数和REF(ZTTS日前的收盘价,1)<收盘价的最后一日取值设为常数*2和REF(ZTTS日前的收盘价,1)>收盘价的最后一日取值设为常数*0.5,返回1日前的ZTTS+1日内开盘价和收盘价的较大值的最高值,否则返回无效数画淡红色,线宽为2,不画该线;}

ZTTS:BARSLAST(CF>20 OR(CF=HHV(CF,21)AND CF>15) OR(CF=HHV(CF,40)AND CF>11)OR
{输出ZTHL:如果到最后交易的周期<=ZTTS+0的最后一日取值设为常数和REF(ZTTS日前的收盘价,1)<收盘价的最后一日取值设为常数*2和REF(ZTTS日前的收盘价,1)>收盘价的最后一日取值设为常数*0.5,返回1日前的ZTTS+1日内1日前的最高价和最低价的较小值的最高值,否则返回无效数画淡红色,线宽为2,不画该线;}

ST>20 AND C>O )NODRAW;
{K线;}

ZTC:IF(CURRBARSCOUNT<=CONST(ZTTS+0)AND REF(REF(C,ZTTS),1)< CONST(C)*2 AND REF(REF(C,ZTTS),1)>CONST(C)*0.5,
{输出RKR:上次日不等于1日前的日距今天数+1,不画该线;}

REF(REF(C,ZTTS),1),DRAWNULL)COLORLIRED,LINETHICK2;
{输出NKR:上次年份不等于1日前的年份或SSTS=1距今天数+1,不画该线;}

ZTL:IF(CURRBARSCOUNT<=CONST(ZTTS+0)AND REF(REF(C,ZTTS),1)< CONST(C)*2 AND REF(REF(C,ZTTS),1)>CONST(C)*0.5,
{输出SNKR:NKR日前的NKR+NKR,不画该线;}

REF(REF(MIN(REF(H,1),L),ZTTS),1),DRAWNULL)COLORLIRED,LINETHICK2;
{输出S2NKR:NKR日前的SNKR+NKR,不画该线;}

ZTHC:IF(CURRBARSCOUNT<=CONST(ZTTS+0)AND REF(REF(C,ZTTS),1)< CONST(C)*2 AND REF(REF(C,ZTTS),1)>CONST(C)*0.5,
{输出JKR:上次最高价[取季线数据]不等于1日前的最高价[取季线数据]或O[取季线数据]不等于1日前的开盘价[取季线数据]或C[取季线数据]不等于1日前的收盘价[取季线数据]或L[取季线数据]不等于1日前的最低价[取季线数据]或SSTS=1距今天数+1,不画该线;}

REF(HHV(C,ZTTS+1),1),DRAWNULL)COLORLIRED,LINETHICK2,NODRAW;
{输出YKR:上次月份不等于1日前的月份或SSTS=1距今天数+1,不画该线;}

ZTHOC:IF(CURRBARSCOUNT<=CONST(ZTTS+0)AND REF(REF(C,ZTTS),1)< CONST(C)*2 AND REF(REF(C,ZTTS),1)>CONST(C)*0.5,
{输出BNKR:上次月份<1日前的月份和YKR=1或(统计NKR日中满足月份>6的天数=1和MONTH>6)或SSTS=1距今天数+1,不画该线;}

REF(HHV(MAX(O,C),ZTTS+1),1),DRAWNULL)COLORLIRED,LINETHICK2,NODRAW;
{输出SBNKR:BNKR日前的BNKR+BNKR,不画该线;}

ZTHL:IF(CURRBARSCOUNT<=CONST(ZTTS+0)AND REF(REF(C,ZTTS),1)< CONST(C)*2 AND REF(REF(C,ZTTS),1)>CONST(C)*0.5,
{输出S2BNKR:BNKR日前的SBNKR+BNKR,不画该线;}

REF(HHV(MIN(REF(H,1),L),ZTTS+1),1),DRAWNULL)COLORLIRED,LINETHICK2,NODRAW;
{输出ZKR:上次年内星期不等于1日前的年内星期或SSTS=1距今天数+1,不画该线;}

DRAWKLINE(H,O,L,C);
{输出RQ:日期-1000000,画红色,不画该线;}

RKR:BARSLAST(DAY< >REF(DAY,1))+1,NODRAW;
{输出T1:到最后交易的周期>1,不画该线;}

NKR:BARSLAST(YEAR!=REF(YEAR,1)OR SSTS=1)+1,NODRAW;
{输出JJ:成交额(元)/成交量(手)/100,不画该线;}

SNKR:REF(NKR,NKR)+NKR,NODRAW;
{输出ZRH:RKR日前的最高价不画该线;}

S2NKR:REF(SNKR,NKR)+NKR,NODRAW;
{输出ZRL:RKR日前的最低价不画该线;}

JKR:BARSLAST(H#SEASON< >REF(H#SEASON,1)OR O#SEASON< >REF(O#SEASON,1)OR
{输出ZRO:RKR日前的开盘价不画该线;}

C#SEASON< >REF(C#SEASON,1)OR L#SEASON< >REF(L#SEASON,1)OR SSTS=1)+1,NODRAW;
{输出RO:开盘价,不画该线;}

YKR:BARSLAST(MONTH< >REF(MONTH,1)OR SSTS=1)+1,NODRAW;
{输出ZRC:RKR日前的收盘价不画该线;}

BNKR:BARSLAST(MONTH< REF(MONTH,1)AND YKR=1 OR (COUNT(MONTH>6,NKR)=1 AND MONTH>6)OR SSTS=1)+1,NODRAW;
{输出ZRHS:1日前的HS不画该线;}

SBNKR:REF(BNKR,BNKR)+BNKR,NODRAW;
{输出昨日额:RKR日前的成交额(元)/10000不画该线;}

S2BNKR:REF(SBNKR,BNKR)+BNKR,NODRAW;
{输出额:成交额(元)/10000,不画该线;}

ZKR:BARSLAST(WEEKOFYEAR< >REF(WEEKOFYEAR,1)OR SSTS=1)+1,NODRAW;
{输出DC:”999999$收盘价”,不画该线;}

RQ:DATE-1000000,COLORRED,NODRAW;
{输出DH:”999999$最高价”,不画该线;}

T1:CURRBARSCOUNT>1,NODRAW;
{输出DL:”999999$最低价”,不画该线;}

JJ:AMOUNT/V/100,NODRAW;
{输出DO:”999999$开盘价”,不画该线;}

ZRH:REF(H,RKR)NODRAW;
{输出DCF:(DC-1日前的DC)/(1日前的DC)*100,画黄色,不画该线;}

ZRL:REF(L,RKR)NODRAW;
{当满足条件1时,在横轴0.980纵轴20位置书写文字,颜色:666666;}

ZRO:REF(O,RKR)NODRAW;
{ZZYQTS赋值:上次(1日前的收盘价<1日前的开盘价或REF(收盘价,1)<=2日前的收盘价)和C>1日前的收盘价和C>=开盘价距今天数;}

RO:O,NODRAW;
{输出ZLYDYYTS:上次(统计5日中满足收盘价<=1日前的收盘价或C<开盘价的天数=1或(统计4日中满足收盘价<1日前的收盘价或C<开盘价的天数=1和(CF的ZZYQTS+1日累和-CF)>=10)或(统计3日中满足收盘价<1日前的收盘价或C<开盘价的天数=1和(CF的ZZYQTS+1日累和-CF)>=15)或(统计?日中满足收盘价<?日前的?的天数距今天数不画该线;}

ZRC:REF(C,RKR)NODRAW;
{ZLYFYTS赋值:ZLYDYYTS+1日前的ZZYQTS+ZLYDYYTS+1;}

ZRHS:REF(HS,1)NODRAW;
{输出ZLYQH:ZLYDYYTS+1日前的最高价,颜色:0088EE,线宽为2;}

昨日额:REF(AMOUNT/10000,RKR)NODRAW;
{输出ZLYL2:ZLYDYYTS日前的2日内1日前的最高价和最低价的较小值的最高值,画红色,线宽为2;}

额:AMOUNT/10000,NODRAW;
{输出ZLYO2:ZLYDYYTS日前的2日内开盘价和收盘价的较小值的最低值,画红色,线宽为2;}

DC:”999999$C”,NODRAW;
{输出ZLYS:ZLYO2和ZLYL2的较大值画白色;}

DH:”999999$H”,NODRAW;
{输出ZLYX:ZLYO2和ZLYL2的较小值画白色;}

DL:”999999$L”,NODRAW;
{输出ZLYOC2:0日后的ZLYDYYTS日前的2日内开盘价和收盘价的较大值的最高值画白色,画虚线;}

DO:”999999$O”,NODRAW;
{;}

DCF:(DC-REF(DC,1))/(REF(DC,1))*100,COLORYELLOW,NODRAW;
{undefined;}

ZZYQTS:=BARSLAST((REF(C,1)< REF(O,1)OR REF(C,1)<=REF(C,2))AND C>REF(C,1)AND C>=O);
{undefined;}

ZLYDYYTS:BARSLAST((COUNT(C<=REF(C,1)OR C< O,5)=1 OR
{undefined;}

(COUNT(C< REF(C,1)OR C< O,4)=1 AND(SUM(CF,ZZYQTS+1)-CF)>=10) OR
{undefined;}

(COUNT(C< REF(C,1)OR C< O,3)=1 AND(SUM(CF,ZZYQTS+1)-CF)>=15)OR
{undefined;}

(COUNT(C< REF(C,1)OR C< O,3)=1 AND(SUM(CF,ZZYQTS+1)-CF)>=11 AND SUM(CF,3)=HHV(SUM(CF,3),30))OR
{undefined;}

(COUNT(C< REF(C,1)OR C< O,2)=1 AND(SUM(CF,ZZYQTS+1)-CF)>=20)OR REF(ZTTS,1)=0)
{undefined;}

AND(C< REF(C,1)OR C< O)AND C>=REF(C,ZZYQTS+1))NODRAW;
{undefined;}

ZLYFYTS:=REF(ZZYQTS,ZLYDYYTS+1)+ZLYDYYTS+1;
{undefined;}

ZLYQH:REF(H,ZLYDYYTS+1),COLOR0088EE,LINETHICK2;
{undefined;}

ZLYL2:REF(HHV(MIN(REF(H,1),L),2),ZLYDYYTS),COLORRED,LINETHICK2;
{undefined;}

ZLYO2:REF(LLV(MIN(O,C),2),ZLYDYYTS),COLORRED,LINETHICK2;
{undefined;}

ZLYS:MAX(ZLYO2,ZLYL2)COLORWHITE;
{undefined;}

ZLYX:MIN(ZLYO2,ZLYL2)COLORWHITE;
{undefined;}

ZLYOC2:REFX(REF(HHV(MAX(O,C),2),ZLYDYYTS),0)COLORWHITE,DOTLINE;
{undefined;}