股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
    上一主题 下一主题

    [通达信] 「指标」精品布林主图源码 通达信 贴图


        [-----复制链接-----]

    22万

    主题

    22万

    帖子

    14

    精华

    积分
    11040
    楼主
    2024-1-30 10:53:22
    【资料名称】:精品布林主图源码 通达信 贴图介绍
    【资料描述】:

    精品布林主图源码 通达信 贴图

    国庆到了,源码分享一个主图给大家,精品布林。指标只是辅助,具体交易要结合大盘和个股情况来看。

    {精品布林}
    N:=20;
    DRAWGBK(CURRBARSCOUNT=1, RGB(110,108,108),RGB(88,30,0),0,'',0);
    BOLL:MA(CLOSE,N),COLORGREEN,LINETHICK2;
    IF(BOLL>REF(BOLL,1),BOLL,DRAWNULL),COLORRED,LINETHICK2;
    UPPER:BOLL+2*STD(CLOSE,N),COLORCYAN;
    LOWER:BOLL-2*STD(CLOSE,N),COLOR0088FF;
    {量能平台}
    N1:=30;
    T1:=CONST(HHVBARS(V,N1));
    T0:IF(CURRBARSCOUNT<=N1+7,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),LINETHICK3;
    IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT;
    DRAWTEXT(ISLASTBAR,T0,' 量能平台');
    STICKLINE(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95,100,0),COLORWHITE,LINETHICK3;

    DRAWNUMBER(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95),LINETHICK3;
    止损点:=(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95),LINETHICK3;
    DRAWTEXT(ISLASTBAR ,止损点,' 止损点'),LINETHICK3;
    {压力一}
    TY:=C;
    A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10);
    A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10);
    前期高位:REF(C,BARSLAST(HD)),COLOR00FF00,POINTDOT;
    STICKLINE(C,前期高位,前期高位,8,0),COLORYELLOW;
    MA18:=MA(C,18);
    VAR1:=C=HHV(C,4) AND REF(C,1)=LLV(C,4);
    VAR2:=C=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)=HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND C<REF(C,1) AND C<REF(C,2);
    VAR3:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);
    A:=(3*C+L+O+H)/6;
    VAR4:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
    14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
    +7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
    MTM:=C-REF(C,1);
    DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
    CB:=EMA(VAR4,13);
    {红}
    STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,3,0),COLOR0000FF;
    STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,0.5,0),COLORCC66FF;
    {蓝}
    STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),COLORFF9900;
    STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.5,0),COLORFFCC00;
    {粉}
    STICKLINE(VAR1,C,(O+C)/2,3,0),COLORFF11FF;
    STICKLINE(VAR1,C,(O+C)/2,0.5,0),COLORFFDDFF;
    {灰}
    STICKLINE(VAR2,C,(O+C)/2,3,0),COLOR999999;
    STICKLINE(VAR2,C,(O+C)/2,0.5,0),COLORFFBBFF;
    {绿}
    STICKLINE(VAR3,O,(O+C)/2,3,0),COLOR00BB00;
    STICKLINE(VAR3,O,(O+C)/2,0.5,0),COLOR00FF00;
    卖:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX);
    DRAWTEXT(FILTER(卖=1,1),HIGH*1.02,'卖'),COLORGREEN;
    买:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2));
    DRAWTEXT(FILTER(买=1,5),LOW-0.03,'买'),COLORRED;
    加仓:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;
    DRAWTEXT(FILTER((CROSS(加仓,0) OR CROSS(CLOSE,CB)) AND 买=1,3),LOW-0.03,'加'),COLORWHITE;
    跟:=MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18);
    DRAWTEXT(跟,LOW*0.96,'跟'),COLORCC66FF;

    JRH:=HHV(C,2);
    JRL:=LLV(C,2);
    VAR01:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));
    VAR02:=(REF(VAR01,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VAR03:=(REF(VAR02,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VAR04:=(REF(VAR03,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VAR05:=(REF(VAR04,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VAR06:=(REF(VAR05,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VAR07:=(REF(VAR06,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VAR08:=(REF(VAR07,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VAR09:=(REF(VAR08,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VARA:=(REF(VAR09,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VARB:=(REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VARC:=(REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VARD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2)); {GUPIAOFF.COM}
    VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VAR010:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VAR011:=(REF(VAR010,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VAR012:=(REF(VAR011,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VAR013:=(REF(VAR012,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VAR014:=(REF(VAR013,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VAR015:=(REF(VAR014,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VAR016:=(REF(VAR015,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VAR017:=(REF(VAR016,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
    VAR018:=(REF(VAR017,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
    VAR019:=((REF(VARD OR VARE OR VARF OR VAR010 OR VAR011 OR VAR012 OR VAR013 OR VAR014 OR VAR015 OR VAR016 OR VAR017 OR VAR018,1)) AND VAR01);
    VAR1A:=((REF(VAR01 OR VAR02 OR VAR03 OR VAR04 OR VAR05 OR VAR06 OR VAR07 OR VAR08 OR VAR09 OR VARA OR VARB OR VARC,1)) AND VARD);
    红色持股:=VAR01 OR VAR02 OR VAR03 OR VAR04 OR VAR05 OR VAR06 OR VAR07 OR VAR08 OR VAR09 OR VARA OR VARB OR VARC,COLOR0000FF,NODRAW;
    离场:=IF(红色持股,JRL,DRAWNULL);
    明离场价:=离场,COLORFF99FF,NODRAW;
    青色观望:=VARD OR VARE OR VARF OR VAR010 OR VAR011 OR VAR012 OR VAR013 OR VAR014 OR VAR015 OR VAR016 OR VAR017 OR VAR018,COLORFFFF00,NODRAW;
    进:=IF(青色观望,JRH,DRAWNULL);
    今离场价:REF(离场,1),COLOR0000FF,NODRAW;
    明进场价:=进,COLOR33AACC,NODRAW;
    今进场价:REF(明进场价,1),COLORGREEN,NODRAW;
    TJ1:=L< REF(L,1) OR REF(L,1)<REF(L,2);
    TJ2:=REF(C,1)<REF(O,1);
    TJ3:=C>O;
    XG:=TJ1 AND TJ2 AND TJ3;

    DRAWTEXT(XG,REF(C,2),'-------------------'),COLORRED;
    上涨家数:INDEXADV,COLOR0080FF,NODRAW;
    下跌家数:INDEXDEC,COLORGREEN,NODRAW;
    自动C:=INDEXC;
    自动O:=INDEXO;
    自动H:=INDEXH;
    自动L:=INDEXL;
    大盘低:=CONST(LLV(自动L,120));
    大盘高:=CONST(HHV(自动H,120));
    大盘差:=大盘高-大盘低;
    当前低:=CONST(LLV(L,120));
    当前高:=CONST(HHV(H,120));
    当前差:=当前高-当前低;
    比:=当前差*1.2/大盘差;
    变C:=当前低+(自动C-大盘低)*比;
    变H:=当前低+(自动H-大盘低)*比;
    变L:=当前低+(自动L-大盘低)*比;
    变O:=当前低+(自动O-大盘低)*比;
    STICKLINE(CURRBARSCOUNT<10 AND 变C<变O,变H,变L,0,0),COLORGREEN;
    STICKLINE(CURRBARSCOUNT<10 AND 变C>=变O,变H,变L,0,0),COLORMAGENTA;
    STICKLINE(CURRBARSCOUNT<10 AND 变C<变O,变O,变C,2,0),COLORGREEN;
    STICKLINE(CURRBARSCOUNT<10 AND 变C>=变O,变O,变C,2,0),COLORMAGENTA;
    DRAWKLINE(H,O,L,C);

    DRAWTEXT_FIX(1,0.00,0,0,'所属行业:')COLORCYAN;
    DRAWTEXT_FIX(1,0.06,0,0,HYBLOCK),COLORWHITE;
    DRAWTEXT_FIX(1,0.14,0,0,'所属地区:')COLORCYAN;
    DRAWTEXT_FIX(1,0.20,0,0,DYBLOCK),COLORWHITE;
    ;
    DRAWTEXT_FIX(1,0.00,0.05,0,'主营业务:')COLORCYAN;
    DRAWTEXT_FIX(1,0.06,0.05,0,EXTERNSTR(0,3)),COLORRED;
    ;
    DRAWTEXT_FIX(1,0.00,0.15,0,'莸利比例:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.06,0.15,0,CONST(WINNER(C )*100)),COLORWHITE;

    DRAWTEXT_FIX(1,0.22,0.15,0,'市值:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.26,0.15,0,FINANCE(40)/100000000),COLORWHITE;
    DRAWTEXT_FIX (1,0.31,0.15,0,'公积金(股):'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.38,0.15,0,FINANCE(18)),COLORWHITE;
    DRAWTEXT_FIX (1,0.43,0.15,0,'收益:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.47,0.15,0,FINANCE(33)),COLORWHITE;


    VAR111:=ZIG(3,13);
    STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,3,0),COLOR66FF00;
    DRAWTEXT_FIX(STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,5,0),0.00,0.11,0,''),COLOR00FF00,LINETHICK1;


    DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
    DEA:=EMA(DIF,9);
    MACD:=(DIF-DEA)*2;
    VAR113:=HHV(HIGH,60);
    VAR114:=LLV(LOW,30);
    VAR115:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
    VAR116:=(VAR113+VAR114+VAR115)/3;
    VAR117:=EMA(VAR116,5);
    K01:=EMA(VAR117,5)*2, COLORFF00FF;
    D01:=EMA(K01,5), COLORWHITE;
    J01:=K01*3-D01*2, COLORYELLOW;
    ENTERLONG:=CROSS(K01,D01);
    EXITLONG:=CROSS(D01,K01);
    B01:=(DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2))
    AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),L*0.98,1))*D01*2/3;
    B02:=IF(TROUGHBARS(3,15,1)=1 AND HIGH>LOW+0.01,20,0);

    必卖:=IF(PEAKBARS(3,15,1)=1,80,100),COLORGREEN,LINETHICK1;
    QQ:=必卖=80;
    B03:=((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)));
    V1:=EMA(CLOSE,60)-EMA(CLOSE,300);
    V2:=EMA(V1,300);
    V3:=(CLOSE-(LOW,8))/((HIGH,8)-LLV(LOW,8))*100;
    V4:=SMA(V3,2,1),NODRAW;
    V5:=SMA(V4,2,1),NODRAW;
    V6:=CLOSE/REF(CLOSE,3)>=1.1;
    V7:=BACKSET(V6,3);
    大涨:=(V7 AND COUNT(V7,3)=1);


    总股本:=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(总股本,流通盘),全流通),市值),上市日期));
    {}
    市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));
    市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
    市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));
    净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
    毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
    净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
    主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
    利润同比:=STRCAT(' 利润同比: ',CON2STR(FINANCE(43),2));
    收入同比:=STRCAT(' 收入同比: ',CON2STR(FINANCE(44),2));
    当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率), 利润同比), 收入同比));
    {}
    X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
    X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};
    X3:=FINANCE(23)/FINANCE(10)*3.3;
    X4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
    X5:=FINANCE(20)/FINANCE(15)*0.999;
    Z值:=X1+X2+X3+X4+X5;
    预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警'));
    财务预警:=STRCAT('财务预警: ',STRCAT(预警,STRCAT('-Z值: ',CON2STR(Z值,3))));
    优质资产率:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准};
    现金负债比:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺长期负债或负债总额,理论上越大越好但不同行业有不同标准};
    财务系数:=STRCAT('风险系数: ',STRCAT(STRCAT(财务预警,优质资产率),现金负债比));
    {}
    DRAWTEXT_FIX(ISLASTBAR,0.005,0.01,0,财务系数),COLORCYAN;
    DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,当前业绩),COLORLIMAGENTA;
    DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLORYELLOW;









    gd51727


    【下载地址隐藏】:                    点:回复可见地址
    游客,如果您要查看本帖隐藏内容请回复






    上一篇:「指标」杨娟王者归来- 潜伏主升--终极版抄底-- 绝密爆点
    下一篇:「指标」超强选股副图/选股源码 通达信 贴图 有未来
    回复

    举报

    QQ|

    GMT+8, 2024-11-11 04:45

    快速回复 返回顶部 返回列表