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

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[通达信] 缠论分笔分段通达信版公式(缠论走势划分)


    [-----复制链接-----]
楼主
 通达信源码安装路径:1,工具栏点击公式选项。2,弹出公式窗口点击新建。3,把源码复制到指标编辑器保存。4,回到K线图界面安装建立好的公式 || 2023-10-9 21:31:55

以下是缠论分笔分段通达信版公式(缠论走势划分)

指标可以对付绝大部分情况,修改了个别参数,纠正了一些错误,颜色也略作修改,看起来更简洁,缠迷有福了。

密码:5566

LT:=LLVBARS(L,250);

LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);

HT:=FINDHIGHBARS(H,LT+1,120,1);

EXT1:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLORYELLOW,LINETHICK2;

C1:=REF(C,BARSLAST(CURRBARSCOUNT=CONST(HT)+1)+1);

TT:=BARSLAST(CURRBARSCOUNT=CONST(HT)+1);

T:=BARSLAST(CROSS(C,REF(H,TT)));

GL:=C/REF(H,TT);

TA:=BARSLAST(GL=HHV(GL,T+1));

DF:=(C-REF(C,TA+1))/REF(C,TA+1)*100;

JL:=L/REF(H,TT);

XG:=DF<-8 AND DF>-30 AND JL<1.075 AND MIN(C,O)*1.005>=REF(H,TT);

XGT:=BARSLAST(COUNT(XG,T+1)=1 AND XG);

QF:=BACKSET(XGT=0,TA+1);

QFT:=BARSLAST(CROSS(QF=1,0.5));

C2:=REF(C,QFT);

CC2:=REF(C,QFT+1);

ZF:=(C2-C1)/C1*100;

XZF:=REFX(DF,BARSNEXT(XGT=0));

DRAWICON(CROSS(XGT=0,0.5),L*0.95,9);

DRAWLINE(T=0,REF(H,TT),QFT=0,REF(H,QFT),0),DOTLINE,COLORYELLOW;

DRAWLINE(QFT=0,REF(H,QFT),XGT=0,REF(H,TT),0),DOTLINE,COLORYELLOW;

DRAWTEXT(TT=0,REF(H,TT)*1.05,VARCAT(VARCAT('支撑价:',VAR2STR(REF(H,TT),2)),'元'))COLORYELLOW;

DRAWLINE(QFT=0,REF(H,QFT),QFT=10,REF(H,QFT),1),COLORWHITE,LINETHICK2;

DRAWTEXT(QFT=0,REF(H,QFT)*1.02,VARCAT(VARCAT('信号处跌幅:',VAR2STR(XZF,2)),'%'))COLORGREEN;

DRAWTEXT(QFT=0,REF(H,QFT)*1.08,VARCAT(VARCAT('信号处涨幅:',VAR2STR(ZF,2)),'%')),COLORRED;

TY:=BARSLAST(CROSS(C,REF(H,QFT)));

GLY:=C/REF(H,QFT);

TAA:=BARSLAST(GLY=HHV(GLY,TY+1));

DFY:=(C-REF(C,TAA+1))/REF(C,TAA+1)*100;

JLY:=L/REF(H,TY);

XGY:=DFY<-8 AND DF>-30 AND JLY>1.075 AND JLY<1.15 AND MIN(C,O)*1.005>=REF(H,TY);

XGTY:=BARSLAST(COUNT(XGY,TY+1)=1 AND XGY);

QFY:=BACKSET(XGTY=0,TAA+1);

QFTY:=BARSLAST(CROSS(QFY=1,0.5));

C3:=REF(C,QFTY);

ZF1:=(C3-CC2)/CC2*100;

XZFY:=REFX(DFY,BARSNEXT(XGTY=0));

DRAWICON(CROSS(XGTY=0,0.5),L*0.95,9);

DRAWLINE(TY=0,REF(H,TA),QFTY=0,REF(H,QFTY),0),DOTLINE,COLORYELLOW;

DRAWLINE(QFTY=0,REF(H,QFTY),XGTY=0,REF(H,QFT),0),DOTLINE,COLORYELLOW;

DRAWTEXT(QFT=0,REF(H,TY)*1.05,VARCAT(VARCAT('支撑价:',VAR2STR(REF(H,TY),2)),'元'))COLORYELLOW;

DRAWLINE(QFTY=0,REF(H,QFTY),QFTY=10,REF(H,QFTY),1),COLORRED,LINETHICK2;

DRAWTEXT(QFTY=0,REF(H,QFTY)*1.02,VARCAT(VARCAT('信号处跌幅:',VAR2STR(XZFY,2)),'%'))COLORGREEN;

DRAWTEXT(QFTY=0,REF(H,QFTY)*1.08,VARCAT(VARCAT('信号处涨幅:',VAR2STR(ZF1,2)),'%')),COLORRED;



回复

举报

GMT+8, 2025-2-8 02:20

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