通达信上涨力度强弱升级版指标公式源码

DRAWGBK(C>0, RGB(310,108,108),RGB(88,30,0),0,'',0);

NOTEXT顶部标线:120,COLORBROWN;

NOTEXT底部标线:-80,COLORBROWN;

{力度平衡信号}

力度平衡点:40,COLORBROWN,LINETHICK2;

LDA1:=FORCAST(FORCAST(SMA(MAX(CLOSE-REF(CLOSE,1),0),9,1)/SMA(Abs(CLOSE-REF(CLOSE,1)),9,1)*100,3),18);

LDA2:=LDA1>REF(LDA1,1) AND LDA1>40;

LDA3:=LDA1<=REF(LDA1,1) AND LDA1>40;

LDA4:=LDA1>REF(LDA1,1) AND LDA1<=40;

LDA5:=LDA1<=REF(LDA1,1) AND LDA1<=40;

STICKLINE(LDA2,40,LDA1,3,0),COLORFF00FF;

STICKLINE(LDA3,40,LDA1,3,0),COLORBROWN;

STICKLINE(LDA4,40,LDA1,3,0),COLORRED;

STICKLINE(LDA5,40,LDA1,3,0),COLORWHITE;

趋势平衡线:MA(SMA(MAX(CLOSE-REF(CLOSE,1),0),9,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),9,1)*100,26),COLORBLUE,LINETHICK2;

{力度强弱信号}

力度强弱:=(((CLOSE - MA(CLOSE,30)) / MA(CLOSE,30)) * 100);

STICKLINE(力度强弱>=20,8,10,3,0),COLORFF00FF;

STICKLINE(力度强弱>=0 AND 力度强弱<20 AND 力度强弱>6,8,10,3,0),COLORRED;

STICKLINE(力度强弱>=0 AND 力度强弱<20 AND 力度强弱<=6,8,10,3,1),COLORDDDDDD;

STICKLINE(力度强弱<=0 AND 力度强弱>-20,8,10,3,1),COLORDDDDDD;

STICKLINE(力度强弱<=-20,8,10,3,0),COLORDDDDDD;

{力度波动信号}

BD1:=(3*CLOSE+LOW+OPEN+HIGH)/6;

BD2:=(20*BD1+19*REF(BD1,1)+18*REF(BD1,2)+17*REF(BD1,3)+16*REF(BD1,4)+15*REF(BD1,5)+

14*REF(BD1,6)+13*REF(BD1,7)+12*REF(BD1,8)+11*REF(BD1,9)+10*REF(BD1,10)+9*REF(BD1,11)+

8*REF(BD1,12)+7*REF(BD1,13)+6*REF(BD1,14)+5*REF(BD1,15)+4*REF(BD1,16)+3*REF(BD1,17)+

2*REF(BD1,18)+REF(BD1,20))/210;

BD3:=MA(BD2,6);

BD4:=V*100/CAPITAL;

BD5:=MA(BD4,5);

BD6:=MA(BD4,55);

BD7:=(BD5-BD6);

BD8:=(C-BD2);

BD9:=BD7+BD8;

BD10:=EMA(V,5);

BD11:=EMA(V,50);

