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

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
    上一主题 下一主题

    [通达信] 「指标」黄金分时k---黄金分割加10天的日k线的分时主图(分时主副图 源码 图片)


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

    22万

    主题

    22万

    帖子

    14

    精华

    积分
    11040
    楼主
    2024-3-9 17:09:43
    【资料名称】:黄金分时k---黄金分割加10天的日k线的分时主图(分时主副图 源码 图片)介绍
    【资料描述】:

    黄金分时k---黄金分割加10天的日k线的分时主图(分时主副图 源码 图片)

    先建立引用的指标公式 指标名为(FSKY)
    然后再建立分时主图指标公式 指标名自己定

    引用指标源码:
    {FSKY}
    ZO:REF(O,1);
    ZC:REF(C,1);
    ZH:REF(H,1);
    ZL:REF(L,1);
    JO:REF(O,2);
    JC:REF(C,2);
    JH:REF(H,2);
    JL:REF(L,2);
    JO3:REF(O,3);
    JC3:REF(C,3);
    JH3:REF(H,3);
    JL3:REF(L,3);
    JO4:REF(O,4);
    JC4:REF(C,4);
    JH4:REF(H,4);
    JL4:REF(L,4);
    JO5:REF(O,5);
    JC5:REF(C,5);
    JH5:REF(H,5);
    JL5:REF(L,5);
    JO6:REF(O,6);
    JC6:REF(C,6);
    JH6:REF(H,6);
    JL6:REF(L,6);
    JO7:REF(O,7);
    JC7:REF(C,7);
    JH7:REF(H,7);
    JL7:REF(L,7);
    JO8:REF(O,8);
    JC8:REF(C,8);
    JH8:REF(H,8);
    JL8:REF(L,8);
    JO9:REF(O,9);
    JC9:REF(C,9);
    JH9:REF(H,9);
    JL9:REF(L,9);
    MA5:MA(C,5);
    MA10:MA(C,10);
    MA20:MA(C,20);
    MA60:MA(C,60);
    上涨家数:INDEXADV,NODRAW;
    下跌家数:INDEXDEC,NODRAW;

    分时主图源码:
    HH:=CONST(HHV(C,0));
    LL:=CONST(LLV(C,0));
    HL:=HH-LL;
    A76:=0.764*HL+LL,COLORCYAN,POINTDOT;
    A61:=0.618*HL+LL,COLORCYAN,POINTDOT;
    A38:=0.382*HL+LL,COLORCYAN,POINTDOT;
    A23:=0.236*HL+LL,COLORCYAN,POINTDOT;
    A51:=0.495*HL+LL,COLORCYAN,POINTDOT;
    A52:=0.505*HL+LL,COLORCYAN,POINTDOT;
    DRAWBAND(HH,RGB(0,30,30),A76,RGB(0,30,30));
    DRAWBAND(A23,RGB(0,30,30),LL,RGB(0,30,30));
    DRAWBAND(A76,RGB(100,30,100),A61,RGB(100,30,100));
    DRAWBAND(A38,RGB(100,30,100),A23,RGB(100,30,100));
    DRAWBAND(A61,RGB(100,90,0),A38,RGB(100,90,0));
    DRAWBAND(A51,RGB(180,100,100),A52,RGB(180,100,100));
    DRAWTEXT(CURRBARSCOUNT=240,HH*0.999,'高'),COLORCYAN;
    DRAWTEXT(CURRBARSCOUNT=240,LL*1.001,'低'),COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=240,A76,'压'),COLORCYAN;
    DRAWTEXT(CURRBARSCOUNT=240,A23,'撑'),COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=240,A52,'中'),COLOR00FFFF;
    {分时K线}
    ZS:=DYNAINFO(3);
    KP:=DYNAINFO(4);
    ZX:=DYNAINFO(7);
    ZG:=DYNAINFO(5);
    ZD:=DYNAINFO(6);
    OP:=500-(KP/ZS-1)*4000;
    CL:=500-(ZX/ZS-1)*4000;
    HI:=500-(ZG/ZS-1)*4000;
    LO:=500-(ZD/ZS-1)*4000;
    N1:=IF(TIME>=130000 OR TIME<91500,360,860);
    DRAWRECTREL(N1+4,OP,N1+8,HI,RGB(255,0,255)),COLORFF00FF;
    DRAWRECTREL(N1+4,CL,N1+8,LO,RGB(0,128,0)),COLOR008000;
    Q1:=IF(ZX>=KP,255,0);
    Q2:=IF(ZX>=KP,0,255);
    Q3:=IF(ZX>=KP,0,255);
    DRAWRECTREL(N1-10,OP,N1+22,CL,RGB(Q1,Q2,Q3));
    ZO:="FSKY.ZO#DAY";
    ZC:="FSKY.ZC#DAY";
    ZH:="FSKY.ZH#DAY";
    ZL:="FSKY.ZL#DAY";
    ZKP:=500-(ZO/ZS-1)*4000;
    ZCP:=500-(ZC/ZS-1)*4000;
    ZZG:=500-(ZH/ZS-1)*4000;
    ZZD:=500-(ZL/ZS-1)*4000;
    DRAWRECTREL(N1-36,ZKP,N1-32,ZZG,RGB(255,0,255)),COLORFF00FF;
    DRAWRECTREL(N1-36,ZCP,N1-32,ZZD,RGB(0,128,0)),COLOR008000;
    Q4:=IF(ZC>=ZO,255,0);
    Q5:=IF(ZC>=ZO,0,255);
    Q6:=IF(ZC>=ZO,0,255);
    DRAWRECTREL(N1-49,ZKP,N1-17,ZCP,RGB(Q4,Q5,Q6)),COLOR00FFFF;
    JO:="FSKY.JO#DAY";
    JC:="FSKY.JC#DAY";
    JH:="FSKY.JH#DAY";
    JL:="FSKY.JL#DAY";
    ZZKP:=500-(JO/ZS-1)*4000;
    ZZCP:=500-(JC/ZS-1)*4000;
    ZZZG:=500-(JH/ZS-1)*4000;
    ZZZD:=500-(JL/ZS-1)*4000;
    DRAWRECTREL(N1-76,ZZKP,N1-72,ZZZG,RGB(255,0,255)),COLORFF00FF;
    DRAWRECTREL(N1-76,ZZCP,N1-72,ZZZD,RGB(0,128,0)),COLOR008000;
    Q7:=IF(JC>=JO,255,0);
    Q8:=IF(JC>=JO,0,255);
    Q9:=IF(JC>=JO,0,255);
    DRAWRECTREL(N1-89,ZZKP,N1-57,ZZCP,RGB(Q7,Q8,Q9)),COLOR00FFFF;
    JO3:="FSKY.JO3#DAY";
    JC3:="FSKY.JC3#DAY";
    JH3:="FSKY.JH3#DAY";
    JL3:="FSKY.JL3#DAY";
    ZZKP3:=500-(JO3/ZS-1)*4000;
    ZZCP3:=500-(JC3/ZS-1)*4000;
    ZZZG3:=500-(JH3/ZS-1)*4000;
    ZZZD3:=500-(JL3/ZS-1)*4000;
    DRAWRECTREL(N1-116,ZZKP3,N1-112,ZZZG3,RGB(255,0,255)),COLORFF00FF;
    DRAWRECTREL(N1-116,ZZCP3,N1-112,ZZZD3,RGB(0,128,0)),COLOR008000;
    Q10:=IF(JC3>=JO3,255,0);
    Q11:=IF(JC3>=JO3,0,255);
    Q12:=IF(JC3>=JO3,0,255);
    DRAWRECTREL(N1-129,ZZKP3,N1-97,ZZCP3,RGB(Q10,Q11,Q12)),COLOR00FFFF;
    JO4:="FSKY.JO4#DAY";
    JC4:="FSKY.JC4#DAY";
    JH4:="FSKY.JH4#DAY";
    JL4:="FSKY.JL4#DAY";
    ZZKP4:=500-(JO4/ZS-1)*4000;
    ZZCP4:=500-(JC4/ZS-1)*4000;
    ZZZG4:=500-(JH4/ZS-1)*4000;
    ZZZD4:=500-(JL4/ZS-1)*4000;
    DRAWRECTREL(N1-156,ZZKP4,N1-152,ZZZG4,RGB(255,0,255)),COLORFF00FF;
    DRAWRECTREL(N1-156,ZZCP4,N1-152,ZZZD4,RGB(0,128,0)),COLOR008000;
    Q13:=IF(JC4>=JO4,255,0);
    Q14:=IF(JC4>=JO4,0,255);
    Q15:=IF(JC4>=JO4,0,255);
    DRAWRECTREL(N1-169,ZZKP4,N1-137,ZZCP4,RGB(Q13,Q14,Q15)),COLOR00FFFF;
    JO5:="FSKY.JO5#DAY";
    JC5:="FSKY.JC5#DAY";
    JH5:="FSKY.JH5#DAY";
    JL5:="FSKY.JL5#DAY";
    ZZKP5:=500-(JO5/ZS-1)*4000;
    ZZCP5:=500-(JC5/ZS-1)*4000;
    ZZZG5:=500-(JH5/ZS-1)*4000;
    ZZZD5:=500-(JL5/ZS-1)*4000;
    DRAWRECTREL(N1-196,ZZKP5,N1-192,ZZZG5,RGB(255,0,255)),COLORFF00FF;
    DRAWRECTREL(N1-196,ZZCP5,N1-192,ZZZD5,RGB(0,128,0)),COLOR008000;
    Q16:=IF(JC5>=JO5,255,0);
    Q17:=IF(JC5>=JO5,0,255);
    Q18:=IF(JC5>=JO5,0,255);
    DRAWRECTREL(N1-209,ZZKP5,N1-177,ZZCP5,RGB(Q16,Q17,Q18)),COLOR00FFFF;
    JO6:="FSKY.JO6#DAY";
    JC6:="FSKY.JC6#DAY";
    JH6:="FSKY.JH6#DAY";
    JL6:="FSKY.JL6#DAY";
    ZZKP6:=500-(JO6/ZS-1)*4000;
    ZZCP6:=500-(JC6/ZS-1)*4000;
    ZZZG6:=500-(JH6/ZS-1)*4000;
    ZZZD6:=500-(JL6/ZS-1)*4000;
    DRAWRECTREL(N1-236,ZZKP6,N1-232,ZZZG6,RGB(255,0,255)),COLORFF00FF;
    DRAWRECTREL(N1-236,ZZCP6,N1-232,ZZZD6,RGB(0,128,0)),COLOR008000;
    Q19:=IF(JC6>=JO6,255,0);
    Q20:=IF(JC6>=JO6,0,255);
    Q21:=IF(JC6>=JO6,0,255);
    DRAWRECTREL(N1-249,ZZKP6,N1-217,ZZCP6,RGB(Q19,Q20,Q21)),COLOR00FFFF;
    JO7:="FSKY.JO7#DAY";
    JC7:="FSKY.JC7#DAY";
    JH7:="FSKY.JH7#DAY";
    JL7:="FSKY.JL7#DAY";
    ZZKP7:=500-(JO7/ZS-1)*4000;
    ZZCP7:=500-(JC7/ZS-1)*4000;
    ZZZG7:=500-(JH7/ZS-1)*4000;
    ZZZD7:=500-(JL7/ZS-1)*4000;
    DRAWRECTREL(N1-276,ZZKP7,N1-272,ZZZG7,RGB(255,0,255)),COLORFF00FF;
    DRAWRECTREL(N1-276,ZZCP7,N1-272,ZZZD7,RGB(0,128,0)),COLOR008000;
    Q22:=IF(JC7>=JO7,255,0);
    Q23:=IF(JC7>=JO7,0,255);
    Q24:=IF(JC7>=JO7,0,255);
    DRAWRECTREL(N1-289,ZZKP7,N1-257,ZZCP7,RGB(Q22,Q23,Q24)),COLOR00FFFF;
    JO8:="FSKY.JO8#DAY";
    JC8:="FSKY.JC8#DAY";
    JH8:="FSKY.JH8#DAY";
    JL8:="FSKY.JL8#DAY";
    ZZKP8:=500-(JO8/ZS-1)*4000;
    ZZCP8:=500-(JC8/ZS-1)*4000;
    ZZZG8:=500-(JH8/ZS-1)*4000;
    ZZZD8:=500-(JL8/ZS-1)*4000;
    DRAWRECTREL(N1-316,ZZKP8,N1-312,ZZZG8,RGB(255,0,255)),COLORFF00FF;
    DRAWRECTREL(N1-316,ZZCP8,N1-312,ZZZD8,RGB(0,128,0)),COLOR008000;
    Q25:=IF(JC8>=JO8,255,0);
    Q26:=IF(JC8>=JO8,0,255);
    Q27:=IF(JC8>=JO8,0,255);
    DRAWRECTREL(N1-329,ZZKP8,N1-297,ZZCP8,RGB(Q25,Q26,Q27)),COLOR00FFFF;
    JO9:="FSKY.JO9#DAY";
    JC9:="FSKY.JC9#DAY";
    JH9:="FSKY.JH9#DAY";
    JL9:="FSKY.JL9#DAY";
    ZZKP9:=500-(JO9/ZS-1)*4000;
    ZZCP9:=500-(JC9/ZS-1)*4000;
    ZZZG9:=500-(JH9/ZS-1)*4000;
    ZZZD9:=500-(JL9/ZS-1)*4000;
    DRAWRECTREL(N1-356,ZZKP9,N1-352,ZZZG9,RGB(255,0,255)),COLORFF00FF;
    DRAWRECTREL(N1-356,ZZCP9,N1-352,ZZZD9,RGB(0,128,0)),COLOR008000;
    Q28:=IF(JC9>=JO9,255,0);
    Q29:=IF(JC9>=JO9,0,255);
    Q30:=IF(JC9>=JO9,0,255);
    DRAWRECTREL(N1-369,ZZKP9,N1-337,ZZCP9,RGB(Q28,Q29,Q30)),COLOR00FFFF;
    MA5:="FSKY.MA5#DAY";
    XMA5:=500-(MA5/ZS-1)*4000;
    DRAWRECTREL(N1-3,XMA5-2,N1+15,XMA5+2,RGB(255,0,0));
    MA10:="FSKY.MA10#DAY";
    XMA10:=500-(MA10/ZS-1)*4000;
    DRAWRECTREL(N1-10,XMA10-2,N1+25,XMA10+2,RGB(0,255,0));
    MA20:="FSKY.MA20#DAY";
    XMA20:=500-(MA20/ZS-1)*4000;
    DRAWRECTREL(N1-20,XMA20-2,N1+35,XMA20+2,RGB(0,0,255)),COLORC0C0C0;
    MA60:="FSKY.MA60#DAY";
    XMA60:=500-(MA60/ZS-1)*4000;
    DRAWRECTREL(N1-30,XMA60-2,N1+45,XMA60+2,RGB(255,255,255)),COLOR808000;
    阻力:REFDATE(REF(HHV(C,60),FROMOPEN-60),DATE)DOTLINE,COLORCYAN;
    输赢线:EMA(C,120),COLORBLACK,LINETHICK2;
    分时均价线:SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK2;
    D:CLOSE,LINETHICK2,COLORWHITE;

    下面是分时副图源码 可以加到你现在用的分时副图里 也可以单独用
    源码:
    MA5:="FSKY.MA5#DAY";
    MA10:="FSKY.MA10#DAY";
    MA20:="FSKY.MA20#DAY";
    MA60:="FSKY.MA60#DAY";
    DRAWTEXT_FIX(1,0.14,0,0,'5日:'),COLORMAGENTA;
    DRAWTEXT_FIX(1,0.33,0,0,'10日:'),COLORMAGENTA;
    DRAWTEXT_FIX(1,0.51,0,0,'20日:'),COLORMAGENTA;
    DRAWTEXT_FIX(1,0.71,0,0,'60日:'),COLORMAGENTA;
    DRAWNUMBER_FIX(1,0.19,0,0,CONST(MA5)),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.39,0,0,CONST(MA10)),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.58,0,0,CONST(MA20)),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.78,0,0,CONST(MA60)),COLORYELLOW;
    获利1:=WINNER(C)*100,COLOR0033FF,NODRAW;
    DRAWTEXT_FIX(1,0,0.35,0,'日获利盘:'),COLORMAGENTA;
    DRAWNUMBER_FIX(1,0.12,0.35,0,CONST(获利1)),COLORYELLOW;
    MA1:=MA(C,5);
    角度MA1:=ATAN((MA1/REF(MA1,1)-1)*100)*180/3.1416;
    DRAWTEXT_FIX(1,0.8,0.35,0,'5线角度:'),COLORMAGENTA;
    DRAWNUMBER_FIX(1,0.91,0.35,0,CONST(角度MA1)),COLORYELLOW;
    上涨家数:=IF(PERIOD=0 ,"FSKY.上涨家数#DAY",DRAWNULL),NODRAW;
    下跌家数:=IF(PERIOD=0 ,"FSKY.下跌家数#DAY",DRAWNULL),NODRAW;
    DRAWTEXT_FIX(1,0.200,1,0,STRCAT('上涨家数:',CON2STR(上涨家数,0))),COLORYELLOW;
    DRAWTEXT_FIX(1,0.600,1,0,STRCAT('下跌家数:',CON2STR(下跌家数,0))),COLORYELLOW;
     


     




     



    gd17094


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






    上一篇:「指标」自用的看实盘指标
    下一篇:「指标」北沙三角彩带+斋主新版MACD(主副 源码 附件ZIP)
    回复

    举报

    QQ|

    GMT+8, 2024-11-13 22:02

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