ihzx 发表于 2021-8-26 22:43:53

通达信顶底背离MACD副图指标 源码


         <p>以下是通达信顶底背离MACD副图指标 源码(无源码的请下载附件导入)</p>
<div class="con" id="rjsmad1"></div>
<p>VAR1:=EMA(SLOPE(C,21)+C,55);<br>
&nbsp;VAR2:=EMA(SLOPE(O,21)+O,55);<br>
&nbsp;VAR3:=EMA(SLOPE(H,21)+H,55);<br>
&nbsp;VAR4:=EMA(SLOPE(L,21)+L,55);<br>
&nbsp;VAR5:=EMA(C,3);<br>
&nbsp;VAR6:=EMA(O,3);<br>
&nbsp;VAR7:=EMA(H,3);<br>
&nbsp;VAR8:=EMA(L,3);<br>
&nbsp;VAR9:=VAR1-VAR5,LINETHICK2;<br>
&nbsp;VAR10:=VAR2-VAR6,LINETHICK2;<br>
&nbsp;VAR11:=VAR3-VAR7,LINETHICK2;<br>
&nbsp;VAR12:=VAR4-VAR8,LINETHICK2;<br>
&nbsp;ZJC:=REVERSE(VAR9);<br>
&nbsp;ZJO:=REVERSE(VAR10);<br>
&nbsp;ZJH:=REVERSE(VAR11);<br>
&nbsp;ZJL:=REVERSE(VAR12);<br>
&nbsp;DIF:EMA(ZJC*5,12)-EMA(ZJC*5,26);<br>
&nbsp;DEA:EMA(DIF,9);<br>
&nbsp;<a href='http://www.tdxclub.com' title='MACD' target='_blank'>MACD</a>:(DIF-DEA)*2,COLORSTICK;<br>
&nbsp;STICKLINE(MACD&gt;REF(MACD,1) AND MACD&gt;0,0,MACD,0,0),COLORRED;<br>
&nbsp;STICKLINE(MACD&lt;REF(MACD,1) AND MACD&gt;0,0,MACD,0,0),COLORMAGENTA;<br>
&nbsp;STICKLINE(MACD&gt;REF(MACD,1) AND MACD&lt;0,0,MACD,0,0),COLORYELLOW;<br>
&nbsp;STICKLINE(MACD&lt;REF(MACD,1) AND MACD&lt;0,0,MACD,0,0),COLORLIGREEN;<br>
&nbsp;STICKLINE(ZJC&gt; ZJO,ZJH,ZJL,0.0,0),COLORFF66FF; <br>
&nbsp;STICKLINE(ZJC&gt; ZJO,ZJC,ZJO,2.1,0),COLORAA00AA; <br>
&nbsp;STICKLINE(ZJC&gt; ZJO,ZJC,ZJO,1.9,0),COLORCC11CC;<br>
&nbsp;STICKLINE(ZJC&gt; ZJO,ZJC,ZJO,1.6,0),COLORFF22FF;<br>
&nbsp;STICKLINE(ZJC&gt; ZJO,ZJC,ZJO,1.2,0),COLORFF44FF;<br>
&nbsp;STICKLINE(ZJC&gt; ZJO,ZJC,ZJO,0.7,0),COLORFF66FF;<br>
&nbsp;STICKLINE(ZJC&gt; ZJO,ZJC,ZJO,0.2,0),COLORFF99FF;<br>
&nbsp;STICKLINE(ZJC&lt;=ZJO,ZJL,ZJC,0.0,0),COLORGREEN;<br>
&nbsp;STICKLINE(ZJC&lt;=ZJO,ZJO,ZJC,2.1,0),COLOR005500;<br>
&nbsp;STICKLINE(ZJC&lt;=ZJO,ZJO,ZJC,1.9,0),COLOR007700;<br>
&nbsp;STICKLINE(ZJC&lt;=ZJO,ZJO,ZJC,1.6,0),COLOR009900;<br>
&nbsp;STICKLINE(ZJC&lt;=ZJO,ZJO,ZJC,1.2,0),COLOR00BB00;<br>
&nbsp;STICKLINE(ZJC&lt;=ZJO,ZJO,ZJC,0.7,0),COLOR00DD00;<br>
&nbsp;STICKLINE(ZJC&lt;=ZJO,ZJO,ZJC,0.2,0),COLOR44FF00;<br>
&nbsp;ZTB:=(C-REF(C,1))/REF(C,1)*100&gt;9.9;<br>
&nbsp;DRAWTEXT(ZTB,IF(ZJC&lt;0,ZJC*0.9,ZJC*1.1),'<a href='http://www.tdxclub.com' title='涨停' target='_blank'>涨停</a>板')COLORYELLOW;<br>
&nbsp;STICKLINE(ZTB,ZJC,ZJO,2.1,0),COLOR006666;<br>
&nbsp;STICKLINE(ZTB,ZJC,ZJO,1.9,0),COLOR008888;<br>
&nbsp;STICKLINE(ZTB,ZJC,ZJO,1.6,0),COLOR00AAAA;<br>
&nbsp;STICKLINE(ZTB,ZJC,ZJO,1.2,0),COLOR00CCCC;<br>
&nbsp;STICKLINE(ZTB,ZJC,ZJO,0.7,0),COLOR00EEEE;<br>
&nbsp;STICKLINE(ZTB,ZJC,ZJO,0.2,0),COLOR33FFFF;<br>
&nbsp;DTB:=(C-REF(C,1))/REF(C,1)*100&lt;-9.9;<br>
&nbsp;DRAWTEXT(DTB,IF(ZJC&gt;0,ZJC*0.9,ZJC*1.1),'跌停板')COLORFF8800;<br>
&nbsp;STICKLINE(DTB,ZJO,ZJC,2.1,0),COLORFF0000;{蓝色}<br>
STICKLINE(DTB,ZJO,ZJC,1.9,0),COLORFF2200;<br>
&nbsp;STICKLINE(DTB,ZJO,ZJC,1.6,0),COLORFF4400;<br>
&nbsp;STICKLINE(DTB,ZJO,ZJC,1.2,0),COLORFF6600;<br>
&nbsp;STICKLINE(DTB,ZJO,ZJC,0.7,0),COLORFF8800;<br>
&nbsp;STICKLINE(DTB,ZJO,ZJC,0.2,0),COLORFFAA00;<br>
&nbsp;</p>
<p></p>
页: [1]
查看完整版本: 通达信顶底背离MACD副图指标 源码