通达信量神指标公式源码贴图

V11A:=(HIGH > LOW) and (CLOSE > OPEN) and (HIGH = CLOSE) and (LOW = OPEN);
 V12A:=((VOL)*(CLOSE - OPEN))/(HIGH - LOW);
 VD1A:=IF(V11A,V12A,0);
 VZ1A:=IF(V11A,0,0);
 V21A:=(HIGH > LOW) and (CLOSE > OPEN) and (HIGH = CLOSE) and (LOW < OPEN);
 V22A:=(VOL)*((CLOSE - OPEN)/(HIGH - LOW) + (((2)/(3))*(OPEN - LOW))/(HIGH - LOW));
 V23A:=((((VOL)*(1))/(3))*(OPEN - LOW))/(HIGH - LOW);
 VD2A:=IF(V21A,V22A,0);
 VZ2A:=IF(V21A,V23A,0);
 V31A:=(HIGH > LOW) and (CLOSE > OPEN) and (HIGH > CLOSE) and (LOW = OPEN);
 V32A:=(VOL)*((CLOSE - OPEN)/(HIGH - LOW) + (((1)/(3))*(HIGH - CLOSE))/(HIGH - LOW));
 V33A:=((((VOL)*(2))/(3))*(HIGH - CLOSE))/(HIGH - LOW);
 VD3A:=IF(V31A,V32A,0);
 VZ3A:=IF(V31A,V33A,0);
 V41A:=(HIGH > LOW) and (CLOSE > OPEN) and (HIGH > CLOSE) and (LOW < OPEN);
 V42A:=(VOL)*((CLOSE - OPEN)/(HIGH - LOW) + (((1)/(3))*(HIGH - CLOSE))/(HIGH - LOW) + (((2)/(3))*(OPEN - LOW))/(HIGH - LOW));
 V43A:=(VOL)*((((2)/(3))*(HIGH - CLOSE))/(HIGH - LOW) + (((1)/(3))*(OPEN - LOW))/(HIGH - LOW));
 VD4A:=IF(V41A,V42A,0);
 VZ4A:=IF(V41A,V43A,0);
 V51A:=(HIGH > LOW) and (CLOSE < OPEN) and (HIGH = OPEN) and (LOW = CLOSE);
 V52A:=((VOL)*(OPEN - CLOSE))/(HIGH - LOW);
 VD5A:=IF(V51A,0,0);
 VZ5A:=IF(V51A,V52A,0);
 V61A:=(HIGH > LOW) and (CLOSE < OPEN) and (HIGH = OPEN) and (LOW < CLOSE);
 V62A:=((((VOL)*(CLOSE - LOW))/(HIGH - LOW))*(2))/(3);
 V63A:=(VOL)*((OPEN - CLOSE)/(HIGH - LOW) + (((1)/(3))*(CLOSE - LOW))/(HIGH - LOW));
 VD6A:=IF(V61A,V62A,0);
 VZ6A:=IF(V61A,V63A,0);
 
 V71A:=(HIGH > LOW) and (CLOSE < OPEN) and (HIGH > OPEN) and (LOW = CLOSE);
 V72A:=((((VOL)*(1))/(3))*(HIGH - OPEN))/(HIGH - LOW);
 V73A:=(VOL)*((OPEN - CLOSE)/(HIGH - LOW) + (((2)/(3))*(HIGH - OPEN))/(HIGH - LOW));
 VD7A:=IF(V71A,V72A,0);
 VZ7:=IF(V71A,V73A,0);
 V81A:=(HIGH > LOW) and (CLOSE < OPEN) and (HIGH > OPEN) and (LOW < CLOSE);
 V82A:=(VOL)*((((1)/(3))*(HIGH - OPEN))/(HIGH - LOW) + (((2)/(3))*(CLOSE - LOW))/(HIGH - LOW));
 V83A:=(VOL)*((OPEN - CLOSE)/(HIGH - LOW) + (((2)/(3))*(HIGH - OPEN))/(HIGH - LOW) + (((1)/(3))*(CLOSE - LOW))/(HIGH - LOW));
 VD8A:=IF(V81A,V82A,0);
 VZ8A:=IF(V81A,V83A,0);
 V91A:=(HIGH > LOW) and (CLOSE = OPEN) and (HIGH = CLOSE) and (LOW < CLOSE);
 V92A:=((VOL)*(2))/(3);
 V93A:=((VOL)*(1))/(3);
 VD9A:=IF(V91A,V92A,0);
 VZ9A:=IF(V91A,V93A,0);
 V101A:=(HIGH > LOW) and (CLOSE = OPEN) and (HIGH > CLOSE) and (LOW = CLOSE);
 V102A:=((((VOL)*(1))/(3))*(HIGH - LOW))/(HIGH - LOW);
 V103A:=((((VOL)*(2))/(3))*(HIGH - LOW))/(HIGH - LOW);
 VD10A:=IF(V101A,V102A,0);
 VZ10A:=IF(V101A,V103A,0);
 V111A:=(HIGH > LOW) and (CLOSE = OPEN) and (HIGH > CLOSE) and (LOW < CLOSE);
 V112A:=(VOL)*((((1)/(3))*(HIGH - CLOSE))/(HIGH - LOW) + (((2)/(3))*(CLOSE - LOW))/(HIGH - LOW));
 V113A:=(VOL)*((((2)/(3))*(HIGH - CLOSE))/(HIGH - LOW) + (((1)/(3))*(CLOSE - LOW))/(HIGH - LOW));
 VD11A:=IF(V111A,V112A,0);
 VZ11A:=IF(V111A,V113A,0);
 V121A:=(HIGH = LOW) and (CLOSE = OPEN) and (HIGH = CLOSE) and (LOW = CLOSE) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) > 9.75);
 VD12A:=IF(V121A,VOL,0);
 V122A:=(HIGH = LOW) and (CLOSE = OPEN) and (HIGH = CLOSE) and (LOW = CLOSE) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) < 0 - 9.75);
 VZ12A:=IF(V122A,VOL,0);
 V131A:=(HIGH = LOW) and (CLOSE = OPEN) and (HIGH = CLOSE) and (LOW = CLOSE) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) < 9.75) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) > 0 - 9.75);
 VD13A:=IF(V131A,(0.5)*(VOL),0);
 V132A:=(HIGH = LOW) and (CLOSE = OPEN) and (HIGH = CLOSE) and (LOW = CLOSE) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) < 9.75) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) > 0 - 9.75);
 VZ13A:=IF(V132A,(0.5)*(VOL),0);
