[ZS261116]红帆黑牛主图-通达信指标源码分享

01主图这台机器，水电贴砖分两道

你肯定也碰见过——红蓝柱身忽长忽短，中间那根重心线却纹丝不动，越看越迷糊。别急，这主图看着花，其实就是两台机器叠一块儿：一台数柱身，一台画线。工序不能倒，先看它拿什么把红蓝分开。

图纸和现场总差一截，读懂一台，另一台就顺了。

02指标源码分享｜红帆黑牛主图

指标编号：ZS261116

指标完整源码：

VAR1:=CLOSE>REF(CLOSE,1)ANDCLOSE>REF(CLOSE,2);VAR2:=REF(VAR1,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR3:=REF(VAR2,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);VAR4:=REF(VAR3,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR5:=REF(VAR4,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);VAR6:=REF(VAR5,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR7:=REF(VAR6,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR8:=REF(VAR7,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR9:=REF(VAR8,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VARA:=REF(VAR9,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VARB:=REF(VARA,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);VARC:=REF(VARB,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);STICKLINE(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC,CLOSE,REF(CLOSE,1),3.1,0),COLOR000055;STICKLINE(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC,CLOSE,REF(CLOSE,1),2.7,0),COLOR000077;STICKLINE(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC,CLOSE,REF(CLOSE,1),2.1,0),COLOR000099;STICKLINE(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC,CLOSE,REF(CLOSE,1),1.5,0),COLOR0000BB;STICKLINE(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC,CLOSE,REF(CLOSE,1),0.9,0),COLOR0000DD;STICKLINE(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC,CLOSE,REF(CLOSE,1),0.3,0),COLOR0000FF;VARD:=CLOSE<REF(CLOSE,1)ANDCLOSE<REF(CLOSE,2);VARE:=REF(VARD,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);VARF:=REF(VARE,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR10:=REF(VARF,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);VAR11:=REF(VAR10,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR12:=REF(VAR11,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR13:=REF(VAR12,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR14:=REF(VAR13,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR15:=REF(VAR14,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR16:=REF(VAR15,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR17:=REF(VAR16,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);VAR18:=REF(VAR17,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);STICKLINE(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18,CLOSE,REF(CLOSE,1),3.1,0),COLOR00AAFF;STICKLINE(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18,CLOSE,REF(CLOSE,1),2.7,0),COLOR00DDFF;STICKLINE(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18,CLOSE,REF(CLOSE,1),2.1,0),COLOR00EEFF;STICKLINE(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18,CLOSE,REF(CLOSE,1),1.5,0),COLOR22FFFF;STICKLINE(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18,CLOSE,REF(CLOSE,1),0.9,0),COLOR99FFFF;STICKLINE(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18,CLOSE,REF(CLOSE,1),0.3,0),COLORFFFFFF;VAR19:=REF(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18,1)ANDVAR1;STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORMAGENTA;VAR1A:=REF(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC,1)ANDVARD;STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR008800;RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;K24:=SMA(RSV24,3,1);D24:=SMA(K24,3,1);J24:=3*K24-2*D24;A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));DRAWTEXT(REF(C,A1+1)>CANDREF("MACD.DIF",A1+1)<"MACD.DIF"ANDCROSS("MACD.DIF","MACD.DEA")>0,L-0.02,'★M'),COLOR00FFFF;A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));DRAWTEXT(REF(C,A2+1)>CANDREF("KDJ.K",A2+1)<"KDJ.K"ANDCROSS("KDJ.K","KDJ.D"),L-0.10,'◎K'),COLORFF00FF;A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));DRAWTEXT(REF(C,A3+1)>CANDREF("RSI.RSI1",A3+1)<"RSI.RSI1"ANDCROSS("RSI.RSI1","RSI.RSI2")>0,L-0.18,'◆R'),COLOR0000FF;C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));DRAWTEXT(REF(C,C1+1)<CANDREF("MACD.DIF",C1+1)>"MACD.DIF"ANDCROSS("MACD.DEA","MACD.DIF")>0,H+0.16,'★M'),COLOR00FF00;C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));DRAWTEXT(REF(C,C2+1)<CANDREF("KDJ.K",C2+1)>"KDJ.K"ANDCROSS("KDJ.D","KDJ.K")>0,H+0.08,'◎K'),COLORFFFFCC;C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));DRAWTEXT(REF(C,C3+1)<CANDREF("RSI.RSI1",C3+1)>"RSI.RSI1"ANDCROSS("RSI.RSI2","RSI.RSI1")>0,H+0.04,'◆R'),COLORFF9900;重心:=(C+0.618*REF(C,1)+0.382*REF(C,1)+0.236*REF(C,3)+0.146*REF(C,4))/2.382;操盘线:EMA(((SLOPE(C,22)*20)+C),55),COLORYELLOW,LINETHICK4;强势段:IF(重心>=操盘线,操盘线,DRAWNULL),COLORRED,LINETHICK2;弱势段:IF(重心<操盘线,操盘线,DRAWNULL),COLORCYAN,LINETHICK2;DRAWTEXT(ISLASTBAR,操盘线,'操盘线'),COLORRED;变:EMA(CLOSE,5),LINETHICK1,COLORYELLOW;升段:IF(变>REF(变,1),变,DRAWNULL),COLORRED,LINETHICK1;降段:IF(变<REF(变,1),变,DRAWNULL),COLORGREEN,LINETHICK1;DRAWTEXT(ISLASTBAR,变,'雷达线'),COLORRED;涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);STICKLINE(涨停,O,C,1,0),COLORYELLOW;ZDF:=(C-REF(C,1))/REF(C,1)*100;STICKLINE(ZDF<-9.9,O,C,1,0),COLORBLUE;PH:=TROUGHBARS(2,5,1);LL:=HHV(H,PH);TJ1:=LL=HIGHANDLL<REF(LL,1);TS:=SUMBARS(TJ1,2);TJ:=PEAKBARS(2,5,1)=1ANDTS>=PH;PL:=BARSLAST(TJ);支撑:IF(BARSLAST(TJ1),REF(LOW,BARSLAST(TJ1)),DRAWNULL),COLOREA91B5;压力:IF(BARSLAST(TJ),REF(HIGH,PL),DRAWNULL),COLORYELLOW;TJ_2:=LOW>REF(REF(LOW,TS),PL);DRAWTEXT(ISLASTBAR,压力,'压力'),COLORYELLOW;DRAWTEXT(ISLASTBAR,支撑,'支撑'),COLOREA91B5;生命线:MA(CLOSE,26),COLORRED,LINETHICK2;STICKLINE(C>=生命线ANDC>=O,H,L,0,1),COLORRED;STICKLINE(C>=生命线ANDC>=O,C,O,2.5,0),COLORRED;DP:=IF(C=INDEXC,0,1);GJ:=AMOUNT/V/100;多头线:EMA(C,1.5),COLOR0000CC;空头线:EMA(C,5),COLORMAGENTA;均衡线:EMA(空头线,5),COLORGREEN;VARF1:=COUNT(CROSS(多头线,均衡线),2)=1;VARF2:=COUNT(CROSS(空头线,均衡线),2)=1;ZAI:=FILTER(VARF1ANDVARF2,2);DRAWTEXT(ZAI,均衡线*0.98,'↖黑牛'),COLOR00FF00;MTM:=CLOSE-REF(CLOSE,1);DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);DY:=HHV(DX,2)=HHV(DX,7)ANDCOUNT(DX>50,2)ANDCROSS(MA(DX,2),DX);LC:=REF(CLOSE,1);RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;STICKLINE(ZDF>9.8,O,C,2.5,0),COLORRED;STICKLINE(ZDF<-9.8,O,C,2.5,0),COLORBLUE;白档:DRAWNULL,NODRAW,COLORWHITE;黄档:DRAWNULL,NODRAW,COLORYELLOW;蓝档:DRAWNULL,NODRAW,COLORBLUE;绿档:DRAWNULL,NODRAW,COLORGREEN;红档:DRAWNULL,NODRAW,COLORRED;灰档:DRAWNULL,NODRAW,COLORGRAY;基准价:=((C-REF(MA(C,6),1))/6+MA(C,6))*1.004;成立条件:=CROSS(C,基准价)AND基准价>REF(基准价,1);

