通达信量价控盘程度

VAR1:=IF(DATE<1170601,1,1);

VAR2:=CLOSE;

VAR3:=VOL/IF(HIGH=LOW,4,HIGH-LOW);

VAR4:=IF(CAPITAL=0,VAR3*(VAR2-MIN(CLOSE,OPEN)),VAR3*IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW))*0.5;

VAR5:=IF(CAPITAL=0,VAR3*(MIN(OPEN,CLOSE)-LOW),VAR3*IF(HIGH=LOW,1,VAR2-MIN(CLOSE,OPEN)))*1.5;

VAR6:=IF(CAPITAL=0,VAR3*(HIGH-MAX(OPEN,CLOSE)),VAR3*IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE)))*0.5;

VAR7:=IF(CAPITAL=0,VAR3*(MAX(CLOSE,OPEN)-VAR2),VAR3*IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-VAR2))*1.5;

VAR8:=(VAR6+VAR5)*2.5;

VAR9:=(VAR4+VAR7)*2.5;

VAR10:=SUM(VAR8,10)-SUM(VAR9,10);

{股票指标网WWW.}

VAR11:=35;

VAR12:=35;

VAR13:=3;

VAR14:=(HHV(VAR10,VAR11)-CLOSE)/(HHV(VAR10,VAR11)-LLV(VAR10,VAR11))*100-VAR12;

VAR15:=SMA(VAR14,VAR11,1)+100;

VAR16:=(VAR10-LLV(VAR10,VAR11))/(HHV(VAR10,VAR11)-LLV(VAR10,VAR11))*100;

VAR17:=SMA(VAR16,3,1);

VAR18:=SMA(VAR17,3,1)+100;

VAR19:=VAR18-VAR15;

VAR20:=IF(VAR19>VAR13,VAR19-VAR13,0)*VAR1;

量~控盘程度:VAR20,COLORCYAN;

STICKLINE(VAR20>REF(VAR20,1),REF(VAR20,1),VAR20,3,0),COLORYELLOW;

STICKLINE(VAR20>REF(VAR20,1),REF(VAR20,1),VAR20,2,0),COLOR0EBFF3;

VAR21:=(HHV(HIGH,VAR11)-CLOSE)/(HHV(HIGH,VAR11)-LLV(LOW,VAR11))*100-VAR12;

VAR22:=SMA(VAR21,VAR11,1)+100;{股票指标网WWW.}

VAR23:=(CLOSE-LLV(LOW,VAR11))/(HHV(HIGH,VAR11)-LLV(LOW,VAR11))*100;

VAR24:=SMA(VAR23,3,1);

VAR25:=SMA(VAR24,3,1)+100;

VAR26:=VAR25-VAR22;

VAR27:=IF(VAR26>VAR13,VAR26-VAR13,0)*VAR1;

价~控盘程度:VAR27,COLORLIRED;

STICKLINE(VAR27>REF(VAR27,1),REF(VAR27,1),VAR27,3,0),COLOR262CFD;

STICKLINE(VAR27>REF(VAR27,1),REF(VAR27,1),VAR27,2,0),COLORRED;

NOTEXT0:IF(CURRBARSCOUNT>0,50,DRAWNULL),DOTLINE,COLORGRAY;

VAR28:=STRCAT(HYBLOCK,8);

VAR29:=STRCAT(VAR28,DYBLOCK);

VAR30:=STRCAT(VAR29,8);

DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,STRCAT(VAR30,GNBLOCK)),COLORLIGRAY;

DRAWTEXT_FIX(VAR1=0,0.5,0.7,0,53);

 

原理解析：
如果DATE<1170601返回1否则返回1
VAR2赋值:收盘价
如果最高价=最低价返回4否则返回最高价-最低价
VAR4赋值:IF(当前流通股本=0,VAR3*(VAR2-收盘价和开盘价的较小值),VAR3*IF(最高价=最低价,1,开盘价和收盘价的较小值-最低价))*0.5
VAR5赋值:IF(当前流通股本=0,VAR3*(开盘价和收盘价的较小值-最低价),VAR3*IF(最高价=最低价,1,VAR2-收盘价和开盘价的较小值))*1.5
VAR6赋值:IF(当前流通股本=0,VAR3*(最高价-开盘价和收盘价较大值),VAR3*IF(最高价=最低价,1,最高价-开盘价和收盘价较大值))*0.5
VAR7赋值:IF(当前流通股本=0,VAR3*(收盘价和开盘价较大值-VAR2),VAR3*IF(最高价=最低价,1,收盘价和开盘价较大值-VAR2))*1.5
VAR8赋值:(VAR6+VAR5)*2.5
VAR9赋值:(VAR4+VAR7)*2.5
VAR10:=10的VAR8日累和-10的VAR9日累和
{股票指标网WWW.}
VAR11:=35
VAR12:=35
VAR13:=3
VAR14:=(VAR11日内VAR10最高值-收盘价)/(VAR11日内VAR10最高值-VAR11日内VAR10最低值)*100-VAR12
VAR14的VAR11日[1日权重]移动平均
VAR16:=(VAR10-VAR11日内VAR10最低值)/(VAR11日内VAR10最高值-VAR11日内VAR10最低值)*100
VAR16的3日[1日权重]移动平均
VAR17的3日[1日权重]移动平均
VAR19:=VAR18-VAR15
如果VAR19>VAR13返回VAR19-VAR13否则返回0
输出量~控盘程度:VAR20,画青色
STICKLINE(VAR20>1日前的VAR20,1日前的VAR20,VAR20,3,0),画黄色
STICKLINE(VAR20>1日前的VAR20,1日前的VAR20,VAR20,2,0),COLOR0EBFF3
VAR21:=(VAR11日内最高价最高值-收盘价)/(VAR11日内最高价最高值-VAR11日内最低价最低值)*100-VAR12
VAR21的VAR11日[1日权重]移动平均
{股票指标网WWW.}
VAR23:=(收盘价-VAR11日内最低价最低值)/(VAR11日内最高价最高值-VAR11日内最低价最低值)*100
VAR23的3日[1日权重]移动平均
VAR24的3日[1日权重]移动平均
VAR26:=VAR25-VAR22
如果VAR26>VAR13返回VAR26-VAR13否则返回0
输出价~控盘程度:VAR27,COLORLIRED
STICKLINE(VAR27>1日前的VAR27,1日前的VAR27,VAR27,3,0),COLOR262CFD
STICKLINE(VAR27>1日前的VAR27,1日前的VAR27,VAR27,2,0),画红色
如果 到最后交易的周期>0返回50否则返回DRAWNULL
VAR28:=STRCAT(HYBLOCK,8)
VAR29:=STRCAT(VAR28,DYBLOCK)
VAR30:=STRCAT(VAR29,8)
DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,STRCAT(VAR30,GNBLOCK)),COLORLIGRAY
当满足条件VAR1=0时,在横轴0.5纵轴0.7位置书写文字