真神:=VD1A + VD2A + VD3A + VD4A + VD5A + VD6A + VD7A + VD8A + VD9A + VD10A + VD11A + VD12A + VD13A;
 V11:=(HIGH > LOW) and (CLOSE > OPEN) and (HIGH = CLOSE) and (LOW = OPEN);
 V12:=((VOL)*(CLOSE - OPEN))/(HIGH - LOW);
 VD1:=IF(V11,V12,0);
 VZ1:=IF(V11,0,0);
 V21:=(HIGH > LOW) and (CLOSE > OPEN) and (HIGH = CLOSE) and (LOW < OPEN);
 V22:=(VOL)*((CLOSE - OPEN)/(HIGH - LOW) + (((2)/(3))*(OPEN - LOW))/(HIGH - LOW));
 V23:=((((VOL)*(1))/(3))*(OPEN - LOW))/(HIGH - LOW);
 VD2:=IF(V21,V22,0);
 VZ2:=IF(V21,V23,0);
 V31:=(HIGH > LOW) and (CLOSE > OPEN) and (HIGH > CLOSE) and (LOW = OPEN);
 V32:=(VOL)*((CLOSE - OPEN)/(HIGH - LOW) + (((1)/(3))*(HIGH - CLOSE))/(HIGH - LOW));
 V33:=((((VOL)*(2))/(3))*(HIGH - CLOSE))/(HIGH - LOW);
 VD3:=IF(V31,V32,0);
 VZ3:=IF(V31,V33,0);
 V41:=(HIGH > LOW) and (CLOSE > OPEN) and (HIGH > CLOSE) and (LOW < OPEN);
 V42:=(VOL)*((CLOSE - OPEN)/(HIGH - LOW) + (((1)/(3))*(HIGH - CLOSE))/(HIGH - LOW) + (((2)/(3))*(OPEN - LOW))/(HIGH - LOW));
 V43:=(VOL)*((((2)/(3))*(HIGH - CLOSE))/(HIGH - LOW) + (((1)/(3))*(OPEN - LOW))/(HIGH - LOW));
 VD4:=IF(V41,V42,0);
 VZ4:=IF(V41,V43,0);
 V51:=(HIGH > LOW) and (CLOSE < OPEN) and (HIGH = OPEN) and (LOW = CLOSE);
 V52:=((VOL)*(OPEN - CLOSE))/(HIGH - LOW);
 VD5:=IF(V51,0,0);
 VZ5:=IF(V51,V52,0);
 V61:=(HIGH > LOW) and (CLOSE < OPEN) and (HIGH = OPEN) and (LOW < CLOSE);
 V62:=((((VOL)*(CLOSE - LOW))/(HIGH - LOW))*(2))/(3);
 V63:=(VOL)*((OPEN - CLOSE)/(HIGH - LOW) + (((1)/(3))*(CLOSE - LOW))/(HIGH - LOW));
 VD6:=IF(V61,V62,0);
 VZ6:=IF(V61,V63,0);
 V71:=(HIGH > LOW) and (CLOSE < OPEN) and (HIGH > OPEN) and (LOW = CLOSE);
 V72:=((((VOL)*(1))/(3))*(HIGH - OPEN))/(HIGH - LOW);
 V73:=(VOL)*((OPEN - CLOSE)/(HIGH - LOW) + (((2)/(3))*(HIGH - OPEN))/(HIGH - LOW));
 VD7:=IF(V71,V72,0);
 VZ7A:=IF(V71,V73,0);
 V81:=(HIGH > LOW) and (CLOSE < OPEN) and (HIGH > OPEN) and (LOW < CLOSE);
 V82:=(VOL)*((((1)/(3))*(HIGH - OPEN))/(HIGH - LOW) + (((2)/(3))*(CLOSE - LOW))/(HIGH - LOW));
 V83:=(VOL)*((OPEN - CLOSE)/(HIGH - LOW) + (((2)/(3))*(HIGH - OPEN))/(HIGH - LOW) + (((1)/(3))*(CLOSE - LOW))/(HIGH - LOW));
 VD8:=IF(V81,V82,0);
 VZ8:=IF(V81,V83,0);
 V91:=(HIGH > LOW) and (CLOSE = OPEN) and (HIGH = CLOSE) and (LOW < CLOSE);
 V92:=((VOL)*(2))/(3);
 V93:=((VOL)*(1))/(3);
 VD9:=IF(V91,V92,0);
 VZ9:=IF(V91,V93,0);
 V101:=(HIGH > LOW) and (CLOSE = OPEN) and (HIGH > CLOSE) and (LOW = CLOSE);
 V102:=((((VOL)*(1))/(3))*(HIGH - LOW))/(HIGH - LOW);
 V103:=((((VOL)*(2))/(3))*(HIGH - LOW))/(HIGH - LOW);
 VD10:=IF(V101,V102,0);
 VZ10:=IF(V101,V103,0);
 V111:=(HIGH > LOW) and (CLOSE = OPEN) and (HIGH > CLOSE) and (LOW < CLOSE);
 V112:=(VOL)*((((1)/(3))*(HIGH - CLOSE))/(HIGH - LOW) + (((2)/(3))*(CLOSE - LOW))/(HIGH - LOW));
 V113:=(VOL)*((((2)/(3))*(HIGH - CLOSE))/(HIGH - LOW) + (((1)/(3))*(CLOSE - LOW))/(HIGH - LOW));
 VD11:=IF(V111,V112,0);
 VZ11:=IF(V111,V113,0);
 V121:=(HIGH = LOW) and (CLOSE = OPEN) and (HIGH = CLOSE) and (LOW = CLOSE) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) > 9.75);
 VD12:=IF(V121,VOL,0);
 V122:=(HIGH = LOW) and (CLOSE = OPEN) and (HIGH = CLOSE) and (LOW = CLOSE) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) < 0 - 9.75);
 VZ12:=IF(V122,VOL,0);
 V131:=(HIGH = LOW) and (CLOSE = OPEN) and (HIGH = CLOSE) and (LOW = CLOSE) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) < 9.75) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) > 0 - 9.75);
 VD13:=IF(V131,(0.5)*(VOL),0);
 V132:=(HIGH = LOW) and (CLOSE = OPEN) and (HIGH = CLOSE) and (LOW = CLOSE) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) < 9.75) and (((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100) > 0 - 9.75);
 VZ13:=IF(V132,(0.5)*(VOL),0);
魔鬼:=VZ1 + VZ2 + VZ3 + VZ4 + VZ5 + VZ6 + VZ7 + VZ8 + VZ9 + VZ10 + VZ11 + VZ12 + VZ13;
量比A:(VOL)/(MA(VOL,5)),coloryellow;
 V10:=真神;
V20:=魔鬼;
JX1:=BARSSINCE(V10);
 JY1:=IF((121 > JX1) and (JX1 > 0),JX1,120);
 JY2:=IF((4 > JX1) and (JX1 > 0),JX1,3);
 V30:=MA(VOL,JY2);
动神:V10,ColorF00FF0;
鬼力:V20,ColorBBBBBB;
神比:=(动神)/(V30);
鬼比:=(鬼力)/(V30);
 V2:=HIGH - LOW;
 V3:=ABS(OPEN - CLOSE);
 V4:=HIGH - IF((CLOSE > OPEN),CLOSE,OPEN);
 V5:=IF((CLOSE > OPEN),OPEN,CLOSE) - LOW;
 V6:=((V3)/(V2))*(VOL);
 V7:=((V4)/(V2))*(VOL);
 V8:=((V5)/(V2))*(VOL);
 V9:=IF(((VOL)/(CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL)/(CAPITAL))*(100)))));
 VA:=((CLOSE - MA(CLOSE,5))/(MA(CLOSE,5)))*(100);
 VB:=(MA(CLOSE,5) > MA(CLOSE,10)) and (MA(CLOSE,10) > MA(CLOSE,30)) and (MA(CLOSE,30) > MA(CLOSE,60));
 VC:=(MA(CLOSE,5) < MA(CLOSE,10)) and (MA(CLOSE,10) < MA(CLOSE,30));
 V40:=(IF((V6 >= V7) and (V6 >= V8) and (CLOSE > OPEN),V6,动神) + 动神)/(2);
 V41B:=(IF((V7 > V6) and (V7 > V8),V7,动神) + 动神)/(2);
 V42B:=(IF((V8 > V6) and (V8 > V7),V8,动神) + 动神)/(2);
 V50:=(IF((V6 >= V7) and (V6 >= V8) and (CLOSE < OPEN),V6,鬼力) + 鬼力)/(2);
 STICKLINE((鬼力 > 0),鬼力,0,3,0),ColorFF3399;
