股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[通达信] 「指标」通达信五圆弧主图及选股指标 源码 贴图


    [-----复制链接-----]

22万

主题

22万

帖子

14

精华

积分
11042
楼主
2024-1-24 13:41:13
【资料名称】:通达信五圆弧主图及选股指标 源码 贴图介绍
【资料描述】:

通达信五圆弧主图及选股指标 源码 贴图






五圆弧主图源码:
A:=CURRBARSCOUNT;
HA:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
T:=HHVBARS(HA,0);
TT:=BARSLAST(L=LLV(L,T+1));
T1:=BARSLAST(A=CONST(TT)+1);
T2:=BARSLAST(A=CONST(T)+1);
GT:=CONST(T2)+1;
DT:=CONST(T1)+1;
AA:=DRAWLINE(A=GT,H,A=DT,L,0);
DRAWBAND(AA,RGB(69,139,0),AA,RGB(69,139,0));
HH:=CONST(REF(L,BARSLAST(A=DT+1)));
LL:=CONST(REF(H,BARSLAST(A=GT+1)));
JJ:=HH-LL;
TJ:=ABS(GT-DT);
PT:=TJ/2+MIN(GT,DT);
PJ:=(HH+LL)/2;
LJ:=HH*LL;
BT:=2*LJ/TJ;
BJ:=LJ/JJ;
TJA:=IF(A<PT,PT-A,A-PT)*BT;
TJB:=IF(TJA<LJ,SQRT(LJ*LJ-TJA*TJA),0)/BJ;
XH:IF(DT<GT,PJ+TJB,PJ-TJB),COLORMAGENTA;
SH:IF(DT<GT,PJ-TJB,PJ+TJB),COLORMAGENTA;
XG1:=COUNT(CROSS(C,SH),T1+1)=1 AND CROSS(C,SH) AND A<DT;
TB:=A=ROUND((GT+DT)/2);
ZF:=(REF(C,T1)-REF(C,T2+1))/REF(C,T2+1)*100;
DRAWTEXT(TB,AA,VARCAT(VARCAT('跌幅:',VAR2STR(CONST(ZF),2)),'%')),COLORGREEN;
DRAWTEXT(A=DT-1,SH*1.02,VARCAT(VARCAT('突破价:',VAR2STR(SH,2)),'元')),COLORYELLOW;
STICKLINE(XG1,L,H,0,0),COLOR0088EE;
STICKLINE(XG1,CLOSE,OPEN,3,0),COLOR0055AA;
STICKLINE(XG1,CLOSE,OPEN,2.8,0),COLOR0066BB;
STICKLINE(XG1,CLOSE,OPEN,2.5,0),COLOR0077CC;
STICKLINE(XG1,CLOSE,OPEN,2.2,0),COLOR0088DD;
STICKLINE(XG1,CLOSE,OPEN,1.7,0),COLOR0099EE;
STICKLINE(XG1,CLOSE,OPEN,1.2,0),COLOR00AAFF;
STICKLINE(XG1,CLOSE,OPEN,0.7,0),COLOR00CCFF;
STICKLINE(XG1,CLOSE,OPEN,0.2,0),COLOR00FFFF;


选股公式:

A:=CURRBARSCOUNT;
HA:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
T:=HHVBARS(HA,0);
TT:=BARSLAST(L=LLV(L,T+1));
T1:=BARSLAST(A=CONST(TT)+1);
T2:=BARSLAST(A=CONST(T)+1);
GT:=CONST(T2)+1;
DT:=CONST(T1)+1;
AA:=DRAWLINE(A=GT,H,A=DT,L,0);
HH:=CONST(REF(L,BARSLAST(A=DT+1)));
LL:=CONST(REF(H,BARSLAST(A=GT+1)));
JJ:=HH-LL;
TJ:=ABS(GT-DT);
PT:=TJ/2+MIN(GT,DT);
PJ:=(HH+LL)/2;
LJ:=HH*LL;
BT:=2*LJ/TJ;
BJ:=LJ/JJ;
TJA:=IF(A<PT,PT-A,A-PT)*BT;
TJB:=IF(TJA<LJ,SQRT(LJ*LJ-TJA*TJA),0)/BJ;
SH:=IF(DT<GT,PJ-TJB,PJ+TJB);
XG:COUNT(CROSS(C,SH),T1+1)=1 AND CROSS(C,SH) AND A<DT;



gd54834


【下载地址隐藏】:                    点:回复可见地址
游客,如果您要查看本帖隐藏内容请回复






上一篇:「指标」通达信二次回踩主图指标 源码 贴图
下一篇:「指标」通达信三角洲预测主图指标 和谐源码分享 贴图
回复

举报

QQ|

GMT+8, 2024-11-24 19:51

快速回复 返回顶部 返回列表