通达信分时通道图

 

分时通道编写缘由:

首先,感谢舍得快乐分享的自动通道源码,此分时通道就是其变化之一。
其次,此通道源码无未来函数,在画线指标中可谓独树一帜。通达信5.84内核
软件在分时界面指标中禁用未来函数,所以可以正常显示。虽然通达信5.85内核
分时界面已经可以运用未来函数,然而基于大多数人对未来函数有所诟病,
褒贬不一,所以更加凸显此通道的实用价值。
再则,指标的运用在于自己,正所谓:运用之妙,存乎一心。适合自己,才是最佳,
为了感谢理想论坛多年的支持,此源码首发于本论坛,
最后,谈点个人看法,本人玩了数年指标,方才悟出大道至简之真谛。曾经编写过
几百个指标,现在大都删除,仅留下二十多个作为看盘辅助之用。也许,日后还会
更少,真正做到知行合一,万法归一。

 

{分时通道通达信源码}
TT:=BARSCOUNT(C)+1;
M:SUM(V*C,TT)/SUM(V,TT),COLORYELLOW;

DRAWBAND(M,RGB(240,20,240),EMA(M,3),RGB(00,240,0));

P:=240;
TC1:=IF(H=HHV(H,P),C,DRAWNULL);
TC2:=CONST(BARSLAST(TC1=H))+1;
UPPER:=CONST(IF(TC2=1,C,REF(C,TC2-1)));
BC1:=IF(L=LLV(L,P),C,DRAWNULL);
BC2:=CONST(BARSLAST(BC1=L))+1;
LOWER:=CONST(IF(BC2=1,C,REF(C,BC2-1)));
LP:=CURRBARSCOUNT<=BC2 AND C=LOWER;{低点定位}
HP:=CURRBARSCOUNT<=TC2 AND C=UPPER;{高点定位}
低点:=LOWER;
高点:=UPPER;

TTT:=MAX(TC2,BC2);
ZZ:=(高点+低点)/2;
ZH:=(高点+ZZ)/2;
ZL:=(ZZ+低点)/2;
EE:=CURRBARSCOUNT<=TTT;
IF(EE,ZL,DRAWNULL),COLOR0099FF;
IF(EE,ZH,DRAWNULL),COLORFF9900;
IF(EE,ZZ,DRAWNULL),COLORWHITE;
IF(EE,高点,DRAWNULL),COLOR00FFCC;
IF(EE,低点,DRAWNULL),COLOR00CC00;
STICKLINE(IF(BC2>TC2,HP,LP),低点,高点,0,0),COLOR00FFFF;
STICKLINE(IF(BC2>TC2,LP,HP),低点,高点,0,0),COLOR00FF00;

DRAWNUMBER(EE AND FILTER(C=低点,P),高点,高点),COLORYELLOW;
DRAWNUMBER(EE AND FILTER(C=高点,P),低点,低点),COLOR00FF00;
DRAWNUMBER(EE AND FILTER(C=低点,P),ZH,ZH),COLORFFFF00;
DRAWNUMBER(EE AND FILTER(C=高点,P),ZZ,ZZ),COLORWHITE;
DRAWNUMBER(EE AND FILTER(C=高点,P),ZL,ZL),COLOR0099FF;

NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));{用时}
LR1:=FORCAST(C,NOD+1);
NP:=IF(CURRBARSCOUNT<=MAX(BC2,TC2),CONST(IF(MIN(TC2,BC2)=1,LR1,
REF(LR1,MIN(TC2,BC2)-1))),DRAWNULL),POINTDOT,COLORFF0000;{近点}
LR2:=SLOPE(C,NOD+1);
LR3:=CONST(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)));
FP:=NP-LR3*(NOD),POINTDOT,COLORFF0000;{远点}
EQU:=(NP+FP)/2,POINTDOT,COLOR0000FF;
AD:=ABS(NP-FP);{高差};
DBL:=BARSLAST(BC1!=DRAWNULL)+1;
DBH:=BARSLAST(TC1!=DRAWNULL)+1;
BSP:=IF(BC2>TC2,DBL,DBH)-1;
LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);
AT2:=HHV(AT1-LRL,MAX(BC2,TC2));
AT3:=CONST(BARSLAST(AT1-LRL=AT2));
AT4:=CONST(IF(AT3=0,H,REF(H,AT3)));
AT5:=CONST(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)));
ATL:=LRL+AT5;
UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL);
UT2:=HHV(LRL-UT1,MAX(BC2,TC2));
UT3:=CONST(BARSLAST(LRL-UT1=UT2));
UT4:=CONST(IF(UT3=0,H,REF(H,UT3)));
UT5:=CONST(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)));
UTL:=LRL-UT5;
RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,CONST(REF(ATL,MIN(BC2,TC2)-11)));{限制高}
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,CONST(REF(UTL,MIN(BC2,TC2)-11)));{限制低}
中轨:IF(NP>FP,IF(LRL<=RH,LRL,DRAWNULL),IF(LRL>=RL,LRL,DRAWNULL)),COLORWHITE;
上轨:IF(NP>FP,IF(ATL<=RH,ATL,DRAWNULL),IF(ATL>=RL,ATL,DRAWNULL)),COLOR00EEFF;
下轨:IF(NP>FP,IF(UTL<=RH,UTL,DRAWNULL),IF(UTL>=RL,UTL,DRAWNULL)),COLOR00EE00;
DRAWICON(CROSS(C,上轨),上轨,1);
DRAWICON(CROSS(下轨,C),下轨,2);
DRAWNUMBER(ISLASTBAR,上轨,上轨),COLOR00FFFF;
DRAWNUMBER(ISLASTBAR,中轨,中轨),COLORWHITE;
DRAWNUMBER(ISLASTBAR,下轨,下轨),COLOR00FF00;




来函数检测结果如下
该公式没有未来函数


解密、定制、编写公式指标请联系QQ或微信同号:88652583
置顶指标

相关指标公式

TT赋值:收盘价的有效数据周期数+1
输出M:成交量(手)*收盘价的TT日累和/成交量(手)的TT日累和,画黄色
画带状线
P赋值:240
TC1赋值:如果最高价=P日内最高价的最高值,返回收盘价,否则返回无效数
TC2赋值:上次TC1=最高价距今天数的最后一日取值设为常数+1
UPPER赋值:如果TC2=1,返回收盘价,否则返回TC2-1日前的收盘价的最后一日取值设为常数
BC1赋值:如果最低价=P日内最低价的最低值,返回收盘价,否则返回无效数
BC2赋值:上次BC1=最低价距今天数的最后一日取值设为常数+1
LOWER赋值:如果BC2=1,返回收盘价,否则返回BC2-1日前的收盘价的最后一日取值设为常数
LP赋值:到最后交易的周期<=BC2 AND 收盘价=LOWER
HP赋值:到最后交易的周期<=TC2 AND 收盘价=UPPER
低点赋值:LOWER
高点赋值:UPPER
TTT赋值:TC2和BC2的较大值
ZZ赋值:(高点+低点)/2
ZH赋值:(高点+ZZ)/2
ZL赋值:(ZZ+低点)/2
EE赋值:到最后交易的周期<=TTT
如果EE,返回ZL,否则返回无效数,COLOR0099FF
如果EE,返回ZH,否则返回无效数,COLORFF9900
如果EE,返回ZZ,否则返回无效数,画白色
如果EE,返回高点,否则返回无效数,COLOR00FFCC
如果EE,返回低点,否则返回无效数,COLOR00CC00
当满足条件如果BC2>TC2,返回HP,否则返回LP时,在低点和高点位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR00FFFF
当满足条件如果BC2>TC2,返回LP,否则返回HP时,在低点和高点位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR00FF00
当满足条件EEANDFILTER(收盘价=低点,P)时,在高点位置书写数字,画黄色
当满足条件EEANDFILTER(收盘价=高点,P)时,在低点位置书写数字,COLOR00FF00
当满足条件EEANDFILTER(收盘价=低点,P)时,在ZH位置书写数字,COLORFFFF00
当满足条件EEANDFILTER(收盘价=高点,P)时,在ZZ位置书写数字,画白色
当满足条件EEANDFILTER(收盘价=高点,P)时,在ZL位置书写数字,COLOR0099FF
NOD赋值:(如果TC2>BC2,返回TC2,否则返回BC2-如果TC2>BC2,返回BC2,否则返回TC2)
LR1赋值:收盘价的NOD+1日线性回归预测值
NP赋值:如果到最后交易的周期<=BC2和TC2的较大值,返回如果TC2和BC2的较小值=1,返回LR1,否则返回TC2和BC2的较小值-1日前的LR1的最后一日取值设为常数,否则返回无效数,POINTDOT,COLORFF0000
LR2赋值:收盘价的NOD+1日线性回归斜率
LR3赋值:如果TC2和BC2的较小值=1,返回LR2,否则返回TC2和BC2的较小值-1日前的LR2的最后一日取值设为常数
FP赋值:NP-LR3*(NOD),POINTDOT,COLORFF0000
EQU赋值:(NP+FP)/2,POINTDOT,COLOR0000FF
AD赋值:NP-FP的绝对值

