[ZX261029]四方力道主图－通达信指标源码分享

01 图上最勾人的，往往是多余的

潮水没到的时候，我一般不开口。盯了一上午满屏的三角、箭头、彩色文字，越看越心浮，这种场面见一回叹一声——真正帮你稳住的那根线，常常被这些花活盖住了。四方力道主图干脆反着来，先给你一根慢半拍的神秘线，把情绪滤掉大半，剩下几层力道叠在旁边做参照。直接看这几样各是什么。

实时线｜收盘价自己，一点不加工 神秘线｜加权再平滑的慢线 

库存能量｜多空两笔轧出来的净值 力道｜快慢两档的差

看懂了就顺下去，拿不准的评论区吼一声。

02 指标源码分享｜四方力道主图

M5:MA(CLOSE,5),COLORWHITE;M10:MA(CLOSE,10),COLORYELLOW;M20:MA(CLOSE,20),COLORRED;M60:MA(CLOSE,60),COLORGREEN;{四方力道}V1:=DMA((((HIGH+LOW)+(CLOSE*2))/4.15),0.9);HY1:=REF(EMA(V1,3),1);实时线:MA(CLOSE,1),COLOR006400;神秘线:HY1,COLOR400080;DRAWTEXT(CROSS(CLOSE,HY1),LOW,'信号位一'),LINETHICK2,COLORYELLOW;DRAWTEXT(CROSS(HY1,CLOSE),HIGH*1.08,'高位标注'),LINETHICK3,COLORWHITE;APP:=(VOL/(((HIGH-LOW)*2)-ABS((CLOSE-OPEN))));ZL:=IF((CLOSE>OPEN),(APP*(HIGH-LOW)),IF((CLOSE<OPEN),(APP*((HIGH-OPEN)+(CLOSE-LOW))),(VOL/2)));SF:=IF((CLOSE>OPEN),(0-(APP*((HIGH-CLOSE)+(OPEN-LOW)))),IF((CLOSE<OPEN),(0-(APP*(HIGH-LOW))),(0-(VOL/2))));库存能量:=MA((ZL+SF),2);库存平均:=MA((ZL+SF),5);DRAWTEXT(CROSS(库存能量,库存平均),L*0.97,''),COLORFF00FF,LINETHICK4;{转折标注}VAR3:=LLV(HIGH,240);VAR4:=100*(CLOSE-VAR3)/VAR3;VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;VAR7:=0;VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;VAR10:=IF(TROUGHBARS(3,16,1)=0ANDHIGH>LOW+0.04,4,0);VAR11:=ZIG(3,6)>REF(ZIG(3,6),1)ANDREF(ZIG(3,6),1)<=REF(ZIG(3,6),2)ANDREF(ZIG(3,6),2)<=REF(ZIG(3,6),3);VAR12:=ZIG(3,6)<REF(ZIG(3,6),1)ANDREF(ZIG(3,6),1)>=REF(ZIG(3,6),2)ANDREF(ZIG(3,6),2)>=REF(ZIG(3,6),3);VAR13:=ZIG(3,22)>REF(ZIG(3,22),1)ANDREF(ZIG(3,22),1)<=REF(ZIG(3,22),2)ANDREF(ZIG(3,22),2)<=REF(ZIG(3,22),3);VAR14:=ZIG(3,22)<REF(ZIG(3,22),1)ANDREF(ZIG(3,22),1)>=REF(ZIG(3,22),2)ANDREF(ZIG(3,22),2)>=REF(ZIG(3,22),3);VAR15:=ZIG(3,51)>REF(ZIG(3,51),1)ANDREF(ZIG(3,51),1)<=REF(ZIG(3,51),2)ANDREF(ZIG(3,51),2)<=REF(ZIG(3,51),3);VAR16:=ZIG(3,51)<REF(ZIG(3,51),1)ANDREF(ZIG(3,51),1)>=REF(ZIG(3,51),2)ANDREF(ZIG(3,51),2)>=REF(ZIG(3,51),3);VAR17:=ZIG(3,72)>REF(ZIG(3,72),1)ANDREF(ZIG(3,72),1)<=REF(ZIG(3,72),2)ANDREF(ZIG(3,72),2)<=REF(ZIG(3,72),3);VAR18:=ZIG(3,72)<REF(ZIG(3,72),1)ANDREF(ZIG(3,72),1)>=REF(ZIG(3,72),2)ANDREF(ZIG(3,72),2)>=REF(ZIG(3,72),3);VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);甲１:=VAR10;甲２:=(VAR11+VAR13+VAR15+VAR17);乙１:=(VAR12+VAR14+VAR16+VAR18);B:IF(甲１>0OR甲２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;DRAWTEXT(FILTER(VAR10ORVAR11,5),LOW,'低位标注'),COLORRED;S:IF(乙１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;DRAWTEXT(FILTER(VAR12ORVAR14,3),HIGH,'回落标注'),COLORGREEN;{利多方舟}VAR100:=(100-((90*(HHV(HIGH,20)-CLOSE))/(HHV(HIGH,20)-LLV(LOW,20))));VAR200:=(100-((90*(HHV(HIGH,20)-CLOSE))/(HHV(HIGH,20)-LLV(LOW,20))));VAR300:=(100-MA(((100*(HHV(HIGH,5)-CLOSE))/(HHV(HIGH,5)-LLV(LOW,5))),34));F:IF(CROSS(VAR200,MA(VAR300,5)),LOW*0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLOREE00EE;X1:=(C+L+H)/3;X2:=EMA(X1,6);X3:=EMA(X2,5);GR1:=BARSLAST(BETWEEN("BIAS.BIAS2"(6,13,24),0,5));GR3:=COUNT("BIAS.BIAS2"(6,13,24)>10ANDH=HHV(H,GR1),GR1);GR4:=H=HHV(H,GR1);GR5:="MACD.MACD"(9,17,8)<REF("MACD.MACD"(9,17,8),1);LC:=REF(CLOSE,1);RSI6:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;BIAS5:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;换手:=100*V/CAPITAL;EMA8:=EMA(C,8);AA1:=AMOUNT/VOL;BB1:=L<AA1*0.9;CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;DD1:=L<MA(C,6)*0.921;EE1:=VOL<MA(V,5)*1.5;FF1:=BB1ANDCC1ANDDD1ANDEE1;DRAWTEXT(FF1,L*0.99,'低位信号'),COLOR00FF00;STICKLINE(FF1,H,L,0.3,0),COLOR00FF00;A2:=(C-REF(C,1))/REF(C,1)*100<1.02;A3:=H>MA(C,5)*1.12;AA:=A2ANDA3;

#力道主图# 跟 #均线# 系一根绳，#库存能量##加权平滑# 凑一挂。

03 一根慢线，怎么就把人稳住了

先说这根神秘线是怎么熬出来的。

HY1:=REF(EMA(V1,3),1)

V1是它的前提，取最高、最低、再加两倍收盘，除以四——本该除以四，作者写的是四一五。

V1:=DMA(((HIGH+LOW)+(CLOSE*2))/4.15,0.9)

这个四一五有意思。除以四就是标准的加权均价（HLP那套），干干净净；可它多砍了零点一五，数值整体往下沉一丝丝，线就永远贴得比均线低半口。你换成整四跑一遍，线立刻抬上去、和别的均线搅在一起；再极端点除以五，线塌得太厉害，参考意义全无。四一五就是那一点点"故意不准"，让这根线既跟着价、又始终慢半拍。急不得，慢半拍才是它的本分。

DMA的权重零点九同理。零点九是今天只吃掉最新一成的价、九半留给过去，线粗、稳、不爱抽风；换成零点三，它立马贴着脸跑，一根大阴线下坠得难看。作者看中的就是不跟得太勤，宁可慢，也别被单日情绪带着满场跑。

再看库存能量，这层的算法最土也最实在。

库存能量:=MA((ZL+SF),2)

ZL算多头那笔的量、SF算空头那笔，两者相加再平均两天，就是这两股力轧完的净结果。旁边配一根五日的力道平均线做对照，两档一快一慢，谁压过谁在图上看得清清楚楚。这套"同一净值配两条不同周期均线"的做法，是能拿走复用的件，换个标的、换层数据都能照搬。

至于底层那四档转折判断，藏在一大段ZIG里，窗口分别是六、二十二、五十一、七十二，各盯一段周期的方向翻没翻。由短到长，一档压一档，短的先递话，长的做定调，凑齐了才算一次像样的转向。

VAR11:=ZIG(3,6)>REF(ZIG(3,6),1)

六

二十二

五十一

七十二

四档由短到长，短档先动、长档压后，凑一块就是把不同级别的方向翻折各记一笔，图上下排那些记号就来自这里。这层不必细抠，粘进主图自己缩放几档就看明白它标在哪儿。退潮的票别急着下判断。汛口没到，竿先别甩。线走成什么样，得等它自己把方向交出来，急也没用。