顺手把 #底背离# 这个话题钉一下，平时跟 #均线##金叉# 搁一块儿聊。

03先假设它误判，再倒回来看哪道松了

我拿一版旧图倒推过：有回它把一段普通回调标成了背离，回头查，问题不在背离本身，在它前面那串柱身。所以拆这台机器，我偏从"它哪天会看走眼"起手。

先说 J 值这档。

J:3*K-2*D;

RSV 从十三日最低到最高的相对位置算出，K 平滑一道、D 再平滑一道，J 就是最敏感那条。它比 K、D 都快，一点风吹草动就先跳。为什么单拎它？因为背离这活儿，最要的是一根肯先动的探针——价没创新高，它先软了，苗头就露出来。这儿参数我不含糊：十三日的窗收太短，J 天天抽风；拖到二十日，等它回头回调早走完半截，十三卡在中间。

再倒回来看背离是怎么钉出来的。

A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));

BARSLAST 记的是"离上一次金叉过了几根K线"。真正的底背离，靠三件事咬在一块儿：拿 REF 往回数到那根金叉日的价，跟今天比，今天更低；那天的 DIF 却比今天高；而今天 DIF 又刚上穿 DEA。价往下、指标往上，两股劲儿拧着，这才叫背离。MACD 与 KDJ 和 RSI 三组，各钉一个字，★ ◎ ◆ 落在柱身低处。

隐蔽工程最要命。这台机器最容易被忽略的，是那根重心线。

重心:=(C+0.618*REF(C,1)+0.382*REF(C,1)+0.236*REF(C,3)+0.146*REF(C,4))/2.382;

它把最近几天收盘价按递减权重折成一个中枢，越近的价分量越重。操盘线在它上头又动了一手。

操盘线:EMA(((SLOPE(C,22)*20)+C),55);

SLOPE 取二十二日的价格斜率，乘个二十倍放大，硬塞回当日价里，再 EMA 五十五。说白了，均线天生慢半拍，作者给线接了根斜率的弹簧，这几天冲得越急，线越早抬头——它解决的是老股民都骂过的那句"等价回落到均线，那截早走完了"。重心压在操盘线上方的，染红；跌破的，染青。验收得拿尺子量，这两档谁高谁低，一眼就分。

对了，先岔一句。有人拿柱身高矮当强弱，方向偏了——柱身只告诉你这段归红还是归蓝，不给方向背书。

它什么时候会看走眼，说在前头。单边急涨里 J 值长期钝化，回落到不了低位，背离三条件凑不齐，它干脆不吭声；横盘缩量时重心与操盘线贴死，红蓝一天一切，噪音盖过信号。这种盘口别指望单根线，拉长时间轴对一对量的配合。

两台机器搓完就透：一台分柱身，一台画中枢，中间那根带弹簧的线才是芯。