obv:=SUM(IF(CLOSE>REF(CLOSE,1),vol,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);

BD12:=EMA(OBV,5);

BD13:=EMA(OBV,50);

BD14:=(BD10-BD11)*0.00001;

BD15:=(BD12-BD13)*0.000001;

BD16:=BD14+BD15;

MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;

DKX:=(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+

16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+

13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+

10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+

7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+

4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210;

BD17:=MA(DKX,6);

BD18:=(DKX-BD17)*1.2;

BD19:=(C*2+H+L)/4*10;

BD20:=EMA(BD19,6)-EMA(BD19,55);

BD21:=EMA(BD20,6);

BD22:=(BD20-BD21)*0.06;

BD23:=BD18+BD22;

BD24:=MA(C,5)>REF(MA(C,5),1);

BD25:=EMA(C,12)>REF(EMA(C,12),1);

BD26:=MA(C,20)>REF(MA(C,20),1);

BD27:=MA(C,30)>REF(MA(C,30),1);

BD28:=MA(C,60)>REF(MA(C,60),1);

BD29:=MA(C,120)>REF(MA(C,120),1);

BD30:=MA(C,250)>REF(MA(C,250),1);

BD31:=BD25 + BD26 + BD27 + BD28;

BD32:=C>BD2 AND BD9>0 AND BD16>0 AND BD23>0;

BD33:=C<=BD2 OR BD9<=0 OR BD16<=0 OR BD23<=0;

力度波动A:=BD31=4 AND BD32;

力度波动B:=BD31=3 AND BD32;

力度波动C:=BD31<3 OR BD33;

 
 
源码未粘贴完整.......下载附件源码

原理解析：
填充背景(C>0, RGB(310,108,108),RGB(88,30,0),0,'',0)
输出NOTEXT顶部标线:120,COLORBROWN
输出NOTEXT底部标线:-80,COLORBROWN
输出{力度平衡信号}
力度平衡点:40,COLORBROWN, 线宽为2
LDA1赋值:FORCAST(FORCAST(SMA(收盘价-1日前的收盘价和0较大值,9,1)/SMA(收盘价-1日前的收盘价的绝对值,9,1)*100,3),18)
LDA2赋值:LDA1>1日前的LDA1 AND LDA1>40
LDA3赋值:LDA1<=1日前的LDA1 AND LDA1>40
LDA4赋值:LDA1>1日前的LDA1 AND LDA1<=40
LDA5赋值:LDA1<=1日前的LDA1 AND LDA1<=40
当满足条件LDA2时,在40和LDA1之间画柱状线
当满足条件LDA3时,在40和LDA1之间画柱状线
当满足条件LDA4时,在40和LDA1之间画柱状线
当满足条件LDA5时,在40和LDA1之间画柱状线
输出趋势平衡线:MA(SMA(收盘价-1日前的收盘价和0较大值,9,1)/SMA(收盘价-1日前的收盘价的绝对值,9,1)*100,26), 画蓝色, 线宽为2
{力度强弱信号}
力度强弱赋值:(((收盘价 - 收盘价的30日简单移动平均) / 收盘价的30日简单移动平均) * 100)
当满足条件力度强弱>=20时,在8和10之间画柱状线
当满足条件力度强弱>=0 AND 力度强弱<20 AND 力度强弱>6时,在8和10之间画柱状线
当满足条件力度强弱>=0 AND 力度强弱<20 AND 力度强弱<=6时,在8和10之间画柱状线
当满足条件力度强弱<=0 AND 力度强弱>-20时,在8和10之间画柱状线
当满足条件力度强弱<=-20时,在8和10之间画柱状线
{力度波动信号}
BD1赋值:(3*收盘价+最低价+开盘价+最高价)/6
BD2赋值:(20*BD1+19*1日前的BD1+18*2日前的BD1+17*3日前的BD1+16*4日前的BD1+15*5日前的BD1+
14*6日前的BD1+13*7日前的BD1+12*8日前的BD1+11*9日前的BD1+10*10日前的BD1+9*11日前的BD1+
8*12日前的BD1+7*13日前的BD1+6*14日前的BD1+5*15日前的BD1+4*16日前的BD1+3*17日前的BD1+
2*18日前的BD1+20日前的BD1)/210
BD3赋值:BD2的6日简单移动平均
BD4赋值:V*100/当前流通股本
BD5赋值:BD4的5日简单移动平均
BD6赋值:BD4的55日简单移动平均
BD7赋值:(BD5-BD6)
BD8赋值:(C-BD2)
BD9赋值:BD7+BD8
BD10赋值:V的5日指数移动平均
BD11赋值:V的50日指数移动平均
OBV赋值:SUM(IF(收盘价>1日前的收盘价,成交量,IF(收盘价<1日前的收盘价,-成交量,0)),0)
BD12赋值:OBV的5日指数移动平均
BD13赋值:OBV的50日指数移动平均
BD14赋值:(BD10-BD11)*0.00001
BD15赋值:(BD12-BD13)*0.000001
BD16赋值:BD14+BD15
MID赋值:(3*收盘价+最低价+开盘价+最高价)/6
DKX赋值:(20*MID+19*1日前的MID+18*2日前的MID+17*3日前的MID+
16*4日前的MID+15*5日前的MID+14*6日前的MID+
13*7日前的MID+12*8日前的MID+11*9日前的MID+
10*10日前的MID+9*11日前的MID+8*12日前的MID+
7*13日前的MID+6*14日前的MID+5*15日前的MID+
4*16日前的MID+3*17日前的MID+2*18日前的MID+20日前的MID)/210
BD17赋值:DKX的6日简单移动平均
BD18赋值:(DKX-BD17)*1.2
BD19赋值:(C*2+H+L)/4*10
BD20:=BD19的6日指数移动平均-BD19的55日指数移动平均
BD21:=BD20的6日指数移动平均
BD22:=(BD20-BD21)*0.06
BD23:=BD18+BD22
BD24:=C的5日简单移动平均>REF(C的5日简单移动平均,1)
BD25:=C的12日指数移动平均>1日前的C的12日指数移动平均
BD26:=C的20日简单移动平均>REF(C的20日简单移动平均,1)
BD27:=C的30日简单移动平均>REF(C的30日简单移动平均,1)
BD28:=C的60日简单移动平均>REF(C的60日简单移动平均,1)
BD29:=C的120日简单移动平均>REF(C的120日简单移动平均,1)
BD30:=C的250日简单移动平均>REF(C的250日简单移动平均,1)
BD31:=BD25 + BD26 + BD27 + BD28
BD32:=C>BD2 AND BD9>0 AND BD16>0 AND BD23>0
BD33:=C<=BD2 OR BD9<=0 OR BD16<=0 OR BD23<=0
力度波动A赋值:BD31=4 AND BD32
力度波动B赋值:BD31=3 AND BD32
力度波动C赋值:BD31<3 OR BD33