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

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;
 

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