通达信主力动向指标有图有源码

A:=CURRBARSCOUNT;

A1:=DAY!=REF(DAY,1);

A2:=BARSLAST(A1)+1;

A3:=MA(C,A2);

A4:=SUM(AMO,A2)/SUM(VOL,A2)/100;

A5:=IF(CAPITAL>0,A4,A3);

均价线:=IF(A<=CONST(A2),A5,DRAWNULL);

分钟有效周期:=IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,DRAWNULL))));

分时价:=TFILT(CLOSE,CURRBARSCOUNT,00,CURRBARSCOUNT,00);

分时判断:=IF(分时价=DRAWNULL,1,IF(分钟有效周期=DRAWNULL,DRAWNULL,1));

{-----------------------------由MACD定位顶底-------------------------------}

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIFF,9);

MACD:=2*(DIFF-DEA);

KX:=BARSSINCE(CLOSE);{←首次开盘价距金的天数}

HHN:=CONST(HHV(DIFF,KX));

HLN:=CONST(LLV(DEA,KX));

RC1:=CONST((HHN+HLN)/2);

SS:=((HHN-HLN)/200);

MACD底部:=(-100*SS+RC1)+-(-100*SS+RC1),COLOR669999; 

MACD顶部:=(100*SS+RC1)+-(-100*SS+RC1),COLORFF0033;

MACD中轴:=0+-(-100*SS+RC1);

DIFF修正:=DIFF+-(-100*SS+RC1),COLOR008080;

DEA修正:=DEA+-(-100*SS+RC1),COLOR00FF00;

MACD修正:=2*(DIFF修正-DEA修正)+MACD中轴,COLOR0000BB,NODRAW;

MACD超跌:=CONST(LLV(MACD修正,KX));

MACD超跌线:=IF(MACD超跌<MACD底部,MACD超跌,MACD底部);

{----------------------利用MACD趋势进行精确顶底判断------------------------}

顶部:=MACD顶部+-MACD超跌线;

天际:=顶部*0.809;

中轴:=MACD中轴+-MACD超跌线;

海面:=顶部*0.191;

底部:=MACD底部;

{------------------------传统KDJ指标结合MACD优化---------------------------}

RSVA:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*顶部;{采用21日月线优化}

K:SMA(RSVA,3,1),COLORFFFFFF,NODRAW;

D:SMA(K,3,1),COLOR00FFFF,NODRAW;

原J值参数:=3*K-2*D;

JD:=IF(原J值参数<底部,底部,原J值参数);{J值底部钝化处理}

J:IF(JD>顶部,顶部,JD),COLORFF00FF,NODRAW;{底部钝化处理后再进行顶部钝化处理}

{---------------------------MACD多空量能判断-------------------------------}

MACD多头:DIFF修正+-MACD超跌线,COLOR339999;

空头:DEA修正+-MACD超跌线,COLOR00FF00;

量能柱:2*(MACD多头-空头)+中轴,COLOR0000BB,NODRAW;

超前DEA:=(EMA(MACD多头,7));

超前MACD:=2*(MACD多头-超前DEA)+中轴;

{-----------------------------------大盘动向-------------------------------}

VAR1大盘:=LLV(LOW,13);

VAR2大盘:=HHV(HIGH,13);

VAR3大盘:=(SMA((CLOSE-VAR1大盘)/(VAR2大盘-VAR1大盘)*顶部,5,1))-顶部/2;

VAR4大盘:=SMA((VAR2大盘-CLOSE)/(VAR2大盘-VAR1大盘)*顶部,5,1)-顶部/2;

大盘散户:=IF(VAR4大盘<底部,底部,VAR4大盘),COLOR408000;

大盘主力:=IF(VAR3大盘<底部,底部,VAR3大盘),COLOR330088;

{---------------------------------密集成本突破-----------------------------}

最高获利参数:=顶部/100;

VAR1C:=(COST(89)-COST(11))*最高获利参数;

VAR2C:=(COST(99.9)-COST(1))*最高获利参数;

单峰:=((1-VAR1C/VAR2C))*顶部;

低密:=((COST(90)-COST(60))/VAR2C)*顶部;

高密:=((COST(40)-COST(1))/VAR2C)*顶部;

赢利:= (SMA(WINNER(AMOUNT/VOL/99),2,1))*顶部;

活跃度:顶部-顶部/(1+EXPMA(HSL,21)),COLOR774455;{←CYF公众追涨热情指标}

７０%成本集中度:=IF(VAR1C>顶部,顶部,VAR1C),COLORFFFFFF;

