很惭愧,一直没给大家什么例子,估计会用的人不多,抛砖引玉了,源码都给大家了,大家爱怎么折腾怎么折腾去吧!!!
公式名:同级别分解
功能:同级别分解走势
说明:绿色1F图笔 黄色5F图笔 蓝色30F笔 粉红日线笔 红色周线笔
在1F图上只要你的软件中保存的数据够多 从1F到周线的笔都看以看到。
注意 1笔!=低级别1段 但低级别1段=高级别1笔 对于最后一笔的当下是要注意,虽然形成笔但完全有可能是中继(上涨和下跌)
适用软件: 大智慧 (飞狐自己改啊
别拍我)
插件版本: 缠论插件3.0及以上
注意:需要引用P_PBASE公式,必须保证P_PBASE公式的已经存在。公式源码:
cDataType:="chanlun@DATATYPE";
{笔=1M笔}
KXM1:="P_PBASE.KX#MIN1";
KXGM1:="P_PBASE.KXG#MIN1";
KXDM1:="P_PBASE.KXD#MIN1";
BIM1:="P_PBASE.BI#MIN1";
drawline(cDataType<=3 AND BIM1=1,KXGM1,BIM1=-1,KXDM1,0),colorgreen,linethick2;
drawline(cDataType<=3 AND BIM1=-1,KXDM1,BIM1=1,KXGM1,0),colorgreen,linethick2;
{段=5M笔, 反过来不成立,下同}
KXM5:="P_PBASE.KX#MIN5";
KXGM5:="P_PBASE.KXG#MIN5";
KXDM5:="P_PBASE.KXD#MIN5";
BIM5:="P_PBASE.BI#MIN5";
drawline(cDataType<=4 AND BIM5=1,KXGM5,BIM5=-1,KXDM5,0),coloryellow,linethick2;
drawline(cDataType<=4 AND BIM5=-1,KXDM5,BIM5=1,KXGM5,0),coloryellow,linethick2;
STICKLINE(cDataType<=4 AND BIM5=1, KXGM5, KXGM5, 12, 1), coloryellow,linethick2;
STICKLINE(cDataType<=4 AND BIM5=-1, KXDM5, KXDM5, 12, 1), coloryellow,linethick2;
STICKLINE(cDataType<=4 AND BIM5=1, KXDM5, KXDM5, 12, 1), coloryellow,linethick2;
STICKLINE(cDataType<=4 AND BIM5=-1, KXGM5, KXGM5, 12, 1), coloryellow,linethick2;
{1F走势=30M笔}
KXM30:="P_PBASE.KX#MIN30";
KXGM30:="P_PBASE.KXG#MIN30";
KXDM30:="P_PBASE.KXD#MIN30";
BIM30:="P_PBASE.BI#MIN30";
drawline(cDataType<=6 AND BIM30=1,KXGM30,BIM30=-1,KXDM30,0),colorblue,linethick2;
drawline(cDataType<=6 AND BIM30=-1,KXDM30,BIM30=1,KXGM30,0),colorblue,linethick2;
STICKLINE(cDataType<=6 AND BIM30=1, KXGM30, KXGM30, 8, 1), colorblue,linethick3;
STICKLINE(cDataType<=6 AND BIM30=1, KXDM30, KXDM30, 8, 1), colorblue,linethick3;
STICKLINE(cDataType<=6 AND BIM30=-1, KXGM30, KXGM30, 8, 1), colorblue,linethick3;
STICKLINE(cDataType<=6 AND BIM30=-1, KXDM30, KXDM30, 8, 1), colorblue,linethick3;
DRAWTEXT(cDataType<=6 AND BIM30=1 AND REF(BIM30,1)=0, KXGM30, ''+KXGM30), coloryellow, align1, valign2;
DRAWTEXT(cDataType<=6 AND BIM30=-1 AND REF(BIM30,1)=0, KXDM30, ''+KXDM30), colorCyan, align1;
{5F走势=日线笔}
KXDAY:="P_PBASE.KX#DAY";
KXGDAY:="P_PBASE.KXG#DAY";
KXDDAY:="P_PBASE.KXD#DAY";
BIDAY:="P_PBASE.BI#DAY";
drawline(cDataType<=8 AND BIDAY=1,KXGDAY,BIDAY=-1,KXDDAY,0),colorMagenta,linethick2;
drawline(cDataType<=8 AND BIDAY=-1,KXDDAY,BIDAY=1,KXGDAY,0),colorMagenta,linethick2;
STICKLINE(cDataType<=8 AND BIDAY=1, KXGDAY, KXGDAY, 8, 1), colorMagenta,linethick3;
STICKLINE(cDataType<=8 AND BIDAY=1, KXDDAY, KXDDAY, 8, 1), colorMagenta,linethick3;
STICKLINE(cDataType<=8AND BIDAY=-1, KXGDAY, KXGDAY, 8, 1), colorMagenta,linethick3;
STICKLINE(cDataType<=8AND BIDAY=-1, KXDDAY, KXDDAY, 8, 1), colorMagenta,linethick3;
DRAWTEXT(cDataType<=8 AND cDataType>=7 AND BIDAY=1 AND REF(BIDAY,1)=0, KXGDAY, ''+KXGDAY), coloryellow, align1, valign2;
DRAWTEXT(cDataType<=8 AND cDataType>=7 AND BIDAY=-1 AND REF(BIDAY,1)=0, KXDDAY, ''+KXDDAY), colorCyan, align1;
{30F走势=周线笔}
KXW:="P_PBASE.KX#WEEK";
KXGW:="P_PBASE.KXG#WEEK";
KXDW:="P_PBASE.KXD#WEEK";
BIW:="P_PBASE.BI#WEEK";
drawline(cDataType<=9 AND BIW=1,KXGW,BIW=-1,KXDW,0),colorred,linethick2;
drawline(cDataType<=9 AND BIW=-1,KXDW,BIW=1,KXGW,0),colorred,linethick2;
STICKLINE(cDataType<=9 AND BIW=1, KXDW, KXDW, 8, 1), colorred,linethick3;
STICKLINE(cDataType<=9 AND BIW=1, KXGW, KXGW, 8, 1), colorred,linethick3;
STICKLINE(cDataType<=9 AND BIW=-1, KXDW, KXDW, 8, 1), colorred,linethick3;
STICKLINE(cDataType<=9 AND BIW=-1, KXGW, KXGW, 8, 1), colorred,linethick3;
DRAWTEXT(cDataType=9 AND BIW=1, KXGW, ''+KXGW), coloryellow, align1, valign2;
DRAWTEXT(cDataType=9 AND BIW=-1, KXDW, ''+KXDW), colorCyan, align1;
效果示例:
只要你1F数据足够多,就能在1张图上看到足够多的走势,这样立体的看走势是不是很有感觉啊
下图中看到的红色区间是周线顶分那根K线的区间,同理 粉红,蓝色, 黄色, 的类似区间分别表示形成顶(底)分最高(低)K线所在的区间