• 网站首页
  • 股票知识
  • 股票公式
  • 散户炒股
  • 问答百科
  • 缠中说禅
  • 概念股
  • 【股票投资】通达信源码:追赶升浪,地瓜分时内部 合成版,军长专用MACD

    发布时间: 2020-04-11 14:52 首页:股票一点通>股票公式>通达信公式> 阅读()
    追赶升浪:

    无未来函数 有空修改了一个老指标 ,粗略的验证一下,成功率感觉还算可以

    指标只是一个工具而已。相同的工具,不同的人使用起来效果可能千差万别啊!仅供对此感兴趣的

    朋友参考。
    有部分朋友导入公式后不能显示,特意修改了一下源码。如果不能通过编译的,就用下面的源码。

    如果附件里的公式,能显示的,就用原公式吧。主要是一个小数点的问题。

    {追赶升浪}
    买线:=EMA(C,2);
    卖线:=EMA(SLOPE(C,21)*20+C,42);
    BU:=CROSS(买线,卖线);
    SEL:=CROSS(卖线,买线);
    操盘:=MA(CLOSE,9),COLORCYAN,LINETHICK2;
    界点:=MA(CLOSE,20),COLORMAGENTA;
    LC:=REF(CLOSE,1);
    RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
    FF:=EMA(CLOSE,3);
    MA15:=EMA(CLOSE,21);
    日:=150;昨前:=3;
    高1:=REF(HHV(H,日),昨前);
    低1:=REF(LLV(L,日),昨前);
    H1:=高1-(高1-低1)*0.191;
    H2:=高1-(高1-低1)*0.382;
    H3:=高1-(高1-低1)*0.5;
    H4:=高1-(高1-低1)*0.618;
    H5:=高1-(高1-低1)*0.809;
    顶:=REFDATE(高1,DATE),DOTLINE,COLORRED;
    一809:=REFDATE(H1,DATE),DOTLINE,COLORYELLOW;
    二618:=REFDATE(H2,DATE),DOTLINE,COLORMAGENTA;
    三500:=REFDATE(H3,DATE),DOTLINE,COLORWHITE;
    四382:=REFDATE(H4,DATE),DOTLINE,COLORGREEN;
    五191:=REFDATE(H5,DATE),DOTLINE,COLORYELLOW;
    追赶升浪:CROSS(C,操盘) AND 操盘<五0.191,COLORRED,LINETHICK2;




    地瓜分时内部 合成版:

    {地瓜分时内部 合成版}

    AF1:=1;
    TT:=BARSLAST(HOUR=9 AND MINUTE=(30+AF1))+1;
    均价:AMOUNT/VOL/100,COLORYELLOW;
    价位:C,COLORWHITE,LINETHICK4;
    盘整:IF(HOUR>9 AND RANGE(HHV(C,60)/LLV(C,60),1,1.02),C,DRAWNULL),COLORRED,LINETHICK2;
    V1:=V;
    HH:=C>REF(C,1) AND C/均价>(1+0.03);
    LL:=CHH1:=CROSS(SUM(HH,0),0.5);
    LL1:=CROSS(SUM(LL,0),0.5);
    SS1:=SUM(HH1,0)*CROSS(COUNT(CBB1:=SUM(LL1,0)*CROSS(COUNT(C>REF(C,1),BARSLAST(LL1)),0.5);
    CS1:CONST(SUM(IF(SS1,REF(C,1),DRAWNULL),0)),COLORGREEN,LINETHICK2;
    CB1:CONST(SUM(IF(BB1,REF(C,1),DRAWNULL),0)),COLORRED,LINETHICK2;
    HH2:=CROSS(SUM(HH AND C>CS1*1.03,0),0.5);
    LL2:=CROSS(SUM(LL AND CSS2:=SUM(HH2,0)*CROSS(COUNT(CBB2:=SUM(LL2,0)*CROSS(COUNT(C>REF(C,1),BARSLAST(LL2)),0.5);
    CS2:CONST(SUM(IF(SS2,REF(C,1),DRAWNULL),0)),COLORGREEN,LINETHICK1;
    CB2:CONST(SUM(IF(BB2,REF(C,1),DRAWNULL),0)),COLORRED,LINETHICK1;
    DRAWICON(HH1 OR HH2,C*1.01,39);
    DRAWICON(LL1 OR LL2,C*0.99,38);
    DRAWICON(BB1 OR BB2,REF(C,1)*0.99,7);
    DRAWICON(SS1 OR SS2,REF(C,1)*1.01,8);
    成交额:=V*C/100,NODRAW;{万元}
    A2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
    A3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
    A6:=(A2+A3);
    A7:=IF((ISLASTBAR),((100*A2)/A6),0);
    A8:=IF((ISLASTBAR),((100*A3)/A6),0);
    DD1:=1;
    AAA1:=STRCAT(STRCAT('机构买',CON2STR((100*A2)/A6,0)),'%');
    AAA2:=STRCAT(STRCAT('机构卖',CON2STR((100*A3)/A6,0)),'%');
    AAA3:=STRCAT(STRCAT('总买入',CON2STR((100*(A2-A3))/A6,0)),'%');
    DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1),COLORRED;
    DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2),COLOR00FF00;
    DRAWTEXT_FIX(DD1=1,0,0.24,0,AAA3),COLOR00FFFF;
    DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
    H1:EMA(C,8);
    H2:EMA(H1,20);
    VAR1:=(HHV(H,36)-C)/(HHV(H,36)-LLV(L,36))*100;
    VAR2:=SMA(VAR1,5,1);
    VAR3:=SMA(VAR2,8,1);
    VAR4:=CROSS(VAR2,VAR3) AND VAR3< 20;
    VAR5:=C>LLV(C,60)*1.13 AND VAR4;
    VAR6:=IF(C>200,VAR4,VAR5);
    STICKLINE(H1>H2,H1,H2,0,1),COLORRED;
    STICKLINE(H1< H2,H1,H2,0,1),COLORGREEN;
    现价:C,COLORWHITE,LINETHICK2;
    盘整1:IF(HOUR>8.75 AND RANGE(HHV(C,60)/LLV(C,60),1,1.02),C,DRAWNULL),COLORRED,LINETHICK6;
    H11:=MAX(DYNAINFO(3),DYNAINFO(5));
    L1:=MIN(DYNAINFO(3),DYNAINFO(6));
    P1:=H11-L1;
    阻力:L1+P1*7.7/8,NODRAW;
    支撑:L1+P1*0.3/8,NODRAW;
    STICKLINE(CROSS(支撑,现价),支撑,阻力,1,0),NODRAW;
    DRAWTEXT(LONGCROSS(支撑,现价,8),支撑,'----★B吸'),COLORRED;{吸}
    DRAWTEXT(LONGCROSS(现价,阻力,8),现价,'----★S抛'),COLORGREEN;{抛};
    A:C,COLORWHITE,LINETHICK3;




    军长专用MACD:

    低位金叉 macd二次金叉(顶尖财经 股票学院: )

    {军长专用MACD}


    VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
    OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
    OBV2:=EMA(OBV1,3)-MA(OBV1,9);
    OBV3:=EMA(IF(OBV2>0,OBV2,0),3);
    MAC3:=MA(C,3);
    SHORT:=12;LONG:=26;MID:=9;
    DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG)COLORYELLOW ;
    DEA:EMA(DIF,MID)COLORFF9900 ;
    MACD:=(DIF-DEA)*2;
    STICKLINE(OBV3>REF(OBV3,1) AND MAC3>REF(MAC3,1),0,MACD,2,0),COLORYELLOW;
    吸:=XLPL.NOTEXT吸;
    拉:=XLPL.NOTEXT拉;
    派:=XLPL.NOTEXT派;
    落:=XLPL.NOTEXT落;
    STICKLINE(吸,0,MACD,1,0),COLORLIRED;
    STICKLINE(拉,0,MACD,1,0),COLORRED;
    STICKLINE(派,0,MACD,1,0),COLORGREEN;
    STICKLINE(落,0,MACD,1,0),COLORWHITE;
    入1:IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORRED,LINETHICK2;
    入2:IF(DIF
    低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1;
    STICKLINE(低位金叉,0,0.08,6,0),COLORFF00FF;
    DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORWHITE;
    JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
    二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
    STICKLINE(二次金叉,0,0.06,6,0),COLORFFCC00;
    DRAWICON(二次金叉,DEA*0.9,1) ;
    DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORYELLOW;
    A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
    底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
    STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;
    DRAWTEXT(底背离,0.12,' 底背离'),COLORFF00FF;
    A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
    顶背离:=REF(CLOSE,A2+1)DIF AND CROSS(DEA,DIF);
    DRAWTEXT(低位金叉 AND 二次金叉 AND 底背离,0.25,'三全项'),COLOR0000FF,LINETHICK2;

    特别声明:文章内容仅供参考,不造成任何投资建议。投资者据此操作,风险自担。

    网站首页-股票知识--股票公式-散户炒股-问答百科--缠中说禅-概念股

    未经本站书面特别授权,请勿转载或建立镜像

    Copyright @ 2020 All Rights Reserved.版权所有 XMl地图
    Baidu
    map