通达信宝塔镇河妖指标公式源码副图

筹码重心:(HHV(100*WINNER(C),17)+LLV(100*WINNER(C),17))/2,COLORYELLOW;

TTR:=SMA(MAX(MAX(HIGH-LOW,Abs(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),7,1);

HD:=HIGH-REF(HIGH,1);

LD:=REF(LOW,1)-LOW;

DMP:=SMA(IF(HD>0 AND HD>LD,HD,0),7,1);

DMM:=SMA(IF(LD>0 AND LD>HD,LD,0),7,1);

正DI:=DMP*100/TTR;

负DI:=DMM*100/TTR;

ZZD:SMA(ABS(负DI-正DI)/(负DI+正DI)*100,7,1),COLORRED,LINETHICK2;

ADXR:=(ZZD+REF(ZZD,6))/2;

ZZDA:=FILTER(ZZD<REF(ZZD,1)-1.3 AND EVERY(REF(ZZD,1)>=REF(ZZD,2)-1.3,5) AND REF(ZZD,1)>50,5);

ZZDB:=FILTER(ZZD<REF(ZZD,1)-1.3 AND EVERY(REF(ZZD,1)>=REF(ZZD,2)-1.3,5) AND REF(ZZD,1)>50,5);

ZZDC:=FILTER(ZZD<REF(ZZD,1)-1 AND EVERY(REF(ZZD,1)>=REF(ZZD,2)-1,3) AND REF(ZZD,1)<=50 AND REF(ZZD,1)>=21,3);

ZZDD:=FILTER(ZZD<REF(ZZD,1)-1 AND EVERY(REF(ZZD,1)>=REF(ZZD,2)-1,3) AND REF(ZZD,1)<=50 AND REF(ZZD,1)>=21,3);

STICKLINE(筹码重心>25,25,筹码重心,0,0),COLOR2222FF;

STICKLINE(筹码重心<25,25,筹码重心,0,0),COLORFFFF55;

0,DOTLINE,COLORFF8888;

25,COLOR9966FF,LINETHICK2;

100,DOTLINE,COLOR88FF88;

HSL:=V/CAPITAL*100;

DL:=HSL<1;

DM:=C=C AND HSL>=1 AND HSL<2;

WH:=C=C AND HSL>=2 AND HSL<3;

HY:=C=C AND HSL>=3 AND HSL<5;

带量:=C=C AND HSL>=5 AND HSL<8;

放量:=C=C AND HSL>=8 AND HSL<15;

巨量:=C=C AND HSL>=15 AND HSL<25;

怪异:=C=C AND HSL>=25;

DRAWTEXT(DL AND ISLASTBAR AND PERIOD=5,80,'成交DL'),COLORFF6600;

DRAWTEXT(DM AND ISLASTBAR AND PERIOD=5,80,'成交DM'),COLOR008364;

DRAWTEXT(WH AND ISLASTBAR AND PERIOD=5,80,'成交WH'),COLORFFFFFF;

DRAWTEXT(HY AND ISLASTBAR AND PERIOD=5,80,'成交HY'),COLOR208FFF;

DRAWTEXT(带量 AND ISLASTBAR AND PERIOD=5,80,'成交带量'),COLORYELLOW;

DRAWTEXT(放量 AND ISLASTBAR AND PERIOD=5,80,'成交放量'),COLORFF00FF;

DRAWTEXT(巨量 AND ISLASTBAR AND PERIOD=5,80,'成交巨量'),COLORRED;

DRAWTEXT(怪异 AND ISLASTBAR AND PERIOD=5,80,'成交怪异'),COLORE66878;

Vvol:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL);

VHSL:=VVOL/CAPITAL*100;

VDL:=VHSL<1;

VDM:=C=C AND VHSL>=1 AND VHSL<2;

VWH:=C=C AND VHSL>=2 AND VHSL<3;

VHY:=C=C AND VHSL>=3 AND VHSL<5;

V带量:=C=C AND VHSL>=5 AND VHSL<8;

V放量:=C=C AND VHSL>=8 AND VHSL<15;

V巨量:=C=C AND VHSL>=15 AND VHSL<25;

V怪异:=C=C AND VHSL>=25;

DRAWTEXT(VDL AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'预测DL'),COLORFF6600;

DRAWTEXT(VDM AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'预测DM'),COLOR008364;

DRAWTEXT(VWH AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'预测WH'),COLORFFFFFF;

DRAWTEXT(VHY AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'预测HY'),COLOR208FFF;

DRAWTEXT(V带量 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'预测带量'),COLORYELLOW;

DRAWTEXT(V放量 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'预测放量'),COLORFF00FF;

DRAWTEXT(V巨量 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'预测巨量'),COLORRED;

DRAWTEXT(V怪异 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'预测怪量'),COLORE66878;

个股6日:=(C-MA(C,6))/MA(C,6);

个股12日:=(C-MA(C,12))/MA(C,12);

个股24日:=(C-MA(C,24))/MA(C,24);

大盘6日:=(INDEXC-MA(INDEXC,6))/MA(INDEXC,6);

大盘12日:=(INDEXC-MA(INDEXC,12))/MA(INDEXC,12);

大盘24日:=(INDEXC-MA(INDEXC,24))/MA(INDEXC,24);

大盘:=(大盘6日 + 大盘12日 + 大盘24日)/3;

个股:=(个股6日 + 个股12日 + 个股24日)/3;

DRAWTEXT(个股>大盘 AND ISLASTBAR,60,'强于大盘'),COLORYELLOW;

DRAWTEXT(个股<大盘 AND ISLASTBAR,60,'弱于大盘'),COLORGREEN;

DRAWTEXT(个股>0 AND ISLASTBAR,50,'走势较强'),COLORYELLOW;

DRAWTEXT(个股<0 AND ISLASTBAR,50,'走势较弱'),COLORGREEN;

T1:=crOSS(筹码重心,25) AND REF(EVERY(筹码重心<25,3),1);

T2:=CROSS(ZZD,25) AND REF(EVERY(ZZD<25,3),1);

IF(T1 AND T2,65,0),DOTLINE,COLORRED;

IF(T1 AND T2,60,0),DOTLINE,COLORYELLOW;

IF(T1 AND T2,55,0),DOTLINE,COLORRED;

IF(T1 AND T2,50,0),DOTLINE,COLORYELLOW;

IF(T1 AND T2,45,0),DOTLINE,COLORRED;

IF(T1 AND T2,40,0),DOTLINE,COLORYELLOW;

IF(T1 AND T2,35,0),DOTLINE,COLORRED;

IF(T1 AND T2,30,0),DOTLINE,COLORYELLOW;

IF(T1 AND T2,20,0),DOTLINE,COLORRED;

IF(T1 AND T2,15,0),DOTLINE,COLORYELLOW;

IF(T1 AND T2,10,0),DOTLINE,COLORRED;

原理解析：
输出筹码重心:(HHV(100*C计算的获利盘比例,17)+LLV(100*C计算的获利盘比例,17))/2,画黄色
TTR赋值:SMA(MAX(MAX(最高价-最低价,最高价-1日前的收盘价的绝对值),ABS(最低价-1日前的收盘价)),7,1)
HD赋值:最高价-1日前的最高价
LD赋值:1日前的最低价-最低价
如果HD>0 AND HD>LD返回HD否则返回0
如果LD>0 AND LD>HD返回LD否则返回0
正DI赋值:DMP*100/TTR
负DI赋值:DMM*100/TTR
输出ZZD:SMA(负DI-正DI的绝对值/(负DI+正DI)*100,7,1),画红色, 线宽为2
ADXR赋值:(ZZD+6日前的ZZD)/2
ZZDA:=FILTER(ZZD<1日前的ZZD-1.3 AND EVERY(1日前的ZZD>=2日前的ZZD-1.3,5) AND 1日前的ZZD>50,5)
ZZDB:=FILTER(ZZD<1日前的ZZD-1.3 AND EVERY(1日前的ZZD>=2日前的ZZD-1.3,5) AND 1日前的ZZD>50,5)
ZZDC:=FILTER(ZZD<1日前的ZZD-1 AND EVERY(1日前的ZZD>=2日前的ZZD-1,3) AND 1日前的ZZD<=50 AND 1日前的ZZD>=21,3)
ZZDD:=FILTER(ZZD<1日前的ZZD-1 AND EVERY(1日前的ZZD>=2日前的ZZD-1,3) AND 1日前的ZZD<=50 AND 1日前的ZZD>=21,3)
当满足条件筹码重心>25时,在25和筹码重心之间画柱状线
当满足条件筹码重心<25时,在25和筹码重心之间画柱状线
0,DOTLINE,COLORFF8888
25,COLOR9966FF, 线宽为2
100,DOTLINE,COLOR88FF88
HSL赋值:V/当前流通股本*100
DL赋值:HSL<1
DM赋值:C=C AND HSL>=1 AND HSL<2
WH赋值:C=C AND HSL>=2 AND HSL<3
HY赋值:C=C AND HSL>=3 AND HSL<5
带量赋值:C=C AND HSL>=5 AND HSL<8
放量赋值:C=C AND HSL>=8 AND HSL<15
巨量赋值:C=C AND HSL>=15 AND HSL<25
怪异赋值:C=C AND HSL>=25
当满足条件DL AND ISLASTBAR AND PERIOD=5时,在80和'成交DL'位置书写文字
当满足条件DM AND ISLASTBAR AND PERIOD=5时,在80和'成交DM'位置书写文字
当满足条件WH AND ISLASTBAR AND PERIOD=5时,在80和'成交WH'位置书写文字
当满足条件HY AND ISLASTBAR AND PERIOD=5时,在80和'成交HY'位置书写文字
当满足条件带量 AND ISLASTBAR AND PERIOD=5时,在80和'成交带量'位置书写文字
当满足条件放量 AND ISLASTBAR AND PERIOD=5时,在80和'成交放量'位置书写文字
当满足条件巨量 AND ISLASTBAR AND PERIOD=5时,在80和'成交巨量'位置书写文字
当满足条件怪异 AND ISLASTBAR AND PERIOD=5时,在80和'成交怪异'位置书写文字
如果 到最后交易的周期=1 AND PERIOD=5返回成交量*240/FROM开盘价否则返回DRAWNULL
VHSL赋值:VVOL/当前流通股本*100
VDL赋值:VHSL<1
VDM赋值:C=C AND VHSL>=1 AND VHSL<2
VWH赋值:C=C AND VHSL>=2 AND VHSL<3
VHY赋值:C=C AND VHSL>=3 AND VHSL<5
V带量赋值:C=C AND VHSL>=5 AND VHSL<8
V放量赋值:C=C AND VHSL>=8 AND VHSL<15
V巨量赋值:C=C AND VHSL>=15 AND VHSL<25
V怪异赋值:C=C AND VHSL>=25
当满足条件VDL AND ISLASTBAR AND FROM开盘价<240 AND FROM开盘价>5 AND PERIOD=5时,在70和'预测DL'位置书写文字
当满足条件VDM AND ISLASTBAR AND FROM开盘价<240 AND FROM开盘价>5 AND PERIOD=5时,在70和'预测DM'位置书写文字
当满足条件VWH AND ISLASTBAR AND FROM开盘价<240 AND FROM开盘价>5 AND PERIOD=5时,在70和'预测WH'位置书写文字
当满足条件VHY AND ISLASTBAR AND FROM开盘价<240 AND FROM开盘价>5 AND PERIOD=5时,在70和'预测HY'位置书写文字
当满足条件V带量 AND ISLASTBAR AND FROM开盘价<240 AND FROM开盘价>5 AND PERIOD=5时,在70和'预测带量'位置书写文字
当满足条件V放量 AND ISLASTBAR AND FROM开盘价<240 AND FROM开盘价>5 AND PERIOD=5时,在70和'预测放量'位置书写文字
当满足条件V巨量 AND ISLASTBAR AND FROM开盘价<240 AND FROM开盘价>5 AND PERIOD=5时,在70和'预测巨量'位置书写文字
当满足条件V怪异 AND ISLASTBAR AND FROM开盘价<240 AND FROM开盘价>5 AND PERIOD=5时,在70和'预测怪量'位置书写文字
个股6日赋值:(C-C的6日简单移动平均)/C的6日简单移动平均
个股12日赋值:(C-C的12日简单移动平均)/C的12日简单移动平均
个股24日赋值:(C-C的24日简单移动平均)/C的24日简单移动平均
大盘6日赋值:(INDEXC-INDEXC的6日简单移动平均)/INDEXC的6日简单移动平均
大盘12日赋值:(INDEXC-INDEXC的12日简单移动平均)/INDEXC的12日简单移动平均
大盘24日赋值:(INDEXC-INDEXC的24日简单移动平均)/INDEXC的24日简单移动平均
大盘赋值:(大盘6日 + 大盘12日 + 大盘24日)/3
个股赋值:(个股6日 + 个股12日 + 个股24日)/3
当满足条件个股>大盘 AND ISLASTBAR时,在60和'强于大盘'位置书写文字
当满足条件个股<大盘 AND ISLASTBAR时,在60和'弱于大盘'位置书写文字
当满足条件个股>0 AND ISLASTBAR时,在50和'走势较强'位置书写文字
当满足条件个股<0 AND ISLASTBAR时,在50和'走势较弱'位置书写文字
T1赋值:筹码重心上穿25 AND 1日前的筹码重心<25最近3日一直存在
T2赋值:ZZD上穿25 AND 1日前的ZZD<25最近3日一直存在
如果T1 AND T2返回65否则返回0
如果T1 AND T2返回60否则返回0
如果T1 AND T2返回55否则返回0
如果T1 AND T2返回50否则返回0
如果T1 AND T2返回45否则返回0
如果T1 AND T2返回40否则返回0
如果T1 AND T2返回35否则返回0
如果T1 AND T2返回30否则返回0
如果T1 AND T2返回20否则返回0
如果T1 AND T2返回15否则返回0
如果T1 AND T2返回10否则返回0