９０%成本集中度:=IF(VAR2C>顶部,顶部,VAR2C),COLORFF0000;

套牢筹码上升:=IF((单峰-赢利)>底部,(单峰-赢利),底部);

个股散户:=IF(套牢筹码上升>顶部,顶部,套牢筹码上升),COLOR408000;

散户:IF(个股散户=DRAWNULL,DRAWNULL,个股散户),COLOR408000;

获利筹码上升:=IF((赢利-单峰)>底部,(赢利-单峰),底部);

个股主力:=IF(获利筹码上升>顶部,顶部,获利筹码上升),COLOR330088;

主力:IF(个股主力=DRAWNULL,DRAWNULL,个股主力),COLOR330088;

{--------------------换手率,五日换手率辅助判断个股活跃度-------------------}

换手:SUM(VOL,1)/CAPITAL*100,COLOR666666,NODRAW;

⑤日换:SUM(VOL,5)/CAPITAL*100,COLOR999999,NODRAW;

{----------------------密集成本突破指标筹码峰画线--------------------------}

金色背景修边1:STICKLINE(C>0 AND CURRBARSCOUNT>=2,顶部,底部,3.05,0),COLOR003333;

金色背景修边2:STICKLINE(C>0 AND CURRBARSCOUNT>=2,顶部,中轴,3.05,0),COLOR003333;

金色背景补充:DRAWBAND(顶部,RGB(51,51,0),中轴,RGB(51,51,0));

金色背景:DRAWBAND(顶部,RGB(51,51,0),底部,RGB(128,128,128));

追涨热度峰紫色:DRAWBAND(活跃度,RGB(66,52,81),底部,RGB(204,0,0));

高密峰墨蓝色:=DRAWBAND(高密,RGB(0,0,51),底部,RGB(0,0,255));

低密峰纯蓝色:=DRAWBAND(低密,RGB(0,0,102),底部,RGB(0,0,255));

９０%成本峰:DRAWBAND(９０%成本集中度,RGB(0,0,153),底部,RGB(0,0,153));

７０%成本峰:DRAWBAND(７０%成本集中度,RGB(0,128,0),底部,RGB(255,255,255));

散户峰绿色:DRAWBAND(散户,RGB(0,64,0),底部,RGB(204,0,0));

主力峰红色:DRAWBAND(主力,RGB(102,26,51),底部,RGB(0,0,255));

MACD多空趋势:DRAWBAND(MACD多头,RGB(204,51,51),空头,RGB(0,179,0));

MACD多头重画:DRAWBAND(MACD多头,RGB(153,153,51),MACD多头,RGB(153,153,51));

MACD空头重画:DRAWBAND(空头,RGB(0,204,0),空头,RGB(0,204,0));

{--------创幻论坛‘131488’会员提供的通达信■新宝塔线■-----原码-----------}

VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);

VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);

VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

三平底翻金:=(REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1))

AND VAR1;

主力启动线:=MA(V,5),COLORFFFFFF;

主力洗盘线:=MA(V,35),COLOR00FFFF;

资金异动线:=MA(V,135),COLORFF0000;

{----------------------------买卖参考--------------------------------------}

出击:=(CROSS(主力启动线,资金异动线) OR ((主力洗盘线 > 资金异动线) AND CROSS(主力启动线,主力洗盘线))),COLORYELLOW;

启动:=(主力启动线>REF(主力启动线,1) AND (CROSS(VOL,主力启动线) AND (REF(VOL,1)<REF(资金异动线,1) OR REF(VOL,2)<REF(资金异动线,2)))),COLOR45AAEE;

成立:=三平底翻金 AND (出击 OR 启动);

买入提示:=IF(成立=1,海面*0.5,0) AND 分时判断=1;

{------------------------顶部线,天际线,海面线,底部线重画-------------------}

顶部线:DRAWBAND(顶部,RGB(51,0,255),顶部,RGB(51,0,255));

天际线:DRAWBAND(天际,RGB(128,64,64),天际,RGB(128,64,64));

海面线:DRAWBAND(海面,RGB(0,153,153),海面,RGB(0,153,153));

{------------------------超前MACD多空量能柱--------------------------------}

原理解析：
A赋值:CURRBARSCOUNT


A1:=DAY!=1日前的DAY


A2:=上次A1距今天数+1


A3:=C的A2日简单移动平均


A4:=A2的AMO日累和/A2的成交量日累和/100
如果CAPITAL>0返回A4否则返回A3


