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

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[通达信] 通达信五日金叉十日七档黄金分割天元修罗版


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

以下是通达信五日金叉十日七档黄金分割天元修罗版

{1.以最近一次的5日和10日金叉点,为原点。
2.以均线的金叉点胃零点 向上和向下画 0.198, 0.382, 0.5的黄金分割线(正负都有)
这是”天元修罗“提出的理念。直接上图


{主图}

M5:MA(C,5);
M10:MA(C,10);
A:=BARSLAST(CROSS(M5,M10));
T:=BARSLAST(CURRBARSCOUNT=CONST(A)+1);
D:=MIN(M5,M10);
STICKLINE(T>=0,REF(D,T),REF(D,T),6,0),COLORRED,LINETHICK2;
STICKLINE(T>=0,REF(D+D*0.198,T),REF(D+D*0.198,T),6,-1),COLORLIMAGENTA;
STICKLINE(T>=0,REF(D-D*0.198,T),REF(D-D*0.198,T),6,-1),COLORLIMAGENTA;
STICKLINE(T>=0,REF(D+D*0.382,T),REF(D+D*0.382,T),6,-1),COLORGREEN;
STICKLINE(T>=0,REF(D-D*0.382,T),REF(D-D*0.382,T),6,-1),COLORGREEN;
STICKLINE(T>=0,REF(D+D*0.5,T),REF(D+D*0.5,T),6,-1),COLORYELLOW;
STICKLINE(T>=0,REF(D-D*0.5,T),REF(D-D*0.5,T),6,-1),COLORYELLOW;
DRAWTEXT(T=0,REF(D,T)*1.02,VARCAT(VARCAT('中心价:',VAR2STR(REF(D,T),2)),'元')),COLORWHITE;
DRAWTEXT(T=0,REF(D+D*0.198,T)*1.02,VARCAT(VARCAT('压力1:',VAR2STR(REF(D+D*0.198,T),2)),'元'))COLORYELLOW;
DRAWTEXT(T=0,REF(D+D*0.382,T)*1.02,VARCAT(VARCAT('压力2:',VAR2STR(REF(D+D*0.382,T),2)),'元'))COLORYELLOW;
DRAWTEXT(T=0,REF(D+D*0.5,T)*1.02,VARCAT(VARCAT('压力3:',VAR2STR(REF(D+D*0.5,T),2)),'元'))COLORYELLOW;
DRAWTEXT(T=0,REF(D-D*0.198,T)*1.02,VARCAT(VARCAT('支撑1:',VAR2STR(REF(D-D*0.198,T),2)),'元')),COLORMAGENTA;
DRAWTEXT(T=0,REF(D-D*0.380,T)*1.02,VARCAT(VARCAT('支撑2:',VAR2STR(REF(D-D*0.382,T),2)),'元')),COLORMAGENTA;
DRAWTEXT(T=0,REF(D-D*0.5,T)*1.02,VARCAT(VARCAT('支撑3:',VAR2STR(REF(D-D*0.5,T),2)),'元')),COLORMAGENTA;


{主图}

M5:MA(C,5);
M10:MA(C,10);
A:=BARSLAST(CROSS(M5,M10));
T:=BARSLAST(CURRBARSCOUNT=CONST(A)+1);
D:=MIN(M5,M10);
STICKLINE(T>=0,REF(D,T),REF(D,T),6,0),COLORRED,LINETHICK2;
STICKLINE(T>=0,REF(D+D*0.198,T),REF(D+D*0.198,T),6,-1),COLORLIMAGENTA;
STICKLINE(T>=0,REF(D-D*0.198,T),REF(D-D*0.198,T),6,-1),COLORLIMAGENTA;
STICKLINE(T>=0,REF(D+D*0.382,T),REF(D+D*0.382,T),6,-1),COLORGREEN;
STICKLINE(T>=0,REF(D-D*0.382,T),REF(D-D*0.382,T),6,-1),COLORGREEN;
STICKLINE(T>=0,REF(D+D*0.5,T),REF(D+D*0.5,T),6,-1),COLORYELLOW;
STICKLINE(T>=0,REF(D-D*0.5,T),REF(D-D*0.5,T),6,-1),COLORYELLOW;
DRAWTEXT(T=0,REF(D,T)*1.02,VARCAT(VARCAT('中心价:',VAR2STR(REF(D,T),2)),'元')),COLORWHITE;
DRAWTEXT(T=0,REF(D+D*0.198,T)*1.02,VARCAT(VARCAT('压力1:',VAR2STR(REF(D+D*0.198,T),2)),'元'))COLORYELLOW;
DRAWTEXT(T=0,REF(D+D*0.382,T)*1.02,VARCAT(VARCAT('压力2:',VAR2STR(REF(D+D*0.382,T),2)),'元'))COLORYELLOW;
DRAWTEXT(T=0,REF(D+D*0.5,T)*1.02,VARCAT(VARCAT('压力3:',VAR2STR(REF(D+D*0.5,T),2)),'元'))COLORYELLOW;
DRAWTEXT(T=0,REF(D-D*0.198,T)*1.02,VARCAT(VARCAT('支撑1:',VAR2STR(REF(D-D*0.198,T),2)),'元')),COLORMAGENTA;
DRAWTEXT(T=0,REF(D-D*0.380,T)*1.02,VARCAT(VARCAT('支撑2:',VAR2STR(REF(D-D*0.382,T),2)),'元')),COLORMAGENTA;
DRAWTEXT(T=0,REF(D-D*0.5,T)*1.02,VARCAT(VARCAT('支撑3:',VAR2STR(REF(D-D*0.5,T),2)),'元')),COLORMAGENTA;











回复

举报

GMT+8, 2025-2-22 13:11

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