通达信副图

[复制链接]
查看38 | 回复0 | 2022-6-28 09:01:57 | 显示全部楼层 |阅读模式

{通达信副图25
底,轴,顶}
STICKLINE(1,-50,-50,10,0)COLORBLUE;
STICKLINE(1,0,0,0.0001,0),COLORMAGENTA;
STICKLINE(1,50,50,10,0),COLORBLUE;
{高低指标}
HH:=EMA(H,5);
LL:=EMA(L,5);
JJ:=(H+L+2*C)/4;
TV:=100*(JJ-LL)/(HH-LL);
HL:50*(JJ-(3*LL-HH)/2)/(HH-LL)-50,COLORBLUE;

LC:=MIN(TV,0);
LQ:=LC-REF(LC,1);
LX:=IF(LQ>REF(LQ,1) AND REF(LQ,2)>REF(LQ,1),10,0)+IF(LQ>REF(LQ,1) AND LC<0,10,0);


HC:=MAX(TV,100);
HQ:=HC-REF(HC,1);
HX:=100+IF(HQ<REF(HQ,1) AND REF(HQ,2)<REF(HQ,1),-10,0)+IF(HQ<REF(HQ,1) AND HC>0,-10,0);

{强弱指标}

BB:=SMA(ABS(C-REF(C,1)),5,1);
AX:=SMA(MAX(C-REF(C,1),0),5,1);
AZ:AX/BB*100-50,COLORWHITE;
TL:=AZ-LLV(AZ,10);
AN:=SMA(MIN(C-REF(C,1),0),5,1);
AD:=AN/BB*100;
TH:=HHV(AD,10)-AD;
{布林线}
半月:=EMA(C,11);
US:=半月+2*STD(C,11);
DS:=半月-2*STD(C,11);
DB:100*(C-DS)/(US-DS)-50,COLORMAGENTA;
DC:=DB-LLV(DB,10);
UB:=100*(C-US)/(US-DS);
UC:=HHV(UB,10)-UB;
BX:=IF(CROSS(DC,1),10,0)+IF(CROSS(TL,1),10,0)>=10;
SX:=IF(CROSS(UC,1),10,0)+IF(CROSS(TH,1),10,0)>=10;

STICKLINE(LX>=10,-50,-47.5,1,0),COLORMAGENTA;
STICKLINE(HX<=90,47.5,50,1,0),COLORCYAN;

STICKLINE(BX,-50,-47.5,1,0),COLORRED;
STICKLINE(SX,47.5,50,1,0),COLORGREEN;
{连续涨跌}
ZT:=BARSLASTCOUNT(C>REF(C,1));
DT:=BARSLASTCOUNT(C<REF(C,1));
ZD:IF(C>REF(C,1),100*(C-REF(C,ZT))/REF(C,ZT),100*(C-REF(C,DT))/REF(C,DT)),COLORRED,LINETHICK2;
STICKLINE(CROSS(ZD,-10),-17.5,-20,1,0),COLORRED;
STICKLINE(CROSS(10,ZD),17.5,20,1,0),COLORGREEN;
STICKLINE(ZD>10,52,50,4,0),COLORGREEN;
STICKLINE(ZD<-10,-52,-50,4,0),COLORRED;
 

20095252055680939.gif

20095252055680939.gif

20095252052810187.rar

2.99 KB, 下载次数: 0

售价: 3 金钱  [记录]  [购买]

20095252052810187.rar

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则