{-------【主力动向】主力,散户筹码一目了然,经典MACD与KDJ的完美组合!---------} {-------------------------通达信新分时源码广哥深度优化版--------------------} 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)); 底部线:DRAWBAND(0,RGB(153,153, |