均价线赋值:IF(A<=CONST(A2),A5,DRAWNULL)


分钟有效周期赋值:IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,DRAWNULL))))


分时价赋值:TFILT(收盘价,CURRBARSCOUNT,00,CURRBARSCOUNT,00)


分时判断赋值:IF(分时价=DRAWNULL,1,IF(分钟有效周期=DRAWNULL,DRAWNULL,1))


{-----------------------------由MACD定位顶底-------------------------------}

DIFF:=收盘价的12日指数移动平均-收盘价的26日指数移动平均


DEA赋值:DIFF的9日指数移动平均


MACD:=2*(DIFF-DEA)


KX赋值:BARSSINCE(收盘价)
{←首次开盘价距金的天数}

HHN赋值:CONST(KX日内DIFF最高值)


HLN赋值:CONST(KX日内DEA最低值)


RC1赋值:CONST((HHN+HLN)/2)


SS赋值:((HHN-HLN)/200)


MACD底部:=(-100*SS+RC1)+-(-100*SS+RC1),COLOR669999


MACD顶部:=(100*SS+RC1)+-(-100*SS+RC1),COLORFF0033


MACD中轴:=0+-(-100*SS+RC1)


DIFF修正赋值:DIFF+-(-100*SS+RC1),COLOR008080


DEA修正:=DEA+-(-100*SS+RC1),COLOR00FF00


MACD修正:=2*(DIFF修正-DEA修正)+MACD中轴,COLOR0000BB,NODRAW


MACD超跌:=CONST(KX日内MACD修正最低值)
如果MACD超跌

{----------------------利用MACD趋势进行精确顶底判断------------------------}

顶部:=MACD顶部+-MACD超跌线


天际赋值:顶部*0.809


中轴赋值:MACD中轴+-MACD超跌线


海面赋值:顶部*0.191


底部赋值:MACD底部


{------------------------传统KDJ指标结合MACD优化---------------------------}

RSVA赋值:(收盘价-21日内最低价最低值)/(21日内最高价最高值-21日内最低价最低值)*顶部
RSVA的3日[1日权重]移动平均
K的3日[1日权重]移动平均


原J值参数赋值:3*K-2*D
如果原J值参数<底部返回底部否则返回原J值参数
如果JD>顶部返回顶部否则返回JD
{底部钝化处理后再进行顶部钝化处理}

{---------------------------MACD多空量能判断-------------------------------}

MACD多头:DIFF修正+-MACD超跌线,COLOR339999
输出

空头:DEA修正+-MACD超跌线,COLOR00FF00
输出

量能柱:2*(MACD多头-空头)+中轴,COLOR0000BB,NODRAW


超前DEA赋值:(MACD多头的7日指数移动平均)


超前MACD:=2*(MACD多头-超前DEA)+中轴


{-----------------------------------大盘动向-------------------------------}

VAR1大盘:=13日内最低价最低值


VAR2大盘:=13日内最高价最高值


VAR3大盘:=(SMA((收盘价-VAR1大盘)/(VAR2大盘-VAR1大盘)*顶部,5,1))-顶部/2


VAR4大盘:=SMA((VAR2大盘-收盘价)/(VAR2大盘-VAR1大盘)*顶部,5,1)-顶部/2
如果VAR4大盘<底部返回底部否则返回VAR4大盘
如果VAR3大盘<底部返回底部否则返回VAR3大盘


{---------------------------------密集成本突破-----------------------------}

最高获利参数赋值:顶部/100


VAR1C:=(获利盘为89%的成本分布-COST(11))*最高获利参数


VAR2C:=(获利盘为99.9%的成本分布-COST(1))*最高获利参数


单峰赋值:((1-VAR1C/VAR2C))*顶部


低密赋值:((获利盘为90%的成本分布-COST(60))/VAR2C)*顶部


高密赋值:((获利盘为40%的成本分布-COST(1))/VAR2C)*顶部


赢利赋值: (SMA(AMOUNT/成交量/99计算的获利盘比例,2,1))*顶部
输出

活跃度:顶部-顶部/(1+HSL的21日指数移动平均),COLOR774455
如果VAR1C>顶部返回顶部否则返回VAR1C
如果VAR2C>顶部返回顶部否则返回VAR2C


套牢筹码上升赋值:IF((单峰-赢利)>底部,(单峰-赢利),底部)
如果套牢筹码上升>顶部返回顶部否则返回套牢筹码上升
如果个股散户=DRAWNULL返回DRAWNULL否则返回个股散户


