金金乐 发表于 2024-5-17 13:37:27

通达信量能分位值副图

    <div class="stock-fc-code-box"><p>MOBV:=OBV-MA(OBV,30);</p><p>W1:STICKLINE(MOBV&gt;0,MOBV,0,3,1),COLORRED;</p><p>W2:STICKLINE(MOBV&lt;0,MOBV,0,3,1),COLORCYAN;</p><p>VA1:=HHVBARS(MOBV,BARSLAST(MOBV&lt;0)+1);</p><p>VA2:=CROSS(BACKSET(CROSS(0,MOBV),REF(VA1,1)+2),0.5);</p><p>QG:=CROSS(BACKSET(CROSS(0,MOBV) OR (ISLASTBAR AND MOBV&gt;0),REF(VA1,1)+2),0.5);</p><p>前高:DRAWLINE(VA2,MOBV,REF(VA2,1),REF(MOBV,1),1),COLORMAGENTA;</p><p>VA3:=LLVBARS(MOBV,BARSLAST(MOBV&gt;0)+1);</p><p>VA4:=CROSS(BACKSET(CROSS(MOBV,0),REF(VA3,1)+2),0.5);</p><p>BD:=BARSLAST(FILTERX(CROSS(0,MOBV),BARSCOUNT(C)));</p><p>前低:DRAWLINE(VA4,MOBV,REF(VA4,1),REF(MOBV,1),1);</p><p>BDTJ:=IF(MOBV&lt;0,FILTERX(MOBV=LLV(MOBV,BARSLAST(MOBV&gt;0)),</p><p>BARSCOUNT(C)),DRAWNULL);</p><p>TSBDTJ:=BARSLAST(BDTJ);</p><p>BDZH:=FILTERX(MOBV&lt;CONST(LLV(MOBV,BD+1)),BARSCOUNT(C));</p><p>BDTS:=BARSLAST(BDZH);</p><p>本低:IF(BD+1&gt;=1,CONST(LLV(MOBV,BD+1)),DRAWNULL);</p><p>BDCL:=CROSS(COUNT(CROSS(MOBV&gt;本低/2 AND MOBV&lt;0,0.5),TSBDTJ)=1,0.5) AND TSBDTJ&gt;=0;</p><p>终点:=IF(ISLASTBAR AND MOBV&gt;0 AND MOBV=HHV(MOBV,BARSLAST(MOBV&lt;0)),1,</p><p>IF(FILTERX(QG,BARSCOUNT(C)),2,DRAWNULL));</p><p>UU:=(终点=1 OR 终点=2) AND MOBV&gt;0;</p><p>ZZ:=FILTERX(UU,BARSCOUNT(C));</p><p>本高:DRAWLINE(ZZ,MOBV,REF(ZZ,1),REF(MOBV,1),1),COLORWHITE;</p><p>横线:=CONST(REF(MOBV,BARSLAST(ZZ)));</p><p>WW:=MOBV&gt;横线;</p><p>起始点:=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C));</p><p>天数:=BARSLAST(起始点),COLORYELLOW,NODRAW;</p><p>上横线:=DRAWLINE(起始点,横线,ZZ,横线,0),COLORGREEN,DOTLINE;</p><p>下横线:=DRAWLINE(BDZH,CONST(LLV(MOBV,BD+1)),BDTJ=1,MOBV,0),COLOR8080FF,DOTLINE;</p><p>DRAWNUMBER(BDTJ,CONST(LLV(MOBV,BD+1))*0.9,BDTS);</p><p>DRAWNUMBER(ZZ,上横线*1.1,天数);</p><p>TJ:=IF(起始点,BARSNEXT(ZZ),DRAWNULL);</p><p>红柱数量:=IF(天数&gt;0 AND 天数&lt;=REF(TJ,天数),SUM(MOBV&gt;0,天数),DRAWNULL),COLORWHITE,NODRAW;</p><p>横线起始价:=REF(C,天数),NODRAW;</p><p>空间评估:=(横线起始价-C)/C*100,NODRAW;</p><p>TT:=BARSLAST(ZZ);</p><p>WQG:=CROSS(COUNT(CROSS(MOBV&lt;本高/2 AND MOBV&gt;0,0.5),ZZ)=1,0.5) AND ZZ&gt;=0;</p><p>STICKLINE(MOBV&gt;前高 AND 本高&gt;前高 AND BARSLAST(CROSS(MOBV&lt;本高/2,0.5))&gt;0 AND</p><p>MOBV&gt;(前高+本高)/2,MOBV,前高,1,0),COLORYELLOW;</p><p>二分位:IF(MOBV&gt;0 AND 本高!=前高,DRAWLINE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),1)</p><p>,DRAWNULL),COLORC0C000,DOTLINE;</p><p>AA:=STRCAT(STRCAT(STRCAT('〖','上升空间'),'〗'),CON2STR(IF(空间评估,空间评估,DRAWNULL),2));</p><p>STICKLINE(MOBV&gt;前高,MOBV,前高,1,0),COLORYELLOW;</p><p>STICKLINE(WQG,MOBV,0,1,0),COLORGREEN;</p><p>STICKLINE(MOBV&lt;0 AND MOBV&lt;前低 AND 前低&lt;0,MOBV,前低,1,0),COLORBLUE;</p><p>B1:=IF(CROSS(MOBV&lt;0,0.5),BARSNEXT(BDTJ),DRAWNULL);</p><p>TSB1:=BARSLAST(MOBV&gt;0)-1;</p><p>STICKLINE(BARSLAST(BDCL)&gt;=0 AND MOBV&lt;前低 AND MOBV&lt;0,MOBV,前低,1,0),COLORGREEN;</p><p>STICKLINE(BDCL,MOBV,0,1,0),COLORWHITE;</p><p>STICKLINE(MOBV&gt;前高 AND 本高&gt;前高 AND BARSLAST(WQG)&gt;0,</p><p>MOBV,前高,1,0),COLORRED;</p><p>DRAWTEXT(VA2 AND VA2!=UU,(MOBV/10)*9,'前');</p><p>DRAWTEXT(VA2 AND VA2!=UU,MOBV/10,'高');</p><p>DRAWTEXT(ZZ,(MOBV/10)*7,'本'),COLORBLUE;</p><p>DRAWTEXT(ZZ,MOBV/10,'高'),COLORBLUE;</p><p>DRAWTEXT(BDTJ,(MOBV/10)*9,'低'),COLORRED;</p><p>DRAWTEXT(BDTJ,MOBV/10,'本'),COLORRED;</p><p>IF(BARSLAST(BDCL)&gt;=0,本低/2,DRAWNULL),COLORRED,DOTLINE;<br/>财富密码:DRAWTEXT_FIX(1,0.99,5,1,'~☆~更多精选指标请访问:995168.cn'),COLORRED; </p><p><br></p><p><br></p><p><br></p></div>
页: [1]
查看完整版本: 通达信量能分位值副图