丁具归所 发表于 2023-11-1 19:55:03

通达信背离红绿柱副图公式

<div class="stock-fc-code-box"><p>A1:=FORCAST(EMA(CLOSE,5),6);<br></p><p>A2:=FORCAST(EMA(CLOSE,8),6);</p><p>A3:=FORCAST(EMA(CLOSE,11),6);</p><p>A4:=FORCAST(EMA(CLOSE,14),6);</p><p>A5:=FORCAST(EMA(CLOSE,17),6);</p><p>B:=A1+A2+A3+A4-4*A5;</p><p>TOWERC:=EMA(B,2);</p><p>B1:=FORCAST(EMA(B,3),6),POINTDOT,COLORGREEN;</p><p>B2:=FORCAST(EMA(B,4),6),POINTDOT,COLORGREEN;</p><p>B3:=FORCAST(EMA(B,5),6),POINTDOT,COLORGREEN;</p><p>B4:=FORCAST(EMA(B,6),6),POINTDOT,COLORGREEN;</p><p>B5:=FORCAST(EMA(B,7),6),POINTDOT,COLORGREEN;</p><p>B6:=FORCAST(EMA(B,8),6),POINTDOT,COLORGREEN;</p><p>B7:=FORCAST(EMA(B,9),6),POINTDOT,COLORGREEN;</p><p>B8:=FORCAST(EMA(B,10),6),POINTDOT,COLORGREEN;</p><p>B9:=FORCAST(EMA(B,11),6),POINTDOT,COLORGREEN;</p><p>B10:=FORCAST(EMA(B,12),6),POINTDOT,COLORGREEN;</p><p>B11:=FORCAST(EMA(B,13),6),POINTDOT,COLORGREEN;</p><p>B12:=FORCAST(EMA(B,14),6),POINTDOT,COLORGREEN;</p><p>B13:=FORCAST(EMA(B,15),6),POINTDOT,COLORGREEN;</p><p>B14:=FORCAST(EMA(B,16),6),POINTDOT,COLORGREEN;</p><p>B15:=FORCAST(EMA(B,17),6),POINTDOT,COLORGREEN;</p><p>STICKLINE(TOWERC&gt;=REF(TOWERC,1),TOWERC,REF(TOWERC,1),8,0),COLORRED;</p><p>STICKLINE(TOWERC&lt;REF(TOWERC,1),TOWERC,REF(TOWERC,1),8,0),COLORGREEN;</p><p>BMAX1:=MAX(MAX(B1,B2),MAX(B3,B4));</p><p>BMAX2:=MAX(MAX(B5,B6),MAX(B7,B8));</p><p>BMAX3:=MAX(MAX(B9,B10),MAX(B11,B12));</p><p>BMAX4:=MAX(MAX(B13,B14),B15);</p><p>BMAX:=MAX(MAX(BMAX1,BMAX2),MAX(BMAX3,BMAX4));</p><p>BMIN1:=MIN(MIN(B1,B2),MIN(B3,B4));</p><p>BMIN2:=MIN(MIN(B5,B6),MIN(B7,B8));</p><p>BMIN3:=MIN(MIN(B9,B10),MIN(B11,B12));</p><p>BMIN4:=MIN(MIN(B13,B14),B15);</p><p>BMIN:=MIN(MIN(BMIN1,BMIN2),MIN(BMIN3,BMIN4));</p><p>BAX:=ABS(BMAX-(TOWERC+REF(TOWERC,1))/2);</p><p>BAN:=ABS(BMIN-(TOWERC+REF(TOWERC,1))/2);</p><p>BFIN:=IF(BAX&gt;BAN,BMAX,BMIN);</p><p>C1:=BFIN-BMAX=0 AND REF(BFIN,1)-REF(BMIN,1)=0;</p><p>C2:=BFIN-BMIN=0 AND REF(BFIN,1)-REF(BMAX,1)=0;</p><p>BFINAL:=IF(C1 OR C2,(BMAX+BMIN)/2,BFIN),NODRAW;</p><p>HC:=TOWERC-REF(TOWERC,1),NODRAW;</p><p>KC:=HC-REF(HC,1),NODRAW;</p><p>绿柱变大:IF(HC&lt;=0 AND KC&lt;=0,BFINAL,DRAWNULL),POINTDOT,COLORGREEN,LINETHICK3;</p><p>绿柱变小:IF(HC&lt;0 AND KC&gt;0,BFINAL,DRAWNULL),POINTDOT,COLORMAGENTA,LINETHICK3;</p><p>红柱变大:IF(HC&gt;0 AND KC&gt;=0,BFINAL,DRAWNULL),POINTDOT,COLORRED,LINETHICK3;</p><p>红柱变小:IF(HC&gt;0 AND KC&lt;0,BFINAL,DRAWNULL),POINTDOT,COLORLIBLUE,LINETHICK3;</p><p><br></p></div>
页: [1]
查看完整版本: 通达信背离红绿柱副图公式