通达信一个比较好用的七防线 主图指标源码
YDD:=L=REFX(L,1) OR L=REFX(L,2) OR L=REFX(L,3) OR L=REFX(L,4) OR L=REFX(L,5) OR L=REFX(L,6) OR L=REFX(L,7) OR L=REFX(L,8) OR L=REFX(L,9) OR L=REFX(L,10) OR L=REFX(L,11) OR L=REFX(L,12) OR L=REFX(L,13) OR
L=REFX(L,14) OR L=REFX(L,15) OR L=REFX(L,16) OR L=REFX(L,17) OR L=REFX(L,18) OR L=REFX(L,19) OR L=REFX(L,20);
EDD:=BARSLAST(YDD)>0 AND L=REF(L,BARSLAST(YDD));
DRAWLINE(YDD AND CURRBARSCOUNT<20,L,EDD AND CURRBARSCOUNT<20,L,1)COLORYELLOW;
DRAWLINE(V>REF(V,1)*2,C,REF(V>REF(V,1)*2,1),REF(C,1),1),COLORRED,LINETHICK2;
DRAWRECTREL(300,125,900,125,80);
DRAWRECTREL(300,250,900,250,80);
DRAWRECTREL(300,375,900,375,80);
DRAWRECTREL(300,500,900,500,80);
DRAWRECTREL(300,625,900,625,80);
DRAWRECTREL(300,750,900,750,80);
DRAWRECTREL(300,875,900,875,80);
STICKLINE(C<REF(C,1),H,L,0,0),COLORCYAN;
STICKLINE(C<REF(C,1),C,O,0,0),COLORBLUE;
DRAWTEXT_FIX(1,0.3,0.875,1,'第一防线'),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.75,1,'第二防线'),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.625,1,'第三防线'),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.5,1,'第四防线'),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.375,1,'第五防线'),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.25,1,'第六防线'),COLORYELLOW;
DRAWTEXT_FIX(1,0.3,0.125,1,'第七防线'),COLORYELLOW;
MA5:MA(C,5),COLORWHITE,LINETHICK1;
IF(MA5>REF(MA5,1),MA5,DRAWNULL),COLORRED,LINETHICK2;
IF(MA5<REF(MA5,1),MA5,DRAWNULL),COLORGREEN,LINETHICK2;
MA13:MA(C,13),COLORWHITE,LINETHICK1;
IF(MA13>REF(MA13,1),MA13,DRAWNULL),COLORFF00FF,LINETHICK2;
IF(MA13<REF(MA13,1),MA13,DRAWNULL),COLORGREEN,LINETHICK2;
MA20:MA(C,20),LINETHICK2;
MA30:MA(C,30)POINTDOT,LINETHICK4,COLOR0080FF;
均价:=AMOUNT/V/100;
ZT:=REF(C,1)*1.1-C<0.01 AND H=C;{涨停}
BA:STICKLINE(ZT,OPEN,CLOSE,0.1,0),COLORYELLOW;
N:=30;{此数值可视需要调整}
BL:=V=HHV(V,N) AND V>REF(V,1)*2;
XGA:=ZT AND BL;
TS:=BARSLAST(XGA);
NOTEXTEE:IF(TS<=9,DRAWLINE(XGA,均价,REF(XGA,1),REF(均价,1),1),DRAWNULL),COLORYELLOW,POINTDOT,LINETHICK4;
DRAWNUMBER(ISLASTBAR,NOTEXTEE,NOTEXTEE),COLORYELLOW;
NOTEXT2:IF(TS<=9,REF(C,TS),DRAWNULL)POINTDOT,COLORLICYAN,LINETHICK4;
NOTEXT3:IF(TS<=9,REF(L,TS),DRAWNULL)POINTDOT,COLORLICYAN,LINETHICK4;
ED:DRAWNUMBER(BETWEEN(TS,1,9),REF(L,TS),TS),COLORLIGRAY;
MA60:MA(CLOSE,60),COLORGREEN,LINETHICK2;
MA120:MA(CLOSE,120),COLORBLUE,LINETHICK2;
MA250:MA(CLOSE,250),LINETHICK2,COLORYELLOW;
JC:="MACD.MACD#MONTH"<0;
TSS:=BARSLAST(JC),NODRAW;
起点:=FILTERX(TSS=1,BARSSINCE(C));
终点:=FILTERX(TSS>=1 AND REFX(TSS,1)=0,BARSSINCE(C));
天数:=BARSLAST(起点);
红柱最高价:IF(天数>=0 AND REFX(TSS>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,TSS)),DRAWNULL),COLORYELLOW,LINETHICK2;
红柱最低价:IF(天数>=0 AND REFX(TSS>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,TSS)),DRAWNULL),COLORYELLOW,LINETHICK2;
STICKLINE(起点,红柱最高价,红柱最低价,0,-1),COLORYELLOW;
STICKLINE(ISLASTBAR,红柱最高价,红柱最低价,0,-1),COLORYELLOW;
N01:=10;
T01:=CONST(HHVBARS(V,10)),COLOR0000FF,LINETHICK1;
量能评台:IF(CURRBARSCOUNT<=N01+15,CONST(IF(T01=0,C,REF(C,T01))),DRAWNULL)
,COLORLIBLUE,LINETHICK4;
新量能点:IF(CURRBARSCOUNT=T01+1,量能评台,DRAWNULL),CIRCLEDOT,COLORFFFFFF,LINETHICK9;
DRAWTEXT(ISLASTBAR,量能评台,' 量能评台'),COLOR00F0F0;
HV:=HHV(V,5)=V OR V/REF(V,1)>=5;
FT:=BARSLAST(HV);
量能评台1:=IF(HV,C,REF(C,FT));
DRAWTEXT(量能评台1>REF(量能评台1,1)AND C<REF(C,1),L,'*带量跌'),COLORGREEN;
DRAWTEXT(量能评台1<REF(量能评台1,1) AND C>REF(C,1),L,'*低买'),COLORYELLOW;
DRAWTEXT(量能评台1>REF(量能评台1,1) AND C>REF(C,1) AND C>MA(C,13) AND C=HHV(C,20)
AND C/REF(C,1)>1.05,L,'*涨'),COLORFFFFFF;
{周金叉红柱}
ZJC:="MACD.MACD#WEEK"<0;
ZTS:=BARSLAST(ZJC),NODRAW;
Z起点:=FILTERX(ZTS=1,BARSSINCE(C));
Z终点:=FILTERX(ZTS>=1 AND REFX(ZTS,1)=0,BARSSINCE(C));
Z天数:=BARSLAST(Z起点);
Z红柱最高价:IF(Z天数>=0 AND REFX(ZTS>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,ZTS)),DRAWNULL),COLORMAGENTA;
Z红柱最低价:IF(Z天数>=0 AND REFX(ZTS>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,ZTS)),DRAWNULL),COLORMAGENTA;
STICKLINE(Z起点,Z红柱最高价,Z红柱最低价,0,-1),COLORMAGENTA;
STICKLINE(ISLASTBAR,Z红柱最高价,Z红柱最低价,0,-1),COLORMAGENTA;
{周死叉绿柱}
ZSC:="MACD.MACD#WEEK">0;
ZTS1:=BARSLAST(ZSC),NODRAW;
Z起点1:=FILTERX(ZTS1=1,BARSSINCE(C));
Z终点1:=FILTERX(ZTS1>=1 AND REFX(ZTS1,1)=0,BARSSINCE(C));
Z天数1:=BARSLAST(Z起点1);
Z绿柱最高价:IF(Z天数1>=0 AND REFX(ZTS1>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,ZTS1)),DRAWNULL),COLORGREEN;
Z绿柱最低价:IF(Z天数1>=0 AND REFX(ZTS1>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,ZTS1)),DRAWNULL),COLORGREEN;
STICKLINE(Z起点1,Z绿柱最高价,Z绿柱最低价,0,-1),COLORGREEN;
STICKLINE(ISLASTBAR,Z绿柱最高价,Z绿柱最低价,0,-1),COLORGREEN;
{日金叉红柱}
RJC:="MACD.MACD#DAY"<0;
RTS:=BARSLAST(RJC),NODRAW;
R起点:=FILTERX(RTS=1,BARSSINCE(C));
R终点:=FILTERX(RTS>=1 AND REFX(RTS,1)=0,BARSSINCE(C));
R天数:=BARSLAST(R起点);
R红柱最高价:IF(R天数>=0 AND REFX(RTS>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,RTS)),DRAWNULL),COLORLIRED;
R红柱最低价:IF(R天数>=0 AND REFX(RTS>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,RTS)),DRAWNULL),COLORLIRED;
STICKLINE(R起点,R红柱最高价,R红柱最低价,0,-1),COLORLIRED;
STICKLINE(ISLASTBAR,R红柱最高价,R红柱最低价,0,-1),COLORLIRED;
{日死叉绿柱}
RSC:="MACD.MACD#DAY">0;
RTS1:=BARSLAST(RSC),NODRAW;
R起点1:=FILTERX(RTS1=1,BARSSINCE(C));
R终点1:=FILTERX(RTS1>=1 AND REFX(RTS1,1)=0,BARSSINCE(C));
R天数1:=BARSLAST(R起点1);
R绿柱最高价:IF(R天数1>=0 AND REFX(RTS1>=1,BARSNEXT(ISLASTBAR)),CONST(HHV(H,RTS1)),DRAWNULL),COLORGRAY;
R绿柱最低价:IF(R天数1>=0 AND REFX(RTS1>=1,BARSNEXT(ISLASTBAR)),CONST(LLV(L,RTS1)),DRAWNULL),COLORGRAY;
STICKLINE(R起点1,R绿柱最高价,R绿柱最低价,0,-1),COLORGRAY;
STICKLINE(ISLASTBAR,R绿柱最高价,R绿柱最低价,0,-1),COLORGRAY;
DRAWKLINE(H,O,L,C);
DRAWTEXT_FIX(1,0.02,0.90,0,' '),COLOR00FFFF,LINETHICK2;
DRAWTEXT_FIX(C>0,0.00,0.10,0,STRCAT('主题投资：',EXTERNSTR(0,7))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.65,0.8,0,HYBLOCK),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.75,0.8,0,DYBLOCK),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.65,0.9,0,GNBLOCK),COLORYELLOW;
{以上为显示所属板块，地域，概念等};
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');
全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
上市日期:=STRCAT(' 上市天数: ',CON2STR(FINANCE(42),0));
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期));
未来函数检测结果如下：
该公式包含未来函数:CAPITAL
该公式包含未来函数:FINANCE
该公式包含未来函数:#MONTH
该公式包含未来函数:#WEEK
该公式包含未来函数:BARSNEXT
该公式包含未来函数:REFX
解密、定制、编写股票指标请联系QQ或微信同号：88652583
相关股票指标公式
YDD赋值:L=REFX(L,1) OR L=REFX(L,2) OR L=REFX(L,3) OR L=REFX(L,4) OR L=REFX(L,5) OR L=REFX(L,6) OR L=REFX(L,7) OR L=REFX(L,8) OR L=REFX(L,9) OR L=REFX(L,10) OR L=REFX(L,11) OR L=REFX(L,12) OR L=REFX(L,13) OR
L=REFX(L,14) OR L=REFX(L,15) OR L=REFX(L,16) OR L=REFX(L,17) OR L=REFX(L,18) OR L=REFX(L,19) OR L=REFX(L,20)
EDD赋值:上次YDD距今天数>0 AND L=REF(L,上次YDD距今天数)
DRAWLINE(YDD AND 到最后交易的周期<20,L,EDD AND 到最后交易的周期<20,L,1)画黄色
DRAWLINE(V>1日前的V*2,C,1日前的V>1日前的V*2,1日前的C,1),画红色, 线宽为2
DRAWRECTREL(300,125,900,125,80)
DRAWRECTREL(300,250,900,250,80)
DRAWRECTREL(300,375,900,375,80)
DRAWRECTREL(300,500,900,500,80)
DRAWRECTREL(300,625,900,625,80)
DRAWRECTREL(300,750,900,750,80)
DRAWRECTREL(300,875,900,875,80)
STICKLINE(C<1日前的C,H,L,0,0),画青色
STICKLINE(C<1日前的C,C,O,0,0), 画蓝色
当满足条件1时,在横轴0.3纵轴0.875位置书写文字
当满足条件1时,在横轴0.3纵轴0.75位置书写文字
当满足条件1时,在横轴0.3纵轴0.625位置书写文字
当满足条件1时,在横轴0.3纵轴0.5位置书写文字
当满足条件1时,在横轴0.3纵轴0.375位置书写文字
当满足条件1时,在横轴0.3纵轴0.25位置书写文字
当满足条件1时,在横轴0.3纵轴0.125位置书写文字
输出
MA5:C的5日简单移动平均,画白色, 线宽为1
IF(MA5>1日前的MA5,MA5,DRAWNULL),画红色, 线宽为2
IF(MA5<1日前的MA5,MA5,DRAWNULL),画绿色, 线宽为2
输出
MA13:C的13日简单移动平均,画白色, 线宽为1
IF(MA13>1日前的MA13,MA13,DRAWNULL),COLORFF00FF, 线宽为2
IF(MA13<1日前的MA13,MA13,DRAWNULL),画绿色, 线宽为2
输出
MA20:C的20日简单移动平均, 线宽为2
输出
MA30:C的30日简单移动平均POINTDOT, 线宽为4,COLOR0080FF
均价赋值:成交额/V/100
ZT赋值:1日前的C*1.1-C<0.01 AND H=C
当满足条件ZT时,在开盘价和收盘价之间画柱状线
N赋值:30
{此数值可视需要调整}
BL赋值:V=N日内V最高值 AND V>1日前的V*2
XGA赋值:ZT AND BL
TS赋值:上次XGA距今天数
NOTEXTEE:IF(TS<=9,DRAWLINE(XGA,均价,1日前的XGA,1日前的均价,1),DRAWNULL),画黄色,POINTDOT, 线宽为4
DRAWNUMBER(ISLASTBAR,NOTEXTEE,NOTEXTEE),画黄色
NOTEXT2:IF(TS<=9,TS日前的C,DRAWNULL)POINTDOT,COLORLICYAN, 线宽为4
NOTEXT3:IF(TS<=9,TS日前的L,DRAWNULL)POINTDOT,COLORLICYAN, 线宽为4
输出
ED:DRAWNUMBER(BETWEEN(TS,1,9),TS日前的L,TS),COLORLIGRAY
输出
MA60:收盘价的60日简单移动平均,画绿色, 线宽为2
输出
MA120:收盘价的120日简单移动平均, 画蓝色, 线宽为2
输出
MA250:收盘价的250日简单移动平均, 线宽为2,画黄色
JC赋值:"MACD.MACD#MONTH"<0
TSS:=上次JC距今天数,NODRAW
起点赋值:FILTERX(TSS=1,BARSSINCE(C))
终点赋值:FILTERX(TSS>=1 AND REFX(TSS,1)=0,BARSSINCE(C))
天数赋值:上次起点距今天数
输出
红柱最高价:IF(天数>=0 AND REFX(TSS>=1,BARSNEXT(ISLASTBAR)),CONST(TSS日内H最高值),DRAWNULL),画黄色, 线宽为2
输出
红柱最低价:IF(天数>=0 AND REFX(TSS>=1,BARSNEXT(ISLASTBAR)),CONST(TSS日内L最低值),DRAWNULL),画黄色, 线宽为2
当满足条件起点时,在红柱最高价和红柱最低价之间画柱状线
当满足条件ISLASTBAR时,在红柱最高价和红柱最低价之间画柱状线
N01:=10
T01赋值:CONST(HHVBARS(V,10)),COLOR0000FF, 线宽为1
输出
量能评台:IF( 到最后交易的周期<=N01+15,CONST(IF(T01=0,C,T01日前的C)),DRAWNULL)
, 画淡蓝色, 线宽为4
如果 到最后交易的周期=T01+1返回量能评台否则返回DRAWNULL
当满足条件ISLASTBAR时,在量能评台和' 量能评台'位置书写文字
HV赋值:5日内V最高值=V OR V/1日前的V>=5
FT赋值:上次HV距今天数
量能评台1:=IF(HV,C,FT日前的C)
DRAWTEXT(量能评台1>1日前的量能评台1AND C<1日前的C,L,'*带量跌'),画绿色
DRAWTEXT(量能评台1<1日前的量能评台1 AND C>1日前的C,L,'*低买'),画黄色
DRAWTEXT(量能评台1>1日前的量能评台1 AND C>1日前的C AND C>C的13日简单移动平均 AND C=20日内C最高值
AND C/1日前的C>1.05,L,'*涨'),COLORFFFFFF
{周金叉红柱}
ZJC赋值:"MACD.MACD#WEEK"<0
ZTS:=上次ZJC距今天数,NODRAW
Z起点赋值:FILTERX(ZTS=1,BARSSINCE(C))
Z终点赋值:FILTERX(ZTS>=1 AND REFX(ZTS,1)=0,BARSSINCE(C))
Z天数赋值:上次Z起点距今天数
输出
Z红柱最高价:IF(Z天数>=0 AND REFX(ZTS>=1,BARSNEXT(ISLASTBAR)),CONST(ZTS日内H最高值),DRAWNULL),画洋红色
输出
Z红柱最低价:IF(Z天数>=0 AND REFX(ZTS>=1,BARSNEXT(ISLASTBAR)),CONST(ZTS日内L最低值),DRAWNULL),画洋红色
当满足条件Z起点时,在Z红柱最高价和Z红柱最低价之间画柱状线
当满足条件ISLASTBAR时,在Z红柱最高价和Z红柱最低价之间画柱状线
{周死叉绿柱}
ZSC赋值:"MACD.MACD#WEEK">0
ZTS1:=上次ZSC距今天数,NODRAW
Z起点1:=FILTERX(ZTS1=1,BARSSINCE(C))
Z终点1:=FILTERX(ZTS1>=1 AND REFX(ZTS1,1)=0,BARSSINCE(C))
Z天数1:=上次Z起点1距今天数
输出
Z绿柱最高价:IF(Z天数1>=0 AND REFX(ZTS1>=1,BARSNEXT(ISLASTBAR)),CONST(ZTS1日内H最高值),DRAWNULL),画绿色
输出
Z绿柱最低价:IF(Z天数1>=0 AND REFX(ZTS1>=1,BARSNEXT(ISLASTBAR)),CONST(ZTS1日内L最低值),DRAWNULL),画绿色
当满足条件Z起点1时,在Z绿柱最高价和Z绿柱最低价之间画柱状线
当满足条件ISLASTBAR时,在Z绿柱最高价和Z绿柱最低价之间画柱状线
{日金叉红柱}
RJC赋值:"MACD.MACD#DAY"<0
RTS赋值:上次RJC距今天数,NODRAW
R起点赋值:FILTERX(RTS=1,BARSSINCE(C))
R终点赋值:FILTERX(RTS>=1 AND REFX(RTS,1)=0,BARSSINCE(C))
R天数赋值:上次R起点距今天数
输出
R红柱最高价:IF(R天数>=0 AND REFX(RTS>=1,BARSNEXT(ISLASTBAR)),CONST(RTS日内H最高值),DRAWNULL),COLORLIRED
输出
R红柱最低价:IF(R天数>=0 AND REFX(RTS>=1,BARSNEXT(ISLASTBAR)),CONST(RTS日内L最低值),DRAWNULL),COLORLIRED
当满足条件R起点时,在R红柱最高价和R红柱最低价之间画柱状线
当满足条件ISLASTBAR时,在R红柱最高价和R红柱最低价之间画柱状线
{日死叉绿柱}
RSC赋值:"MACD.MACD#DAY">0
RTS1:=上次RSC距今天数,NODRAW
R起点1:=FILTERX(RTS1=1,BARSSINCE(C))
R终点1:=FILTERX(RTS1>=1 AND REFX(RTS1,1)=0,BARSSINCE(C))
R天数1:=上次R起点1距今天数
输出
R绿柱最高价:IF(R天数1>=0 AND REFX(RTS1>=1,BARSNEXT(ISLASTBAR)),CONST(RTS1日内H最高值),DRAWNULL),COLORGRAY
输出
R绿柱最低价:IF(R天数1>=0 AND REFX(RTS1>=1,BARSNEXT(ISLASTBAR)),CONST(RTS1日内L最低值),DRAWNULL),COLORGRAY
当满足条件R起点1时,在R绿柱最高价和R绿柱最低价之间画柱状线
当满足条件ISLASTBAR时,在R绿柱最高价和R绿柱最低价之间画柱状线
DRAWKLINE(H,O,L,C)
当满足条件1时,在横轴0.02纵轴0.90位置书写文字
DRAWTEXT_FIX(C>0,0.00,0.10,0,STRCAT('主题投资：',EXTERNSTR(0,7))),画红色
当满足条件ISLASTBAR时,在横轴0.65纵轴0.8位置书写文字
当满足条件ISLASTBAR时,在横轴0.75纵轴0.8位置书写文字
当满足条件ISLASTBAR时,在横轴0.65纵轴0.9位置书写文字
{以上为显示所属板块，地域，概念等}
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTAL当前流通股本/1000000,2)),'亿')
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(当前流通股本/1000000,2)),'亿')
全流通:=STRCAT(' 全流通: ',CON2STR((当前流通股本/1000000)/(TOTAL当前流通股本/1000000),2))
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((当前流通股本/1000000)*C,2)),'亿')
上市日期:=STRCAT(' 上市天数: ',CON2STR(FINANCE(42),0))
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期))