多头:STICKLINE((CLOSE > MA(CLOSE,30)),0,VOL,3,1),colorred;
空头:STICKLINE((CLOSE < MA(CLOSE,30)),0,VOL,3,0),Color008000;
 STICKLINE((鬼力 > 0),鬼力,0,3,0),ColorFF3399;
上攻量:STICKLINE((V6 >= V7) and (V6 >= V8) and (CLOSE > OPEN),0,V6,3,0),Color66FFFF;
下攻量:STICKLINE((V6 >= V7) and (V6 >= V8) and (CLOSE < OPEN),0,V6,3,0),Color6633FF;
上探量:STICKLINE((V7 > V6) and (V7 > V8),0,V7,3,0),ColorCCCC66;
下探量:STICKLINE((V8 > V6) and (V8 > V7),0,V8,3,0),ColorFF6633;
相对地量:STICKLINE((V9 > 2) and (VOL < (MA(VOL,5))/(2)),0,VOL,3,0),Color9966CC;
地量:DRAWTEXT((V9 > 2) and (VOL < (MA(VOL,5))/(2)),VOL,'地量'),ColorF00FF0;
放量:STICKLINE((VOL > (MA(VOL,5))*(2.5)),0,VOL,3,0),ColorFFFFFF;
 STICKLINE((动神 > 0),动神,0,1.5,0),ColorF00FF0;
逢高出货:DRAWTEXT((V7 > V6) and (VA > 2) and (V9 > V8) and (CLOSE > MA(CLOSE,5)) and (CLOSE > MA(CLOSE,30)) and (HIGH > MA(CLOSE,60)) and (VOL > MA(VOL,5)) and (V7 >= MA(VOL,5)),VOL,'逢高出货公式'),ColorF00FF0;
逢低跟进:DRAWTEXT((V8 > V6) and (V8 > V7) and (VA < 0 - 2) and (CLOSE < MA(CLOSE,30)) and (V8 < (MA(VOL,5))/(2)) and (MA(VOL,5) < MA(VOL,10)),VOL,'低进'),ColorFF00FF;
强势参与:DRAWTEXT((V6 > (MA(VOL,5))*(2)) and (V6 >= V7) and (V6 >= V8) and (CLOSE > OPEN) or (VOL > (MA(VOL,5))*(3)) and VB,VOL,'强势参与'),ColorCC99CC;
空头释放:DRAWTEXT((V6 >= V7) and (V6 >= V8) and (CLOSE < OPEN) and ((V6)/(VOL) > 0.7) and VC and (V6 > MA(VOL,5)),(V6)*(2),'空头释放'),ColorF00FF0;