DBL赋值:上次BC1不等于无效数距今天数+1
DBH赋值:上次TC1不等于无效数距今天数+1
BSP赋值:如果BC2>TC2,返回DBL,否则返回DBH-1
LRL赋值:如果NP>FP,返回FP+AD/NOD*BSP,否则返回FP-AD/NOD*BSP
AT1赋值:如果到最后交易的周期位于BC2和TC2之间ANDH>LRL,返回最高价,否则返回LRL
AT2赋值:BC2和TC2的较大值日内AT1-LRL的最高值
AT3赋值:上次AT1-LRL=AT2距今天数的最后一日取值设为常数
AT4赋值:如果AT3=0,返回最高价,否则返回AT3日前的最高价的最后一日取值设为常数
AT5赋值:如果AT3=0,返回AT1-LRL,否则返回AT3日前的AT1-LRL的最后一日取值设为常数
ATL赋值:LRL+AT5
UT1赋值:如果到最后交易的周期位于BC2和TC2之间ANDLUT2赋值:BC2和TC2的较大值日内LRL-UT1的最高值
UT3赋值:上次LRL-UT1=UT2距今天数的最后一日取值设为常数
UT4赋值:如果UT3=0,返回最高价,否则返回UT3日前的最高价的最后一日取值设为常数
UT5赋值:如果UT3=0,返回LRL-UT1,否则返回UT3日前的LRL-UT1的最后一日取值设为常数
UTL赋值:LRL-UT5
RH赋值:如果到最后交易的周期>=BC2和TC2的较小值-10,返回ATL,否则返回BC2和TC2的较小值-11日前的ATL的最后一日取值设为常数
RL赋值:如果到最后交易的周期>=BC2和TC2的较小值-10,返回UTL,否则返回BC2和TC2的较小值-11日前的UTL的最后一日取值设为常数
输出中轨:如果NP>FP,返回如果LRL<=RH,返回LRL,否则返回无效数,否则返回如果LRL>=RL,返回LRL,否则返回无效数,画白色
输出上轨:如果NP>FP,返回如果ATL<=RH,返回ATL,否则返回无效数,否则返回如果ATL>=RL,返回ATL,否则返回无效数,COLOR00EEFF
输出下轨:如果NP>FP,返回如果UTL<=RH,返回UTL,否则返回无效数,否则返回如果UTL>=RL,返回UTL,否则返回无效数,COLOR00EE00
当满足条件收盘价上穿上轨时,在上轨位置画1号图标
当满足条件下轨上穿收盘价时,在下轨位置画2号图标
当满足条件是否最后一个周期时,在上轨位置书写数字,COLOR00FFFF
当满足条件是否最后一个周期时,在中轨位置书写数字,画白色
当满足条件是否最后一个周期时,在下轨位置书写数字,COLOR00FF00

指标安装下载帮助  |   联系我们  |  乐淘公式网  |  公式网   |  指标公式  |   加入收藏   |  设为主页

@2005-2025 浙ICP备2024071487号-1 乐淘公式网公式网均来源互联网收集整理,如不慎侵犯了你的权益,请联系我们告知,我们将做删除处理
免责声明:乐淘公式网所有指标公式及文章由网络收集,不保障实时性和真实性, 仅供学习研究并不构成投资建议,请勿以此为依据进行股票交易,由此引起的投资亏损与本站无关。
QQ:88652583 微信 88652583
sitemap站点地图