获利筹码上升赋值:IF((赢利-单峰)>底部,(赢利-单峰),底部)
如果获利筹码上升>顶部返回顶部否则返回获利筹码上升
如果个股主力=DRAWNULL返回DRAWNULL否则返回个股主力
输出

{--------------------换手率,五日换手率辅助判断个股活跃度-------------------}

换手:1的成交量日累和/CAPITAL*100,COLOR666666,NODRAW
输出

⑤日换:5的成交量日累和/CAPITAL*100,COLOR999999,NODRAW
当满足条件C>0 AND CURRBARSCOUNT>=2时,在顶部和底部之间画柱状线
当满足条件C>0 AND CURRBARSCOUNT>=2时,在顶部和中轴之间画柱状线
输出

金色背景补充:DRAWBAND(顶部,RGB(51,51,0),中轴,RGB(51,51,0))
输出

金色背景:DRAWBAND(顶部,RGB(51,51,0),底部,RGB(128,128,128))
输出

追涨热度峰紫色:DRAWBAND(活跃度,RGB(66,52,81),底部,RGB(204,0,0))


高密峰墨蓝色:=DRAWBAND(高密,RGB(0,0,51),底部,RGB(0,0,255))


低密峰纯蓝色:=DRAWBAND(低密,RGB(0,0,102),底部,RGB(0,0,255))
输出

９０%成本峰:DRAWBAND(９０%成本集中度,RGB(0,0,153),底部,RGB(0,0,153))
输出

７０%成本峰:DRAWBAND(７０%成本集中度,RGB(0,128,0),底部,RGB(255,255,255))


散户峰绿色:DRAWBAND(散户,RGB(0,64,0),底部,RGB(204,0,0))


主力峰红色:DRAWBAND(主力,RGB(102,26,51),底部,RGB(0,0,255))


MACD多空趋势:DRAWBAND(MACD多头,RGB(204,51,51),空头,RGB(0,179,0))


MACD多头重画:DRAWBAND(MACD多头,RGB(153,153,51),MACD多头,RGB(153,153,51))


MACD空头重画:DRAWBAND(空头,RGB(0,204,0),空头,RGB(0,204,0))


{--------创幻论坛‘131488’会员提供的通达信■新宝塔线■-----原码-----------}

VAR1:=收盘价>1日前的收盘价 AND 收盘价>2日前的收盘价


VAR2:=1日前的VAR1 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价


VAR3:=1日前的VAR2 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价


VAR4:=1日前的VAR3 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价


VAR5:=1日前的VAR4 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价


VAR6:=1日前的VAR5 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价


VAR7:=1日前的VAR6 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价


VAR8:=1日前的VAR7 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价


VAR9:=1日前的VAR8 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价


VARD:=收盘价<1日前的收盘价 AND 收盘价<2日前的收盘价


VARE:=1日前的VARD AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价


VARF:=1日前的VARE AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价


VAR10:=1日前的VARF AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价


VAR11:=1日前的VAR10 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价


VAR12:=1日前的VAR11 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价


VAR13:=1日前的VAR12 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价


VAR14:=1日前的VAR13 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价


VAR15:=1日前的VAR14 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价


VAR16:=1日前的VAR15 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价


VAR17:=1日前的VAR16 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价


VAR18:=1日前的VAR17 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价


三平底翻金赋值:(1日前的VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18)

AND VAR1


主力启动线:=V的5日简单移动平均,COLORFFFFFF


主力洗盘线:=V的35日简单移动平均,COLOR00FFFF


资金异动线赋值:V的135日简单移动平均,COLORFF0000


{----------------------------买卖参考--------------------------------------}

出击赋值:(主力启动线上穿资金异动线 OR ((主力洗盘线 > 资金异动线) AND 主力启动线上穿主力洗盘线)),画黄色


启动赋值:(主力启动线>1日前的主力启动线 AND (成交量上穿主力启动线 AND (1日前的成交量<1日前的资金异动线 OR 2日前的成交量<2日前的资金异动线))),COLOR45AAEE


成立赋值:三平底翻金 AND (出击 OR 启动)
如果成立=1返回海面*0.5否则返回0
输出

{------------------------顶部线,天际线,海面线,底部线重画-------------------}

顶部线:DRAWBAND(顶部,RGB(51,0,255),顶部,RGB(51,0,255))


天际线:DRAWBAND(天际,RGB(128,64,64),天际,RGB(128,64,64))


海面线:DRAWBAND(海面,RGB(0,153,153),海面,RGB(0,153,153))
{------------------------超前MACD多空量能柱--------------------------------}