分享

更新!通达信【分时主力】主图指标 源码

 常熟老李jlr5mr 2023-02-27 发布于江苏
                   

感谢股友的反馈图片,这里更新指标源码,解决报错问题!

图片

图片

图片

1、主力分时引用:(这是引用数据,名字不要修改,否则无法使用)
{微信公众号:尊重市场}
QQ:AMO/10000;
QA:REF(AMO,1)/10000;
QB:REF(AMO,2)/10000;
QC:REF(AMO,3)/10000;
QD:REF(AMO,4)/10000;
QE:REF(AMO,5)/10000;
昨量:REF(V,1);
昨日收盘价:REF(C,1);
现价:C;
当日曾涨停:H/REF(C,1)>1.095;{曾10%涨停}
昨天涨停:REF(当日曾涨停,1);{昨日涨停}
时间差:TIME<1001 AND (C/DYNAINFO(3))>=1.05 AND C>O;
MA25:EMA(CLOSE,25);
FJ:EMA(CLOSE,905);
强势:TIME<1001 AND MA25>FJ;



2、分时主力主图指标:指标需要“引用数据”不能在手机上使用。
{微信公众号:尊重市场}
分时线:=CLOSE;
ABC1:=REF(HHV(C,0),1);
ABC2:=REF(HHV(V,0),1);
ABC3:=ABC1/DYNAINFO(3)<1.05;
ABC4:=CROSS(C,ABC1)  AND V>ABC2 AND ABC3;
DRAWICON(ABC4,分时线,1);
DRAWTEXT(ABC4,L-0.05,'  主力买'),COLORRED;
ABC5:=REF(LLV(C,0),1);
ABC6:=REF(LLV(V,0),1);
ABC7:=ABC5/DYNAINFO(3)>0.95;
ABC8:=CROSS(ABC5,C)  AND V<ABC6 AND ABC7;
DRAWICON(ABC8,分时线,2);
DRAWTEXT(ABC8,L-0.05,'  散户卖'),COLORGREEN;
{微信公众号:尊重市场}
NE:=IF(NAMELIKE('S') OR NAMELIKE('*S'),0.05,0.1);{适用ST股}
涨停价:=ZTPRICE(DYNAINFO(3),NE);
跌停价:=DTPRICE(DYNAINFO(3),NE);
{微信公众号:尊重市场}
IF(PERIOD=0 AND CLOSE=涨停价,CLOSE,DRAWNULL),LINETHICK2,COLORFF00B5;
IF(PERIOD=0 AND CLOSE=跌停价,CLOSE,DRAWNULL),LINETHICK2,COLOR00BB00;
{微信公众号:尊重市场}
涨幅值:=IF(C=DYNAINFO(3),CON2STR(0,2),IF(C>DYNAINFO(3),CON2STR((C-DYNAINFO(3))/DYNAINFO(3)*100,2),CON2STR((DYNAINFO(3)-C)/DYNAINFO(3)*100,2)));
尊重市场:=IF(涨停价=C,STRCAT(CON2STR(C,2),'★ '),IF(C=REF(C,1),STRCAT(CON2STR(C,2),'◆ '),IF(C>REF(C,1),STRCAT(CON2STR(C,2),'▲ '),STRCAT(CON2STR(C,2),'▼ '))));
价格变化:=STRCAT(STRCAT(' ',尊重市场),STRCAT(涨幅值,'%'));
成交量:=IF(DYNAINFO(8)>99999999,STRCAT(CON2STR(DYNAINFO(8)/100000000,2),'亿'),STRCAT(CON2STR(DYNAINFO(8)/10000,0),'万'));
DRAWTEXT_FIX(1,0.25,0,0,STRCAT('成交量: ',成交量)),COLORFFFFFF;
成交额:=IF(DYNAINFO(10)>99999999,STRCAT(CON2STR(DYNAINFO(10)/100000000,2),'亿'),STRCAT(CON2STR(DYNAINFO(10)/10000,0),'万'));
DRAWTEXT_FIX(1,0.37,0,0,STRCAT('成交额: ',成交额)),{COLORF4E202}COLORFFFFFF;
{微信公众号:尊重市场}
DRAWTEXT(ISLASTBAR,C*IF(DYNAINFO(3)>C,0.9973,1.0027),'');{扩显字符}
DRAWTEXT(ISLASTBAR AND C>DYNAINFO(3) ,C*1,价格变化),COLOR3333FF;{涨幅区}
DRAWTEXT(ISLASTBAR AND C=DYNAINFO(3) ,C*1,价格变化),COLORWHITE;{零轴区}
DRAWTEXT(ISLASTBAR AND C<DYNAINFO(3) ,C*1,价格变化),COLOR42C800;{跌幅区};
{微信公众号:尊重市场}
DRAWTEXT_FIX(ISLASTBAR,0.01,0.95,0,HYBLOCK),COLOR00CCCC;
DRAWTEXT_FIX(ISLASTBAR,0.09,0.95,0,DYBLOCK),COLOR00CCCC;
DRAWTEXT_FIX(ISLASTBAR,0.18,0.95,0,GNBLOCK),COLOR00CCCC;
{微信公众号:尊重市场}
FB:=DATE<>REF(DATE,1);{当根K线的日期不等于前一根K线的日期,这样就确定当天第一根K线的位置}
T:=BARSLAST(FB);{当天第一根K线距离现在的周期数}
A1:=SUM(AMO,T+1);{从第一根K线开始累加成交金额}
V1:=SUM(VOL,T+1)*100;{从第一根K线开始累加成交量,VOL单位为手,乘以100换算为股}
JJ:=A1/V1;{累加成交金额除以累加成交量,得到均价}
DRAWNUMBER(O>0 AND ISLASTBAR=1,1*JJ,JJ) COLORYELLOW;
BCA1:=C>JJ*1.05;
BCA2:=FILTER(BCA1,120);
DRAWICON(BCA2,C,9);
DRAWTEXT(BCA2,C,'  砸死狗庄')COLORYELLOW;
BCA3:=C<JJ*0.95;
BCA4:=FILTER(BCA3,120);
DRAWICON(BCA4,C,16);
DRAWTEXT(BCA4,C,'  明日大跌')COLORMAGENTA;
{微信公众号:尊重市场}
SUAN:='MA.MA1#DAY';
DRAWNUMBER(O>0 AND ISLASTBAR=1,1*SUAN,SUAN) COLORLIMAGENTA;
SUAN1:=C>SUAN*1.17;
SUAN3:=FILTER(SUAN1,120);
DRAWICON(SUAN3,C,15);
DRAWTEXT(SUAN3,C,'  无脑卖')COLORGREEN;
竞价额:=DYNAINFO(15)/10000;
竞价量:=DYNAINFO(15)/DYNAINFO(4);
竞换Z:=竞价量/FINANCE(46)*100;
竞价:=STRCAT(STRCAT('竞价: ',CON2STR(竞价额,0)),'万');{EXTERNSTR(0,1)}
竞换:=STRCAT(STRCAT('_竞换Z: ',CON2STR(竞换Z,2)), '%');
今开:=STRCAT('_今开: ', CON2STR((DYNAINFO(4)/DYNAINFO(3)*100-100),0));
公众号:=STRCAT(竞价,竞换);
DRAWTEXT_FIX(竞换Z>=0.8,0.00,0.80,0,公众号),COLORRED;
DRAWTEXT_FIX(竞换Z<0.8,0.00,0.80,0,公众号),COLORWHITE;
昨成交:=主力分时引用.QA#DAY;
竞占:=竞价额*100/昨成交;
竞占昨:=STRCAT(STRCAT('竞占昨: ',CON2STR(竞占,0)), '%');
昨日额:=STRCAT(STRCAT('_昨额: ',CON2STR(昨成交/10000,2)),'亿');
公众号2:=STRCAT(竞占昨, 昨日额);
DRAWTEXT_FIX(竞占>=10,0.00,0.90,0,公众号2),COLORRED;
DRAWTEXT_FIX(竞占<10,0.00,0.90,0,公众号2),COLORWHITE;
{微信公众号:尊重市场}
KPJE:=DYNAINFO(15)/10000;
{微信公众号:尊重市场}
引用数据勿动:='主力分时引用.QA#DAY';
昨日成交额:=STRCAT(STRCAT('昨日成交额:',CON2STR(引用数据勿动,2)),'万');
{DRAWTEXT_FIX(1,0.26,0.85,0,昨日成交额),COLORYELLOW;}
有引用:=(KPJE/引用数据勿动)*100;
竞价爆量:=STRCAT(STRCAT('竞价爆量:',CON2STR(有引用,2)),'%');
DRAWTEXT_FIX(1,0.0,0.85,0,竞价爆量),COLORYELLOW;
{2%价格笼子}
新规:=IF(INBLOCK('ST板块'),1,0);
注册制:=IF(INBLOCK('ST板块') AND CODELIKE('30') AND DATE>1200823,1,0);{2020月8月24日创业板ST开始20%涨跌幅}
BK:=IF(CODELIKE('68'),0.2,IF(CODELIKE('30') AND DATE>1200823,0.2 ,IF(CODELIKE('43') OR CODELIKE('83') OR CODELIKE('47'),0.3, IF(注册制,0.2,IF(新规,0.05,0.1)))));
XYZ1:=ZTPRICE(DYNAINFO(3),BK);
XYZ2:=DTPRICE(DYNAINFO(3),BK);
上:=IF( FINANCE(42) >5,IF(DYNAINFO(7)*1.02<XYZ1,DYNAINFO(7)*1.02-0.01,XYZ1),DYNAINFO(7)*1.02-0.01);
下:=IF( FINANCE(42) >5,IF(DYNAINFO(7)*0.98>XYZ2,DYNAINFO(7)*0.98+0.01,XYZ2),DYNAINFO(7)*0.98+0.01);
DRAWTEXT_FIX(1,0.88,0.033,0,STRCAT('上: ',VAR2STR(上,2)))COLORGREEN;
DRAWTEXT_FIX(1,0.88,0.073,0,STRCAT('下: ',VAR2STR(下,2)))COLORRED;

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约